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