【広告】

しのちーチャンネル

エクセルマクロで作った透析データベース~定時処方のフォーム

これは患者さんの定時薬の編集を行なう画面です。

中央のタブ切り替えのところに「処方①」「処方②」「処方③」とありますがこれを切り替えることで処方箋を別の日付で出すことができます。

週1枚で処方箋が足りる方の場合は「処方②」「処方③」をまったくの空欄にしておけば印刷のときに1枚しか出てきません。 患者さんによって処方箋の数は代わりますのでこのようにしました。

残念ながらこのフォームでは4枚以上出すことは想定しておりません。


定時薬変更フォーム

元々このフォームは注射薬のように入力欄を3列に並べてありました。

よりフォームをコンパクトにするためと文字入力欄を広くするためにタブ切り替えに変えました。 コードは以下の通りです。(続きを読むをクリックしてください)



‘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
&n
bsp;   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
 &nbs
p;  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("転送せずに終了します。よろしければOKを押してください。", 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
        &nbsp
;           ‘名前転送
                    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
 &nbs
p;                 
                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)
   &n
bsp;    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
   &nbsp
;    .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

コメント

タイトルとURLをコピーしました