« 飲み薬の量まちがえる | トップページ | VBA 〒 追記 »

エクセルVBA

最近VBAを勉強中

今までフリーの住所録ソフトを使ってて

使い勝手が悪いのがきっかけ

自分でいろいろ設定追加変更できるのが一番と思い

いっそのことエクセルで整理することに

手始めに郵便番号を入力すると隣のセルに住所が自動入力されるようにしたい

(これぐらいはフリーソフトでもできるんだけどね。かえって手間かかってる。)

ウィザードとかアドインとかやってみたけど

タイムリーに自動変換してくれないから意味なし

とりあえず下記を利用

-------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then '単一セルの入力の場合
    If Target.Column = 1 And Target.Value <> "" Then
      Target.Offset(0, 1).Select
      Target.Offset(0, 1).Value = Target.Value
      SendKeys "{F2}"
      SendKeys "{Convert}"
      SendKeys "{Enter}"
      SendKeys "{Enter}" '**1
    End If
  End If
End Sub

----------------------------------------

参考URL

http://oshiete1.goo.ne.jp/qa2456765.html

http://oshiete1.goo.ne.jp/kotaeru.php3?qid=3191662

http://okwave.jp/qa405437.html

|

« 飲み薬の量まちがえる | トップページ | VBA 〒 追記 »

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック


この記事へのトラックバック一覧です: エクセルVBA:

« 飲み薬の量まちがえる | トップページ | VBA 〒 追記 »