Excel VBA質問スレ Part7at TECH

---

61:デフォルトの名無しさん
08/06/10 02:50:43
>>60
Private Sub Worksheet_Change(ByVal Target As Range)

　　If Target.Address(False, False) = "A1" Then
　　　　Select Case Target.Value
　　　　　　Case 0
　　　　　　　　Sheet2.Visible = xlSheetHidden
　　　　　　Case 1
　　　　　　　　Sheet2.Visible = xlSheetVisible
　　　　End Select
　　End If

End Sub

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch