エクセルで選択範囲の合計をクリップボードにコピーするマクロを作成し、メニューもしくはショートカットに割り当てようと思っています。
下記でやってみたのですが、うまくいきません。いい方法をご存知の方、ご教授願います。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
[Excel]セル選択時の合計値をクリップボードに送りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ライブ配信で活動するなら、 ポ...
-
山下達郎PVの女優さん、誰?
-
Macとwinと両方で使えるautorun...
-
宇多田ヒカル「Never Let ...
-
演歌歌手の制作費について
-
鬼束ちひろの『眩暈』のPVで何...
-
キラーメイ・REINO氏の死因とは
-
Microsoft Outlook の アイコン
-
清春と元スマップ森
-
林美夏 ってどうなったの?
-
松山千春さんのものまね
-
Nintendo DS のCMにでてる宇多...
-
オートシェイプでうずまきを描...
-
書籍「桐島、部活やめるってよ...
-
スマホのステータスバーで解ら...
-
ゴスペラーズのコンサートツア...
-
椎名林檎と椎名桔平は兄弟???
-
福山雅治さんの人生は?
-
「女1人・男2人の三人組ユニ...
-
B’zのDVD「BUZZ」で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ライブ配信で活動するなら、 ポ...
-
山下達郎PVの女優さん、誰?
-
キラーメイ・REINO氏の死因とは
-
「女1人・男2人の三人組ユニ...
-
TUBEのメンバーは、夏労働者で...
-
林美夏 ってどうなったの?
-
歌手のそっくりすぎるモノマネ...
-
オートシェイプでうずまきを描...
-
スマホのステータスバーで解ら...
-
宇多田ヒカル「Never Let ...
-
「ロックな生き方」とは・・? ...
-
大塚愛の彼氏が死んだ?
-
レコード会社ArtPoolの事で質問...
-
大塚愛
-
探しています。
-
ピンクレディー世代とWinkって...
-
元LAZY KNACKの清水...
-
椎名林檎と椎名桔平は兄弟???
-
大塚愛行きつけの大阪の焼肉店
-
福山雅治って身長何センチ?。
おすすめ情報