
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も見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
エクセルVBAでセル範囲のデータをクリップボードに
その他(Microsoft Office)
-
【VBA】エクセルで値のみクリップボードにコピーするコードについて(貼り付け時の空白削除)
Visual Basic(VBA)
-
vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
-
-
4
セルの値だけクリップボードにコピーするマクロ
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
セル内のテキストをクリップボードにコピーするVBA
Excel(エクセル)
-
7
EXCEL VBA 複数セルのコピー
Excel(エクセル)
-
8
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
9
エクセルの複数のセルを一括で絶対参照にする方法
Excel(エクセル)
-
10
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
11
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
15
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
16
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
17
EXCEL/VBA 変数の値をクリップボードにコピーする方法
Visual Basic(VBA)
-
18
エクセルの複数データーをダブルクォーテーションなしでコピー貼付けしたい。テキストエディタで使用
Microsoft ASP
-
19
UserForm1.Showでエラーになります。
工学
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
2つの数値のうち、数値が小さい...
-
エクセルで数式の答えを数値と...
-
エクセル指定した範囲からラン...
-
VLOOKUP関数を使用時、検索する...
-
一番多く表示のある値(文字列...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
ある範囲のセルから任意の値を...
-
エクセルで空白セルを含む列の...
-
エクセルのラベルの値(文字列...
-
爪が紫色?
-
健否~書類の書き方~
-
EXCELで条件付き書式で空白セル...
-
彼女のことが好きすぎて彼女の...
-
納豆食べた後の尿の納豆臭は何故?
-
エクセルでエラーが出て困って...
-
ワードのページ番号をもっと下...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
EXCELで条件付き書式で空白セル...
-
爪が紫色?
-
ワードのページ番号をもっと下...
-
エクセル指定した範囲からラン...
-
VLOOKUP関数を使用時、検索する...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
風俗店へ行く前のご飯
-
リンク先のファイルを開かなく...
-
エクセルで数式の答えを数値と...
-
勃起する時って痛いんですか? ...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
精子に血が・・・
-
一番多く表示のある値(文字列...
-
エクセルのラベルの値(文字列...
-
白血球が多いとどんな心配があ...
おすすめ情報