質問ですｴｸｾﾙで文中にある [全]ﾛｰﾏ字[小]のf を [半]ﾛｰﾏ字[小]のf に変換する関数かﾏｸﾛをお願いします列(AV)指定できることでも構いませんできればど…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

質問です
ｴｸｾﾙで文中にある
[全]ﾛｰﾏ字[小]のf を
[半]ﾛｰﾏ字[小]のf に変換する関数かﾏｸﾛをお願いします
列(AV)指定できることでも構いません
できればどこにあったかｾﾙに色が付く方法があれば助かります
対象はﾛｰﾏ字とﾊｲﾌﾝのみです

●拡大する

●質問者: inosisi
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● きゃづみぃ
●50ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

Sub 文字変換()
 Dim l As Long
 
 列 = "A"

 For l = 1 To Cells(Rows.Count, 列).End(xlUp).Row
 a = Cells(l, 列)
 Cells(l, 列) = StrConv(Cells(l, 列), vbNarrow)
 If a <> Cells(l, 列) Then
 Cells(l, 列).Interior.Color = 65535
 End If
 Next l
End Sub

変換したところは黄色にしました｡
列に変換したい列をｾｯﾄしてください｡

半角全部変換しています｡

Sub 大文字変換()
 Dim l As Long
 
 列 = "A"

 For l = 1 To Cells(Rows.Count, 列).End(xlUp).Row
 a = Cells(l, 列)
 Cells(l, 列) = henkan(Cells(l, 列))
 If a <> Cells(l, 列) Then
 Cells(l, 列).Interior.Color = 65535
 End If
 Next l
End Sub

Function henkan(aa As String) As String
 d = ""
 For b = 1 To Len(aa)
 c = Mid(aa, b, 1)
 If c >= "A" And c <= "Z" Then
 c = StrConv(c, vbNarrow)
 End If
 
 If c >= "a" And c <= "z" Then
 c = StrConv(c, vbNarrow)
 End If
 
 If c = "?" Then
 c = StrConv(c, vbNarrow)
 End If
 d = d & c
 Next b
 henkan = d
End Function

ﾛｰﾏ字とﾊｲﾌﾝのみです｡

inosisiさんのｺﾒﾝﾄ
ありがとうございます変換はできました｡ｴｸｾﾙでできたﾏｯﾁﾝｸﾞｿﾌﾄを使ってﾏｯﾁﾝｸﾞさせると該当なしとなります通常の検索と選択の検索で行うと検索してくれますなぜ同じものなのにﾏｯﾁﾝｸﾞｿﾌﾄでは合致しないのでしょう？

inosisiさんのｺﾒﾝﾄ
ありがとうございました上手くいきました先ほどの問題も別ﾌｧｲﾙでうまくいきました｡

inosisiさんのｺﾒﾝﾄ
すみません列の範囲指定する場合のﾏｸﾛを修正の仕方を教えてください AV28からAV49に修正できる方法をお願します｡追加で申し訳ございません

きゃづみぃさんのｺﾒﾝﾄ
ちょっと時間がかかるのであとで修正してみます｡

inosisiさんのｺﾒﾝﾄ
すみませんよろしくお願いします

きゃづみぃさんのｺﾒﾝﾄ
>|vb| Sub 大文字変換() Dim l As Long 列 = "AV" For l = 28 To 49 a = Cells(l, 列) Cells(l, 列) = henkan(Cells(l, 列)) If a <> Cells(l, 列) Then Cells(l, 列).Interior.Color = 65535 End If Next l End Sub Function henkan(aa As String) As String d = "" For b = 1 To Len(aa) c = Mid(aa, b, 1) If c >= "A" And c <= "Z" Then c = StrConv(c, vbNarrow) End If If c >= "a" And c <= "z" Then c = StrConv(c, vbNarrow) End If If c = "?" Then c = StrConv(c, vbNarrow) End If d = d & c Next b henkan = d End Function ||< よくみたら同じ列内でしたので上記でOKかと思われます｡列 = "AV" For l = 28 To 49 ここを変更しました｡

inosisiさんのｺﾒﾝﾄ
ありがとうございました大変助かりました｡上手くいきました｡

▽2 ● だわかき
●50ﾎﾟｲﾝﾄ

http://q.hatena.ne.jp/1377137035
関数ASCを使ってできます｡

=ASC(文字列) ■全角文字を半角にする
http://kokodane.com/kan35.htm

fと?だけ置換したいなら､SUBSTITUTE関数を入れ子にして使います｡
=SUBSTITUTE(SUBSTITUTE(ｾﾙ名,"f","f"),"?", "-")

inosisiさんのｺﾒﾝﾄ
ありがとうございました上手く変換しましたでも状況がﾏｯﾁﾝｸﾞｿﾌﾄでは合致してくれないので困りました原因を調査中です

inosisiさんのｺﾒﾝﾄ
別ﾌｧｲﾙでやりましたら上手くいきました