
最近、本当にお世話になってます。
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を探す
今、見られている記事はコレ!
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでPDFファイルをMicro...
-
SQLのデータで半角カナを全角に...
-
CString から LPCTSTRの型に変換
-
CString型からdouble型への変換
-
文字列を quoted-printable 文...
-
文字コードの%E3%80%とは何です...
-
VBScript文字列をSJISからUTF8...
-
HTMLユニコード?の変換
-
これはなんの文字コードでしょうか
-
エクセルでの漢字(全角ひらが...
-
16進数の文字列を文章に変える
-
テキストをhtml変換するには
-
漢字からカタカナ変換マクロ
-
Visual Studio プロパティペー...
-
日付の差の求め方
-
VB6にも「ToString」ってあり...
-
CSVファイルの中で、「 , 」カ...
-
住宅にカナを入力する際に丁目...
-
エクセルで数値を全角文字(カ...
-
VB.net、テキストボックス入力...
マンスリーランキングこのカテゴリの人気マンスリー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の関数を使わないでマクロを使ってカタカナで表示させたい です。