|
お世話になります
sheet1にB1〜AN列までデーターが入っておりまして
行は、日々増えてい行くのですが、
ユーザーフォームのチェックボックスを列に割り振って(B列がCheckBox1)(AN列がCheckBox35)
チェックが入っている列と
TextBox5.Value = SpinButton1.Value - 1 & "/" & レコード数取得
で取得した列(TextBox5.Value)の複数の項目を
sheet2のB2〜I11のセルに上左詰めにコピーするにはどうしたらいいでしょうか
(sheet2のB2〜I11のセルはB2C2、D2E2と 結合しています)
Dim myMSG As String
Dim myFlg As Boolean
Dim x As Long
myFlg = False
For x = 1 To 35 'チェックボックスの番号
If Me.Controls("CheckBox" & x).Value = True Then
myMSG = myMSG & Me.Controls("CheckBox" & x).Caption & vbCrLf
myFlg = True
End If
Next x
If myFlg = True Then
myMSG = myMSG & "宛てで宜しいですか?"
If MsgBox(myMSG, vbInformation + vbYesNo) = vbYes Then
Me.Hide
ActiveWindow.ActiveSheet.PrintPreview
Me.Show vbModeless
End If
Else
myMSG = "いずれにもチェックが入っていません"
MsgBox myMSG
End I
うまく説明できませんがよろしくお願いいたします
|
|