Excelシートの特定の番号に色を付けるボタン
Excelシートの特定の番号に色を付けるボタン
問題
ボタンの色をすべてボタン上の数字と同じ色にする方法を探しています。例として、1から10までのボタンの列があり、同じシートセルに1から10まで順不同。 私は今すぐに色で3と7のすべてを識別できるようにしたいです。 「簡単:ボタン3をクリックし、アクション:番号3のセルをすべて色付けして、もう一度ボタンを押すまでそのようにします。
溶液
私は別の解決策をこれらの指示を印刷して従う(あなたに合っているなら)
新しいエクセルファイルを開く
今VBエディタでこのマクロをコピーしてください
Sub test()整数としてのx、整数としてのcfind()、整数としてのj、整数としてのk、文字列として追加( "A:A")。Interior.ColorIndex = xlNone x = Range( "F1")。 j = WorksheetFunction.CountIf(Columns( "A:A")、x)j = 0の場合、MsgBox "A列にそのような値はありません。" ReDim cfind(1 to j)の場合、終了サブエンドk = 1 To jの場合cfind(k)= Columns( "A:A")を設定します。Cells.Find(what:= x、lookat:= xlWhole)cfind(k).Interior.ColorIndex = 3 add = cfind(k).Address cfindを設定します。 (k)= Columns( "A:A")Cells.FindNext(cfind(k))cfind(k)が何もしていなければ終了するcfind(k)があれば終了します。Address= addそして終了しますcfind(k)を終了します。 .ColorIndex = 3 Loop Next k End Sub
メニューをクリックしてmenu-toolbars-form
フォームツールバーのリストにはspinnerと呼ばれるものがあります。
それをクリックしてスピナーボタンを描く
ボタンを右クリックして「フォーマットコントロール」をクリック
そのウィンドウでコントロールを選択します(一番上の行の最後の項目)
「最小値」に対して1を入力
「最大値」に対して10を入力
「増分変更」は1になります
セルリンクは$ F $ 1になります
OKをクリック
再びスピナーボタンを右クリックして "マクロの割り当て"をクリックすると "テスト"という名前が表示されます。 A1からA20までの1から10までの整数(2回または3回繰り返す、いくつかの数字が抜けている)をテストするためにA列にある数字を入力します。スピナーボタンの外側のセルを選択してもう一度クリックします。またはスピンボタンの下向き矢印。 F1の値を参照してください。 F1が1の場合は、下向きの矢印をクリックしても何も起こりません。F1が10の場合は、上向きの矢印をクリックしても何も起こらないので、F1を見続けて列の値を確認します。 Aは赤く表示されます。 これはあなたに役立つでしょうか。 あなたは計画を修正することができます
注意
venkat1926により解決