フレキシブルグリッドで・・・ (ID:118128)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんなかんじ

Option Explicit
Private Type DateType
    lngRow As Long
    strGengo As String
    lngSeireki As Long
    lngYear As Long
    lngMonth As Long
    lngDay As Long
End Type
Private udtDateArray() As DateType
Private lngDateArrayCnt As Long
Private Sub Command1_Click()
    ReDim Preserve udtDateArray(lngDateArrayCnt)
    With udtDateArray(lngDateArrayCnt)
        .lngRow = MSFlexGrid1.Rows - 1
        .strGengo = cmbGengo.Text
        .lngSeireki = cmbGengo.ItemData(cmbGengo.ListIndex)
        .lngYear = txtYear.Text
        .lngMonth = txtMonth.Text
        .lngDay = txtDay.Text
        MSFlexGrid1.AddItem .strGengo & .lngYear & "年" & .lngMonth & "月" & .lngDay & "日"
    End With
End Sub

Private Sub Command2_Click()
    With udtDateArray(UBound(udtDateArray))
     MsgBox "最後に入力した年 = 西暦" & CStr(.lngSeireki + .lngYear) & "年"
    End With
End Sub

Private Sub Form_Load()
    Dim i As Long
    Dim AryGengo As Variant
    Dim ArySeireki As Variant
    lngDateArrayCnt = 0
    AryGengo = Array("平成", "昭和", "大正", "明治")
    ArySeireki = Array(1988, 1925, 1911, "1867")
    cmbGengo.Clear
    For i = 0 To UBound(AryGengo)
        cmbGengo.AddItem AryGengo(i)
        cmbGengo.ItemData(cmbGengo.NewIndex) = ArySeireki(i)
    Next
    cmbGengo.ListIndex = 0
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る