Excel VBA質問箱 IV

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

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


9552 / 76732 ←次へ | 前へ→

【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

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 発言

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