excel ひらがな文を半角カタカナに変換したい 2

質問

以前にOKWaveにて質問した内容です。

http://okwave.jp/qa5273311.html
”excel2000で、ある列にひらがな入力された文があります。
違う列にそのひらがな入力された文を半角カタカナにして表記したいのですが、何か良い方法はありますか??
関数やVBA、何でも良いので、教えてください!!
※すでに入力されているひらがな文は、CSVファイルから持ってきてます。”

頂いた、お答えで
”ユーザー定義関数を作成し利用するのがいいですね
標準モジュールへ記述してください
Option Explicit
Function KanConv(strText As String) As String
strText = Application.GetPhonetic(strText)
KanConv = StrConv(strText, vbNarrow)
End Function　”
との事でした。
今回の質問させていただくのは、上記で関数を作成したのですが
すでに入力された文字が、全角100文字以内でないと変換されないのです。
100文字を超えると空欄になります。
文は、100文字を超えるものが出てきます。
どうか、助けてください。

回答No.3

freetaka · ベストアンサー

知らないうちにこんな事になってたんですね^-^;
最初に回答したほうに補足ついてたの
気づきませんでした・・・

とりあえず修正してみましたが
なにせ休憩中の短時間でやったので汚いコードはご容赦
職場にあるExcel2007でしかテストしてませんので
Excel2000でテストしてみてください

Function KanConv(strText As String) As String
Dim strLen As Integer
Dim strTexts(100) As String 'よくわからないので１万文字まで
Dim i As Integer
Dim strTmp As String

strLen = (Len(strText) / 100)

For i = 0 To strLen
strTexts(i) = Application.GetPhonetic(Mid(strText, (i * 100) + 1, 100))
strTmp = strTmp & StrConv(strTexts(i), vbNarrow)
Next i
KanConv = strTmp
End Function

お礼

何度も、すみません。
お忙しいのに・・・　ありがとうございます!!
私自身、前の質問が最後になると思っていたもので・・・。
初OKWAVEで、使い方もわからずで・・・。
見ていて頂いてて、よかったです。

今、テストしてみたところ
問題が解消されました!!　うれしいです!!
本当にありがとうございますっ
また、また、何かありましたら、お願いします。
答えて頂いた方々、ありがとうございました!!

補足

度々度で、本当にすみません。
数字の問題が出てきて、しまいました。
全角数字を半角カタカナに変更することは可能なのでしょうか？？
例　１００　→　ヒャク
　　２５３　→　ニヒャクゴジュウサン

お時間が、あるときで構いませんので
お答え、お願いします。

回答No.4

freetaka

フリガナですが
ＭＳ－ＩＭＥから引いてきているので
おそらくカタカナに変換されるのは
もともとＩＭＥの辞書に登録されているもので
「１００」とかなら「ヒャク」と２００７では出ました

試しに辞書登録をしてみたところやはり変換はされないようです
ＶＢＡあたりで数字をカタカナに置き換えることもできなくはないですが
かなり長いコードになりそうな感じですね
ここらへんが簡単にやるには限界でしょうか^-^;

お礼

調べていただいて、ありがとうございます!!
そう言って、頂けて　すっきりしました。
作って頂いた、VBAだけでも充分に作業がはかどるようになったので
本当に感謝です。
またまたまたまたまた、何かありましたら
お願い致します!!

回答No.2

A88No8

こんにちは
>すでに入力された文字が、全角100文字以内でないと変換されないのです。
　試してみたところ確かにその通りの結果になりました。
　ふりがなを抽出する制限に100文字が絡んでいるようです。
　エクセルで入力されたデータではない（CSVファイルとのことなので漢字ひらがなに「ふりがな」情報はない）なら、「strText = Application.GetPhonetic(strText)
」の行頭にアポストロフィー「'」かコメント文「REM」を付加して無効にしたらいかがでしょう？

回答No.1

Chary_spy

その１００文字とは、本当に１００文字なのでしょうか?

１００文字目の後に改行マーク（LFなどのマーク）が入っていたり、１００文字に整形して、渡していませんか?