VBAの勉強 隣のセルにコピーする

 


VBAの勉強 隣のセルにコピーする

 本日のVBAの勉強は少し変わったコピーの仕方です。
 隣のセルにコピーします。
 「こんなの使わずに、直接指定してコピーすればいいじゃないか」
 と以前、思っていましたがfindメソッドを使う際などに役立ちます。
 
 それはさておき、答えから

Sub 隣にコピー()

    ' J9の右側にJ8の値をコピーする
    Range("J9").Offset(0, 1).Value = Range("J8").Value
End Sub

 Offsetを使えばいいということですね。
 (0,1)の1が右側に1という意味ですね。
 だからJ9の右隣り一つ分のK9にJ8の値がコピーされるということになります。
 本日もお疲れさまでした。

今日のメモ

 マイクロソフトは上がりはじめました。
 エヌビディアは決算前で、下がっています。
 日本の半導体関連も下がっていますね。円安の影響も気になります。

マイクロソフト

 株価   395.125ドル/株(アメリカ5/1 16時00分時点 終値)
 前日終値 389.33ドル/株(アメリカ4/30 16時00分時点 終値)
 OVER累計     4100
 UNDER類家 11,372
 買い優勢になってますね。
 ただ陽線の上ヒゲなんで、どうなるかわかりませんね。

エヌビディア

 株価   830.03ドル/株(アメリカ5/1  16時00分時点 終値)
 前日終値 864.02ドル/株(アメリカ4/30 16時00分時点 終値)
 OVER累計  1880
 UNDER類家  1916
 売り買い、拮抗していますね。まだ、下がるでしょうか。