ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】エクセルのデータを個別のメモ帳に書き出すマクロ。動作不完全につきm(__)mどなたか教えてください。




どうも、ゴリラストロングです。

 

今回はエクセルのデータを個別のメモ帳に書き出すマクロを作成してみました。

動作が不完全で申し訳ないのですが、どなたかお詳しい方教えてくださいますと幸いです。

 

<元データ>

f:id:gorilla-strong:20200303074947p:plain

<マクロ実行後>

f:id:gorilla-strong:20200303075412p:plain

 

 

スポンサーリンク

 

 

ソースコード

Sub メモ帳書き出しマクロ()

Dim macro As Object
Set macro = Workbooks("ゴリラストロングの雑記帳3.xlsm").Worksheets("メモ帳書き出しマクロ")

Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 1).End(xlUp).Row



For i = 3 To lastrow



Dim rng As Range
Set rng = macro.Range(Cells(i, 1), Cells(i, 3))


rng.Select

Selection.Copy


Dim RetVal
RetVal = Shell("notepad", vbNormalNoFocus)
Call AppActivate(RetVal)


CreateObject("Wscript.Shell").SendKeys "^v"

Next





End Sub

 

Dim RetVal RetVal = Shell("notepad", vbNormalNoFocus) Call AppActivate(RetVal)

 

CreateObject("Wscript.Shell").SendKeys "^v"

恐らくこの辺りのコードに不足があると思うのですが、<マクロ実行後>をご覧になっていただいてわかる通りに、一部転記がうまくいっていません。

3時間くらい悩んだのですが答えが出ず( ノД`)シクシク…

どなたかお分かりになる方おられましたらご教示ください。

 

以上、ゴリラストロングでした。

 

 

スポンサーリンク