Excel VBA質問箱 IV

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

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


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

54039 / 76807

←次へ　｜　前へ→


	【27574】Re:最初の質問に対して回答いただいたコードを再考してみたのですが・・・

りん

- 05/8/12(金) 11:13 -


	引用なし

	パスワード

すてぃっちさん、こんにちわ。

>複数シートに反映させたいために、
>∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>（処理）
>End Sub
>∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴∵・∴・∵・∴・∵・∴・∵・∴
>で、一括処理を行うようにしました。
>
>他のシート（上記コードを反映させたくないシート　ex:表紙,説明etc...）

Targetが変更されたセル範囲を返すように、shは対象となったシートを返します。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　 Application.EnableEvents = False
　 Select Case Sh.Name
　　　Case "表紙", "説明"　'何もしないシート名を連記する
　　　Case Else
　　　　 'ここに実行する内容を書く(日付をさがすとか)
　　　　 Target.Interior.ColorIndex = 35 + Sh.Index '適当に色を塗ってみたり
　 End Select
　 Application.EnableEvents = True
End Sub

こんな感じです。

0 hits

▼

【27304】手入力している列の指定を自動で探せるようにしたいのですが・・・ すてぃっち 05/8/4(木) 16:59