人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロについて質問です。
以下のようにセルにデータが入っているとします。
1 2
A 100 20

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

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

●質問者: adgt
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● ふるるP
ベストアンサー

以下のようなマクロでクリップボードに文字列を設定します。
シートにボタンを置いて、そのマクロとして記述してもいいでしょう。
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

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ