Excel

【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

メッセージを表示する

選択肢を表示するなど、意外に使える場面がある
エラー箇所の確認にも使える
Yes,Noで選択する用のメッセージ
Dim Ans As VbMsgBoxResult 
Ans = MsgBox("〇〇ですか?", vbYesNo + vbDefaultButton2)

◼︎基本的なメッセージボックスの使い方
M
sgBox “〇〇になりません“, 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
ABOUT ME
Mickey@コーヒー好きエンジニア
【コーヒー×科学×AI×ものづくり】趣味は①家庭用ロースターで自家焙煎コーヒー作り②アプリ開発です。 Wordpressブログ、note、Instagramやっています♪ ブログでは自家焙煎の実例や実践的なプログラミングの例文紹介、noteではコーヒーの海外論文(主に焙煎理論)やAIに関する情報の発信をしています。