'Option Explicit

Dim Touseki As Object
Dim iro As Integer
Dim MaxRows As Long
Dim Maxl As Long
Dim ListIdx As Integer
Dim IdxNo As Integer

Private Type MemberData
    Simei1 As String
    Simei4 As String
    YakuZai(3, 12) As String
    AutoInsatsu As Boolean
    Yobi(3) As String
    iro As Integer
    HenkoSwitch As Boolean 'データ変更済み患者様特定用フラグ
    ShindanI As String '診断医
End Type
Dim OldMember() As MemberData
Dim ChangeSwitch As Boolean 'フォーム内容変更検知フラグ
Dim l As Integer
Dim Syoho(1, 11) As Integer
Dim Ishi As Integer
Dim MarkIngai As Integer



Private Sub Label7_Click()

End Sub

Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Initialize()
    Set Touseki = Worksheets("透析患者リスト")
    Touseki.Activate
    MaxRows = Touseki.UsedRange.Rows.Count
    ListIdx = 0
    Syoho(0, 0) = 133
    Syoho(0, 1) = 134
    Syoho(0, 2) = 135
    Syoho(0, 3) = 136
    Syoho(0, 4) = 137
    Syoho(0, 5) = 138
    Syoho(0, 6) = 139
    Syoho(0, 7) = 140
    Syoho(0, 8) = 141
    Syoho(0, 9) = 142
    Syoho(0, 10) = 143
    Ishi = 131
    MarkIngai = 132

    ChangeSwitch = False
    With ComboBox37
        .AddItem ("しない")
        .AddItem ("する")
    End With

    Call Member
    OptionButton1.Value = True
    定時薬テンプ作成

End Sub

Private Sub Member()
    ReDim OldMember(MaxRows)
    Dim K As Byte
    Dim i As Integer

    With Touseki
        For i = 3 To MaxRows
            l = i - 3
            With OldMember(l)
                .Simei1 = Touseki.Cells(i, 3)
                .Simei4 = Touseki.Cells(i, 2)
                .ShindanI = Touseki.Cells(i, Ishi)
                For K = 0 To 2
                    .YakuZai(K, 0) = Touseki.Cells(i, Syoho(0, 0) + K * 12) '処方①
                    .YakuZai(K, 1) = Touseki.Cells(i, Syoho(0, 1) + K * 12) '
                    .YakuZai(K, 2) = Touseki.Cells(i, Syoho(0, 2) + K * 12) '
                    .YakuZai(K, 3) = Touseki.Cells(i, Syoho(0, 3) + K * 12) '
                    .YakuZai(K, 4) = Touseki.Cells(i, Syoho(0, 4) + K * 12) '
                    .YakuZai(K, 5) = Touseki.Cells(i, Syoho(0, 5) + K * 12) '
                    .YakuZai(K, 6) = Touseki.Cells(i, Syoho(0, 6) + K * 12) '
                    .YakuZai(K, 7) = Touseki.Cells(i, Syoho(0, 7) + K * 12) '
                    .YakuZai(K, 8) = Touseki.Cells(i, Syoho(0, 8) + K * 12) '
                    .YakuZai(K, 9) = Touseki.Cells(i, Syoho(0, 9) + K * 12) '
                    .YakuZai(K, 10) = Touseki.Cells(i, Syoho(0, 10) + K * 12) '処方⑪


                    .Yobi(K) = Touseki.Cells(i, 33 + K)
                Next

                If Touseki.Cells(i, MarkIngai) <> "" Then
                    .AutoInsatsu = True
                Else
                    .AutoInsatsu = False
                End If
                .HenkoSwitch = False
                .iro = Touseki.Cells(i, 1).Interior.ColorIndex
            End With

        Next
        Maxl = l
    End With
End Sub
Private Sub Optionbutton1_Change()
    If ChangeSwitch = True Then
        保存忘れ防止装置
    End If
    If OptionButton1.Value = True Then
        ListIdx = 0
        氏名box
    End If
End Sub
Private Sub Optionbutton2_Change()
    If ChangeSwitch = True Then
        保存忘れ防止装置
    End If
    If OptionButton2.Value = True Then
        ListIdx = 0
        氏名box
    End If
End Sub
Private Sub 氏名box()
    Dim CelNo(3) As String

    Set Touseki = Worksheets("透析患者リスト")
    TeijiYaku.ListBox1.Clear
    ListIdx = 0
    Maxl = 0

    If OptionButton1.Value = True Then

        l = 0
        Do '赤(月水金AM）の処理
            iro = OldMember(l).iro
            Do While iro = 3
                If OldMember(l).iro <> 3 Then
                    Exit Do
                End If

                TeijiYaku.ListBox1.AddItem (OldMember(l).Simei1)

                l = l + 1
                Maxl = Maxl + 1
            Loop
            l = l + 1
        Loop While l < MaxRows 'Maxl

        l = 0
        Do '青(月水金PM）の処理
            iro = OldMember(l).iro
            Do While iro = 5
                If OldMember(l).iro <> 5 Then
                    Exit Do
                End If

                TeijiYaku.ListBox1.AddItem (OldMember(l).Simei1)

                l = l + 1
                Maxl = Maxl + 1
            Loop
            l = l + 1
        Loop While l < MaxRows 'Maxl
        If Maxl <> 0 Then
            With Me.ListBox1
                .ListIndex = ListIdx
                エナブルドチュルー
            End With
        Else
            フォーム消去
            ChangeSwitch = False
            エナブルドフォルス
        End If
    End If

    If OptionButton2.Value = True Then
        l = 0
        Do '黄(火木土AM）の処理
            iro = OldMember(l).iro
            Do While iro = 6
                If OldMember(l).iro <> 6 Then
                    Exit Do
                End If

                TeijiYaku.ListBox1.AddItem (OldMember(l).Simei1)

                l = l + 1
                Maxl = Maxl + 1
            Loop
            l = l + 1
        Loop While l < MaxRows 'Maxl

        l = 0
        Do '緑(火木土PM）の処理
            iro = OldMember(l).iro
            Do While iro = 4
                If OldMember(l).iro <> 4 Then
                    Exit Do
                End If

                TeijiYaku.ListBox1.AddItem (OldMember(l).Simei1)

                l = l + 1
                Maxl = Maxl + 1
            Loop
            l = l + 1
        Loop While l < MaxRows 'Maxl

        If Maxl <> 0 Then
            With Me.ListBox1
                .ListIndex = ListIdx
                エナブルドチュルー
            End With
        Else
            フォーム消去
            ChangeSwitch = False
            エナブルドフォルス
        End If
    End If
End Sub
Private Sub ListBox1_Click()
    Dim Namae As String

    If ChangeSwitch = True Then
        保存忘れ防止装置
    End If
    ListIdx = ListBox1.ListIndex
    Namae = ListBox1.List(ListIdx)
    l = Kensaku(ByVal Namae)

    Call 個別へ表示(ByVal l)
End Sub

Private Sub CommandButton1_Click()
    Call 個別へ表示(ByVal l)
End Sub

Private Sub CommandButton2_Click()
    Dim Namae As String
    Dim MeNamae As Object

    OptionButton1.Value = False
    OptionButton2.Value = False
    Namae = TextBox1.Text
    If ChangeSwitch = True Then
        保存忘れ防止装置
    End If
    フォーム消去
    ChangeSwitch = False
    Set MeNamae = TeijiYaku
    Call 検索(Namae, MeNamae)

    エナブルドフォルス
End Sub

Sub 個別へ表示(ByVal l As Integer)
    Dim Maisu As Integer
    Dim MaisuHyoji As String

    Maisu = 0
    With OldMember(l)

        TeijiYaku.ComboBox1.Text = .YakuZai(0, 0)
        TeijiYaku.ComboBox2.Text = .YakuZai(0, 1)
        TeijiYaku.ComboBox3.Text = .YakuZai(0, 2)
        TeijiYaku.ComboBox4.Text = .YakuZai(0, 3)
        TeijiYaku.ComboBox5.Text = .YakuZai(0, 4)
        TeijiYaku.ComboBox6.Text = .YakuZai(0, 5)
        TeijiYaku.ComboBox7.Text = .YakuZai(0, 6)
        TeijiYaku.ComboBox8.Text = .YakuZai(0, 7)
        TeijiYaku.ComboBox9.Text = .YakuZai(0, 8)
        TeijiYaku.ComboBox10.Text = .YakuZai(0, 9)
        TeijiYaku.ComboBox11.Text = .YakuZai(0, 10)

        TeijiYaku.ComboBox12.Text = .YakuZai(1, 0)
        TeijiYaku.ComboBox13.Text = .YakuZai(1, 1)
        TeijiYaku.ComboBox14.Text = .YakuZai(1, 2)
        TeijiYaku.ComboBox15.Text = .YakuZai(1, 3)
        TeijiYaku.ComboBox16.Text = .YakuZai(1, 4)
        TeijiYaku.ComboBox17.Text = .YakuZai(1, 5)
        TeijiYaku.ComboBox18.Text = .YakuZai(1, 6)
        TeijiYaku.ComboBox19.Text = .YakuZai(1, 7)
        TeijiYaku.ComboBox20.Text = .YakuZai(1, 8)
        TeijiYaku.ComboBox21.Text = .YakuZai(1, 9)
        TeijiYaku.ComboBox22.Text = .YakuZai(1, 10)

        TeijiYaku.ComboBox39.Text = .YakuZai(2, 0)
        TeijiYaku.ComboBox40.Text = .YakuZai(2, 1)
        TeijiYaku.ComboBox41.Text = .YakuZai(2, 2)
        TeijiYaku.ComboBox42.Text = .YakuZai(2, 3)
        TeijiYaku.ComboBox43.Text = .YakuZai(2, 4)
        TeijiYaku.ComboBox44.Text = .YakuZai(2, 5)
        TeijiYaku.ComboBox45.Text = .YakuZai(2, 6)
        TeijiYaku.ComboBox46.Text = .YakuZai(2, 7)
        TeijiYaku.ComboBox47.Text = .YakuZai(2, 8)
        TeijiYaku.ComboBox48.Text = .YakuZai(2, 9)
        TeijiYaku.ComboBox49.Text = .YakuZai(2, 10)
        TeijiYaku.Label1.Caption = .Simei4

        TeijiYaku.Frame1.Caption = .Yobi(0)
        TeijiYaku.Frame2.Caption = .Yobi(1)
        TeijiYaku.Frame4.Caption = .Yobi(2)

        If .AutoInsatsu = True Then
            Me.ComboBox37.ListIndex = 1
        Else
            Me.ComboBox37.ListIndex = 0
        End If
        Me.ComboBox38.Text = .ShindanI
    End With
    Maisu = 処方箋の枚数(ByVal l)
    MaisuHyoji = "全" & Maisu & "枚"
    Me.Label7.Caption = MaisuHyoji
    エナブルドチュルー
    ChangeSwitch = False
End Sub
Public Function Kensaku(ByVal Namae As String) As Integer

    For l = 0 To MaxRows 'Maxl
        If OldMember(l).Simei1 = Namae Then
            Kensaku = l
            Exit For
        End If
    Next

End Function

Private Sub CxBtn_Click()
    Dim Rtn As Integer

    Rtn = MsgBox("転送せずに終了します。よろしければＯＫを押してください。", vbOKCancel)
    If Rtn = vbOK Then
        Unload TeijiYaku
        AboutForm.Show
    End If
End Sub

Private Sub ExitBtn_Click()
    Rtn = MsgBox("今まで行った変更を、ワークシートへ転送します。よろしければOKを押してください。", vbOKCancel)
    If Rtn = vbOK Then
        保存忘れ防止装置
        変更を保存して終了
        Unload TeijiYaku
        AboutForm.Show
    End If
End Sub
Sub 変更を保存して終了()
    Dim CelNo(3) As String
    Dim i As Integer
    Dim K As Byte

    l = 0

    TeijiYaku.Hide

        For i = 3 To MaxRows

            With OldMember(l)

                If .HenkoSwitch = True Then
                    '名前転送
                    Touseki.Cells(i, 3).Activate
                    Touseki.Cells(i, 3) = .Simei1

                    '診断医の転送
                    Touseki.Cells(i, Ishi) = .ShindanI

                    '自動印刷する・しない("院外処方"の文字)の転送
                    If .AutoInsatsu = True Then
                        Touseki.Cells(i, MarkIngai) = "院外処方"
                    Else
                        Touseki.Cells(i, MarkIngai) = ""
                    End If

                    '注射薬の転送

                    For K = 0 To 2
                        Touseki.Cells(i, Syoho(0, 0) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 0) + K * 12) = .YakuZai(K, 0) '処方①

                        Touseki.Cells(i, Syoho(0, 1) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 1) + K * 12) = .YakuZai(K, 1) '処方②

                        Touseki.Cells(i, Syoho(0, 2) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 2) + K * 12) = .YakuZai(K, 2) '処方③

                        Touseki.Cells(i, Syoho(0, 3) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 3) + K * 12) = .YakuZai(K, 3) '処方④

                        Touseki.Cells(i, Syoho(0, 4) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 4) + K * 12) = .YakuZai(K, 4) '処方⑤

                        Touseki.Cells(i, Syoho(0, 5) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 5) + K * 12) = .YakuZai(K, 5) '処方⑧

                        Touseki.Cells(i, Syoho(0, 6) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 6) + K * 12) = .YakuZai(K, 6) '処方⑦

                        Touseki.Cells(i, Syoho(0, 7) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 7) + K * 12) = .YakuZai(K, 7) '処方⑧

                        Touseki.Cells(i, Syoho(0, 8) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 8) + K * 12) = .YakuZai(K, 8) '処方⑨

                        Touseki.Cells(i, Syoho(0, 9) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 9) + K * 12) = .YakuZai(K, 9) '処方⑩

                        Touseki.Cells(i, Syoho(0, 10) + K * 12).Activate
                        Touseki.Cells(i, Syoho(0, 10) + K * 12) = .YakuZai(K, 10) '処方⑪
                    Next

                End If

            End With
            l = l + 1
        Next

    MsgBox ("データの転送が終了しました")

End Sub

Sub 保存忘れ防止装置()
    Dim Rtn As Byte
    If ChangeSwitch = True Then
        個別データ更新
    End If
    ChangeSwitch = False
End Sub

Private Sub 個別データ更新()
    ChangeSwitch = False
    Call 処方変数の更新(ByVal l)
End Sub

Sub 処方変数の更新(ByVal l As Integer)

    With OldMember(l)
        .HenkoSwitch = True

        .YakuZai(0, 0) = TeijiYaku.ComboBox1.Text
        .YakuZai(0, 1) = TeijiYaku.ComboBox2.Text
        .YakuZai(0, 2) = TeijiYaku.ComboBox3.Text
        .YakuZai(0, 3) = TeijiYaku.ComboBox4.Text
        .YakuZai(0, 4) = TeijiYaku.ComboBox5.Text
        .YakuZai(0, 5) = TeijiYaku.ComboBox6.Text
        .YakuZai(0, 6) = TeijiYaku.ComboBox7.Text
        .YakuZai(0, 7) = TeijiYaku.ComboBox8.Text
        .YakuZai(0, 8) = TeijiYaku.ComboBox9.Text
        .YakuZai(0, 9) = TeijiYaku.ComboBox10.Text
        .YakuZai(0, 10) = TeijiYaku.ComboBox11.Text

        .YakuZai(1, 0) = TeijiYaku.ComboBox12.Text
        .YakuZai(1, 1) = TeijiYaku.ComboBox13.Text
        .YakuZai(1, 2) = TeijiYaku.ComboBox14.Text
        .YakuZai(1, 3) = TeijiYaku.ComboBox15.Text
        .YakuZai(1, 4) = TeijiYaku.ComboBox16.Text
        .YakuZai(1, 5) = TeijiYaku.ComboBox17.Text
        .YakuZai(1, 6) = TeijiYaku.ComboBox18.Text
        .YakuZai(1, 7) = TeijiYaku.ComboBox19.Text
        .YakuZai(1, 8) = TeijiYaku.ComboBox20.Text
        .YakuZai(1, 9) = TeijiYaku.ComboBox21.Text
        .YakuZai(1, 10) = TeijiYaku.ComboBox22.Text

        .YakuZai(2, 0) = TeijiYaku.ComboBox39.Text
        .YakuZai(2, 1) = TeijiYaku.ComboBox40.Text
        .YakuZai(2, 2) = TeijiYaku.ComboBox41.Text
        .YakuZai(2, 3) = TeijiYaku.ComboBox42.Text
        .YakuZai(2, 4) = TeijiYaku.ComboBox43.Text
        .YakuZai(2, 5) = TeijiYaku.ComboBox44.Text
        .YakuZai(2, 6) = TeijiYaku.ComboBox45.Text
        .YakuZai(2, 7) = TeijiYaku.ComboBox46.Text
        .YakuZai(2, 8) = TeijiYaku.ComboBox47.Text
        .YakuZai(2, 9) = TeijiYaku.ComboBox48.Text
        .YakuZai(2, 10) = TeijiYaku.ComboBox49.Text
        .AutoInsatsu = TeijiYaku.ComboBox37.ListIndex
        .ShindanI = ComboBox38.Text

    End With
End Sub


Sub 定時薬テンプ作成()
    Dim Tate As Integer
    Dim Yoko As Integer
    Dim Tempu As String
    Dim Tempulist As Object

    Set Tempulist = Worksheets("テンプレート集")

    '診断医
    Tate = 3
    Yoko = 14
    Tempu = ""
    Do
        Tempu = Tempulist.Cells(Tate, Yoko)
        ComboBox38.AddItem (Tempu)
    Tate = Tate + 1
    Loop While Tempu <> ""

    '定時薬薬剤
    Tate = 3
    Yoko = 15
    Tempu = ""
    Do
        Tempu = Tempulist.Cells(Tate, Yoko)
        ComboBox1.AddItem (Tempu)
        ComboBox2.AddItem (Tempu)
        ComboBox3.AddItem (Tempu)
        ComboBox4.AddItem (Tempu)
        ComboBox5.AddItem (Tempu)
        ComboBox6.AddItem (Tempu)
        ComboBox7.AddItem (Tempu)
        ComboBox8.AddItem (Tempu)
        ComboBox9.AddItem (Tempu)
        ComboBox10.AddItem (Tempu)
        ComboBox11.AddItem (Tempu)
        ComboBox12.AddItem (Tempu)
        ComboBox13.AddItem (Tempu)
        ComboBox14.AddItem (Tempu)
        ComboBox15.AddItem (Tempu)
        ComboBox16.AddItem (Tempu)
        ComboBox17.AddItem (Tempu)
        ComboBox18.AddItem (Tempu)
        ComboBox19.AddItem (Tempu)
        ComboBox20.AddItem (Tempu)
        ComboBox21.AddItem (Tempu)
        ComboBox22.AddItem (Tempu)
        ComboBox39.AddItem (Tempu)
        ComboBox40.AddItem (Tempu)
        ComboBox41.AddItem (Tempu)
        ComboBox42.AddItem (Tempu)
        ComboBox43.AddItem (Tempu)
        ComboBox44.AddItem (Tempu)
        ComboBox45.AddItem (Tempu)
        ComboBox46.AddItem (Tempu)
        ComboBox47.AddItem (Tempu)
        ComboBox48.AddItem (Tempu)
        ComboBox49.AddItem (Tempu)
        Tate = Tate + 1
    Loop While Tempu <> ""

End Sub


Private Sub ComboBox1_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox10_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox11_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox12_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox13_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox14_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox15_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox16_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox17_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox18_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox19_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox2_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox20_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox21_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox22_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox3_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox37_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox38_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox4_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox5_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox6_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox7_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox8_Change()
    ChangeSwitch = True
End Sub

Private Sub ComboBox9_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox39_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox40_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox41_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox42_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox43_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox44_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox45_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox46_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox47_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox48_Change()
    ChangeSwitch = True
End Sub
Private Sub ComboBox49_Change()
    ChangeSwitch = True
End Sub
Private Sub エナブルドチュルー()
    With Me
        .ComboBox1.Enabled = True
        .ComboBox2.Enabled = True
        .ComboBox3.Enabled = True
        .ComboBox4.Enabled = True
        .ComboBox5.Enabled = True
        .ComboBox6.Enabled = True
        .ComboBox7.Enabled = True
        .ComboBox8.Enabled = True
        .ComboBox9.Enabled = True
        .ComboBox10.Enabled = True
        .ComboBox11.Enabled = True

        .ComboBox12.Enabled = True
        .ComboBox13.Enabled = True
        .ComboBox14.Enabled = True
        .ComboBox15.Enabled = True
        .ComboBox16.Enabled = True
        .ComboBox17.Enabled = True
        .ComboBox18.Enabled = True
        .ComboBox19.Enabled = True
        .ComboBox20.Enabled = True
        .ComboBox21.Enabled = True
        .ComboBox22.Enabled = True

        .ComboBox39.Enabled = True
        .ComboBox40.Enabled = True
        .ComboBox41.Enabled = True
        .ComboBox42.Enabled = True
        .ComboBox43.Enabled = True
        .ComboBox44.Enabled = True
        .ComboBox45.Enabled = True
        .ComboBox46.Enabled = True
        .ComboBox47.Enabled = True
        .ComboBox48.Enabled = True
        .ComboBox49.Enabled = True

        .ComboBox37.Enabled = True
        .ComboBox38.Enabled = True
        .ExitBtn.Enabled = True
        .CommandButton1.Enabled = True
    End With
End Sub
Private Sub エナブルドフォルス()
    With Me
        .ComboBox1.Enabled = False
        .ComboBox2.Enabled = False
        .ComboBox3.Enabled = False
        .ComboBox4.Enabled = False
        .ComboBox5.Enabled = False
        .ComboBox6.Enabled = False
        .ComboBox7.Enabled = False
        .ComboBox8.Enabled = False
        .ComboBox9.Enabled = False
        .ComboBox10.Enabled = False
        .ComboBox11.Enabled = False

        .ComboBox12.Enabled = False
        .ComboBox13.Enabled = False
        .ComboBox14.Enabled = False
        .ComboBox15.Enabled = False
        .ComboBox16.Enabled = False
        .ComboBox17.Enabled = False
        .ComboBox18.Enabled = False
        .ComboBox19.Enabled = False
        .ComboBox20.Enabled = False
        .ComboBox21.Enabled = False
        .ComboBox22.Enabled = False

        .ComboBox39.Enabled = False
        .ComboBox40.Enabled = False
        .ComboBox41.Enabled = False
        .ComboBox42.Enabled = False
        .ComboBox43.Enabled = False
        .ComboBox44.Enabled = False
        .ComboBox45.Enabled = False
        .ComboBox46.Enabled = False
        .ComboBox47.Enabled = False
        .ComboBox48.Enabled = False
        .ComboBox49.Enabled = False

        ComboBox37.Enabled = False
        ComboBox38.Enabled = False
        ExitBtn.Enabled = False
        .CommandButton1.Enabled = False
    End With
End Sub
Private Sub フォーム消去()
    With Me
        .ComboBox1.Text = ""
        .ComboBox2.Text = ""
        .ComboBox3.Text = ""
        .ComboBox4.Text = ""
        .ComboBox5.Text = ""
        .ComboBox6.Text = ""
        .ComboBox7.Text = ""
        .ComboBox8.Text = ""
        .ComboBox9.Text = ""
        .ComboBox10.Text = ""
        .ComboBox11.Text = ""

        .ComboBox12.Text = ""
        .ComboBox13.Text = ""
        .ComboBox14.Text = ""
        .ComboBox15.Text = ""
        .ComboBox16.Text = ""
        .ComboBox17.Text = ""
        .ComboBox18.Text = ""
        .ComboBox19.Text = ""
        .ComboBox20.Text = ""
        .ComboBox21.Text = ""
        .ComboBox22.Text = ""

        .ComboBox39.Text = ""
        .ComboBox40.Text = ""
        .ComboBox41.Text = ""
        .ComboBox42.Text = ""
        .ComboBox43.Text = ""
        .ComboBox44.Text = ""
        .ComboBox45.Text = ""
        .ComboBox46.Text = ""
        .ComboBox47.Text = ""
        .ComboBox48.Text = ""
        .ComboBox49.Text = ""
        .Label1.Caption = ""

        .Frame1.Caption = ""
        .Frame2.Caption = ""
        .Frame4.Caption = ""
        .Label7.Caption = ""
        ComboBox37.Text = "しない"
        ComboBox38.Text = ""
    End With
End Sub

Private Function 処方箋の枚数(ByVal l As Integer)
    Dim Kotae As Boolean
    Dim Page As Integer
    Dim i As Integer

    Page = 0
    For i = 0 To 2
        Kotae = 空欄か空欄ではないか､それが問題だ(l, i)
        If Kotae = False Then
            Page = Page + 1
        End If
    Next
    処方箋の枚数 = Page
End Function
Private Function 空欄か空欄ではないか､それが問題だ(ByVal l As Integer, Hikisu As Integer) As Byte
    Dim i As Integer

    For i = 0 To 10
        If OldMember(l).YakuZai(Hikisu, i) <> "" Then
            空欄か空欄ではないか､それが問題だ = False
            Exit For
        Else
            If i = 10 Then
                空欄か空欄ではないか､それが問題だ = True
            End If
        End If
    Next
End Function