セルの色を変える
どんな色でも表現可能！
多彩な色を使った処理が一瞬でできて便利
多彩な色を使った処理が一瞬でできて便利
条件を満たしたらメッセージボックスを表示
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
メッセージを表示する
選択肢を表示するなど、意外に使える場面がある
エラー箇所の確認にも使える
Yes,Noで選択する用のメッセージ
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
