[[20090129150308]]　『特定文字の変換』（みほじょう）　ページの最後に飛ぶ

『特定文字の変換』（みほじょう）

 すみません，教えてください。

 A1セルに「あ，か」，A2セルに「さ，あ」，A3セルに「か，た」
 と不規則に文字が入っているとします。

 それで，A1，A2，A3セルを検索して
「あ」を「あいう」，「か」を「かきく」と変換して
 A1セルに「あいう，かきく」，A2セルに「さ，あいう」，A3セルに「かきく，た」
 と表示されるようにＶＢＡでしたいのですが，できますでしょうか。

 VBAではないですが・・・。

 =SUBSTITUTE(SUBSTITUTE(B1,"あ","あいう"),"か","かきく")
 ではだめですか？
 (MARBIN)

 VBAでの場合でも考え方は同じです。
 RePlace
 を使います。
 VBAの場合は入れ子でもできるとおもいますが、
 一度変換した値を再度変換、でもできます。
 (MARBIN)

 Replace 分かりました。
 検索で調べて，以外と簡単でした。ありがとうございました。

 ここでまた質問ですが。

 A1セルに「あＡい，うえＡ」，A2セルに「ＡおＡ，うＡえ」
 と不規則に文字が入っているとします。

 ここで，各単語の最後の文字がＡのときだけ，ＡをＡＢＣに変換して
 A1セルに「あＡい，うえＡＢＣ」，A2セルに「ＡおＡＢＣ，うＡえ」

 と変換されるようにＶＢＡでしたいのですが，こんなことできますでしょうか。

 （みほじょう）

 Right(文字列,1)
 で一番右の文字列を取得できます。
 これで条件分岐してはいかがでしょう？
 (MARBIN)

 > と変換されるようにＶＢＡでしたいのですが，こんなことできますでしょうか。
 そのような仕組みを作ればできますよｂ
 Split、Joinなども使うとやりやすいかも。
 (ROUGE)
'----
Sub Sample()
Dim rr As Range, x, i As Long
For Each rr In Range("A1:A3")
  x = Split(rr.Text, "，")
  For i = 0 To Ubound(x)
    Select Case Right(x(i), 1)
      Case "あ": x(i) = x(i) & "いう"
      Case "か": x(i) = x(i) & "きく"
      Case "Ａ": x(i) = x(i) & "ＢＣ"
    End Select
  Next
  rr.Value = Join(x, "，")
Next
End Sub

 Like演算子などというのもありました。
 (MARBIN)

 分かりました。どうもありがとうございました。
 すみません，また別の質問ですが。

 A1セルに「あい　う　ＡＡえお　か」，A2セルに「かき　くＡＡけこ　さし」
 と不規則に文字が入っているとします。
 ただし，ＡＡという文字が間に含まれています。
 また文字と文字の間の空欄は，全角スペースです。

 ここで，ＡＡより前の全角スペースは全て削除して，空欄を詰める。
 ＡＡの直後には，必ず全角スペースを１つ作る。
 という操作をして

 A1セルに「あいうＡＡ　えお　か」，A2セルに「かきくＡＡ　けこ　さし」

 というふうに変換されるようにＶＢＡでしたいのですが，できますでしょうか。
 いつも，教えてもらうばかりですみませんが，よろしくお願いします。

 （みほじょう）

 >ここで，ＡＡより前の全角スペースは全て削除して，空欄を詰める。
 >ＡＡの直後には，必ず全角スペースを１つ作る。

 いずれも
 >RePlace
 でできるかとおもいます。
 (MARBIN)

 このようなFunction Procedureを使用されてはどうでしょうか。
　
Private Function Miho(txt As String, dl As String) As String
Dim x
If InStr(1, txt, dl) > 0 Then
    x = Split(txt, dl)
    x(0) = Replace(Replace(x(0), " ", ""), "　", "")
    Miho = Join(x, dl & "　")
Else
    Miho = txt
End If
End Function
　
(ROGUE)

コメント返信：

[ 一覧(最新更新順) ]

[[20090129150308]] 『特定文字の変換』（みほじょう） ページの最後に飛ぶ

[[20090129150308]]　『特定文字の変換』（みほじょう）　ページの最後に飛ぶ