|
超初心者 さん、おはようございます。
>都合6枚程度UserFormを作成し、UserForm1からUserForm2を開くのにUserForm1にボタンを作成し
6枚もフォームを作成しなくても、それぞれに載せる予定のコントロールをフレームに載せて、表示を切り替える方が移動が簡単ではないかと。
たとえばこんな方法です。
準備
UserForm1にFrame1〜Frame6およびCommandButton1を配置(親がUserFormになるように)。
以下を全部UserFormに記述
'ココから================================
Dim II%
'
Private Sub CommandButton1_Click()
Dim JJ%
JJ% = II%
II% = (JJ% Mod 6) + 1
Me.Controls("Frame" & II%).Visible = True
Me.Controls("Frame" & JJ%).Visible = False
End Sub
Private Sub UserForm_Initialize()
For II% = 1 To 6
With Me.Controls("Frame" & II%)
.Left = Me.Left + 1 '位置調整(お好みで)
.Top = Me.Top + 1 '位置調整(お好みで)
.SpecialEffect=fmSpecialEffectFlat
If II% = 1 Then
.Visible = True
Else
.Visible = False
End If
End With
Next
'
II% = 1
End Sub
'ココまで================================
|
|