Code คลิกที่เซลแล้วแสดงค่า

[pongpang]

Code in Moule

Code: Select all

Sub act()
Range("f1").Select
ActiveCell.Value = 25
Cells(6, 13).Select
ActiveCell.Value = "OK"
End Sub

Code inworksheets

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("f1").Select Then
ActiveCell.Value = 11
ElseIf Range("f13").Select Then
ActiveCell.Value = 20
Exit Sub
End If
End Sub

ปัญหา คือ ไม่สามารถคลิกที่เซลใดๆได้ เลือกได้เพียงเซลเดียวครับ และค่าที่กำหนดในเซลอื่นก็ไม่แสดงค่าตามที่กำหนด ครับ
ความต้องการ คือ ที่กำหนดไว้ถ้าคลิกที่F1แล้วแสดงค่า และให้คลิกเลือกที่เซลอื่นได้ด้วยในที่นี้ คือ เซล F13 พร้อมกับให้แสดงค่าตามที่กำหนดไว้ ครับ
ไม่ทราบว่า จะปรับปรุงCodeอย่างไร ครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("f1").Address Then
        ActiveCell.Value = 11
    ElseIf Target.Address = Range("f13").Address Then
        ActiveCell.Value = 20
        Exit Sub
    End If
End Sub

[pongpang]

ขอบคุณ คุณคนควน มากครับ