Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5748 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49025】漢字のかな文字をを半角カナにするには 質問（煮詰まった） 07/5/21(月) 10:55 質問[未読]
【49031】Re:漢字のかな文字をを半角カナにするには Jaka 07/5/21(月) 14:28 発言[未読]
【49048】Re:漢字のかな文字をを半角カナにするには 質問（煮詰まった） 07/5/21(月) 18:33 質問[未読]
【49104】Re:漢字のかな文字をを半角カナにするには Jaka 07/5/23(水) 10:44 発言[未読]
【49131】Re:漢字のかな文字をを半角カナにするには 質問（煮詰まった） 07/5/24(木) 14:21 お礼[未読]
【49025】漢字のかな文字をを半角カナにするには
質問  質問（煮詰まった）  - 07/5/21(月) 10:55 -
引用なし
パスワード
   教えて下さい。
Ａ列に漢字
Ｂ列に結果
を表示しています。

漢字の項目のひらがなよみを全角かなにはできたのですが
半角カナを取得する場合の方法を教えて下さい。

以上宜しくお願いします。


Option Explicit

Sub henkan1()

'*****************************************************
'*　変換処理　　漢字⇒ひらがな
'*
'*****************************************************

　Dim strPhoText As String
　Dim LastRow As Long
　Dim data As String
　Dim i As Long
　Dim j As Integer
　
　LastRow = Cells(Rows.Count, 1).End(xlUp).Row　　　　　　 'A列対象最終行取得
　
　For i = 1 To LastRow
　　data = Cells(i, 1)
　　strPhoText = Application.GetPhonetic(data)
　　j = 2
　　While strPhoText <> ""
　　　Cells(i, j) = strPhoText
　　　strPhoText = Application.GetPhonetic()
　　　j = j + 1
　　　
　　Wend
　　
　Next

End Sub
【49031】Re:漢字のかな文字をを半角カナにするには
発言  Jaka  - 07/5/21(月) 14:28 -
引用なし
パスワード
   ▼質問（煮詰まった） さん：
>漢字の項目のひらがなよみを全角かなにはできたのですが
>半角カナを取得する場合の方法を教えて下さい。
意味が良く解りませんでした。

他、せめてこうしたほうが良いんじゃないかと。

　For i = 1 To LastRow
　　If Application.Phonetic(Cells(i, 1)) = "" Then
　　　 data = Cells(i, 1)
　　　 strPhoText = Application.GetPhonetic(data)
　　Else
　　　 strPhoText = Application.Phonetic(Cells(i, 1))
　　End If
　　j = 2
　　While strPhoText <> ""
　　　Cells(i, j) = strPhoText
　　　strPhoText = Application.GetPhonetic()
　　　j = j + 1
　　Wend
　Next
【49048】Re:漢字のかな文字をを半角カナにするには
質問  質問（煮詰まった）  - 07/5/21(月) 18:33 -
引用なし
パスワード
   連絡ありがとうございました。

やりたいことを説明すると

Ａ列（漢字）　　　　　　Ｂ列（全角カナ）　　　　　　　　Ｃ列（半角カナ）　大阪　　　　　　　　　　　　オオサカ　　　　　　　　　　　　ｵｵｻｶ
東京　　　　　　　　　　　　　 トウキョウ　　　　　　　　　　　ﾄｳｷｮｳ
広島　　　　　　　　　　　　　 ヒロシマ　　　　　　　　　　　　ﾋﾛｼﾏ
福岡　　　　　　　　　　　　　 フクオカ　　　　　　　　　　　　ﾌｸｵｶ　
同軸モーター機械装置　　　　ドウジクモーターキカイソウチ　　 ﾄﾞｳｼﾞｸﾓｰﾀｰｷｶｲｿｳﾁ　 　

Ａ列からＢ列への変換はできたのですがＣ列への変換を
教えて下さい。

ＡＳＣ（Ｂ列：ＣＥＬＬＳ（Ｉ，１））で変換するとコードが帰ってくるのですが・・・・・

>
>　For i = 1 To LastRow
>　　If Application.Phonetic(Cells(i, 1)) = "" Then
>　　　 data = Cells(i, 1)
>　　　 strPhoText = Application.GetPhonetic(data)
>　　Else
>　　　 strPhoText = Application.Phonetic(Cells(i, 1))
>　　End If
>　　j = 2
>　　While strPhoText <> ""
>　　　Cells(i, j) = strPhoText
>　　　strPhoText = Application.GetPhonetic()
>　　　j = j + 1
>　　Wend
>　Next
【49104】Re:漢字のかな文字をを半角カナにするには
発言  Jaka  - 07/5/23(水) 10:44 -
引用なし
パスワード
   前回の返答は、頓珍漢なことを書いたようです。
昨日気づいたんですが、体調悪く休んでました。

で、全角のカタナカが取れるなら、それを単純に半角にすれば良いんじゃないかと思います。

MsgBox StrConv("ドウジクモーターキカイソウチ", vbNarrow)

ただね、どういう状況の漢字の読みを取得しようとしているのかわからないけど、
GetPhoneticじゃ正確な読みは取れないですよ。

今まで、正確に漢字の読みを判断できているものを見たこと無い。
同じ漢字の名前でも読みが違うのがかなりあるし、
自分の名前を「なまえ」をいう読みで登録している場合は、
まともに打ち込んで変換した自分の名前の読みを「なまえ」で返しますし。
【49131】Re:漢字のかな文字をを半角カナにするには
お礼  質問（煮詰まった）  - 07/5/24(木) 14:21 -
引用なし
パスワード
   アドバイスありがとうございました。
確かに、漢字の読み方は求める形で
でませんでしたが、内容が判断できれば
構いません。

助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5748 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free