Snasui Excel Forum

จาก code นี้

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then _
Me.Shapes("Oval 6").Visible = (Cells(1, 1).Value = 1)
End Sub

ถ้า A1 มีสูตรอยู่ แต่แสดงเป็นค่าว่าง
เช่น =if(b2=b3,"","false")

ต้องแก้ไข code ใน vba ยังไงให้มองเห็นว่า A1 ว่างอยู่ครับ เปลี่ยนเป็น Value = "" ก็ไม่ได้ผลครับ
ขอบคุณครับ

ใน VBA มีฟังก์ชั่น Isempty เพื่อใช้ตรวจสอบเซลล์ว่างเปล่า คือเซลล์ที่ไม่มีค่าใด ๆ ได้ครับ

ถ้าเป็นค่าว่างที่ได้จากสูตร การตรวจสอบใช้เทียบค่าในเซลล์ตรง ๆ ได้เลยครับ เช่น range("a1")=""

กรุณาโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างได้ที่ Link ในกฎข้อ 5 ด้านบน เพื่อให้แตกต่างจากข้อความปกติและสะดวกต่อการอ่าน สะดวกต่อการคัดลอกไปทดสอบ นอกจากนี้ควรแนบไฟล์ตัวอย่างที่เป็นปัญหามาด้วยจะได้ตรวจสอบให้ได้ การตอบโดยไม่เห็นไฟล์ตัวอย่างอาจจะไม่ตรงประเด็นที่เป็นปัญหาครับ