可能是一個簡單的問題，但我是新來的，很難過！
如果一個單元格包含一個值，則一個形狀將顯示，一個形狀將消失，但我無法使用以下代碼對第二個形狀執行任何操作。見下文：
Sub Worksheet_Calculate()
If Range("M17").Value = "Option A" Then
Me.Shapes("Logo1").Visible = True And Me.Shapes("Logo3").Visible = False
Else
If Range("M17").Value = "Option B" Then
Me.Shapes("Logo3").Visible = True And Me.Shapes("Logo1").Visible = False
Else
Me.Shapes("Logo3").Visible = False And Me.Shapes("Logo1").Visible = False
End If
End If
End Sub
uj5u.com熱心網友回復：
正如 Warcupine 的評論中所述，And是一個布爾運算子，通常用于條件陳述句（例如 inIf或While）
你想要的是兩個不同的陳述：
Me.Shapes("Logo1").Visible = True
Me.Shapes("Logo3").Visible = False
如果你堅持，你可以通過使用:分隔兩個陳述句將它們放在同一行，但我強烈建議不要這樣做：
Me.Shapes("Logo1").Visible = True : Me.Shapes("Logo3").Visible = False
但是，您可以使代碼更簡單：
Dim option as String
option = Range("M17").Value
Me.Shapes("Logo1").Visible = (option = "Option A")
Me.Shapes("Logo3").Visible = (option = "Option B")
該術語(option = "Option A")以Trueor決議，False您可以將結果直接分配給Visible- 屬性
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/380737.html