Snasui Excel Forum

ลองศึกษาเพิ่มแล้วสามารถทำได้แล้วครับ โดยเปลี่ยนเป็นดังนี้

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
If Target.Value = "" Then
Exit Sub
Else
Target.Offset(0, -7).Resize(1, 14).Interior.ThemeColor ...

ผมต้องการให้คำสั่งนี้มีผลทุก worksheet ใน workbook นั้นๆ ถึงแม้ว่าจะ add worksheet ขึ้นมาใหม่
ผมเลยเข้าไปใส่คำสั่งใน this workbook แทน แต่ไม่คำสั่งไม่มีผลกับชีทอื่นไม่แน่ใจว่า ผมใส่คำสั่งผิดตรงไหนครับ

Private Sub Workbook_Open(ByVal Target As Range)
If Intersect(Target, Range("h:h")) Is Nothing ...

ใช้ได้แล้วครับอาจารย์ คงต้องศึกษาเพิ่มเติมอีกเยอะ

ขอบคุณครับ

สวัสดีครับ
ผมต้องการใส่ค่าใน column B แล้วให้แถวที่ใส่ค่า เปลี่ยนสีพื้นหลังในช่วง Column A ถึง Column C ครับ

ผมลองเขียนแล้วกลายเป็น สีพื้นหลังเปลี่ยนทั้งหมด


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer

For i = 2 To 10
If Cells(i, "B").Value = "" Then
Range(Cells ...