[[20060713235508]]　『ヴの半角』（まるふ）　ページの最後に飛ぶ

『ヴの半角』（まるふ）

いつも拝見させていただいてます。
全角を半角にするにはASC関数を使うと思うですが、例えばA1にヴァージョン、B1に=ASC(A1)にすると、ヴｧｰｼﾞｮﾝってなってしまうのですが、半角に出来る方法はあるのでしょうか。

 UDFです。
Alt + F11を押して、挿入-->標準モジュール　を選択。
出てきた画面に下記コードを貼り付けて閉じる。
Excel画面で =ascme(A1) といった塩梅で式を確定してやります。
 　
	[A]		[B]		[C]
[1]	ヴァイオリン	ヴｧｲｵﾘﾝ		ｳﾞｧｲｵﾘﾝ
[2]	ヴァージョン	ヴｧｰｼﾞｮﾝ		ｳﾞｧｰｼﾞｮﾝ
			↑		↑
			=ASC(A1)		=ascme(A1)
(ROUGE)
'----
Function ascme(txt As String) As String
    ascme = StrConv(txt, vbNarrow)
End Function

ありがとうございました。こういうのを使ったことがないので少々ビックリしながら出来ました。関数では無理ってことですね。

コメント返信：

[ 一覧(最新更新順) ]

[[20060713235508]] 『ヴの半角』（まるふ） ページの最後に飛ぶ

[[20060713235508]]　『ヴの半角』（まるふ）　ページの最後に飛ぶ