VBAの勉強 各シートに同じ処理をする

 

VBAの勉強　各シートに同じ処理をする

　本日のVBAの勉強は繰り返しを使うマクロです。

　

　各シートに同じ処理を行っていきます。

　まずは、答えから

Sub 各シートに同じ処理()

    Dim i As Long

    For i = 1 To Sheets.Count

        Sheets(i).Range("A1").Value = "このブックのシート数は" & ThisWorkbook.Sheets.Count & " です"

    Next i

End Sub

　繰り返し処理を行うと、事務処理が一気に効率化できますね。

　これが自由に使えるようになると初心者脱出のような気がします。

　本日もお疲れさまでした。

今日のメモ

　マイクロソフトは上がりはじめました。

　エヌビディアは決算前で、下がっています。

　日本の半導体関連も下がっていますね。円安の影響も気になります。

マイクロソフト

　株価　　　４１２．１２ドル／株（アメリカ５／９　１０時５８分時点）

　前日終値　４１０．５４ドル／株（アメリカ５／８　１６時００分時点　終値）

　OVER累計　　　  ３８６０

　UNDER累計　　　４３７８

　ほとんど拮抗している感じですが、上がっていっているようです。

エヌビディア

　株価　　　８９３．２１ドル／株（アメリカ５／９　１１時０２分時点）

　前日終値　９０４．１２ドル／株（アメリカ５／８　１６時００分時点　終値）

　OVER累計　 ３１５１

　UNDER累計  １７３１

　株価落ちて、売り優勢のような感じです。