Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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("転送せずに終了します。よろしければ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
- '名前転送
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement