Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

805 / 76735

←次へ　｜　前へ→


	【81593】可視セルの値をクリップボードに格納する方法

コウジ - 21/1/15(金) 15:53 -


	引用なし

	パスワード

オートフィルタでフィルタリングされたD列の値をクリップボードに格納したいのですが、
下記のコードだと１行だけしか格納されません。どうしたらよいでしょうか？

Dim d　　　　　 As Long　　　　　　
Dim n　　　　　 As Long　　　　　　
Dim i　　　　　 As Range　　　　　　
Dim clipboard　 As New DataObject　

d = Day(Date)

Set i = Range("9:9").Find(d, LookAt:=xlWhole, SearchOrder:=xlByColumns)

n = Range(i.Address).Column

ActiveSheet.AutoFilterMode = False

Range("9:9").autofilter

Range(i.Address).autofilter n, RGB(81, 216, 255), xlFilterCellColor

With clipboard
　　.SetText Range(Range("D10"), Range("d" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
　　.PutInClipboard　　　　　　
　　.GetFromClipboard　　　　　
End With

0 hits

▼

【81593】可視セルの値をクリップボードに格納する方法 コウジ 21/1/15(金) 15:53