i2i無料WEBパーツ
FC2ブログ

VBA ワークシート名の一覧をクリップボードに貼付け

VBA
03 /01 2011
あー、いい加減データベーススペシャリストの勉強を始めないといけないんですが・・・(汗
今年は3度目なんで、受からないといけないんですけどね(汗汗

今回もVBAのメモ。
お仕事で、エクセルを使う機会が多いのですが、シートが多すぎるドキュメントだと全体を把握するのが難しいし・・・(汗

そんなわけで、とりあえずですがシート一覧をクリップボードに貼り付けるマクロを作成しました。



'<機能>
' 開いているブックのシート一覧をクリップボードに貼り付けます
'<戻り値>
' なし
'<説明>
' クリップボードへの貼り付けはsetClipBoadのコメントを参照
'@:kevinjohnsonjp
'URL:http://kevinjohnson2.blog69.fc2.com/
Sub setWorkSheetNamesToClipBoad()
'シート名の文字列を保持します
Dim workSheetNames As String

For Each targetWorkSheet In Sheets
workSheetNames = workSheetNames & targetWorkSheet.Name & vbCrLf

Next

'クリップボードに設定します
setClipBoad (workSheetNames)

End Sub

'<機能>
' 文字列をクリップボードに貼り付けます
'<戻り値>
' なし
'<説明>
' [ツール]→[参照設定]で「Microsoft Forms 2.0 Object Library」に
' チェックして使用する。
'[参照可能なライブラリ]のリストにない場合は[参照設定]
'ダイアログボックスで[参照]ボタンをクリックして
'「C:\Windows\system32\FM20.DLL」を選択する
'
'@:kevinjohnsonjp
'URL:http://kevinjohnson2.blog69.fc2.com/
Function setClipBoad(strValue As String)

Dim CB As New DataObject
With CB
.SetText strValue
.PutInClipboard
End With

End Function



ちょっと改良したらリンク一覧のシートを追加するって出来そうですな。

コメント

非公開コメント

KevinJohnsonjp

札幌でSEやってる人の業務日誌。

↓こんなのも書いてたりします。
ホットペッパー KJさんのグルメ手帳『北○』の口コミ書きました