Excel VBA質問箱 IV

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

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


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

21188 / 76732

←次へ　｜　前へ→


	【60946】Re:色づけ

つん - 09/3/26(木) 11:26 -


	引用なし

	パスワード

おはようございます～＾＾

>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim r As Long
>Dim i As Long
>　If Target.Column >= 3 Then Exit Sub
>　Application.EnableEvents = False
>　
>　With Range("C" & Target.Row)
>　　If Not IsNumeric(.Offset(, -2).Value) Then
>　　　 .Replace What:="◆", Replacement:=""
>　　 Exit Sub
>　　End If
>　　If Not IsNumeric(.Offset(, -1).Value) Then
>　　　 .Replace What:="●", Replacement:=""
>　　　 Exit Sub
>　　End If
>　　.Value = ""
>　　For i = 1 To .Offset(, -2).Value
>　　　 .Value = "◆" & .Value
>　　Next
>　　For i = 1 To .Offset(, -1).Value
>　　　 .Value = .Value & "●"
>　　Next
>　　For i = 1 To Len(.Value)
>　　　 If Mid(.Value, i, 1) = "◆" Then
>　　　　　 .Characters(i, 1).Font.ColorIndex = 3
>　　　 ElseIf Mid(.Value, i, 1) = "●" Then
>　　　　　 .Characters(i, 1).Font.ColorIndex = 4
>　　　 End If
>　　Next i
>　　Application.EnableEvents = True
>　End With
>　
>End Sub
>
>他にもエラー処置が必要かも？？
>＊こんなコードにつっ込みも下さい

えーと、僭越ながら、突っ込ませていただきます！

Application.EnableEvents = False
Application.EnableEvents = True

でサンドイッチになってますが、
途中、「Exit Sub」で抜けてしまうと、
Application.EnableEvents = True　が通らなくなって、
以後イベントが発生しなくなっちゃいます(>_<)

※どうせ、VBA使うなら、作業列を作って、数式を作ったりせず、最初から全部VBAですればいいんやん！！・・・って、Abebobo さんの回答みて、初めて気がつきました。ぼけぼけ～～～～

0 hits

▼

【60931】色づけ Q&A 09/3/25(水) 13:54