• ベストアンサー

Excelマクロ、セル内容を加工してクリップボードに送りたい

Excelマクロの質問です。 セル自体は加工せず、 セルの内容を加工してクリップボードに送りたいです。 たとえば、セルの内容が、 8540 として、 クリップボードには、 今日の出費:8540円 という文字列を送りたいです(それをテキストエディタにコピペしたいのです) セルの内容は8540のままいじらないで済む方法を探しています。 よろしくお願いします

質問者が選んだベストアンサー

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.3

コピーする(クリップボードに送る)所まで良いんですよね? あまり難しく考えずに、作業用のセルにコピーしたい文字列を整えてコピーしては? Sub Sample()  Range("Z1").Value = "今日の出費:" & Range("A1") & "円"  Range("Z1").Copy End Sub

mickey428
質問者

お礼

そうですね。 作業用のセルを作るというのは一番簡単ですね。 シートを汚したくなければ、別途作業用のシートを作ればよいのですし。 ありがとうございました!

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

マクロの熟達度はどれほどか知らないが、相当熟達者で無いとやりすぎだと思う。 やるならGoogleで「クリップボード VBA」で照会すれば、たくさん記事が出る。 http://officetanaka.net/excel/vba/tips/tips20.htm http://www.moug.net/tech/acvba/0020034.htm ーー >テキストエディタにコピペしたいのです テキストファイルに書き出すというほうが、自然で貼り付けの手間も かからないのでは。 ある課題解決に用いる道具立てが、素人っぽい思いつきのままの感じがする。 改めて、課題の総体を示して、プログラムでの解決法を、聞いてみては。素直なやり方の提示が有るような気がする。

mickey428
質問者

お礼

こちらの方法もやってみました。 うまくいきました(後者の方法です) お察しの通り、マクロの勉強を始めたての素人です。 マスターでいただいているexcelシートでの作業を楽に出来ないかなと思い、 マクロの勉強を始めました。 テキストファイルに書き出すほうが簡単という発想はありませんでした。 勉強になります。

全文を見る
すると、全ての回答が全文表示されます。
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

クリップボードを操作する(1) http://www.officetanaka.net/excel/vba/tips/tips20.htm ダイレクトに格納/取得する >buf = "tanaka" を buf = "今日の出費" & セルの値 & "円" とかにしてみる。

mickey428
質問者

お礼

その方法でうまくいきました! ありがとうございます!

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • EXCELのマクロでテキストを読み込む方法

    EXCELのマクロを使って、テキストファイルから、ある文字列を検索し、コピーしEXCELのシートのセルにペーストするマクロの書き方をご存知の方は、ご教示願います。 例えば、テキストファイル中の「dog」という文字列を検索して、EXCELの決まったセル(A、1)にコピペするというマクロです。 よろしくお願い申し上げます。

  • エクセル マクロ

    エクセル マクロで、シート1のA1セルないの文字列(数式)をクリックボードにコピーするマクロを組みたいのですが、セルのコピーは出来るのですが、文字列のみコピーが出来ません。貼り付けは任意でするので必要ないです。 初心者で何もわかりません。よろしくお願いします。

  • エクセルのマクロでクリップボードの使い分け。

    マクロ初心者です。任意のシートの任意の列(先に選択しておきます。)とそのシートのA列を特定のシートの2列に並べてコピーしたいのですが、クリップボードを使ってマクロ記録をしても、実行すると貼り付けの段階でエラーが起こります。クリップボードの中身を一つ目のデータ、二つ目のデータというように、選択して貼り付けすることは無理なのでしょうか。あるいは、一つ目のデータをコピー・貼り付けした後、元の任意のシートに戻る方法はないでしょうか。どなたか教えてください。よろしくお願いします。Excel2000を使っています。

  • エクセルのクリップボードで・・

    エクセルのクリップボードで・・ エクセル2007を使用しています。 複数のセルをコピーすると、クリップボードが表示されます。 クリップボードのなかの「すべて貼り付け」をクリックすると、 コピーした項目が縦方向に一列に貼り付けられます。 これはもともとの仕様なのかなあ?とも思いますが、もし 横方向に貼り付ける方法があれば教えてください。

  • エクセルのクリップボード!

    エクセル2000を使っています。 同じセルで2回コピーをすると、クリップボードがでてきますよね? とても邪魔なので、でてこないようにしたいのですが、そんなことできるのでしょうか?

  • クリップボードの内容をファイルに自動保存するツール

    テキストファイル内の文字列を、コピーやカットしたときに自動的にクリップボードの内容をファイルに追加保存してくれるようなツールはないでしょうか?

  • エクセルのクリップボードで・・

    エクセル2000を使用しています。 複数のセルをコピーすると、クリップボードが表示されます。 クリップボードのなかの「すべて貼り付け」をクリックすると、 コピーした項目が縦方向に一列に貼り付けられます。 これはもともとの仕様なのかなあ?とも思いますが、もし 横方向に貼り付ける方法があれば教えてください。

  • エクセルのマクロ(VBA)の事で質問です。

    エクセルのマクロ(VBA)の事で質問です。 A列のA1からA100ぐらいまで、各セルに以下のような文章があるとします。 -------------------------------------------- A1 今日は、天気です。 明日も良い天気になるといいですね。 -------------------------------------------- A2 今日は野菜が安いです。 昨日よりも安くて主婦には助かります。 味も美味しいです。 -------------------------------------------- ・ ・ ・ このような感じでセルの中に色々と文章が入っています。 これをマクロ(VBA)を使いB列には以下のようにしたいです。 -------------------------------------------- B1 今日は、天気です。<br /> <br /> 明日も良い天気になるといいですね。 -------------------------------------------- B2 今日は野菜が安いです。<br /> <br /> 昨日よりも安くて主婦には助かります。<br /> <br /> 味も美味しいです。 -------------------------------------------- ・ ・ ・ 要するに、改行のところに<br />タグを入れたいのです。 今までは、テキストエディタにコピペして、置換していたのですが、 マクロ(VBA)では、どのようにすればいいのでしょうか? 教えて頂けないでしょうか? よろしくお願いします。

  • Wordのクリップボード

    Wordで文字列をコピー(メニュー「編集」-コピー や Control+C)を行うと、 クリップボードに入ります。 しかし、コピーしてすぐ貼り付けを行うときでもクリップボードに入ります。 クリップボードにたくさんアイテム(文字列)が入っていると うざったいので、 できればコピー後すぐ貼り付けるものはクリップボードに入れたくないのですが、 クリップボードに入れるものとそうでないものを分けるにはどうすればよいですか。 また、クリップボードに入っているアイテムのうちの一部のみを消去する(選んだものだけクリア)にはどうすればよいですか。 Word2000です。

  • wordのマクロでクリップボードの処理

    WORD文書上に、「c:\....jpg」という画像へのアドレスが複数あるとします。そのアドレスを画像に差し替えたいのですがうまくいきません。。 とりあえずマクロでまず「c:\\*jpg」で検索をかけて、文字列をコピー、その文字列を使って図の挿入をしようと思っています。 Sub Macro1() Dim 画像 Selection.Find.ClearFormatting With Selection.Find .Text = "C:\\*jpg" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Selection.Copy ※クリップボードの内容を変数「画像」へ代入 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ 画像, LinkToFile:=False, SaveWithDocument:= _ True End Sub 以上が今考えているマクロなんですが、※の部分で変数「画像」へクリップボードから代入をする処理がどうにもうまくいきません。 wordのマクロは初めていじるのでよくわかりません。 どなたかわかる方教えてください。よろしくお願いします。

専門家に質問してみよう