EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
Sub Test()
Dim WS As Worksheet
For Each WS In Sheets
WS.Name = WS.Range("A1")
Next WS
End Sub
Code: Select all
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Call Test
End If
End Sub
ประโยคนี้เป็นคำถาม จะต้องลงท้ายด้วย "คะ" ครับMarch201711 wrote:สงสัยคะ เพิ่มไปเพราะอะไรค่ะ
Code: Select all
If Sh.Name = "Sheet1" And Target.Address(0, 0) = "A1" Then
Call Test
End If
Workbook_SheetChange
ให้ลบอันที่ไม่ต้องการทิ้งก่อน แล้วค่อยทดสอบใหม่ครับapplication.EnableEvents = true
Code: Select all
Sub test()
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Name = WS.Range("a1").Value
End Sub