エクセル2000で教えて下さい。

質問

いつもお世話になっています。
例でお話させて頂きます。
例）チョウキュウをチヨウキユウに変更できないでしょうか？
　　お願いします。

回答No.4

maruru01 · ベストアンサー

もう1つの方法を。
必要な文字分置換をする方法です。
置換のコードはマクロ記録すると見られます。

Private Sub myReplace()

　　Dim i As Long
　　Const BeforeStrings = "ぇっゃゅょェッャュョ"
　　Const AfterStrings = "えつやゆよエツヤユヨ"

　　Range("A1:A10").Select
　　For i = 1 To Len(BeforeStrings)
　　　　Selection.Replace What:=Mid(BeforeStrings, i, 1), _
　　　　　　Replacement:=Mid(AfterStrings, i, 1), LookAt:=xlPart, _
　　　　　　SearchOrder:=xlByRows, MatchCase:=True
　　Next i

End Sub

回答No.5

junjun28

拗音，促音 ，小母音などを含む小かな文字を大文字に変換する事は、
文字列操作関数（ASC、JIS）や文字列の置換え(strconv)等の
用意されている関数ではできないみたいですね。

置換文字が固定で少なければ、コードを作成することに賛成です。

お役に立つかわかりませんが、↓「DBPro」だとできそうです。
http://www.softvision.co.jp/dbpro/help/guide/jishoord.htm
[基本つづり順比較]_[5.拗音，促音 ，小母音などを含む小かな文字を大文字に変換する]

参考URL：

http://www.softvision.co.jp/dbpro/

回答No.3

imogasi

質問の「方法」の中に関数でするやり方も念頭に有るでしょうが、難しいようです。
＃１のご解答が良いかなと思います。
（１）セルに有る文字列の中に２回（字）以上「ヨ」などがあると考えるべきだが、２回目以降の発見が関数を使ってでは難しい。
　　（１）で１回しか出ないと仮定できても、
（２）ョやャや沢山変換対象文字があると式をセットする
　セル（列）が沢山要ること。
（３）セル範囲を対象にした変換関数がなさそう。
　セル単位の関数式しか無いようである。　
　すると文字列が入った全セルを１つ１つ対象に、別の不使用　セルに式をセットしなければならない。式の複写は出きると　しても、複雑になる。
（参考例）１文字１回の変換の関数　
=REPLACE(A1,FIND("ョ",A1,1),1,"ヨ")　
チョウキュウ－－＞チヨウキュウ

回答No.2

maruru01

こんにちは。maruru01です。

かなりベタな方法ですが。
変換する関数を作ってみました。

Private Function Henkan(Str As String) As String

　　Dim Chr As String
　　Dim temp As String
　　Dim i As Long
　　Dim p As Long
　　Const BeforeStrings = "ぇっゃゅょェッャュョ"
　　Const AfterStrings = "えつやゆよエツヤユヨ"

　　temp = ""
　　For i = 1 To Len(before)
　　　　Chr = Mid(Str, i, 1)
　　　　p = InStr(1, BeforeStrings, Chr, vbBinaryCompare)
　　　　If p > 0 Then
　　　　　　temp = temp & Mid(AfterStrings, p, 1)
　　　　Else
　　　　　　temp = temp & Chr
　　　　End If
　　Next i

　　Henkan = temp

End Function

２つの定数、BeforeStringsとAfterStringsには、それぞれ変換前と変換後の文字を"順番を同じにして"列記します。
必要な文字を列記して下さい。
あとは、各セルの値を読み込んで、上記の関数を通してからセルに戻せばOK。

お礼

ありがとうございます。
やはりこの方法ですよね。
助かります。
ありがとうございました。

回答No.1

maje

編集→置換で

検索する文字列に「ョ」、置換後の文字列に「ヨ」と入力して

全て置換

という方法ではいかがでしょう？

「ュ」→「ユ」も同様な方法で。

補足

早速の回答ありがとうございます。
一連性を持たせたいので、関数かマクロで
行いたいと考えています。