FC2ブログ

複数シートをまとめてコピーする

2017–07–03 (Mon) 15:33
久しぶりのマクロです
最近はもっぱらプログラムの作業が増えたので・・・・・・備忘録的なマクロ(笑)
VBAでRichTextboxが使えたらそこにまとめて保管しておきたいのだけれど。
ただのテキストファイルだと色分けして保存が出来ないので・・・しょぼんぬ


Sub 複数シートをまとめてコピーする()
Application.ScreenUpdating = False
For Each ws In ActiveWindow.SelectedSheets
ws.Copy After:=sheets(Worksheets.count)
Next
Application.ScreenUpdating = True

End Sub

Sub 複数シートの名前をまとめて変更する()
buf = InputBox("追加する文字列を入力してください")
Application.ScreenUpdating = False

For Each ws In ActiveWindow.SelectedSheets
If InStr(ws.Name, " (") = 0 Then
ws.Name = ws.Name & buf
Else
ws.Name = Left(ws.Name, InStr(ws.Name, " (")) & "(" & buf & ")"
End If
Next
Application.ScreenUpdating = True
End Sub
スポンサーサイト



« はなお手紙聖書 | HOME |  New Shape アドイン »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク