โค้ด VBA รันตัวเลขอัตโนมัติ ใน Excel

<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipkWNJKhEdNnB9MY7BrJcmnBOgxla7Su9uQsT8UZIazCeNbGq0NRBFQLUx4SslRwUDlz7bBP0xYsSh-bZoUCnLa5FF3ZRJGwj5YdupFkrM5QCG02_TLB6pu9cmTTHUig_ITkpCJ23HeYoxDcSGOBxtKNuGZeDh35F6vWj1M2WFlzBiHa3BtYT5dTcluUvM/s708/testrunnumber.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="608" data-original-width="708" height="344" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipkWNJKhEdNnB9MY7BrJcmnBOgxla7Su9uQsT8UZIazCeNbGq0NRBFQLUx4SslRwUDlz7bBP0xYsSh-bZoUCnLa5FF3ZRJGwj5YdupFkrM5QCG02_TLB6pu9cmTTHUig_ITkpCJ23HeYoxDcSGOBxtKNuGZeDh35F6vWj1M2WFlzBiHa3BtYT5dTcluUvM/w400-h344/testrunnumber.jpg" width="400" /></a></div><br /><p><br /></p><p><br /></p><p><br /></p><p> สำหรับการตั้งค่าให้ Excel รันตัวเลขอัตโนมัติทุกครั้งที่มีการเปิดไฟล์มาใหม่่   เราจะใช้โค้ด VBA ดังนี้ </p><p>..............................................................................................................................................................</p><p>Private Sub Workbook_Open()</p><p>    Dim ws As Worksheet</p><p>    Set ws = ThisWorkbook.Sheets("<span style="background-color: #fcff01;">RunNumber</span>") ' ตรวจสอบให้แน่ใจว่าชื่อชีทถูกต้อง  แก้เป็นชีทงานของคุณ</p><p><br /></p><p>    Dim lastNumber As Integer</p><p>    Dim targetCell As Range</p><p><br /></p><p>    ' ระบุเซลล์ที่ต้องการรันหมายเลขอัตโนมัติ  ให้แก้เป็นเซลล์ที่คุณต้องการแก้ไข</p><p>    Set targetCell = ws.Range("<span style="background-color: #fcff01;">E4</span>")</p><p><br /></p><p>   ' ตรวจสอบว่าเซลล์มีค่าอยู่แล้วหรือไม่</p><p>    If IsNumeric(targetCell.Value) And targetCell.Value > 0 Then</p><p>        lastNumber = targetCell.Value</p><p>    Else</p><p>        lastNumber = 0 ' ถ้ายังไม่มีค่า ให้เริ่มจาก 0</p><p>    End If</p><p><br /></p><p>    ' เพิ่มค่าลำดับทีละ 1</p><p>    lastNumber = lastNumber + 1</p><p>    targetCell.Value = lastNumber ' อัปเดตค่าใหม่ลงในเซลล์ E4</p><p>End Sub</p><div>..................................................................................................................................................................</div><div><br /></div><div><h3><strong>วิธีติดตั้งโค้ด VBA ในไฟล์ของคุณ</strong></h3><ol><li>กด <strong><code>ALT + F11</code></strong> เพื่อเปิด <strong>VBA Editor</strong></li><li>ดับเบิลคลิกที่ <strong>ThisWorkbook</strong> (ใน Project Explorer)</li><li>คัดลอกโค้ดด้านบนแล้ววางลงไป</li><li>กด <strong><code>CTRL + S</code></strong> เพื่อบันทึก</li><li>ปิด <strong>VBA Editor</strong></li><li><strong>ปิดไฟล์ Excel แล้วเปิดใหม่</strong> เพื่อทดสอบการทำงาน</li></ol><div>............................................................................................................................................................</div><div>หากต้องการให้รันอัตโนมัตในรูปแบบ  <strong>ES0001, ES0002, ES0003...</strong> รันอัตโนมัติ</div></div><div><br /></div><div>ให้ใช้โค้ด </div><div>............................................................................................................................................................</div><div><div>Private Sub Workbook_Open()</div><div>    Dim ws As Worksheet</div><div>    Set ws = ThisWorkbook.Sheets("<span style="background-color: #fcff01;">RunNumber</span>") ' ตรวจสอบให้แน่ใจว่าชื่อชีทตรงกับไฟล์ของคุณ</div><div>    </div><div>    Dim lastNumber As Integer</div><div>    Dim newNumber As String</div><div>    Dim targetCell As Range</div><div>    </div><div>    ' ระบุเซลล์เป้าหมายเป็น E4</div><div>    Set targetCell = ws.Range("<span style="background-color: #fcff01;">E4</span>") ' เปลี่ยนตำแหน่งให้ถูกต้อง</div><div><br /></div><div>    ' ตรวจสอบว่าเซลล์มีข้อมูลและอยู่ในรูปแบบ ESxxxx</div><div>    If Not IsEmpty(targetCell.Value) And InStr(targetCell.Value, "ES") > 0 Then</div><div>        On Error Resume Next ' ป้องกัน Error ถ้าข้อมูลไม่ใช่ตัวเลข</div><div>        lastNumber = CInt(Right(targetCell.Value, 4)) ' ดึงตัวเลข 4 หลักสุดท้าย</div><div>        On Error GoTo 0</div><div>    Else</div><div>        lastNumber = 0 ' ถ้ายังไม่มีค่า ให้เริ่มต้นที่ 0</div><div>    End If</div><div>    </div><div>    ' ตรวจสอบให้แน่ใจว่าเริ่มที่ ES0001 ถ้าไฟล์เพิ่งถูกใช้งานครั้งแรก</div><div>    If lastNumber < 1 Then lastNumber = 0</div><div>    </div><div>    ' เพิ่มเลขลำดับทีละ 1</div><div>    lastNumber = lastNumber + 1</div><div>    newNumber = "ES" & Format(lastNumber, "0000") ' ฟอร์แมตให้เป็น ES0001, ES0002...</div><div><br /></div><div>    ' บันทึกค่าใหม่ลงในเซลล์ E4</div><div>    targetCell.Value = newNumber</div><div>End Sub</div></div><div><br /></div><div>..............................................................................................................................................................</div><div><br /></div><div>ทดลองเอาไปใช้งานกันดูค่ะ </div><div><br /></div><div><br /></div><div><br /></div><div><br /></div>

โค้ด VBA รันตัวเลขอัตโนมัติ ใน Excel

 สำหรับการตั้งค่าให้ Excel รันตัวเลขอัตโนมัติทุกครั้งที่มีการเปิดไฟล์มาใหม่่   เราจะใช้โค้ด VBA ดังนี้  .......................................

อ่านเพิ่มเติม »