【Excel-VBA活用集】意外に使える便利なプログラミング例

セルの色を変える

条件を満たしたらメッセージボックスを表示

Sub サンプル()
 Dim sample as String
 Dim RGB(20) As Variant

 Cells(1, 1).Interior.Color = RGB(255, 255, 0)

 '★配列に登録しておくと便利
 RGB(1) = RGB(77, 77, 77)
 RGB(2) = RGB(0, 113, 188)
 RGB(3) = RGB(51, 153, 51)
 RGB(4) = RGB(224, 50, 83)
 RGB(5) = RGB(146, 7, 131)

 Cells(1, 1).Interior.Color = RGB(1)

 '★グラフでも使える
 With ActiveSheet.ChartObjects(ChartName(1)).Chart.SeriesCollection(1)
 .name = ChartName(1)
 .Values = jikux(1)
 .XValues = jikuy(1)
 .Format.Line.ForeColor.RGB = RGB(1)
 .MarkerStyle = nomaker
 .Format.Line.Visible = msoTrue
End With

セルのコピー貼り付け

Worksheets("○○").Range("A1:ZZ1").Copy 
Workbooks("〇〇.xlsm").Worksheets("○○").Range("A1:ZZ1").PasteSpecial Paste:=xlPasteAll

★PasteSpecialメソッドを使う時
（色々な貼り付け方が可能）


以下サイトが分かりやすいのでご参考に
 https://www.sejuku.net/blog/69447

メッセージを表示する

Dim Ans As VbMsgBoxResult 
Ans = MsgBox("〇〇ですか？", vbYesNo + vbDefaultButton2)

◼︎基本的なメッセージボックスの使い方
MsgBox “〇〇になりません“, vbCritical, “！メッセージのタイトルを入力！「～警告～　間違いあり」等“

文字の大きさを変える

Cells(1, 1).Value = "〇〇" 
Cells(1, 1).Font.Name = "Arial" 
Cells(1, 1).Font.Size = 10 

以下サイトが分かりやすいのでご参考に https://algorithm.joho.info/programming/excel-vba/font-macro/ 

★グラフでも使える 

For j = 1 To 6 　　　
With ActiveSheet
.ChartObjects(ChartName(j)).Chart.ChartArea.Format.TextFrame2.TextRange.Font .Size = 10 
.NameFarEast = "Arial Narrow" 
.name = "Arial Narrow" 
End With Next