エクセルマクロについて質問です。
以下のようにセルにデータが入っているとします。
1 2
A 100 20
このデータを元にして
「お買い上げ金額は100円です。
20ポイント差し上げます。」
という文章を作成し、ワードやテキストエディタに貼り付けられる状態にする
(クリップボードへ送る？)
には、どうすれば良いでしょうか？
ご回答のほど、よろしくお願いします。
ログインして回答する
ベストアンサー
-
ふるるＰ
以下のようなマクロでクリップボードに文字列を設定します。
シートにボタンを置いて、そのマクロとして記述してもいいでしょう。
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
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2016-07-28 08:08:18
- 終了日時
- 2016-08-20 23:37:54
- 回答条件
- 1人3回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
木の太い幹、木の太い根、を掘り出しました。このまま捨てるのは大変です。重いです。切るのも硬いです。干…
匿名質問者
1
-
今行きがかり上で中小企業を相手に民事訴訟の原告と被告で2件の裁判を抱えています。しかし何も深刻さはな…
asnaro_71
2
-
海外の習慣、民族的なことに詳しい方に質問です。 「玄界灘に生きた人々」という本で、「ダイコン官との旅…匿名質問者
-
【ナルコ】 私は医療に関して（当事者ではあるものの）素人です。 友人Aは「ナルコレプシー」的に、話して…
SE**.M1
-
外国から、王族が来ると、その人のパスポートは、ふつうのパスポートとは違う？ 外交官パスポートみたいな…匿名質問者