人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについて質問です。
ブック内にあるすべての灰色(デフォルトの色)のシートについて、
シート名にある「ももんが」という文字を全て「とびうお」という言葉に
置換するというマクロを作成してください。

なお、下記の点にご留意ください。
?質問者は初心者なので、下記の回答者の方のように、
それぞれのマクロがどう働くか「’」をもちいて説明してください。
http://q.hatena.ne.jp/1190870363
?マクロは貼り付けてすぐに動くものをお願いします。
?質問が不明瞭でしたらコメントでご確認ください。

以上、よろしくお願いします。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル コメント デフォルト マクロ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Penyan
●80ポイント

明けましておめでとう。毎度様です。

Sub Macro()
  'シート1つのオブジェクト
 Dim mySheet
 
  'For Eachを使ってすべてのシートから一つづつmySheetとして取り出します。
 For Each mySheet In Worksheets
 
  'タブの色が色無し(-4142)かどうかを調べます。
 If mySheet.Tab.ColorIndex = -4142 Then
 
  'シートの名前を置換します。
 mySheet.Name = Replace(mySheet.Name, "ももんが", "とびうお")
 End If
 Next
End Sub
◎質問者からの返答

あけましておめでとうございます。

いつもありがとうございます。


おかげさまでほぼ完璧にうまくいきました。

ただ、ひとつだけ手直ししていただきたいのですが、

文字列を空白に置換するという場合、

たとえば「ももんが」をシート名から削除した場合、

エラーが出てしまいます。

お手数ですがこれだけお時間のあるときに手直ししてください。


今年もよろしくお願いします。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ