Excel VBA質問箱 IV

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

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


25366 / 76732 ←次へ | 前へ→

【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 質問
【56708】Re:特定のSheetにだけユーザーフォームを表... もふもふ 08/7/1(火) 10:14 発言
【56712】Re:特定のSheetにだけユーザーフォームを表... わかば 08/7/1(火) 15:50 お礼

25366 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free