Page 1 of 1
ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 8:41 pm
by yodpao.b
ผมต้องการพิมพ์ตัวเลข 5 ในช่อง A1
เมื่อพิมพ์แล้ว ในช่อง C1 ต้องแสดงเลข 10 ด้วย
เขียนอย่างไรดีครับ
(เขียนโดยใช้ VBA นะครับ)
ขอบคุณครับ
Re: ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 8:48 pm
by snasui
เขียนมาเองครับ ติดอย่างไรแล้วค่อยถามกันครับ
Re: ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 9:29 pm
by 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
Re: ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 9:32 pm
by yodpao.b
ขอโทษครับลืมเขียนผลที่ได้
จาก code ด้านบน
คลิกที่เซลไหน มันก็ทำงาน
จึงไช่ผลที่ถูกต้อง
Re: ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 9:47 pm
by 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
Re: ให้แสดงตัวเลข ทำอย่างไร
Posted: Fri Nov 09, 2012 10:03 pm
by yodpao.b
ขอบคุณครับอาจาร์ยใช้ได้แล้วครับ