
エクセルのA1~A10にdata1~data10というデータがあるとします。
このdata1~data10というセルごとの値をクリップボードにそれぞれ格納するにはどうしたらいいでしょうか?
コントロール+Cでコピーをすればクリップボードにそれぞれのセルの値(data1~data10)が格納されるのですが、同じことをVBAでしてもクリップボードには格納できないですよね?
エクセルで作ったデータを別のアプリにコピペする必要があるのですが、いちいちコピペすると大変なのでまとめてクリップボードに格納にウィンドウズキー+Vでクリップボードから選択してペーストすることを考えています。
なお、別のアプリにCSVでインポートするにはアプリの改変が必要で費用がかかるということで、インポートする方法はできません。(~_~;)
No.2ベストアンサー
- 回答日時:
No1です。
これで、どうでしょうか。
標準モジュールに登録してください。
参照設定で「参照可能なライブラリ ファイル」に「Microsoft Forms 2.0 Object Library」を参照するようにしておいてください。
現在、1行処理するごとに300ミリ秒、待機しています。
もし、うまくいかない場合は、この値を大きくしてください。
Dim wait_time As Long: wait_time = 300
-------------------------------------------------
Sub Macro2()
Dim wrow As Long
Dim cbData As New DataObject
Dim wait_time As Long: wait_time = 300 '300ミリ待機
'1~10行まで繰り返す
For wrow = 1 To 10
Cells(wrow, "A").Select
'DataObjectにセルの内容を格納
cbData.SetText Cells(wrow, "A").Value
'DataObjectのデータをクリップボードに格納
cbData.PutInClipboard
Application.Wait [Now()] + wait_time / 86400000
DoEvents
Next
End Sub
年始の忙しい中、回答ありがとうございます。
できました!待機時間を短くするとエラーがでますが、300ミリ秒待機させれば大丈夫でした。ありがとうございます。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAのエラー表示の対処法について
Visual Basic(VBA)
-
Excel マクロについて詳しい方、ご教示ください。 『行数が毎回変わる元データの、A列に「1」と入
Visual Basic(VBA)
-
VBA Application.Matchについての質問です
Visual Basic(VBA)
-
-
4
不要項目の行削除方法について
Visual Basic(VBA)
-
5
VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
6
Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
7
Excelの条件付き書式のコピーと参照セルを自動で変えるようにする方法
Excel(エクセル)
-
8
vbaマクロについて
Visual Basic(VBA)
-
9
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
10
VBA 2次元配列の出力
Visual Basic(VBA)
-
11
エクセルシート保護を解除させない方法。
Excel(エクセル)
-
12
修正依頼:【VBA】 結合セルに複数画像とファイル名一括挿入する方法
Visual Basic(VBA)
-
13
vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
14
VBAで特定の文字が入った行をコピーして貼り付けたい
Visual Basic(VBA)
-
15
VBAから書き込んだ条件付き初期の挙動について
Visual Basic(VBA)
-
16
VBA 最終行の取得がうまくいかず上書きされてしまいます。
Visual Basic(VBA)
-
17
Excelの開始ブックを固定したい マクロなしで
Excel(エクセル)
-
18
質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
19
VBAでFOR NEXT分を Application.OnTimeを使って
Visual Basic(VBA)
-
20
エクセルの設定、下へスクロールすると表のヘッダ項目がシートの列番号の部分に表示される
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
vba textboxへの入力について教...
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】シートの変数へ入れ...
-
【VBA】 結合セルに複数画像と...
-
Vba Array関数について教えてく...
-
vbsでのwebフォームへの入力制限?
-
複数のExcelファイルをマージす...
-
Vba セルの4辺について罫線が有...
-
VBAでセルの書式を変えずに文字...
-
VBA ユーザーフォーム ボタンク...
-
【マクロ】並び替えの範囲が、...
-
pdfファイルの複数添付 引数の型
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルのマクロについて教え...
-
VBA 最終行の取得がうまくいか...
-
WindowsのOutlook を VBA から...
-
VBA 円グラフ 特定条件に一致し...
-
[VB.net] ボタン(Flat)のEnable...
-
【ExcelVBA】値を変更しながら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba Array関数について教えてく...
-
VBAでCOPYを繰り返すと、処理が...
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】シートの変数へ入れ...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【マクロ】並び替えの範囲が、...
-
Vba セルの4辺について罫線が有...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
VBAでユーザーフォームを指定回...
-
【マクロ】開いているブックの...
-
エクセルの改行について
-
vb.net(vs2022)のtextboxのデザ...
-
エクセルのVBAコードと数式につ...
-
算術演算子「¥」の意味について
-
Excelのマクロについて教えてく...
-
改行文字「vbCrLf」とは
-
ワードの図形にマクロを登録で...
-
VBAの「To」という語句について
-
【マクロ】変数を使った、文字...
おすすめ情報