| |
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
