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

中学生のためのExcel VBA

3-13 入力フォーム作成(3)ボタンにパスワード

JUGEMテーマ:Office VBA

 

Dim pw As String
   pw = Application.InputBox( _
     prompt:="数値のパスワードを入力する", Title:="パスワード入力",Type:=2)
  If pw = "12" or pw = "12"  Then
    Unload Me
   UF2.Show
   Else
     MsgBox "パスワードが違います。"
  End If

 

InputBox:入力をする箱
prompt:動作を促すもの
MsgBox:メッセージボックス

  • 2019.05.13 Monday
  • 22:59

家庭菜園

イチゴの収穫 平成31年5月11日(日)

JUGEMテーマ:家庭菜園

 

平成31年5月11日(日)

5月初めから少しずつ収穫ができるようになり、ここ数日暑くなり、急にイチゴが取れるようになりました。昨年、イチゴの苗を取り、60株程育ててきました。これから2週間ほどは消費できないくらい取れると思っています。収穫から食べられるようにするまでに30分ぐらいかかりました。1日2回は収穫しないと、いろみすぎてしまいます。
隣の人は鳥に食べられると言って網をかけています。

                                イチゴ取り 食べても残り イチゴ取り

 

 

  • 2019.05.12 Sunday
  • 18:32