ให้แสดงตัวเลข ทำอย่างไร

[yodpao.b]

ผมต้องการพิมพ์ตัวเลข 5 ในช่อง A1
เมื่อพิมพ์แล้ว ในช่อง C1 ต้องแสดงเลข 10 ด้วย
เขียนอย่างไรดีครับ
(เขียนโดยใช้ VBA นะครับ)
ขอบคุณครับ

[snasui]

เขียนมาเองครับ ติดอย่างไรแล้วค่อยถามกันครับ

[yodpao.b]

ผมต้องการพิมพ์ตัวเลข ใด ในช่อง A1
เมื่อพิมพ์แล้ว ในช่อง C1 ต้องแสดงเลข 10 ด้วย
เขียนอย่างไรดีครับ
(เขียนโดยใช้ VBA นะครับ)
ขอบคุณครับ

ผมลองเขียน code ดังนี้

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
    Range("A10") = "10"
End If
End Sub

1.GIF

[yodpao.b]

ขอโทษครับลืมเขียนผลที่ได้
จาก code ด้านบน
คลิกที่เซลไหน มันก็ทำงาน
จึงไช่ผลที่ถูกต้อง

[snasui]

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

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Value = 5 Then
        Range("A10") = 10
    End If
End Sub

[yodpao.b]

ขอบคุณครับอาจาร์ยใช้ได้แล้วครับ