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

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

[[20120130070802]]: #score: 5499; @digest: 1d6c3c51157f735f80a7b46084cb8195; @id: 57481; @mdate: 2012-01-30T05:36:14Z; @size: 2998; @type: text/plain; #keywords: checkboxes (12282), caller (9464), xlon (8550), 個気 (7323), 1180 (5713), 個手 (5069), 個一 (4821), クx (4541), クボ (4406), 番+ (4101), 一個 (3378), ド& (3310), ル11 (3181), 気合 (3122), 装飾 (2805), ・連 (2489), チェ (2367), ク5 (2213), ェッ (2143), ク4 (1935), シジ (1681), clearcontents (1669), ボッ (1488), ック (1313), ichinose (1239), ク3 (1238), activesheet (1206), クス (1195), ーコ (1187), 則性 (1172), application (1167), click (1064); 『何とかなりませんか?』（みんと）
チェックボックスにチェックをするとJ4にA4も値を参照しています。これがセル1180まであります。やっぱり一個一個手入力でしょうか? Sub チェック2_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j5").Value = Range("a5").Value Else Range("j5").ClearContents End If End Sub Sub チェック3_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j6").Value = Range("a6").Value Else Range("j6").ClearContents End If End Sub Sub チェック4_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j7").Value = Range("a7").Value Else Range("j7").ClearContents End If End Sub Sub チェック5_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j8").Value = Range("a8").Value Else Range("j8").ClearContents End If End Sub Sub チェック6_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j9").Value = Range("a9").Value Else Range("j9").ClearContents End If End Sub Sub チェック7_Click() If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("j10").Value = Range("a10").Value Else Range("j10").ClearContents End If End Sub こんな風に一個一個気合を入れて1180までやるしかないのでしょうか? 良い方法ありましたらおしえてください。 ---- Application.Caller を使っているのですから、このApplication.Callerで示されるチェックボックス名とそのプロシジャー内で使用されているセルのセルアドレスに何らかの規則性がありませんか? それがあるなら、プロシジャーは、一つで済みます。 ichinose ---- 追伸これ、チェックボックスが1180必要ってことですか? 私の感覚からするとこれは、多すぎですねえ!! リストボックス（複数選択が可）辺りで代替出来ませんか? これも一度、考慮してみてください。この場合、ActiveXControl リストボックスなら、ある程度なら装飾できます。 ichinose ---- 規則性は同じセル内で10ときたら次は11くらいです。あとはチェックボックスが1から順にならんでます。リストだとA列の商品名とB列のバーコード&でつないで参照してもバーコードの数字を抜き取れない為に チェックボックスを使おうとしています。（みんと） ---- ichinoseさん同様、チェックボックスの数には???で、もっと別の構成がいいのではと、おもうけど。ともあれ、・フォームツールのチェックボックスの名前は初期値のまま（チェックと半角スペースと連番）・連番+3が対象セルの行番号これが保たれているなら、全てのチェックボックスに以下のプロシジャを登録。 Sub チェックx_Click() Dim n As Long n = Split(Application.Caller)(1) + 3 If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then Range("J" & n).Value = Range("A" & n).Value Else Range("J" & n).ClearContents End If End Sub (ぶらっと) ---- ぶらっとさんありがとうございました。これしか思いつかないので頑張ります。（みんと） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120130070802.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ