Excel VBA質問箱 IV

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

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


4429 / 13644 ツリー ←次へ | 前へ→

【56707】特定のSheetにだけユーザーフォームを表示 わかば 08/7/1(火) 9:45 質問[未読]
【56708】Re:特定のSheetにだけユーザーフォームを表... もふもふ 08/7/1(火) 10:14 発言[未読]
【56712】Re:特定のSheetにだけユーザーフォームを表... わかば 08/7/1(火) 15:50 お礼[未読]

【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)にだけ
ユーザーフォームを表示させたいのですが、上記のコードに
どのように組み込んでいいか、わかりません。
宜しくお願いします。

【56708】Re:特定のSheetにだけユーザーフォームを...
発言  もふもふ  - 08/7/1(火) 10:14 -

引用なし
パスワード
   ▼わかば さん:
>いつもお世話になっています。
>
>
>bookに15枚のSheetがあり、Worksheets(5)からWorksheets(10)にだけ
>ユーザーフォームを表示させたいのですが、上記のコードに
>どのように組み込んでいいか、わかりません。
>宜しくお願いします。

アクティブシートがWorksheets(5)からWorksheets(10)だったら表示
その他の場合は非表示?ってできるのかな?

【56712】Re:特定のSheetにだけユーザーフォームを...
お礼  わかば  - 08/7/1(火) 15:50 -

引用なし
パスワード
   もふもふさん
こんにちは

>アクティブシートがWorksheets(5)からWorksheets(10)だったら表示
>その他の場合は非表示?ってできるのかな?

アドバイス有り難うございます。
何とか、やってみます。

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