Snasui Excel Forum

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

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

:D ลองปรับ Code เป็นตามด้านล่างครับ
[code]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[/code]

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

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

Code in Moule
[code]Sub act()
Range("f1").Select
ActiveCell.Value = 25
Cells(6, 13).Select
ActiveCell.Value = "OK"
End Sub[/code]
Code inworksheets
[code]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[/code]
ปัญหา คือ ไม่สามารถคลิกที่เซลใดๆได้ เลือกได้เพียงเซลเดียวครับ และค่าที่กำหนดในเซลอื่นก็ไม่แสดงค่าตามที่กำหนด ครับ
ความต้องการ คือ ที่กำหนดไว้ถ้าคลิกที่F1แล้วแสดงค่า และให้คลิกเลือกที่เซลอื่นได้ด้วยในที่นี้ คือ เซล F13 พร้อมกับให้แสดงค่าตามที่กำหนดไว้ ครับ
ไม่ทราบว่า จะปรับปรุงCodeอย่างไร ครับ