VBAの初心者です。
エクセル2016を使っておりますが,選択した範囲(複数セル)の値のみをクリップボードにコピーするマクロをご教示願います。
検索すると,以下のものが出てきますが,走らせると止まってしまいます。
https://qiita.com/tukiyo3/items/0d50f2834fb5098b …
Sub copy_e6()
'
' copy_e6 Macro
'
Dim myDO As New DataObject
myDO.SetText Range("E6").Value
myDO.PutInClipboard
End Sub
No.3ベストアンサー
- 回答日時:
横から失礼します
少し難しい回答かもしれませんが
参照設定については 後にして 貼り付け先(使用用途は)どこなのでしょう
>値のみをクリップボードにコピーする
サンプルは単セルですがExcelのセル範囲を選択して実行している場合
列方向 vbTab 行方向 vbCrlfが必要になるのではないかと思います
(各値をただ繋げるなら不要ですが)
以下サンプル
実行時参照でDataObjectを使っていますが エラーになるかも知れません
Sub copy_e6()
'
' copy_e6 Macro
'
Dim ary As Variant
ary = Selection.Value '選択範囲の値を一旦配列に格納
' Dim myDO As New DataObject
Dim myDO As Object
Set myDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Dim i As Long, j As Long
Dim strBuf As String
For i = 1 To UBound(ary, 1)
For j = 1 To UBound(ary, 2)
strBuf = strBuf & ary(i, j) & vbTab
Next
strBuf = Left(strBuf, Len(strBuf) - 1) '右のタブコードを削除
strBuf = strBuf & vbCrLf '改行コードを付加
Next
myDO.SetText strBuf
myDO.PutInClipboard
Set myDO = Nothing
End Sub
配列に入れている理由
オブジェクトやコレクションをループするEachのループ方向は信頼できないと聞いたことがあるので カラム>>行 の順序を確定する為
参照設定については こちらを参考にしてみてください
NJ-CLUCKER
https://nj-clucker.com/excel/references-ms-forms …
参照設定が正しく出来た場合は(このままでも良いですが)
Dim myDO As New DataObject の方を使用して
Dim myDO As Object
Set myDO = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
は削除してください
No.2
- 回答日時:
MSFormsライブラリが読み込まれていない可能性があります。
以下の手順に従って、ライブラリを読み込んでから、コードを実行してください。Excelを開いて、Visual Basic Editorを開きます。
[ツール]メニューから[参照設定]をクリックします。
[参照設定]ダイアログボックスで、[Microsoft Forms 2.0 Object Library]を選択します。
[OK]ボタンをクリックして、ダイアログボックスを閉じます。
以下は、選択範囲の値と数式を両方コピーするために改良されたコードです。
Sub CopySelectedValuesAndFormulasToClipboard()
Dim dataObj As New MSForms.DataObject
Dim selectedRange As Range
Dim cell As Range
Dim outputString As String
Set selectedRange = Selection
' Loop through each cell in the selected range and append its value or formula to the output string.
For Each cell In selectedRange.Cells
If cell.HasFormula Then
outputString = outputString & cell.Formula & vbTab
Else
outputString = outputString & cell.Value & vbTab
End If
Next cell
' Remove the trailing tab character from the output string.
outputString = Left(outputString, Len(outputString) - 1)
' Copy the output string to the clipboard.
dataObj.SetText outputString
dataObj.PutInClipboard
End Sub
このコードでは、HasFormulaプロパティを使用して、セルが数式を持つかどうかをチェックし、必要に応じて値または数式をコピーします。コードを実行する前に、選択範囲内に数式が含まれていることを確認してください。
ありがとうございます。
しかし,「[参照設定]ダイアログボックスで、[Microsoft Forms 2.0 Object Library]を選択します。」とのことですが,[Microsoft Forms 16.0 Object Library]はあっても,[Microsoft Forms 2.0 Object Library]が選択項目としてありません。
[Microsoft Forms 16.0 Object Library]にチェックをした状態で,書いていただいたコードを走らせると,前回と同じく「コンパイルエラー:ユーザ定義型は定義されていません」と出て止まってしまいます。
何がダメなのでしょうか。。
ご教示いただけると幸いです。
No.1
- 回答日時:
Sub CopySelectedValuesToClipboard()
Dim dataObj As New MSForms.DataObject
Dim selectedRange As Range
Dim cell As Range
Dim outputString As String
Set selectedRange = Selection
' Loop through each cell in the selected range and append its value to the output string.
For Each cell In selectedRange.Cells
outputString = outputString & cell.Value & vbTab
Next cell
' Remove the trailing tab character from the output string.
outputString = Left(outputString, Len(outputString) - 1)
' Copy the output string to the clipboard.
dataObj.SetText outputString
dataObj.PutInClipboard
End Sub
Alt + F8を押して、マクロの実行ウィンドウを開きます。
CopySelectedValuesToClipboardを選択して、実行をクリックします。
クリップボードに選択した範囲の値がコピーされます。
注意:このマクロは、選択範囲内のすべてのセルの値をクリップボードにコピーします。セルに数式が含まれている場合は、その数式がコピーされます。数式の結果のみをコピーする場合は、セルの値を手動でコピーする必要があります。
ありがとうございます。
申し訳ないのですが,選択範囲には数式が多数含まれており,それについても値でコピーしたいです。
また,教えていただいたコードを実行してみましたがうまく動きません。
「コンパイルエラー:ユーザ定義型は定義されていません」と表示されます。そのときに,2行目の「dataObj As New MSForms.DataObject」が選択された状態になっています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) VBA カゥントで数値の範囲を規制 1 2022/05/20 06:20
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルVBAでセル範囲のデータをクリップボードに
その他(Microsoft Office)
-
セルの値だけクリップボードにコピーするマクロ
Visual Basic(VBA)
-
【VBA】エクセルで値のみクリップボードにコピーするコードについて(貼り付け時の空白削除)
Visual Basic(VBA)
-
-
4
EXCEL/VBA 変数の値をクリップボードにコピーする方法
Visual Basic(VBA)
-
5
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
6
二次元配列をクリップボードにコピーするためには
Visual Basic(VBA)
-
7
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
Excelマクロ 空白セルを無視してCSV出力
Excel(エクセル)
-
10
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
11
クリップボードの内容を変数に取り込みたい(EXCEL VBA)
Visual Basic(VBA)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
14
EXCEL VBAで、PasteSpecialと Destinationの組み合わせ方法?
Excel(エクセル)
-
15
VBAでメモ帳にコピペをしたいのですが…
PowerPoint(パワーポイント)
-
16
エクセルVBA/イベント発生でコピペ不能はなぜ?
Excel(エクセル)
-
17
VBA EXCEL あるセルの中の一部の文字列だけをコピーするには?
Excel(エクセル)
-
18
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
19
マクロ 特定のセル値のみクリアする
Visual Basic(VBA)
-
20
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
白血球が多いとどんな心配があ...
-
腕を見たら黄色くなってる部分...
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
変な話しになります。尿検査で...
-
勃起する時って痛いんですか? ...
-
EXCELで式からグラフを描くには?
-
1日前の検尿
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
リンク先のファイルを開かなく...
-
Excelで""で囲む方法
-
2つの数値のうち、数値が小さい...
-
EXCELの条件付き書式で数式を空...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報