シート1に、A~Jまで項目別にデータを入力したリストを作成しています。
K列にチェックボックスを作成し、チェックをいれると隣のL列に0、チェックがないと-1がでるように設定しています。
シート2に、シート1のK列のチェックボックスにチェックをいれた行のA-Dの項目のデータを転記できるように設定したく奮闘しています。シート2のB-E列にチェックを入れた行のリストができればと思います。
その後、シート2のデータを別のエクセルに反映させる予定ですので、シート1からシート2の転記は関数ではなく、VBAで転記できたらと考えています。
上記のシート1からシート2へのデータの転記方法をご教示頂けませんでしょうか。
先日よりVBAの本と格闘していますが、期日が近くなり困っております。
初めての質問となり、説明が不足してましたら失礼致します。
何卒どうぞ宜しくお願いします。
No.1ベストアンサー
- 回答日時:
>チェックをいれると隣のL列に0、チェックがないと-1がでるように設定しています。
マクロで作っているのでしょうか、いずれにしても、True と False が逆になっていますし、申し訳ありませんが、TRUE, FALSE ではないので、直接チェックボックスを当たることにします。
この場合は、フォームコントールのチェックボックスにします。こちらの方が、ずっと扱いが便利だからです。ActiveX のチェックボックスでも出来ないことはありませんが、以下のような簡単なマクロではなくなります。
あくまでも、チェックボックスは順序よく並んでいるとします。
j はデータの最初の行
最初の行の意味や転記先の最初の行の意味を確認して、本番前にマクロを試しながら、調整してください。
'//
Sub transferBychkbox()
Dim i As Long, j As Long, k As Long
j = 2 '元データの最初の行
k = 1 '転記先の最初の行
With ActiveSheet
j = j - 1 ' i は1から始まるので
For i = 1 To .CheckBoxes.Count
If .CheckBoxes(i) = xlOn Then
.Cells(j + i, 1).Resize(, 4).Copy Worksheets("Sheet2").Cells(k, 2)
k = k + 1
End If
Next
End With
End Sub
'//
お礼が遅くなり、大変失礼いたしました。
ご教示頂きましたデータを入れたところ、無事反映致しました!!
すごいです!!また、チェックボックスの扱いも勉強になりました。
教えて頂きありがとうございました。
本当に助かりました。ありがとうございます。
厚くお礼申し上げますm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Visual Basic(VBA) 【VBA】データを入力後に,同一シート内に履歴として転記するVBAコードを教えていただきたいです。 3 2022/11/16 01:37
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Visual Basic(VBA) 2つの条件に合うセルにデータを転記したい 4 2022/12/02 11:05
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel チェックボックスにチェックが付いた複数のセルを別のシートにコピー・貼り付けするマクロを教
Visual Basic(VBA)
-
あるexcel表からチェックボックスに○のついた情報のみを別の表に抽出する方法
Excel(エクセル)
-
エクセルでチェックボックスを使用してシートの抽出及び一括印刷
Excel(エクセル)
-
-
4
エクセルで選択した行の項目だけを別シートの請求書に自働入力したい
その他(Microsoft Office)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
エクセル VBA CheckBox名に変数を使用
Excel(エクセル)
-
7
フラグを立てた物のみを別シートへ反映したい
Excel(エクセル)
-
8
コントロールの書式設定で、“コントロール”タブが表示されない
Excel(エクセル)
-
9
エクセルでチェックボックスをクリックしたらセルに数値を入力&消去
Excel(エクセル)
-
10
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
11
2つ以上のチェックボックスを連動させるには?
Excel(エクセル)
-
12
エクセルVBAを使ってセルに日付+通し番号を入力したい
Excel(エクセル)
-
13
チェックボックスをクリックした順にカウントアップするには
Excel(エクセル)
-
14
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
15
IFS関数の場合で、セルが空白の場合は何も表示しないようにする方法
Excel(エクセル)
-
16
差し込み後、元データを変更し 差し込み先に反映させるには?
Access(アクセス)
-
17
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
18
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
19
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのブック分割マクロを...
-
文字の色も参照 VLOOKUP
-
VBAで繰り返しコピーしながら下...
-
Excel VBA ピボットテーブルに...
-
ExcelのVlookup関数の制限について
-
Excelで全てのシートに一気に列...
-
Excelでの並べ替えを全シートま...
-
EXCELでシート1で作ったデータ...
-
Excel 2段組み
-
Excelで条件別にシートを振り分...
-
別シートから月(MONTH)で抽出す...
-
VBAで検索して、行をコピー&追...
-
エクセル マクロ 標準モジュー...
-
エクセルの保護で、列の表示や...
-
エクセルVBA データを別シート...
-
エクセルで横並びの複数データ...
-
エクセルVBA 行追加時に自...
-
エクセルで別シートの数値が一...
-
予定表に日本の休日を一気に入...
-
【条件付き書式】countifsで複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
文字の色も参照 VLOOKUP
-
オートフィルタ使用時にCOUNTIF...
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
エクセル関数に詳しい方、教え...
-
【条件付き書式】countifsで複...
-
Excel の複数シートの列幅を同...
-
エクセル マクロ 標準モジュー...
-
エクセルで横並びの複数データ...
-
エクセルの列の限界は255列以上...
-
Excelでの並べ替えを全シートま...
-
VLOOKアップ関数の結果の...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
Excel VBA ピボットテーブルに...
-
【エクセル】1列のデータを交...
-
エクセルVBAで、ある文字を含ん...
-
エクセルのブック分割マクロを...
-
excel 複数のシートの同じ場所...
おすすめ情報