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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If Range("A1").Value = "" Then
Range("B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
End Sub
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address And Range("A1").Value = "" Then
Range("B1").Interior.Color = 255
End If
End Sub
เซลล์B1เติมสีให้อัตโนมัติตามต้องการแล้วครับsnasui wrote: ตัวอย่าง Code ครับ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("A1").Address And Range("A1").Value = "" Then Range("B1").Interior.Color = 255 End If End Sub
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address And Range("A1").Value = "" Then
Range("B1").Interior.Color = 255
Else
Range("B1").Interior.Color = xlNone
End If
End Sub
If Target.Address = Range("A1").Address And Range("A1").select
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Range("B1").Interior.Color = 255
Else
Range("B1").Interior.Color = xlNone
End If
End Sub
Code: Select all
If Target.Address = Range("A1").Address Then
Range("B1").Interior.Color = 255
Else
Range("B1").Interior.Color = xlNone
End If
If Target.Address = Range("A2").Address Then
Range("B2").Interior.Color = 255
Else
Range("B2").Interior.Color = xlNone
End If
Code: Select all
Range("b:b").Interior.Color = xlNone
If Not Intersect(Target, Range("a1:a50")) Is Nothing Then
Target.Offset(0, 1).Interior.Color = 255
End If