ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
สามารถทำได้ด้วย VBA ลองเขียนมาเองดูก่อน ติดตรงไหนค่อยถามกันต่อครับCode: Select all
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B1").Select
ActiveCell.FormulaR1C1 = "0"
Range("B2").Select
ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Select
Selection.Delete
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Shapes.Range(Array("Straight Connector 19")).Select
Selection.Delete
Range("B3").Select
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Shapes.Range(Array("Straight Connector 27")).Select
Selection.Delete
Range("B4").Select
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Shapes.Range(Array("Straight Connector 35")).Select
Selection.Delete
Range("B5").Select
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Shapes.Range(Array("Straight Connector 43")).Select
Selection.Delete
Range("B6").Select
ActiveCell.FormulaR1C1 = "0"
ActiveSheet.Shapes.Range(Array("Straight Connector 51")).Select
Selection.Delete
End Sub
Code: Select all
Sub Macro1()
'
' Macro1 Macro
'
If Range("B1").Value = 0 Then
ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = True
End If
If Range("B2").Value = 0 Then
ActiveSheet.Shapes.Range(Array("Straight Connector 19")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("Straight Connector 19")).Visible = True
End If
'Other code
ต้องคอยกด Run Marco ไหมครับsnasui wrote: ↑Tue Mar 12, 2024 10:04 am
ถ้าคอลัมน์ B เป็น 0 ให้ซ่อน Object ถ้าเป็น 1 ให้แสดง Object ครับCode: Select all
Sub Macro1() ' ' Macro1 Macro ' If Range("B1").Value = 0 Then ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = False Else ActiveSheet.Shapes.Range(Array("Straight Connector 11")).Visible = True End If If Range("B2").Value = 0 Then ActiveSheet.Shapes.Range(Array("Straight Connector 19")).Visible = False Else ActiveSheet.Shapes.Range(Array("Straight Connector 19")).Visible = True End If 'Other code
การเขียนลักษณะนี้ต้องคอยกด Run เองครับ
https://learn.microsoft.com/en-us/offic ... eet.change