セルのコピーをマクロで行う

コールのIVのスマイルカーブを見ることができるようにしていたのですが、リアルタイムだけだったので過去との比較は自分の記憶のみという状況でした。
少なくともある特定の時期、例えば朝とか、或いは大きく動いたときとか、自分的に起点にしておきたいときだけでも比較できるようにしたいと思い、遅ればせながらマクロで記録できるようにやっていましたが、これが結構手間取ってしまいました。
結局のところ以下のマクロに落ち着きました。

Sub コールスマイルカーブ()

Range(“N4:AD5”).CurrentRegion.Copy
Range(“N45”).PasteSpecial Paste:=xlPasteValues

End Sub

色々と難しい事が書かれてあるサイトが多くて、これくらいで充分動きました。テキストボックスで起動ボタンを作って自分が記録したい時だけ記録するというシンプルなものです。
セルの範囲を指定する場合でも上記で動きましたが、単なるCopyだけだとなんだか挙動がおかしかったです。
また、IVの値は計算されたものを引っ張ってきたものですから、これをコピーするにはセルの値のみをコピーするようにしないといけませんよね。
従ってPasteSpecial ってやつが必要なようです。
後はコピーされたところを選択してグラフ化して保存しておけば、次からマクロを起動したら上書きされて表示されます。
これとリアルタイムのスマイルカーブを並べるのがデフォかもしれませんが、そうはせずにリアルタイム値から差し引いたプラマイ値をグラフにする感じにしました。

コメント

タイトルとURLをコピーしました