| |
▼ｋｋｋ さん：
こんにちは。
>はじめまして。
>フォーム１からマルチページが表示されるようにボタンを作っています。
↑の仕様がちょっとわかりませんが・・・。
>フォーム１はシートが替わっても表示されるように、ShowModalをFalseにしています。
>ボタンが押された時に表示されているシートに連動するように、マルチページのページが表示される様にしたいのですが、どの様にすればよいでしょうか？
>よろしくお願いします。
>
フォーム１（Userform1）が表示されたとき、アクティブシートによって
>sheet1,sheet2,sheet3のときpage1
>sheet4,sheet5,sheet6のときpage2
>sheet7,sheet8,sheet9のときpage3
というようにMultipage1のベージ表示を変える
ということでよろしいですか？
標準モジュールに、
'=========================================================
Sub main()
UserForm1.Show vbModeless
' ↑ShowmodalがFalseということなので
End Sub
'===============================
Sub page_change()
With UserForm1.MultiPage1
.Value = Int((Val(Mid(ActiveSheet.Name, len("sheet")+1)) - 1) / 3)
End With
End Sub
Userform1のモジュールで
'===================================================
Private Sub UserForm_Initialize()
Call page_change
End Sub
Thisworkbookのモジュールで、
'===================================================
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call page_change
End Sub
|
|
