Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9553 / 76732 ←次へ | 前へ→

【72740】sheet1のデーターをsheet2にチェックボックスで指定して吸い出す
質問  ume E-MAIL  - 12/9/13(木) 17:03 -

引用なし
パスワード
   お世話になります

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


うまく説明できませんがよろしくお願いいたします
1 hits

【72740】sheet1のデーターをsheet2にチェックボックスで指定して吸い出す ume 12/9/13(木) 17:03 質問
【72741】Re:sheet1のデーターをsheet2にチェックボックスで指... UO3 12/9/13(木) 20:40 発言
【72743】Re:sheet1のデーターをsheet2にチェックボックスで指... ume 12/9/14(金) 13:59 お礼
【72742】Re:sheet1のデーターをsheet2にチェックボックスで指... マナーモード 12/9/14(金) 10:10 発言
【72744】Re:sheet1のデーターをsheet2にチェックボックスで指... ume 12/9/14(金) 14:02 発言

9553 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free