ログイン
質問する
Gizport
F13の使い方、故障・トラブル対処法
1 回答
0
Share (facebook)
223
view
全般

エクセルVBAで郵便番号の自動変換をしたいのですが…下記コードのCe...

エクセルVBAで郵便番号の自動変換をしたいのですが…下記コードのCellsをRangeに変えると型が一致しないとなりできません。E4に郵便番号F4に住所の入力セルがある場合には下記コードのいじる箇所を教えてください。住所録なのでデータは都度入力されていきます。データ入力は４行目からになります。よろしくお願いします。Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range) Dim xlAPP As Application If Target.Address <> "$E$4" Then Exit Sub If ((Len(Cells(2, 2).Value) >= 3) And (Cells(4, 2).Value = "")) Then Set xlAPP = Application xlAPP.EnableEvents = False Cells(4, 2).Value = StrConv(Target.Value, vbWide) Cells(4, 2).Select SendKeys "{F2}", True SendKeys "+{HOME}", True SendKeys "{F13}", True xlAPP.EnableEvents = True End IfEnd Sub
Yahoo!知恵袋 4999日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
Cells(行番号,列番号)です。Cells(2, 2)はセルB2、Cells(4, 2)はセルB4のことですこれはB2（$E$4は元々は$B$2）に入力された数字をB4に再変換するコードで、その他のセルは対象外です。コードのあったページの上のほうの図をよくみましょうまた再変換のキーがF13かどうかはIMEの種類・バージョンで異なります【追記】こちらのIMEではF13の割り当てがないので動作を確認できないですが参考にPrivate Sub Worksheet_Change(ByVal Target As Range)If Target.Column <> 5 Then Exit SubIf Len(Target.Value) >= 3 And Target.Offset(, 1).Value = "" ThenApplication.EnableEvents = FalseTarget.Offset(, 1).Value = StrConv(Target.Value, vbWide)Target.Offset(, 1).SelectSendKeys "{F2}", TrueSendKeys "+{HOME}", TrueSendKeys "{F13}", TrueApplication.EnableEvents = TrueEnd IfEnd Sub
Yahoo!知恵袋 4999日前
シェア
　
コメントする
　

参考になったと評価
　　このQ&Aは参考になりましたか？

Share (facebook)
その他の解決方法を知っていますか？
回答する
全般
132
Views
ExcelのセルB12でドロップリストから地名（東京）を選択しその値...
質問者が納得> B12で何も選択していない(空白)ときにF13に0が表示しています。文字列なら「=B12&""」とすればいいはずです。> またN17にも表示形式をユーザー定義で「#」もしくは「#,##0;-#,##0;;」とすればいいでしょう。
4801日前view132
全般
119
Views
ＥｘｃｅｌのＶＢＡについて郵便番号を入力することで指定したセルに住所...
質問者が納得そのサイト見ましたがコードの下に書かれていたMS-IMEをONにする操作し忘れていませんか？
4840日前view119
全般
134
Views
GIGABYTEのGA-8KNXPでBIOSが更新ができません。初期...
質問者が納得2つ考えられます。BIOS設定後Saveしていないか、マザーボードのボタン電池が消耗していて、設定した内容が保存できていない、かです。BIOS設定画面でカレンダーと時計の表示で確認できます。カレンダーと時計を合わせて一旦Saveして下さい。再度BIOS設定画面を開いて下さい。カレンダーと時計がずれていれば、ボタン電池の消耗です。電池を交換して下さい。
4852日前view134
全般
183
Views
MacBook＆Windows７でのスクリーンショット・Webカメラ...
質問者が納得Mac：1. shift + command + 3 → デスクトップ2. Photo Booth で撮るWindows：1. fn + 左shift + F11 → クリップボード (ペイントにCtrl+Vで貼り付けてください)2. わかりません。
4853日前view183
全般
120
Views
EXCELの関数でアドバイスをくださいお願いします。画像を見ていただ...
質問者が納得◆別のシートに表示するようにしました◆なお、「1月12日」は順次上の行に入力するものとします◆必要に応じて、行の挿入をして、追加入力するものとします★Sheet2の式B3=COUNTIF(INDIRECT("Sheet1!B"&MATCH(0,INDEX(0/(Sheet1!$B$1:$B$20<>""),),0)&":F"&MATCH(0,INDEX(0/(Sheet1!$B$1:$B$20<>&q...
4922日前view120

取扱説明書・マニュアル

2250view
http://media.generationmp3.com/.../pasen-f13-italien.pdf
もっと見る