VBAの勉強 シートの数を表示する
本日のVBAの勉強はシートの数を数えて表示するマクロです。
各シートをひとつのシートにまとめる時に役立つ知識です。
まずは、答えから
Sub ShowSheetCount()
Dim sheetCount As Long
sheetCount = ThisWorkbook.Sheets.Count
MsgBox "シート数は " & sheetCount & " です"
End Sub
プロパティ.Sheets.Countでシートの数を返してくれるわけですね。
本日もお疲れさまでした。
今日のメモ
マイクロソフトは上がりはじめました。
エヌビディアは決算前で、下がっています。
日本の半導体関連も下がっていますね。円安の影響も気になります。
マイクロソフト
株価 ４１２．１２５ドル／株（アメリカ５／７ １０時２６分時点）
前日終値 ４１３．５４ドル ／株（アメリカ５／６ １６時００分時点 終値）
OVER累計 ２０８６
UNDER累計 ２６９５
買い優勢ですが。売り買い拮抗のような感じです。
エヌビディア
株価 ８９７．２８５ドル／株（アメリカ５／７ １０時２９分時点）
前日終値 ９２１．４０ドル ／株（アメリカ５／６ １６時００分時点 終値）
OVER累計 １５００
UNDER累計 ２０３３
前日より株価は落ちていますが、この時点では上昇ぎみです。
明日注目している日本の銘柄
デイトレに向けて、研究中です。
明日の注目銘柄は以下のとおりです。
寄り付き前の買いと売りの全体量を見たりしています。
4062 イビデン
6762 ＴＤＫ
3092 ＺＯＺＯ
8053 住友商事
3382 セブン＆アイ・ＨＬＤＧＳ
4503 アステラス製薬
4751 サイバーエージェント
6920 レーザーテック
8031 三井物産
5803 フジクラ
6098 リクルートホールディングス
8766 東京海上ＨＤ
8001 伊藤忠
1963 日揮ホールディングス
4264 セキュア
6645 オムロン
4204 積水化学
6141 ＤＭＧ森精機
5108 ブリヂストン
9417 スマートバリュー
9001 東武鉄道
2502 アサヒグループホールディン
6471 日本精工
7936 アシックス
6841 横河電機
6305 日立建機