2021-05-26から1日間の記事一覧

セルの塗りつぶされた色のRGBを求める方法

備忘録

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

複数のSheetに一括で同じ値を代入する方法

備忘録

複数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…