中学生のためのExcel VBA

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

JUGEMテーマ：Office VBA

 

　=IF（論理式,真の場合,偽の場合）
=if($s4="","",FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $S4),"/ZIP_result/ADDRESS_value/value[@state]/@state"))
=if($s4="","",FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $S4),"/ZIP_result/ADDRESS_value/value[@city]/@city"))
=if($s4="","",FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $S4),"/ZIP_result/ADDRESS_value/value[@address]/@address"))

  • 2019.05.22 Wednesday
  • 15:25

中学生のための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

このページの先頭へ▲