VBAの勉強 各シートに同じ処理をする（特定シート除く）
本日のVBAの勉強は昨日の繰り返しを使うマクロのパワーアップ版です。
各シートに同じ処理を行っていきますが、基本シートは除くようにします。
まずは、答えから
Sub 同じ処理基本シート除き()
Dim i As Long
For i = 1 To Sheets.Count
If Sheets(i).Name <> "基本シート" Then
Sheets(i).Range("A1").Value = "このブックのシート数は" & ThisWorkbook.Sheets.Count & " です"
End If
Next i
End Sub
繰り返し処理を行うと、事務処理が一気に効率化できますね。
そんな時、処理してほしくない時は、IF文を使えばいいのですね。
本日もお疲れさまでした。
今日のメモ
ダウ関連は上昇です。苦しくても我慢すれば必ず？あがってくれるのがアメリカ経済。
マイクロソフト
株価 ４１４．４７ドル／株（アメリカ５／１０ １２時５５分時点）
前日終値 ４１２．３２ドル／株（アメリカ５／９ １６時００分時点 終値）
OVER累計 ４６５９
UNDER累計 ４０００
株価上がって、売り買い拮抗のような感じです。
エヌビディア
株価 ８９８．３５ドル／株（アメリカ５／１０ １２時５２分時点）
前日終値 ８８７．４７ドル／株（アメリカ５／９ １６時００分時点 終値）
OVER累計 ２３３３
UNDER累計 １６９３
株価上がって、売り買い拮抗のような感じです。