Excel Forum

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$C$4"
Call addNewItem(Target.Value)
Range("C4").Select
'reset qty after add item
If Range("E4").Value > 1 Then Range("E4").Value = 1
Case "$E$4"
If Target.Value < 1 Then Target.Value = 1
Case Else:
If Left(Target.Address, 3) = "$C$" Then
If Target.Row >= 8 And Target.Row <= 47 Then
If IsEmpty(Target.Value) Then
Range("E" & Target.Row).ClearContents
End If
End If
End If
'Debug.Print "x " & Target.Address
End Select
End Sub

Supfile2529 wrote:1. ผมอยาก Lock Cell ใน sheet หน่อยนะครับคือ
ผมต้องทำอย่างไรครับ...?

2. ผมอยาก ดับเบิ้ลคลิก ช่องแถวนี้น่ะครับ
ต้องใช้ Code อย่างไรน่ะครับ

ผมลองศึกษา Code ชุดนี้ดูแล้วครับ งงเลย ไปไม่ถูกครับ
Code นี้ได้มาจากที่นี้หล่ะครับ แต่หากระทู้ไม่เจอครับ

snasui wrote:
ช่วยอธิบายถึงตำแหน่งชีท ตำแหน่งเซลล์ว่าต้องการจะ Lock ชีทไหน เซลล์ไหน อย่างไร Code ที่ Copy มาใช้นั้นแสดงค่าผิดพลาดอย่างไร

การโพสต์ Code ให้เป็น Code ดูที่นี่ครับ viewtopic.php?f=3&t=1187

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$C$4"
            Call addNewItem(Target.Value)
            Range("C4").Select
            'reset qty after add item
            If Range("E4").Value > 1 Then Range("E4").Value = 1
        Case "$E$4"
            If Target.Value < 1 Then Target.Value = 1
        Case Else:
            If Left(Target.Address, 3) = "$C$" Then
                If Target.Row >= 8 And Target.Row <= 47 Then
                    If IsEmpty(Target.Value) Then
                        Range("E" & Target.Row).ClearContents
                    End If
                End If
            End If
        
            'Debug.Print "x " & Target.Address
    End Select
End Sub

snasui wrote: ต้องขออภัยครับ การจะใช้ Code VBA นั้นจะต้องเข้าใจบ้างและถามเฉพาะที่ติดปัญหาตามกฎข้อ 5 ด้านบน หากไม่เข้าใจเลยยังไม่ควรใช้ จำเป็นต้องศึกมามาเป็นลำดับก่อน ศึกษาอย่างไรนั้นลองอ่านที่นี่เป็นแนวทางครับ viewtopic.php?f=5&t=3274