
最近、本当にお世話になってます。
B列の最終行にPHONETICを使用していない漢字を隣の最終行のCセルにカタカナに変換したのを表示させたいのですが(手入力が早いと言われればそれまでなのですが・・・・)
Sub カタカナ変換()
Dim s As Range
For Each s In ("Range("B1048576").End(xlUp).Offset(0).Select))
Range("C" & s.).Value = Application.GetPhonetic(s)
Next
End Sub
このコードだと動きません、どなたかお時間ある方ご教示お願いします。
No.1ベストアンサー
- 回答日時:
確か、第二水準で、読みがないものが数個あるという話を聞いたことがあるので、以下のようなコードにしました。
文字列でないものは、無視します。
B列の最終行にある漢字を取り出すなら、このようになります。ループは不要のはずです。
'//
Sub カタカナ変換R()
Dim LastRow As Range
With Cells(Rows.Count, 2).End(xlUp)
If VarType(.Value) = vbString And Application.GetPhonetic(.Value) <> "" Then
.Offset(, 1).Value = Application.GetPhonetic(.Value)
End If
End With
End Sub
'///
連続して、B1から最終行まで変換するなら、このようになります。
'//
Sub カタカナ変換r2()
Dim c As Range
For Each c In Range("B1", Cells(Rows.Count, 2).End(xlUp))
If VarType(c) = vbString And Application.GetPhonetic(c) <> "" Then
c.Offset(, 1).Value = Application.GetPhonetic(c)
End If
Next c
End Sub
'///
p.s.
>(手入力が早いと言われればそれまでなのですが・・・・)
うーむ、最近、マクロの質問に対して、心ないレスが目立ちますね。一応、削除対象には入るようです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLのデータで半角カナを全角に...
-
ローマ字からカナに変換する方...
-
CString から LPCTSTRの型に変換
-
VBScript 全角英数記号→半角英...
-
Excel VBAでPDFファイルをMicro...
-
テキストをhtml変換するには
-
漢数字の変換
-
エンコードとコンバートの違い...
-
文字コードの%E3%80%とは何です...
-
Kシェルでの文字型→数値型変換
-
CSVファイルの中で、「 , 」カ...
-
CSVの定義
-
Excelについて質問です。 セル...
-
VBA 文字に半角が含まれて...
-
エクセルで数値を全角文字(カ...
-
EXCELからCSVにすると余計なカ...
-
住宅にカナを入力する際に丁目...
-
IEからEdgeへの移行に伴うIMEの...
-
英数字のみ全角から半角に変換
-
角カッコが含まれてるかどうか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
文字コードの%E3%80%とは何です...
-
CString から LPCTSTRの型に変換
-
SQLのデータで半角カナを全角に...
-
エクセルでの漢字(全角ひらが...
-
CString型からdouble型への変換
-
SJIS->UTF8->SJISコード変換に...
-
エンコードとコンバートの違い...
-
JISとシフトJIS
-
VBScript文字列をSJISからUTF8...
-
漢字からカタカナ変換マクロ
-
あるユニコード文字が、あるコ...
-
テキストをhtml変換するには
-
文字列を quoted-printable 文...
-
マイク取得音声のテキスト変換
-
16進数の文字列を文章に変える
-
dreamweaver タグの設定変更の...
-
日本語ドメインを取得しようと...
-
html内のカタカナを全て全...
-
ファイル名の右側を変更したい ...
おすすめ情報
訂正します。CセルではなくC列です。
日本語がおかしいので再訂正。
B列の最終行にある漢字を隣のCのセルにphoneticの関数を使わないでマクロを使ってカタカナで表示させたい です。