- ベストアンサー
エクセルのvbaでのふりがなについて…
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 細かなエラー処理はなされていませんが、こういうことでしょうか。 ただし、IMEのバージョンとOffice のバージョンによって動かないことがあります。 TextBox1 に、郵便番号を入れて、Enter を入れるとセルに郵便番号が入り、もう一度Enter を入れると、その変換文字が、右横のセルに入ります。 本来は、検索システムを使って、郵便番号から変換するのが良いのです。WinArrowさんという方が出している郵便番号変換はフリーでは有名です。他は、郵便番号ウィザードから、郵便番号検索エンジンを使えればよいのですが、プロテクトが入っているので使えません。有償のものは高いので、仕事でもなければ買わないです。 '------------------------------------------- 'Option Explicit Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim buf As Variant If KeyCode <> 13 Then Exit Sub With Cells(Rows.Count, 1).End(xlUp).Offset(1) buf = TextBox1.Value If Len(buf) = 8 And IsNumeric(Left(buf, 1)) Then .Value = buf ChangeZip .Cells(1) '変換されなかったときにエラー処理 If Not TextBox1.Value Like "[一-龠]*" Then .Value = "" End If Else If Len(Left(buf, 1)) <> LenB(StrConv(Left(buf, 1), vbFromUnicode)) Then .Offset(-1, 1).Value = TextBox1.Value End If End If End With TextBox1.Value = "" End Sub Function ChangeZip(rng As Range) With rng.Validation '入力規則 .Delete .Add Type:=xlValidateInputOnly .IMEMode = xlIMEModeHiragana 'IME立ち上げ End With rng.Select SendKeys rng.Value '番号を入れる SendKeys "{ }" '変換 SendKeys "{ENTER}" SendKeys "{LEFT}" SendKeys "{DOWN}" End Function
関連するQ&A
- EXCELのVBAでフリガナ入力
フォームのテキストボックスで「text名前」に漢字で入力すると「textフリガナ」に自動的にフリガナが入力されるようにしたいと思っています。 phonetic関数を使って、セルを介在させて試してみましたが、「text名前」の値をセルに格納した時点でフリガナ情報が落ちてしまうらしく、カタカナのフリガナが返ってきません。 なにか良い方法があるのでしょうか?ご教示ねがいます。
- ベストアンサー
- オフィス系ソフト
- 郵便番号→住所→住所のふりがな、のやり方教えてください。
WIN98、エクセル2000を使っています。 アンケートの入力の雛型を作っていますが、 セルAに郵便番号を入れてセルBに住所を一発で出し、さらにセルCにその住所のふりがなも同時に出せるようにはできないのでしょうか? もちろんセルの順番はどうでもいいです。できればこの順番がいいけれど・・・。 LEFTとPHONETICを使って、住所欄から郵便番号は出せるようにしたのですが、どうも下4桁に該当がない場合など、郵便番号自体不正確になったりします。 何か良い方法はないでしょうか。 また、日付を入れる時、例えば、「0720」という入力だけで「07/20」と表示できる方法もあったら、あわせて教えてください。 どうもいろいろやったのですが、結局入力時に/を叩かないと、正しく表示されません。単にスラを入れるのが苦手なだけで、丁寧に入れればそう手間的に変らないのでいいのですが・・・。 よろしくお願いします。特にフリガナの方・・・。 エクセルは初心者なので、申し訳ない、詳しく優しくお願いしまーす! (初心者のクセに仕事受けてはいけません、って言わないで~!)
- 締切済み
- その他(データベース)
- VBAユーザーフォームで
エクセルVBAでユーザーフォームより、テキストボックスで入力させたものをセルに表示させようとしています。 テキストボックスは1と2があり、テキストボックス1で入力した値の最初の5文字+固定値をテキストボックス2に自動で入力(表示)したいのですがなかなかうまくいきません。(自動入力後、手動で一部修正します。) VBAをはじめたばかりの初心者ですが、どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAユーザーフォームで郵便番号から住所変換するには?
会社で顧客リストを作成しているのですが、エクセルではじめてVBAを利用しようと思い、ユーザーフォームを使って連続登録までのマクロコードは入力出来たのですが、テキストボックスに郵便番号を入力すると自動的に次のテキストボックスに住所が入力されるようにするには、どのようなコードを追加すればよいのでしょう?
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで郵便番号から住所を
流れ (1)テキストボックス1に郵便番号7桁を入力 (2)コマンドボタン1(検索)をクリック (3)テキストボックス2に住所表示 上記のような流れで行いたいのです。セルに入力ではなく 入力フォームを作成してボックスやボタンを配置して作成したいのですが できますでしょうか??
- 締切済み
- その他(プログラミング・開発)
- Excel2002のふりがな
関数 =PHONETIC(セル番号) をつかって、フリガナを振っています。 手書き入力パッドで挿入した漢字にフリガナがふれません。 修正しようにも、ボックスが表示されません。 漢字だと認識されていないのでしょうか。 「ふりがな」の場所に、漢字のまま表示されます。 書式→ふりがな→編集で修正しようにも、その漢字にはボックス自体がありません。 単語登録をしてみましたが、同じでした。 方法はないのでしょうか? どうぞ宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセルでのフリガナについて
エクセルで一つのセルに入力した住所を、都道府県と区・市・郡とそれ以下の3つに分離し それぞれにフリガナをふりたいのです。 3つに分割まではSUBSTITUTE関数を使って出来たのですが、 その後PHONETIC関数を使ったらフリガナが表示されませんでした。 何かいい方法はないでしょうか? 例:「東京都千代田区永田町○丁目○番」 ↓分割しフリガナをふる 「東京都」 「千代田区」 「永田町」 「○丁目○番」 「トウキョウト」「チヨダク」 「永田町」 「○チョウメ○バンチ」 のようにしたいのです。 よろしくお願いします。
- 締切済み
- Excel(エクセル)
- EXCEL VBA ユーザーフォームの大きさについて
EXCEL VBAでユーザーフォームの大きさが表示画面より 大きくなったため、下の表示されない部分のテキスト ボックス等に入力出来ません。対処法はありますか。
- ベストアンサー
- オフィス系ソフト
- PHONETIC関数でフリガナが表示されない
本の付録のエクセルデータの名簿に フリガナ表示をさせてみたくなり エクセルPHONETIC関数を使ってみたのですが フリガナが表示されません。 表示されたのはフルガナではなく、元の漢字で表示されました。 PHONETIC関数は?と思い 求めたセルをクリックするとPHONETIC関数が入っていましたが・・ もしやと思い 欄外に新たに氏名を入力して PHONETIC関数を求めるとフリガナ(PHONETIC関数)が表示がされます。 一度作成したデータなどを開いて フリガナ表示はできないのでしょうか? まるでロックがかかったみたいな感覚なのですが。
- ベストアンサー
- オフィス系ソフト
- フリガナ検索について
同じような質問があったらすみません。 過去質問も見ましたが、あまりよく理解できなかったので質問させていただきます。 顧客名簿のフリガナ検索をしたいのです。 テーブルには顧客情報に必要な、名前 フリガナ 住所 電話番号 とあり、フォームもそのテーブルを元に作成しています。 そして、そのフォームにテキストボックスをつくり、コマンドボタンで 実行をしたいのです。表示方法はフォームで・・・・。 例えば「サトウ」とテキストボックスに入力し、コマンドボタンを押すごとに、「サトウ」の苗字の人がフォームで次々と表示されるようなのが理想です。 お時間があるときに、教えていただけないでしょうか? 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
わざわざありがとうございます!! なんか…すごい・・・ ここまでの次元では考えてなかったので…脱帽です。 こんなこともできるのですね… ここに掛かれていることを勉強するだけでもすごくためになりました!! ありがとうございました!