Excel VBA質問箱 IV

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

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


1667 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【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


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

【72741】Re:sheet1のデーターをsheet2にチェックボックスで...
発言  UO3  - 12/9/13(木) 20:40 -

引用なし
パスワード
   ▼ume さん:

こんばんは

どのタイミングで転記をしたいのかが不明ですので、
とりあえずチェックボックスのチェックの判定のところで点kしています。

  Dim myMSG As String
  Dim myFlg As Boolean
  Dim x As Long
  Dim r As Long
  Dim c As Long
  Dim z As Long
  Dim i As Long
  
  i = SpinButton1.Value - 1
  myFlg = False
  Sheets("Sheet2").Range("B2:I11").ClearContents
  
  For x = 1 To 35 'チェックボックスの番号
    If Me.Controls("CheckBox" & x).Value = True Then
      myMSG = myMSG & Me.Controls("CheckBox" & x).Caption & vbCrLf
      myFlg = True
      z = z + 1
      r = ((z - 1) \ 4) + 2
      c = (((z - 1) Mod 4) + 1) * 2
      Sheets("Sheet2").Cells(r, c).Value = Sheets("Sheet1").Cells(i, x + 1).Value
    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 If

【72742】Re:sheet1のデーターをsheet2にチェックボックスで...
発言  マナーモード  - 12/9/14(金) 10:10 -

引用なし
パスワード
   ▼ume さん:

> データーが入っておりまして

>ユーザーフォームのチェックボックスを

> 'チェックボックスの番号

半角カナがあって
(タイトルも、ですけど)質問文、コメントが読みにくいです。

【72743】Re:sheet1のデーターをsheet2にチェックボックスで...
お礼  ume E-MAIL  - 12/9/14(金) 13:59 -

引用なし
パスワード
   UO3 さん ありがとうございます

解決いたしました^^
説明が悪くて申し訳ありません
UO3 さんの記述でぴったしてでた

又よろしくお願いいたします<(_ _)>

【72744】Re:sheet1のデーターをsheet2にチェックボックスで...
発言  ume E-MAIL  - 12/9/14(金) 14:02 -

引用なし
パスワード
   はい、申し訳ございません<(_ _)>
以後、気をつけます

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