中学生のためのExcel VBA

3-14 郵便番号と住所(1)Web APIの利用

JUGEMテーマ:Office VBA

 

API:自己のソフトウェアを一部公開して、他のソフトウェアと機能を共有できるようにしたものです。
郵便番号検索Web APIを利用すれば、下記のように郵便番号から住所を取得することもできます。
=FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $A2),"/ZIP_result/ADDRESS_value/value[@state]/@state")
=FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $A2),"/ZIP_result/ADDRESS_value/value[@city]/@city")
=FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $A2),"/ZIP_result/ADDRESS_value/value[@address]/@address")
 

  • 2019.05.21 Tuesday
  • 21:47

中学生のためのExcel VBA

3-13 入力フォーム作成(9)タブ設定

JUGEMテーマ:Office VBA

 

マウスのクリックやキーボード入力ができる状態:フォーカスを持つ
フォーカスを取得できるかどうかは、TabStopプロパティで設定
タブ オーダーでフォーカス順番を決める
 

  • 2019.05.20 Monday
  • 17:40

中学生のためのExcel VBA

3-13 入力フォーム作成(8)電話番号命令文の内容

 

Private Sub 登録_Click()
Call hani
  Cells(gyou + 1, "i").Value = simei.Text
  Cells(gyou + 1, "j").Value = furigana.Text
  Cells(gyou + 1, "f").Value = gnen
  Cells(gyou + 1, "g").Value = kumi
  Cells(gyou + 1,"o").Value = denwa.Text
  simei.Text = ""
  furigana.Text = ""
  nen1.Value = False
  nen2.Value = False
  nen3.Value = False
  km1.Value = False
  km2.Value = False
  km3.Value = False
  denwa.Text = ""
End Sub

JUGEMテーマ:Office VBA

  • 2019.05.19 Sunday
  • 15:49

中学生のためのExcel VBA

3-13 入力フォーム作成(8)電話番号IMEモード

JUGEMテーマ:Office VBA

 

IMEMode→1-fmIMEModeOn:IMEモードオン 全角
IMEMode→2-fmIMEModeOff:IMEモードオフ 半角
 

  • 2019.05.18 Saturday
  • 17:57

中学生のためのExcel VBA

3-13 入力フォーム作成(7)組フレーム

JUGEMテーマ:Office VBA

 

Private kumi As Byte
Private Sub km1_Click()
  If km1.Value = True Then
    kumi = 1
  End If
End Sub

Private Sub km2_Click()
  If km2.Value = True Then
    kumi = 2
  End If
End Sub

Private Sub km3_Click()
  If km3.Value = True Then
    kumi = 3
  End If
End Sub

登録
Cells(gyou + 1, "g").Value = kumi
km1.Value = False
km2.Value = False
km3.Value = False

  • 2019.05.17 Friday
  • 23:20

中学生のためのExcel VBA

3-13 入力フォーム作成(7)組フレーム

JUGEMテーマ:Office VBA

 

フレーム:オプションボタンをグループ化する。

  • 2019.05.17 Friday
  • 21:55

中学生のためのExcel VBA

3-13 入力フォーム作成(6)学年オプションボタン

JUGEMテーマ:Office VBA

 

Private gnen As Byte
Private Sub nen1_Change()
  If nen1.Value = True Then
    gnen = 1
  End If
End Sub

Private Sub nen2_Change()
  If nen2.Value = True Then
    gnen = 2
  End If
End Sub

Private Sub nen3_Change()
  If nen3.Value = True Then
    gnen = 3
  End If
End Sub

登録
Cells(gyou + 1, "f").Value = gnen
nen1.Value = False
nen2.Value = False
nen3.Value = False
 

  • 2019.05.16 Thursday
  • 17:53

中学生のためのExcel VBA

3-13入力フォーム作成(6)学年オプションボタン

JUGEMテーマ:Office VBA

 

オプションボタン nen1 nen2 nen3 を作成 
GroupName:gakunen

  • 2019.05.16 Thursday
  • 16:54

中学生のためのExcel VBA

3-13 入力フォーム作成(5)ふりがなテキストボックス

JUGEMテーマ:Office VBA

 

Private Sub simei_Change()
Dim furi As String
     If simei.Value <> "" Then
        furi = Application.GetPhonetic(simei.Value)
        furigana.Text = StrConv(furi, vbHiragana)
    End If
End Sub

登録
Private Sub 登録_Click()
  Call hani
  Cells(gyou + 1, "i").Value = simei.Text
  Cells(gyou + 1, "j").Value = furigana.Text
  simei.Text = ""
  furigana.Text = ""
End Sub

GetPhonetic:ふりがなの取得

  • 2019.05.15 Wednesday
  • 14:48

中学生のためのExcel VBA

3-13 入力フォーム作成(4)名前テキストボックス

JUGEMテーマ:Office VBA

 

  氏名    テキストボックス  オブジェクト名:simei
登録
  Call hani
  Cells(gyou + 1. "i").Value = simei.Text
  simei.Text = ""
 

  • 2019.05.14 Tuesday
  • 16:12