エクセルで選択範囲の合計をクリップボードにコピーするマクロを作成し、メニューもしくはショートカットに割り当てようと思っています。
下記でやってみたのですが、うまくいきません。いい方法をご存知の方、ご教授願います。
Sub ClipSum()
Dim temp As Variant
temp = Application.WorksheetFunction.Sum(Selection)
Range("IV1").Value = temp
Range("IV1").Copy
Range("IV1").ClearContents
End Sub
No.5ベストアンサー
- 回答日時:
こんにちは。
参照設定不要のこんな方法もあります。
' // セル選択範囲の合計をクリップボードにコピーする
Sub SendClipboardSample()
If TypeOf Selection Is Range Then
Dim s As Variant
s = CStr(Application.Sum(Selection))
CreateObject("htmlfile").parentWindow _
.clipboardData.SetData "text", s
End If
End Sub
以下、余談。
■ Microsoft Forms 2.0 Object Library について
VBA の標準コマンドには、クリップボードを扱う術がないため、
・ユーザーフォーム(のDataObject)を経由 (#1、#3ご回答)
・IE など外部プロセスのクリップボード操作インターフェース
を経由する
・API で直接クリップボードのデータを転送・取得
などの手段が必要になる。
# ここで言うクリップボードとは、Office クリップボード、
# Range("A1").Copy などの VBA の Copy コマンドとは別物です
このうち、Microsoft Forms 2.0 Object Library は、ユーザー
フォームを挿入すれば自動的に参照設定される。
その後、ユーザーフォームを削除(解放)しても参照はそのまま
残っている。
ご参考までに。
だいぶ前の質問で、締め切ったあとの質問で申し訳ないのですが、ご存知であれば教えてください。
フィルタをかけていて、表示されているセルで選択範囲のみの合計をクリップボードにコピーしたいのですが、どうすればいいでしょうか。
今は、以下のようになっています。
1
2
3 X
4
5 X
でXになっている部分のみをフィルタして選択して実行した場合、3行目から5行目の全部が合計され計算結果が12となります。3と5だけを足して8としたいのですが、どうすればいいでしょうか。
No.6
- 回答日時:
>#1のご回答は
>With ND
>.SetText kei
>と前にピリオドが要ります。
imogasiさん、フォローありがとうございます。
転記ミスでした。
失礼しました。
No.3
- 回答日時:
ユーザーフォームのテキストボックスを媒介にした方法です。
Private Sub CommandButton1_Click()
With Me.TextBox1
.Value = Application.WorksheetFunction.Sum(Selection)
.SelStart = 0
.SelLength = Len(.Value)
.Copy
End With
End Sub
No.1
- 回答日時:
↓出いけると思います。
'参照設定:Microsoft Forms 2.0 Object Library
Sub clpb()
Dim kei As String
Dim ND As New DataObject
kei =Application.WorksheetFunction.Sum(Selection)
With ND
SetText kei
.PutInClipboard
End With
End Sub
この回答への補足
Microsoft Visual Vasicのウィンドウ(Alt+F11)からツールメニューから参照設定をしようと思いましたが、該当のものが見当たらないです。
参照設定の仕方について教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】エクセルで選択した範囲の値のみをクリップボードにコピーするコードについて 3 2023/03/08 17:41
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) シフト表のコマで「ブロック」されている前の時間の「出」を同一列の「休」と入れ替えたいがふぇきません。 2 2023/08/02 18:49
- Visual Basic(VBA) A列の最終行に合わせて範囲をコピー 2 2022/09/04 19:10
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ライブ配信で活動するなら、 ポ...
-
大塚愛
-
山下達郎PVの女優さん、誰?
-
やっぱり、ヒムロックはできへん?
-
林美夏 ってどうなったの?
-
B’zのDVD「BUZZ」で
-
「女1人・男2人の三人組ユニ...
-
作詞家作曲家デビューの登竜門...
-
キラーメイ・REINO氏の死因とは
-
大塚愛行きつけの大阪の焼肉店
-
有紀かな。
-
最近漫画家デビューの年齢は上...
-
LENOVOパソコン変なマーク
-
オートシェイプでうずまきを描...
-
清春と元スマップ森
-
米米クラブのDVD
-
太田裕美さんみたいな顔をお嬢...
-
売れてる日本人歌手が中国、韓...
-
おばさんに成った森高千里てツ...
-
電気グルーブが1989年8月...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ライブ配信で活動するなら、 ポ...
-
大塚愛
-
山下達郎PVの女優さん、誰?
-
やっぱり、ヒムロックはできへん?
-
「女1人・男2人の三人組ユニ...
-
林美夏 ってどうなったの?
-
キラーメイ・REINO氏の死因とは
-
オートシェイプでうずまきを描...
-
レコード会社ArtPoolの事で質問...
-
大塚愛行きつけの大阪の焼肉店
-
椎名林檎と椎名桔平は兄弟???
-
LENOVOパソコン変なマーク
-
作詞家作曲家デビューの登竜門...
-
Microsoft Outlook の アイコン
-
松山千春よ正式に山口百恵さん...
-
ムネオハウスの歌詞について
-
元LAZY KNACKの清水...
-
宇多田ヒカル「Never Let ...
-
エクスィードアルファ・インタ...
-
ピンクレディー世代とWinkって...
おすすめ情報