Excel マクロ・VBA 困ったとき用(更新ver1.0)

履歴

実施したことを残していく
業務で困った際の参考にできることも理想とする

• 20241031(更新ver1.0):値の検索までを投稿

コード

Sub こんにちは()
'メッセージボックスに出力

MsgBox "こんにちは！"

End Sub


Sub A1セルにこんにちは()
'A１セルの内容を「こんにちは」に変更する
Range("A1").Value = "こんにちは"

End Sub

Sub セルの合計()
'A2セルからA11セルの合計をメッセージボックスに表示
Dim 範囲 As Range                                                               'As Rangeは特定のセルやセルの範囲を扱う際に使う
Dim セル As Range
Dim 合計 As Double                                                             'Doubleは少数を扱えるうえに、大きな数値も扱える

'合計したいセル範囲をA2からA11に指定する
Set 範囲 = Range("A2:A11")                                                  'set オブジェクト範囲 = オブジェクト　今回は範囲に("A2:A11")を代入している

'範囲内の各セルを順番に読み込んで、合計を計算する
For Each セル In 範囲                                                           '「For Each...Next」ループ：指定した範囲内のすべてのセルに対して順番に操作を行う処理
      If IsNumeric(セル.Value) Then                                           'セルの値が数値であるか確認する。数値であればTrue、数値でなければFalseを返す。
         合計 = 合計 + セル.Value                                               'セルの値が数値であれば、その値を今までの合計に加える。徐々に計算していく
      End If                                                                            '数値の時だけ処理する部分を終える。数値以外の場合は何もしない
    
Next セル                                                                             '次のセルに進む。このループを範囲内のすべてのセルで繰り返す。
      
      '　合計値をメッセージボックスで表示
      MsgBox "合計値は: " & 合計
      
End Sub

Sub 塗りつぶし()

Dim 範囲 As Range
Dim セル As Range

'チェックしたいセル範囲を指定
Set 範囲 = Range("a1:A10")

'範囲内の各セルを順番に読み込む
For Each セル In 範囲
      'セルの値が50以上かチェックする
      If セル.Value >= 50 Then
         '条件を満たす場合、背景色を黄色に
         セル.Interior.Color = RGB(255, 255, 0)                        'Interiorはセルの見た目を変更したい時に使う
         
      End If
Next セル

End Sub

Sub 値の検索()

       Dim 範囲 As Range
       Dim セル As Range
       Dim 検索値 As Variant
       Dim 見つけた As Boolean
       
       '検索したいセル範囲を指定
       Set 範囲 = Range("B1:B20")
       
       'ユーザに検索したい値を入力してもらう
       検索値 = InputBox("検索したい値を入力してね:")
       
       '見つけたフラグを最初はFalseにしておく
       見つけた = False
       
       '範囲内の各セルを順番にチェックする
       For Each セル In 範囲
            If セル.Value = 検索値 Then
               '値が見つかった場合、セルを緑色で協調表示
               セル.Interior.Color = RGB(144, 238, 144)
               見つけた = True
            End If
        Next セル

End Sub

Excelシート