石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。
  ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4956 / 5126 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【1441】先ほど Jaka 05/4/22(金) 11:36
【1442】Re:先ほど G-Luck 05/4/22(金) 18:40
【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
  ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4956 / 5126 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
219927
(SS)C-BOARD v3.8 is Free