エクセルマクロについて質問です。

以下のようにセルにデータが入っているとします。
  1  2
A 100 20

このデータを元にして
「お買い上げ金額は100円です。
20ポイント差し上げます。」
という文章を作成し、ワードやテキストエディタに貼り付けられる状態にする
(クリップボードへ送る?)
には、どうすれば良いでしょうか?

ご回答のほど、よろしくお願いします。

回答の条件
  • 1人3回まで
  • 13歳以上
  • 登録:2016/07/28 08:08:18
  • 終了:2016/08/20 23:37:54

ベストアンサー

id:frkw2004 No.1

ふるるP回答回数192ベストアンサー獲得回数212016/07/28 23:27:15

以下のようなマクロでクリップボードに文字列を設定します。
シートにボタンを置いて、そのマクロとして記述してもいいでしょう。
Sub test()
Dim wkDO As Object 'New DataObject
Dim msg As String

Set wkDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
msg = "お買い上げ金額は%1円です。" & vbCrLf _
& "%2 ポイント差し上げます。"
msg = Replace(msg, "%1", Sheet1.Range("A1"))
msg = Replace(msg, "%2", Sheet1.Range("B1"))

wkDO.SetText msg
wkDO.PutInClipboard
End Sub

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません