|
sheet1上コンボボックスがあり、コンボボックスには50人の名前があります。コンボボックスより選択するとその50人の名前のシートから選択した名前の人の情報がsheet1上のtextbox等に現れます。sheet1上にボタンを貼り付け、クリックするとuserformが出ます。userform上にスピンボタンとtextboxがあり印刷枚数を設定し、ボタンをクリックで印刷するのですが、下記コードではうまくいきません。
どこがいけないのでしょうか?
よろしくお願いいたします。
Private Sub CommandButton1_Click()
Dim MyS As String
MyS = Worksheets("Sheet1").ComboBox1.Value
If Val(Me.TextBox1.Value) < 1 Then Exit Sub
Worksheets(MyS).PrintOut A1:AV50,A51:AV102, = Me.TextBox1.Value
End Sub
Private Sub SpinButton1_SpinDown()
If Val(Me.TextBox1.Value) < 2 Then Exit Sub
Me.TextBox1.Value = Val(Me.TextBox1.Value) - 1
End Sub
Private Sub SpinButton1_SpinUp()
Me.TextBox1.Value = Val(Me.TextBox1.Value) + 1
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Value = 1
End Sub
|
|