Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25370 / 76736

←次へ　｜　前へ→


	【56707】特定のSheetにだけユーザーフォームを表示

わかば - 08/7/1(火) 9:45 -


	引用なし

	パスワード

いつもお世話になっています。

下記の
park11.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-01を
見て、参考にしました。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
　　　　　　
If Not Application.Intersect(Target, Range("A1：G20, A37:G56, A73:G92, A109:G128")) Is Nothing Then

　　　　　　With マルチ　　　　　　　　　　 '該当セルの値でページを切替え
　　　　　　　　.Show
　　　　　　　　 With .MultiPage1
　　　　　　　　　　　.Value = 0
　　　　　　End With
　　　　End With
　 Else
　　　　　　With マルチ
　　　　　　　　.Show
　　　　　　　　 With .MultiPage1
　　　　　　　　　　　.Value = 1
　　　　　　　　 End With
　　　　　　End With
　　 End If
End Sub

bookに15枚のSheetがあり、Worksheets(5)からWorksheets(10)にだけ
ユーザーフォームを表示させたいのですが、上記のコードに
どのように組み込んでいいか、わかりません。
宜しくお願いします。

0 hits

▼

【56707】特定のSheetにだけユーザーフォームを表示 わかば 08/7/1(火) 9:45

≪