The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
VBAでRGBと16進数カラーコード変換ツール
今回は色の表現法である「RGB」と6桁の16進数で表される「カラーコード」を変換するフォームをExcelVBAで作成しました！
RGBの数値からカラーコードの変換はツールがないとすぐにわからないので作ろうと思ったのですが、せっかく作るのならVBAのユーザーフォームで作ろうと思いました(笑)
変換ツールで出来る事
この変換ツールでできる事は【RGB→１６進数カラーコードへの変換】になります。
そしてどのような色になるかを真ん中のリストボックスの背景を変化させて確認が可能です。
注意
16進数→からRGBの変換には対応しておりません。
変換ツールのコード
変換ツールのすべてのコードを記載します。
仕事の休憩時間に作ったので、はっきり言ってきれいなコードではありません。実際動かしてみてどのように動いているのか見ていただけると構成はすぐわかると思います。
10進数→16進数の返還には【Hex関数】を使用しています。Hex関数については今後解説します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | Private Sub ScrollBar1_Change() TextBox4.Value = "" ListBox1.BackColor = RGB(ScrollBar1.Value, ScrollBar2.Value, ScrollBar3.Value) TextBox1.Value = ScrollBar1.Value TextBox4.Value = "#" & Format(Hex(ScrollBar1.Value), "00") & Format(Hex(ScrollBar2.Value), "00") & Format(Hex(ScrollBar3.Value), "00") TextBox5.Value = "RGB(" & ScrollBar1.Value & "," & ScrollBar2.Value & "," & ScrollBar3.Value & ")" End Sub Private Sub ScrollBar2_Change() TextBox4.Value = "" ListBox1.BackColor = RGB(ScrollBar1.Value, ScrollBar2.Value, ScrollBar3.Value) TextBox2.Value = ScrollBar2.Value TextBox4.Value = "#" & Format(Hex(ScrollBar1.Value), "00") & Format(Hex(ScrollBar2.Value), "00") & Format(Hex(ScrollBar3.Value), "00") TextBox5.Value = "RGB(" & ScrollBar1.Value & "," & ScrollBar2.Value & "," & ScrollBar3.Value & ")" End Sub Private Sub ScrollBar3_Change() TextBox4.Value = "" ListBox1.BackColor = RGB(ScrollBar1.Value, ScrollBar2.Value, ScrollBar3.Value) TextBox3.Value = ScrollBar3.Value TextBox4.Value = "#" & Format(Hex(ScrollBar1.Value), "00") & Format(Hex(ScrollBar2.Value), "00") & Format(Hex(ScrollBar3.Value), "00") TextBox5.Value = "RGB(" & ScrollBar1.Value & "," & ScrollBar2.Value & "," & ScrollBar3.Value & ")" End Sub Private Sub TextBox1_Change() If TextBox1.Value > 255 Then TextBox1.Value = 0 Exit Sub End If ScrollBar1.Value = TextBox1.Value End Sub Private Sub TextBox2_Change() If TextBox2.Value > 255 Then TextBox2.Value = 0 Exit Sub End If ScrollBar2.Value = TextBox2.Value End Sub Private Sub TextBox3_Change() If TextBox3.Value > 255 Then TextBox3.Value = 0 Exit Sub End If ScrollBar3.Value = TextBox3.Value End Sub |
ダウンロード
色コード変換 15.70 KB
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す