いつもお世話になります。
OSは、win11 エクセルはoffice365です。
ご指導を仰ぎたいのは、
例えば userformの
Sheets("記入").Range("B4").Value に 「山田花子」と手入力しているが
自動的に全角カタカナに変換するコードに置き換えるには
参考にコードです
Sub 転記()
Dim i
For i = 4 To Sheets("マスタ").Range("A10000").End(xlUp).Row + 1
If Sheets("マスタ").Range("A" & i).Value = "" Then
With Sheets("マスタ")
.Range("A" & i).Value = Sheets("記入").Range("B3").Value
'※↓現在は手入力でB4に
.Range("C" & i).Value = Sheets("記入").Range("B4").Value
.Range("D" & i).Value = Sheets("記入").Range("B5").Value
.Range("E" & i).Value = Sheets("記入").Range("B6").Value
.Range("F" & i).Value = Sheets("記入").Range("B7").Value
End With
'MsgBox "登録が完了しました"
Sheets("記入").Range("B3:B7").ClearContents
Exit For
End If
Next
Application.Goto Worksheets("マスタ").Range("A1")
Application.Goto Worksheets("記入").Range("B3")
End Sub
No.2ベストアンサー
- 回答日時:
こんにちは
userformなら
TextBoxを追加して・・
現状TextBoxに 山田花子(手入力)(コピペはダメ)
追加TextBoxからSheets("記入").Range("B4").Valueへ
Private Sub 現状TextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
追加TextBox.Value = Application.GetPhonetic(現状TextBox.Value)
End Sub
コントロール名は適時変更
現状TextBoxからフォーカスを移せば確認できます
違っていたら直接 追加TextBoxにカタカナ入力・・
ご指導ありがとうございます。
返事が今になりお許しください。
ご指導を参考に色々サイトで調べ下記のようなコードにしました。
おかしなところなどがありましたらアドバイスを頂けると嬉しいです。
Sub 転記()
「 Dim kanji As String
Dim カタカナ As String
kanji = Application.GetPhonetic(Range("B4").Value)
Do While kanji <> ""
カタカナ = カタカナ & kanji & vbCrLf
kanji = Application.GetPhonetic
Range("B6").Value = カタカナ
Loop 」
Dim i
For i = 4 To Sheets("DB").Range("C10000").End(xlUp).Row + 1
If Sheets("DB").Range("C" & i).Value = "" Then
With Sheets("DB")
.Range("C" & i).Value = Sheets("記入").Range("B3").Value
.Range("E" & i).Value = Sheets("記入").Range("B4").Value
No.1
- 回答日時:
こんにちは
名前の場合、読み方が難しいので、なかなか「自動で」とはいかないと思いますが・・
ふりがなを取得する関数がありますので、それを用いることで、ある程度までは「あたり」の変換はできると思います。
(人手でのチェックは必要でしょう)
以下、ご参考までに。
https://vbabeginner.net/get-the-phonetic-guide-o …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
敬語 「記入しなくて結構です」...
-
意味の違い(記入事項、記入項...
-
間違えやすいアルファベットと...
-
会社の部署名が少し変更になった時
-
看護師の再就職をするのですが ...
-
履歴書の志望動機欄の記入につ...
-
「よろしければ」と「よろしか...
-
履歴書に障害者である事の記入...
-
ガスメーターの検針員について
-
雇用契約書の連絡先について
-
銀行等の番号札、どのタイミン...
-
顧客名にふりがなをつける書式...
-
どなたか教えて下さい。誘導灯...
-
屋外広告物講習の修了書は履歴...
-
エントリーシートの所属サーク...
-
手形の修正
-
海外にクレジットカードの情報...
-
アルバイトの身元引受人が無職...
-
履歴書のボランティア・社会活...
-
ワープロ検定3級は書くべき?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
敬語 「記入しなくて結構です」...
-
エントリーシートの所属サーク...
-
意味の違い(記入事項、記入項...
-
緊急時の家族等連絡先に父と母...
-
国家試験で受験番号を間違えて...
-
間違えやすいアルファベットと...
-
路線名
-
以前勤務していた会社に提出す...
-
レ点の記入の指示
-
入社書類の血液型記入のしかた
-
臨時採用 継続 履歴書 ※急ぎです
-
銀行等の番号札、どのタイミン...
-
申込書に”読めない字”を書くお...
-
履歴書での記入について
-
INVOICE & PACKING LISTの2枚目...
-
企業先で頂いた一枚しかない自...
-
どなたか教えて下さい。誘導灯...
-
会社の部署名が少し変更になった時
-
VAT numberとは?
-
金融機関コードの書き方 水道料...
おすすめ情報