
最近、本当にお世話になってます。
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
エクセルでの漢字(全角ひらが...
-
文字コードの%E3%80%とは何です...
-
SJIS->UTF8->SJISコード変換に...
-
文字列を quoted-printable 文...
-
VBScript文字列をSJISからUTF8...
-
oracle10g eucのblobをsjisのch...
-
ローマ数字の変換をしたいのですが
-
スマホの予測変換について
-
VB6にも「ToString」ってあり...
-
SQLのデータで半角カナを全角に...
-
CString型からdouble型への変換
-
CSVファイルの中で、「 , 」カ...
-
Excelについて質問です。 セル...
-
エクセルで数値を全角文字(カ...
-
住宅にカナを入力する際に丁目...
-
VBA 文字に半角が含まれて...
-
各項目がダブルクォーテーショ...
-
IEからEdgeへの移行に伴うIMEの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
文字コードの%E3%80%とは何です...
-
CString型からdouble型への変換
-
SQLのデータで半角カナを全角に...
-
ローマ字からカナに変換する方...
-
Delphiの型変換
-
VBScript 全角英数記号→半角英...
-
SJIS->UTF8->SJISコード変換に...
-
テキストをhtml変換するには
-
漢数字の変換
-
Encode.pmで「髙」(ハシゴ高)...
-
VBScript文字列をSJISからUTF8...
-
vbwide(半角⇒全角変換)について
-
文字列を quoted-printable 文...
-
エクセルでの漢字(全角ひらが...
-
oracle10g eucのblobをsjisのch...
-
漢字からカタカナ変換マクロ
-
VB6にも「ToString」ってあり...
-
goo blogでyou tube を埋め込む...
おすすめ情報
訂正します。CセルではなくC列です。
日本語がおかしいので再訂正。
B列の最終行にある漢字を隣のCのセルにphoneticの関数を使わないでマクロを使ってカタカナで表示させたい です。