Excel セルをクリックするだけで入力(エクセル2003)

質問

http://questionbox.jp.msn.com/qa915096.html
からの転載で申し訳ありません。
この中で、jindonさまの方法で、２つの文字の入れ替えはできました。
------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row=1 And .Column=1 Then
If .Value = "○" Then
.Value = ""
Else
.Value = "○"
End If
End If
End With
End Sub
------------------------------------------------
そこで、例えば○△×のように、順番に３つの文字を入れ替えるにはどう記述すればよいでしょうか？
よろしくお願いいたします。

回答No.2

A88No8 · ベストアンサー

こんにちは
＃１の捕捉です。
IF文は以下のような書き方ができます(IF文のハシゴ)。

IF 条件１ THEN
　処理１
ELSEIF 条件２ THEN
　処理２
ELSEIF 条件３ THEN
　処理３
ELSE
　処理４
ENDIF

お礼

できましたー！
この方法なら１つの条件の文字数が複数ある場合に使えますね！
ありがとうございました！

回答No.4

okormazd

処理はいろいろ考えられるが。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row = 1 And .Column = 1 Then
Application.EditDirectlyInCell = False　　'これをいれておくといい
If .Value = "○" Then
.Value = "△"
ElseIf .Value = "△" Then
.Value = "×"
ElseIf .Value = "×" Then
.Value = ""
Else
.Value = "○"
End If
Else
Application.EditDirectlyInCell = True　　'これをいれておくといい
End If
End With
End Sub

お礼

できましたー！
「これをいれておくといい」
の部分は、セルをダブルクリックしたときに、変更した文字が選択状態にならずに、続けてダブルクリックで次の文字に移行できるようになるんですかね？

理想的なものができました。
ありがとうございました！

回答No.3

cistronezk

文字がもっとたくさんある場合は、IF文では大変なので以下のようにする方法もあります。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
.Value= Mid( "○×△", InStr("○×", .Value) + 1, 1) '検索対象の文字列は最後の文字を除いておく。
End With
End Sub

お礼

できましたー！
この方法なら文字がたくさんある場合に記述が少なくていいですね！
ありがとうございました！

回答No.1

A88No8

こんにちは
>例えば○△×のように、順番に３つの文字を入れ替えるにはどう記述
　下記の「ここから」～「ここまで」のif文が「○なら""(長さ0の文字列)、それ以外なら○」となっているので、「""なら○、○なら△、△なら×、×なら．．それ以外なら""」というようにつないでいくif文のハシゴにしたらよいと思われます(CASE文は他の方のご助言を仰いで下さい）。
---
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　With Target
　　If .Row=1 And .Column=1 Then
　　　If .Value = "○" Then　'ここから
　　　　.Value = ""　　　　　'
　　　Else　　　　　　　　　 '
　　　　.Value = "○"　　　　'
　　　End If　　　　　　　　 'ここまで
　　End If
　End With
End Sub