![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
こんにちは。
EXCEL VBAでセルA1の西暦の下一桁で10種類の色分けをしたのですがご教示ください。
Sub test()
Dim i As integer
Set i = Right(Cells(1, 1), 1)
Select Case i
Case 1
Cells(1, 1) = Interior.Color.RGB(200, 100, 200)
Case 2
Cells(1, 1) = Interior.Color.RGB(300, 100, 200)
・
・
・
end select
end sub
No.1ベストアンサー
- 回答日時:
こんにちは!
>Interior.Color.RGB(300, 100, 200)
てな記載がありますが、
RGB値はそれぞれ 0~255 の256種類ずつしかありません。
もちろん Select Case で分岐する方法もありますが、
何か規則性があるのでしょうか?
ない場合はどこかのセルに10色の色サンプルで塗りつぶしておき、それを参照するのが簡単なのでは?
※ 直接の回答でなくてごめんなさい。m(_ _)m
No.3
- 回答日時:
で、何を聞きたいの?
コードは書き掛けているのだから、やってみれば良いのでは?
それで、何がうまく行かないのか?
そこ確認すればよい
右から一文字を抜き出すのが良いのか
それとも、10で割った余りを使うのか
色の指定は、RGB以外にも有るね
No.2
- 回答日時:
質問者さんのコードを見ると「A1セルの値の右から1桁目」を取得しています。
ということは、A1セルには「2019」と表示されているはずです。であれば、こんな感じでイケけると思います。i = Right(Cells(1, 1).Text, 1)
ちなみに「Set」は不要です。付けるとエラーになります。
ついでに言っておくと、Right関数は文字列を返すので、Integer に代入するのは感心しないのですが、下1桁が数字であれば、とりあえず問題ないです。
それから次の構文って、コンパイルエラーになりませんか?わたしのExcelではダメでしたが・・・。
Cells(1, 1) = Interior.Color.RGB(200, 100, 200)
コンパイルエラーくらいは、ご自分で解決してください。ご検討をお祈りします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) ダブルクリックでセルの色を変える 1 2022/12/24 15:52
- Excel(エクセル) マクロ(データ取得と転記)について教えてください 3 2022/12/24 12:18
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルサーバー上のexcelファ...
-
Excel VBA で色付きのセルの値...
-
vbaで指定したセルより下の行を...
-
Excel VBA:フォーム←→セルのア...
-
IF関数で違う値もTRUEになる
-
マクロ:エクセルVBAでのワーク...
-
ロックされていないセル内をクリア
-
Excelマクロでウェブ上から現在...
-
エクセル マクロ 線対称・点...
-
エクセルでセルをクリックする...
-
エクセル:セルの色のコード番...
-
結合セル内の値を、結合解除後...
-
エクセルマクロで「セルのサイ...
-
Excelマクロ セルを行頭に移動
-
エクセル マクロ オートフィ...
-
Excel 範囲指定スクショについ...
-
B列の最終行までA列をオート...
-
エクセル2016で時間を入力して...
-
VBA シートをコピーする際に Co...
-
VBAマクロ実行時エラーの修正に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excelマクロ セルを行頭に移動
-
マクロのデータ削除
-
ダブルクリックでセルに色をつ...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
【VBA】アクティブセルだけ背景...
-
excel マクロでの特殊文字入力方法
-
セルをクリックしたら色を変え...
-
(エクセルVBA)セルを左クリッ...
-
【マクロ】1つのセルから結合...
-
ExcelVBA コンボボックスに入力...
-
Excelのマクロで選択している行...
-
VBA Rangeの足し算
-
エクセル:セルの色のコード番...
おすすめ情報