【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集

ExcelでのVBAの質問となります。どなたか親切な方プログラムの書き方作り方について優秀な知恵をお貸しくださいよろしくおねがいします。
質問内容は詳細を見てください
画像も備えさせていただきましたが分かりにくいと思うのですが、赤で囲んだエクセルのセル内容をメモ帳で書き込み後改行する(クリップボードを使用)を作成するにあたりマクロを作りたいと思うのですが。どんな感じでVBAプログラムを作成すればいいのか教えてください。できれば詳しい例題(参照)を書いていただけると有難いです。

バッチファイルも作りたいのですがもしバッチファイルでも作成できる場合はバッチファイル用例題とVBA例題の両方をこんな感じって具合にプログラムの組み方を詳しく教えて頂きたいです。

優秀な知恵の持ち主様どうかよろしくお願いします

補足

正確には(1)の画像の前に手順があるのてせすが以下省略してあるため分かりにくかったと思わりるため補足します。
本来はオートフィル機能で検索した結果を(1)画像の赤□内に抽出(書き込み)した後にメモ帳に追加してけるようにマクロをつくるとゆうもののプログラムを作成するつもりだったため。
オートフィル機能で検索した結果を(1)画像の赤□内に抽出(書き込み)のマクロをすでに作成できたけれど次の段階のプログラムが作れなかったためぜひ知識が詳しい方回答よろしくお願いします。

もしできない場合はテキストBOXなどつくろうと思うのですが、作り方がよくわからないため詳しい説明を書いていただけると有難いです。
図書館等を使ったりくぐったりしていますが、独学では分かり兼ねるところがあったため知恵がある方に質問しました。

「ExcelでのVBAの質問となります」の質問画像

A 回答 (2件)

画像は潰れて見えません。


説明文も、画像を見れば分かるような書きっぷりになってるので、何を入力して、最終的に何をどうしたいのか?不明瞭です。
説明は、画像使わずに、具体的に何をどうした時に、何をどうするって事を箇条書きなんかで書くのが良いです。


> 赤で囲んだエクセルのセル内容をメモ帳で書き込み後改行する(クリップボードを使用)を作成するにあたり

これが最終的にやりたい事になるんでしょうか?
そのまんま書くなら、

Sub test()
' B2の範囲をクリップボードにコピー
Range("B2").Copy
' メモ帳起動
Shell "c:\Windows\notepad.exe", vbNormalFocus
' Ctrl+Vキーを送信
SendKeys "^v", True
' Enterキーを送信
SendKeys "{ENTER}", True
End Sub

とか。

テキスト処理するんなら、クリップボードやメモ帳使うなんて方法はお勧めしませんが…。
    • good
    • 0
この回答へのお礼

この方法を応用し修正したら使えました。
伝わりにくくて申し訳ありませんでした
Range("C4").Select
Selection.CurrentRegion.Select
Selection.Copy
' メモ帳起動
Shell "c:\Windows\notepad.exe", vbNormalFocus
' Ctrl+Vキーを送信
SendKeys "^v", True
' Enterキーを送信
SendKeys "{ENTER}", True
End Sub
として使った結果上手くやりたいことができたのでお礼を言わしてください。
分かりにくい説明に詳細な回答頂きました心より盛大に感謝します。有難うございました。

お礼日時:2013/05/20 23:15

やりたい事がさっぱり理解できませんでしたが、、、、



Excelで文字列をクリップボード転送をする場合の、一番簡単と思われる方法だけ載せておきます。





Option Explicit

'要:参照設定にMicrosoft Forms 2.0 Object Library
'http://www.moug.net/tech/exvba/0150091.html を参照

Sub サンプル()
  Dim cb As New DataObject
  Call cb.SetText("ああああ")
  Call cb.PutInClipboard
End Sub
    • good
    • 0
この回答へのお礼

回答いただきましてありがとうございました。
質問内容が上手く伝えられず申し訳ありませんでした

お礼日時:2013/05/20 23:15

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報