これ↓↓ Sub test_RGB() Dim myColor As Long Dim R, G, B myColor = Range("A1").Interior.Color R = myColor Mod 256 G = Int(myColor / 256) Mod 256 B = Int(myColor / 256 / 256) Debug.Print R, G, B End Sub 微妙な色で塗りつぶされた色もこれで、RGB…

複数Sheetの同じセルに一括で値を代入する方法。 マニュアル操作では、Sheetを複数選択していれば同じセルに値が一気に代入するされます。これをVBAで記述すると以下のコードになります。 Sub Sheets_Select() Worksheets("Sheet7").Select Worksheets("Shee…

複数Sheetの同じセルに一括で値を代入する方法。 マニュアル操作では、Sheetを複数選択していれば同じセルに値が一気に代入するされます。これをVBAで記述すると以下のコードになります。 Sub Sheets_Select() Worksheets("Sheet7").Select Worksheets("Shee…

方法１ Sub stringTest() Dim myString As String * 18 myString = "bimori" Debug.Print myString End Sub 処理結果↓↓ この場合、"bimori"以降18文字までは空白が入ります。 しかし、この方法では文字数が変わったときに対応できません。 方法２ Sub string…

セル内に右下がり斜線が入っているか判定する処理。 セルの書式設定で斜めに斜線が入っている場合処理をする方法はないものか？と考えて、ググったらありました。 ここでは、セルA6に右斜め斜線（実線）が入っている場合に、赤でセルを塗りつぶす処理です。 …

自作関数で-、/、空白の文字列付き連番を作る。 前回の記事で「文字列 ＋ 数字」の文字列付き連番の取得方法について解説しました。 bimori466-1.hatenablog.com 今回は、「数字 ＋ 英数字 ＋ 数字」のような場合の文字列付き連番の取得方法について解説しま…

エクセルVBAで正規表現を活用 お仕事で「文字列付き連番」に遭遇しました。 文字列付き連番って、変数に入れて＋１するだけでは連番は取れないのです。 今回は、文字列＋数字、-（ハイフン）、/（スラッシュ）、” ”（半角空白）この4パターンの文字列付き連…

cr（カレントリージョン）を条件分岐して取得する。 crは条件分岐して取得することができます。今回は、預金者区分１，２，３、の3種類のcrを作ってそれぞれの小計を出します。 目次 １ 閲覧対象者 ２ 得られる効果 ３ 演習問題 ４ コードの解説 ５ とある信…

cr（カレントリージョン）の普及活動！ cr（カレントリージョン）って何？と思われるでしょう。一言でいうと、セルの範囲操作が容易になります。 この記法は「ほえDX塾」で教わったものです。ブログへの記載ＯＫということなので、この便利さを伝えたいなと…