石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。


	ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

6207 / 7636

←次へ　｜　前へ→


	【1442】Re:先ほど

G-Luck - 05/4/22(金) 18:40 -


	引用なし

	パスワード

▼Jaka さん：
ちょっと遊びで作ってみました。
ひらがなのみ、濁点・半濁点不可ですが「あ」を「い」に変換します。
半角カタカナのコードがきれいに並んでいることを利用しました。

Sub HENKAN()
　　Dim buf As Variant
　　buf = Range("A1").Value
　　buf = StrConv(buf, vbKatakana)
　　buf = StrConv(buf, vbNarrow)
　　buf = Asc(buf) + 1
　　buf = Chr(buf)
　　buf = StrConv(buf, vbWide)
　　buf = StrConv(buf, vbHiragana)
　　
　　Range("A2") = buf
End Sub

242 hits

▼

【1441】先ほど Jaka 05/4/22(金) 11:36