エクセルの学校：全文検索：Hyper Estraier：チェックボックス

Results of 1 - 1 of about 975 for チェックボックス (0.008 sec.)

[[20220626225611]]: #score: 5505; @digest: 8b420ba34f0063b12624dae7e4340143; @id: 91667; @mdate: 2022-06-27T04:39:45Z; @size: 3371; @type: text/plain; #keywords: ス?@ (36067), 八家 (11279), モ3 (10933), クボ (10479), ス? (9208), モモ (8933), レモ (8481), ンミ (7655), ク様 (6073), ミカ (5733), checkboxes (5263), モン (4740), モレ (4525), checkbox (3418), チェ (3343), プfo (3173), ェッ (3028), 記fo (2841), ボッ (2830), ンレ (2810), ン8 (2648), cb (2312), クス (2272), ン2 (2206), ン6 (2117), ック (2093), ピン (2087), カン (1737), 列コ (1720), tmp (1366), オン (1311), 配列 (1149); 『チェックボックスで選択したセルの転記について』（八家）
こんばんわお聞きしたいことがあり投稿しました。以下のようなシートがあるとします。 _A_________ B_______ C_______ 1 チェックボックス?@ ミカン 2 チェックボックス?A モモ 3 チェックボックス?B レモン A列のチェックボックスにチェックを入れると C列に転送できるマクロを作りたいと考えています。例えば、 チェックボックス?@と?Bをチェック後、ボタンを押すと、 C列に、・・・ _A_________ B_______ C_______ 1 チェックボックス?@ ミカンミカン 2 チェックボックス?A モモレモン 3 チェックボックス?B レモン・・という感じにしたいと考えています。それが、以下のようなコードです。 ========================================== Sub ボタン6_Click() Dim cb As CheckBox Dim i As Long Dim j As Long Dim Tmp() As Variant i = 0 j = 1 'チェックボックスをループ For Each cb In ActiveSheet.CheckBoxes 'チェックボックスがオンだったら If cb.Value = xlOn Then '配列の要素数を指定 ReDim Preserve Tmp(i) '配列にA〜C列の値を格納 Tmp(i) = Cells(j, 2) i = i + 1 End If j = j + 1 Next cb '配列に格納したデータをH列から転記 For i = 0 To UBound(Tmp) Cells(i + 1, 3) = Tmp(i) Next i End Sub ========================================== ただ、ここで問題点があります。 チェックボックスのチェックを外した場合、うまく消えないのです。例えば、チェックボックス?@?A?Bにチェックを入れると、 _A_________ B_______ C_______ 1 チェックボックス?@ ミカンミカン 2 チェックボックス?A モモモモ 3 チェックボックス?B レモンレモン・・となりますが、次に、例えば、チェックボックス?Bにチェックを外しても、変化がないのです。(c列からレモンが消えない) おそらく、最終セルとして処理すれば消えるのではないかと思っているのですが、うまくいきません。以上になります。恐れ入りますがご教授願います。＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- 参考に Sub ボタン7_Click() Dim cb As CheckBox Dim i As Long Dim j As Long 'チェックボックスをループ For Each cb In ActiveSheet.CheckBoxes j = j + 1 Cells(j, 3).ClearContents 'チェックボックスがオンだったら If cb.Value = xlOn Then i = i + 1 Cells(i, 3).Value = Cells(j, 2).Value End If Next cb End Sub （ピンク） 2022/06/27(月) 00:40 ---- ピンク様返信が遅くなり申し訳ありません無事にできましたありがとうございました。配列にこだわらなくてもピンク様のコードのほうがシンプルでわかりやすいですね（八家） 2022/06/27(月) 08:28 ---- >配列にこだわらなくても配列にこだわれば Sub ボタン8_Click() Dim cb As CheckBox Dim i As Long Dim j As Long Dim Tmp() For Each cb In ActiveSheet.CheckBoxes i = i + 1 ReDim Preserve Tmp(1 To i) If cb.Value = xlOn Then j = j + 1 Tmp(j) = Cells(i, 2).Value End If Next cb Range("C1").Resize(UBound(Tmp)).Value = Application.Transpose(Tmp) End Sub （ピンク） 2022/06/27(月) 12:57 ---- ピンク様配列コードもご紹介いただきありがとうございました!! 勉強させていただきます（八家） 2022/06/27(月) 13:39 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202206/20220626225611.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ