FC2ブログ

Worksheet マクロ-1

2017–07–10 (Mon) 19:09
いずれアドインに追加するワークシートのマクロです。
使い勝手が凄く良く、目で探さなくても自動で印刷されるのが凄く好きです!!!

Sub 特定の言葉を含むシートを印刷する()
Dim i As Long
Dim mySheetCnt As Long
Dim mySheetName As String
buf = Inputbox("印刷したいシート名に含まれる言葉を入力して下さい")
Application.ScreenUpdating = False
mySheetCnt = ThisWorkbook.Sheets.Count

For i = 1 To mySheetCnt
mySheetName = Sheets(i).Name
if Instr(Sheets(i),buf)<>0 then
worksheet(Sheets(i)).PrintOut
End if
Next i
Application.ScreenUpdating = True
End Sub

Sub ワークシート名を置換する
Dim i As Long
Dim mySheetCnt As Long
Dim mySheetName As String
buf = Inputbox("検索する文字列を入力してください")
buf2 = Inputbox("置換後の文字列を入力してください")
Application.ScreenUpdating = False
mySheetCnt = ThisWorkbook.Sheets.Count

For i = 1 To mySheetCnt
mySheetName = Sheets(i).Name
if Instr(mySheetName,buf)<>0 then
Sheets(i).name = Replce(Sheets(i).name,buf,buf2)
End if
Next i
Application.ScreenUpdating = True
End Sub



休憩。。。
スポンサーサイト



« 名前の変更ソフトを作りました。 | HOME |  建設業の分割 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

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

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク