VBA100本ノック 92本目：セルの色を16進で返す関数
セルの色（塗りつぶし色orフォント色）を16進表示で戻すユーザー定義関数を作成する問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
出題
出題ツイートへのリンク
#VBA100本ノック 92本目
セルの色を16進（赤="#FF0000"、青="#0000FF"）で戻すユーザー定義関数を作成します。
=関数(セル範囲,対象)
対象： 1=塗りつぶし、2=フォント色
セル範囲の大きさにあわせて戻り値を配列で戻す。
つまり配列数式またはスピルに対応してください。
※"#RGB"です。順番に注意。
セルの色を16進（赤="#FF0000"、青="#0000FF"）で戻すユーザー定義関数を作成します。
=関数(セル範囲,対象)
対象： 1=塗りつぶし、2=フォント色
セル範囲の大きさにあわせて戻り値を配列で戻す。
つまり配列数式またはスピルに対応してください。
※"#RGB"です。順番に注意。
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
引数のセル範囲と同じ大きさの配列を用意して、そこにRGBの16進表示文字列をいれて戻せば良いです。
RGBはそれぞれ1バイトですが、順番が逆になります。
数値のビットではBGRの順になるので気を付けてください。
256で割りながら求めても良いですが、HEX関数の結果を入れ替えるのが簡単だと思います。
配列およびスピルに対応したユーザー定義関数作成の練習でした。
Type（ユーザー定義型）+LSetを使った本来は推奨されない方法でRGBを分割することもできます。
これについては記事補足に掲載しました。
RGBはそれぞれ1バイトですが、順番が逆になります。
数値のビットではBGRの順になるので気を付けてください。
256で割りながら求めても良いですが、HEX関数の結果を入れ替えるのが簡単だと思います。
Function VBA100_92_01(セル範囲, 区分)
If セル範囲.Areas.Count > 1 Then Exit Function
If Not (区分 = 1 Or 区分 = 2) Then Exit Function
Dim rtnAry
ReDim rtnAry(1 To セル範囲.Rows.Count, 1 To セル範囲.Columns.Count)
Dim i As Long, j As Long, sHex As String
For i = 1 To セル範囲.Rows.Count
For j = 1 To セル範囲.Columns.Count
Select Case 区分
Case 1: sHex = DecToHex(セル範囲.Cells(i, j).Interior.Color, 6)
Case 2: sHex = DecToHex(セル範囲.Cells(i, j).Font.Color, 6)
End Select
rtnAry(i, j) = "#" & Mid(sHex, 5, 2) & Mid(sHex, 3, 2) & Mid(sHex, 1, 2)
Next
Next
VBA100_92_01 = rtnAry
End Function
Function DecToHex(ByVal aDec As Long, ByVal aNum As Long) As String
DecToHex = Right(String(aNum, "0") & Hex(aDec), aNum)
End Function
Type（ユーザー定義型）+LSetを使った本来は推奨されない方法でRGBを分割することもできます。
これについては記事補足に掲載しました。
補足
RGBについては、以下でも詳しく解説しています。
マクロ記録での色のマイナス数値について
ツイッターで出したVBAのお題です。マクロの記録で文字色などの色を指定するとマイナス数値で記録される場合がありますが、このマイナス数値は何かを問う問題です。お題のツイート https://twitter.com/yamaoka_ss/status/1272119270026051587 【エクセル問題】 マクロの記…
色の数値をLong型の変数に入れて、1バイトずつに分割すればRGBを取り出せます。
このバイト分割にType+LSetを使っています。
このバイト分割にType+LSetを使っています。
Type tColorRGB
R As Byte
G As Byte
B As Byte
S As Byte
End Type
Type tColorNum
N As Long
End Type
Function VBA100_92_02(セル範囲, 区分)
If セル範囲.Areas.Count > 1 Then Exit Function
If Not (区分 = 1 Or 区分 = 2) Then Exit Function
Dim rtnAry
ReDim rtnAry(1 To セル範囲.Rows.Count, 1 To セル範囲.Columns.Count)
Dim i As Long, j As Long
For i = 1 To セル範囲.Rows.Count
For j = 1 To セル範囲.Columns.Count
Select Case 区分
Case 1: rtnAry(i, j) = getRGB(セル範囲.Cells(i, j).Interior.Color)
Case 2: rtnAry(i, j) = getRGB(セル範囲.Cells(i, j).Font.Color)
End Select
Next
Next
VBA100_92_02 = rtnAry
End Function
Function getRGB(ByVal aNum As Long) As String
Dim cNum As tColorNum: cNum.N = aNum
Dim cRGB As tColorRGB: LSet cRGB = cNum
getRGB = "#" & DecToHex(cRGB.R, 2) & DecToHex(cRGB.G, 2) & DecToHex(cRGB.B, 2)
End Function
Function DecToHex(ByVal aDec As Long, ByVal aNum As Long) As String
DecToHex = Right(String(aNum, "0") & Hex(aDec), aNum)
End Function
わざわざType+LSetをつかうような処理でもないのですが、数値とRGBについて理解する一助になるかもしれないと思って、このようなVBAを書いてみました。
そもそも、この方法自体をMSが推奨していませんので、この点は誤解なきようお願いいたします。
サイト内関連ページ
第33回．セルの書式（フォント,Font）
・マクロでの指定 ・色定数 ・RGB関数 ・色の指定を解除（自動） ・フォント(Font)設定についての注意点
第34回．セルの書式（塗りつぶし,Interior）・マクロVBAでのInterior指定 ・色定数 ・RGB関数 ・塗りつぶしなし ・条件付き書式との使い分け
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
90本目：セルに重なっている画像の削除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
91本目：時間計算（残業時間の月間合計）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
92本目：セルの色を16進で返す関数93本目：複数ブックを連結して再分割
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
94本目：表範囲からHTMLのtableタグを作成・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
95本目：図形のテキストを検索するフォーム作成・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
96本目：Accessデータを取得（マスタ結合&抽出）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
97本目：Accessデータを取得（グループ集計）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
98本目：席替えルールが守られているか確認・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
99本目：自動席替え（行列と前後左右が全て違うように）・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 92本目：セルの色を16進で返す関数
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。