Excel（エクセル）活用コミュの特定の文字を置き換える

勉強はしているつもりなのですが、どうしても行き詰ってしまいます。
また、よろしくお願いします。

1. セルをダブルクリックしたときに、そのセルの元の文字列に"⇒"を付け足す。
2. 次に同じセルをダブルクリックしたときには"⇒"を"⇒予定"へ置き換える。
3. さらに同じセルをダブルクリックしたときには"⇒予定"を"⇒未定"へ置き換える。
4. さらに同じセルをダブルクリックしたときには"⇒未定"を"⇒"へ置き換える。

といったようなことがしたくて、作ったマクロが以下のようになるのですが、

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With Target
If .Value Like "⇒" Then
.Replace what:="⇒", Replacement:="⇒予定", LookAt:=xlWhole

ElseIf .Value Like "⇒予定" Then
.Replace what:="⇒予定", Replacement:="⇒未定", LookAt:=xlWhole

ElseIf .Value Like "⇒未定" Then
.Replace what:="⇒未定", Replacement:="⇒", LookAt:=xlWhole

Else: .Value = .Value & "⇒"

End If

End With

End Sub

これでは、元のセルが空欄の場合にしか上手くいきません。
ワイルドカードを使用して、

With Target
If .Value Like "*⇒*" Then
.Replace what:="⇒", Replacement:="⇒予定", LookAt:=xlWhole

と、試してみたのですが、やはり出来ませんでした。

アドバイスを頂けたらと思い、トピを立てさせていただきました。
よろしくお願いします。

仕様はexcel2003になります。

コメント(4)

最初
全て
最新の40件

[2] mixiユーザー 09月21日 23:56

１番のコメントは当方の理解不足により、削除しました。

[3] mixiユーザー 09月22日 01:00

矢印を書きつつ、矢印の先に文字を書き込めるようなプログラムを作りたいのですね。
なるほど！　
入力者が非常に楽になる、画期的アイデアですね！

ただそのプログラムでは、
「あいうえお⇒予定」と書かれたセルに対しても、「⇒」が含まれていると判断されてしまうので、問題ありです。
色々方法があるかと思いますが、Instr関数・＆・replace関数・left関数・right関数などで作ってみました↓。
ワークシート関数の応用でＶＢＡ関数を使うと、楽にプログラミングできます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If InStr(Target.Value, "⇒") = 0 Then
Target.Value = Target.Value & "⇒"
ElseIf Right(Target.Value, 1) = "⇒" Then Target.Value = Target.Value & "予定"
ElseIf Right(Target.Value, 2) = "予定" Then Target.Value = Replace(Target.Value, "⇒予定", "⇒未定")
ElseIf Right(Target.Value, 2) = "未定" Then Target.Value = Left(Target.Value, Len(Target.Value) - 2)
End If
End Sub

[4] mixiユーザー 09月22日 06:40

１÷０さん
　いつも、いつもいつもありがとうございます。
　
>ワークシート関数の応用でＶＢＡ関数を使うと、楽にプログラミングできます

　そうですね。いろいろ悩んでいるうちに、いつも考え方が狭くなってきてしまいます。以前もワークシート関数を使うように指導していただいたことがあるのですが・・・