![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
最近、本当にお世話になってます。
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ランキング
-
スマホの予測変換について
-
文字コードの%E3%80%とは何です...
-
テキストをhtml変換するには
-
シャープ(#)の受け渡し
-
VB6にも「ToString」ってあり...
-
intの数値を文字列に変換
-
五十音の並べ替えsortを教えて...
-
カタカナのデータをひらがなに...
-
python/変数の変換
-
「%3a=:」「%3f=?」。こういう...
-
日本語→ギリシャ語翻訳サイト
-
秀丸マクロ: 正規表現で表さ...
-
シングルクォーテーションの変換
-
文字列を quoted-printable 文...
-
Fortranでの文字型から数値への...
-
クリーンアップやデフラグについて
-
ギャル文字の作り方
-
ビジュアルスタジオ
-
WORD2010の縦中横機能がお...
-
CSVファイルの中で、「 , 」カ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
CString から LPCTSTRの型に変換
-
文字コードの%E3%80%とは何です...
-
SJIS->UTF8->SJISコード変換に...
-
Visual Studio プロパティペー...
-
テキストをhtml変換するには
-
VBScript文字列をSJISからUTF8...
-
文字化けしてしまって困っています
-
LINUX上でシリアル通信(C++)
-
シャープ(#)の受け渡し
-
【PHP】全角記号を半角記号...
-
エクセルでの漢字(全角ひらが...
-
URLが日本語なのになぜ表示...
-
CString型からdouble型への変換
-
ファイル名の右側を変更したい ...
-
SQLのデータで半角カナを全角に...
-
Excelで半角カナのみを全角に変...
-
改行を含んだ文字列を正規表現...
-
VB6にも「ToString」ってあり...
-
ウイザードからのVBAでクエリー...
おすすめ情報
訂正します。CセルではなくC列です。
日本語がおかしいので再訂正。
B列の最終行にある漢字を隣のCのセルにphoneticの関数を使わないでマクロを使ってカタカナで表示させたい です。