VBAの勉強 最終行を取得する
マイクロソフト、エヌビディアともに株価が戻ってきました。
一気に回復です。株価が上がると信じているものに対し、株価の上下で一喜一憂してはいけないのですが、やはりうれしいものです。
それにしても新NISAで損切りしている方達が出ているようですね。
その文句を国に対して言っているそうで・・・。
株は自己責任です。自分自身のリスク許容度を理解して手を出さないと精神が疲れ切ってしまうことを経験していないと厳しいかもですね。
さて、株価の上下に精神が惑わされないように、今日もVBAの勉強をします。
本日はある列の最終行を取得するマクロです。
ＶＢＡは以下となります。
Sub 最終行を取得する()
' 最終行を取得する
Dim MaxRow As Long
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "最終行は" & MaxRow & "行です。"
End Sub
最終行の値をMaxRowの中に入れ込んで、それをメッセージボックスで表示するものです。
このコードで最初、コンパイルエラーを出して。？？？が続いてました。
Copilotも使って、数分立って、ようやく気付きました。
（正）MsgBox "最終行は" & MaxRow & "行です。"
（誤）MsgBox = "最終行は" & MaxRow & "行です。"
＝があったらダメなんですね・・・・・。
勉強になりました。
今日もお疲れ様でした。
いや、朝ですから、今日もがんばりましょう！
今日のメモ
マイクロソフト、エヌビディアの株が一気に戻ってきましたね。
マイクロソフト
株価 今日４０６．３２ドル／株（５時３８分時点）
一昨日４０９．０６ドル／株（２０時４７分時点）
OVER累計 ８８９２
UNDER類家 ７７４３
取引中の時間帯です。少し売りが優勢です。利益確定勢の影響でしょうか。
今後のさらなる株価上昇に期待です。
エヌビディア
株価 今日８７７．３５ドル／株（５時４２分時点）
一昨日７９６．７７ドル／株（２０時４９分時点）
OVER累計 ７９２４
UNDER類家 ６７５０
取引中の時間帯です。少し売りが優勢です。利益確定勢の影響でしょうか。
今後のさらなる株価上昇に期待です。