VBAの勉強 シートをコピーする

 VBAの勉強 シートをコピーする

 とうとう、半導体関連株も上昇を始めましたね。空売り情報はニュースになったからでしょうか。

 さて、本日もVBAの勉強です。様式をシートに作って、その様式をコピーして、コピーした様式に電子申請などで集めたデータを張り付けていきたいと考えています。

 そのためには、シートをコピーするVBAも必要です。

 そのVBAはこちら


Sub シートコピー()

 ' シートをコピーする

    Sheets("Sheet1").Copy Before:=Sheets(1)

End Sub


このVBAで"Sheet1"をコピーしてくれます。

簡単ですね。


今日のメモ

 前述のとおり、半導体関連銘柄を始め、ダウに関連するアメリカ株は空売り勢の影響により、株価を大幅に下げました。
 そんな中、株価の現状は以下のとおりです。
 予想通りあがりましたね。
 何かうれしいです。

マイクロソフト

 株価 今日407.50ドル/株(20時54分時点)
    前日400.96ドル/株(20時17分時点)
 OVER累計   2330
 UNDER類家 2866
 売りが優勢です。利益確定勢の影響で最初、株が下がるかな?

エヌビディア

 株価 今日824.23ドル/株(20時57分時点)
    前日795.18ドル/株(20時24分時点)
 OVER累計   3495
 UNDER類家 7359
 昨日、おとといの状況からワンテンポ遅れで、まだ上がりそうですね。