[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ユーザーフォームで入金管理の入力と履歴表示』（えりか）
お世話になります。
ユーザーフォーム上から入金日、入金額などを入力するとワークシートに転記され、また同じフォーム内に今までの入金履歴が最大１００件まで表示される仕組みを考えています。
その際ワークシートでは、例えばR2C2は顧客名、R2C3は残金、R2C4〜103までは入金日の100行分、R2C104〜203は入金額の100行分といった具合に、できれば一行に一顧客の全ての入金情報をまとめたいのですが可能でしょうか？
また、もっといいやり方があれば教えていただけないでしょうか?
説明が下手で申し訳ないです…
以前excelで作った顧客管理システムに組み込みたいので、どうかよろしくおねがいします。
＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞
顧客管理システムをつくれるスキルがあるなら、まず自分で作ってみたらどうでしょう。
で、分からない部分があれば、その部分について質問するのがいいでしょう。
現状では雲をつかむような話でなんとも。
Access 使った方が幸せになれるような気がしますが。 （でれすけ） 2019/03/19(火) 17:20
横から失礼します。 そのものずばりではないですが、データフォームはいかがでしょう？
http://www4.synapse.ne.jp/yone/excel/excel_input_form.html
（カリーニン） 2019/03/19(火) 18:40
カリーニンさん。
データフォームは用途にそぐわない部分がありなるべく避けたい方向です。すいません。
そこで今、少し進めているのですが、WorksheetFunction.Sumの範囲指定のやり方でつまずいています。
他にも色々と問題ありかもですが、、、どうか助けてください。
よろしくおねがいします。
____________________________________________________________
Private Sub UserForm_Initialize()
Sheets("入金マスタ").Activate
With Worksheets("入金マスタ")
Dim rng As Range
Dim l As Long
Dim A As Long
Dim B As Long
Set rng = Range("B:B").Find(frm.txt顧客名.Value)
rng.EntireRow.Select
l = Selection.Row
lbl日1.Caption = .Range("D" & l)
lbl日2.Caption = .Range("E" & l)
lbl日3.Caption = .Range("F" & l)
lbl日4.Caption = .Range("G" & l)
lbl日5.Caption = .Range("H" & l)
lbl日6.Caption = .Range("I" & l)
lbl日7.Caption = .Range("J" & l)
lbl日8.Caption = .Range("K" & l)
lbl日9.Caption = .Range("L" & l)
lbl日10.Caption = .Range("M" & l)
lbl日11.Caption = .Range("N" & l)
lbl日12.Caption = .Range("O" & l)
lbl日13.Caption = .Range("P" & l)
lbl日14.Caption = .Range("Q" & l)
lbl日15.Caption = .Range("R" & l)
lbl日16.Caption = .Range("S" & l)
lbl日17.Caption = .Range("T" & l)
lbl日18.Caption = .Range("U" & l)
lbl日19.Caption = .Range("V" & l)
lbl日20.Caption = .Range("W" & l)
lbl日21.Caption = .Range("X" & l)
lbl日22.Caption = .Range("Y" & l)
lbl日23.Caption = .Range("Z" & l)
lbl日24.Caption = .Range("AA" & l)
lbl日25.Caption = .Range("AB" & l)
lbl日26.Caption = .Range("AC" & l)
lbl日27.Caption = .Range("AD" & l)
lbl日28.Caption = .Range("AE" & l)
lbl日29.Caption = .Range("AF" & l)
lbl日30.Caption = .Range("AG" & l)
lbl日31.Caption = .Range("AH" & l)
lbl日32.Caption = .Range("AI" & l)
lbl日33.Caption = .Range("AJ" & l)
lbl日34.Caption = .Range("AK" & l)
lbl日35.Caption = .Range("AL" & l)
lbl日36.Caption = .Range("AM" & l)
lbl日37.Caption = .Range("AN" & l)
lbl日38.Caption = .Range("AO" & l)
lbl日39.Caption = .Range("AP" & l)
lbl日40.Caption = .Range("AQ" & l)
lbl日41.Caption = .Range("AR" & l)
lbl日42.Caption = .Range("AS" & l)
lbl日43.Caption = .Range("AT" & l)
lbl日44.Caption = .Range("AU" & l)
lbl日45.Caption = .Range("AV" & l)
lbl日46.Caption = .Range("AW" & l)
lbl日47.Caption = .Range("AX" & l)
lbl日48.Caption = .Range("AY" & l)
lbl日49.Caption = .Range("AZ" & l)
lbl日50.Caption = .Range("BA" & l)
lbl日51.Caption = .Range("BB" & l)
lbl日52.Caption = .Range("BC" & l)
lbl日53.Caption = .Range("BD" & l)
lbl日54.Caption = .Range("BE" & l)
lbl日55.Caption = .Range("BF" & l)
lbl日56.Caption = .Range("BG" & l)
lbl日57.Caption = .Range("BH" & l)
lbl日58.Caption = .Range("BI" & l)
lbl日59.Caption = .Range("BJ" & l)
lbl日60.Caption = .Range("BK" & l)
lbl日61.Caption = .Range("BL" & l)
lbl日62.Caption = .Range("BM" & l)
lbl日63.Caption = .Range("BN" & l)
lbl日64.Caption = .Range("BO" & l)
lbl日65.Caption = .Range("BP" & l)
lbl日66.Caption = .Range("BQ" & l)
lbl日67.Caption = .Range("BR" & l)
lbl日68.Caption = .Range("BS" & l)
lbl日69.Caption = .Range("BT" & l)
lbl日70.Caption = .Range("BU" & l)
lbl日71.Caption = .Range("BV" & l)
lbl日72.Caption = .Range("BW" & l)
lbl日73.Caption = .Range("BX" & l)
lbl日74.Caption = .Range("BY" & l)
lbl日75.Caption = .Range("BZ" & l)
lbl日76.Caption = .Range("CA" & l)
lbl日77.Caption = .Range("CB" & l)
lbl日78.Caption = .Range("CC" & l)
lbl日79.Caption = .Range("CD" & l)
lbl日80.Caption = .Range("CE" & l)
lbl日81.Caption = .Range("CF" & l)
lbl日82.Caption = .Range("CG" & l)
lbl日83.Caption = .Range("CH" & l)
lbl日84.Caption = .Range("CI" & l)
lbl日85.Caption = .Range("CJ" & l)
lbl日86.Caption = .Range("CK" & l)
lbl日87.Caption = .Range("CL" & l)
lbl日88.Caption = .Range("CM" & l)
lbl日89.Caption = .Range("CN" & l)
lbl日90.Caption = .Range("CO" & l)
lbl日91.Caption = .Range("CP" & l)
lbl日92.Caption = .Range("CQ" & l)
lbl日93.Caption = .Range("CR" & l)
lbl日94.Caption = .Range("CS" & l)
lbl日95.Caption = .Range("CT" & l)
lbl日96.Caption = .Range("CU" & l)
lbl日97.Caption = .Range("CV" & l)
lbl日98.Caption = .Range("CW" & l)
lbl日99.Caption = .Range("CX" & l)
lbl日100.Caption = .Range("CY" & l)
lbl方1.Caption = .Range("CZ" & l)
lbl方2.Caption = .Range("DA" & l)
lbl方3.Caption = .Range("DB" & l)
lbl方4.Caption = .Range("DC" & l)
lbl方5.Caption = .Range("DD" & l)
lbl方6.Caption = .Range("DE" & l)
lbl方7.Caption = .Range("DF" & l)
lbl方8.Caption = .Range("DG" & l)
lbl方9.Caption = .Range("DH" & l)
lbl方10.Caption = .Range("DI" & l)
lbl方11.Caption = .Range("DJ" & l)
lbl方12.Caption = .Range("DK" & l)
lbl方13.Caption = .Range("DL" & l)
lbl方14.Caption = .Range("DM" & l)
lbl方15.Caption = .Range("DN" & l)
lbl方16.Caption = .Range("DO" & l)
lbl方17.Caption = .Range("DP" & l)
lbl方18.Caption = .Range("DQ" & l)
lbl方19.Caption = .Range("DR" & l)
lbl方20.Caption = .Range("DS" & l)
lbl方21.Caption = .Range("DT" & l)
lbl方22.Caption = .Range("DU" & l)
lbl方23.Caption = .Range("DV" & l)
lbl方24.Caption = .Range("DW" & l)
lbl方25.Caption = .Range("DX" & l)
lbl方26.Caption = .Range("DY" & l)
lbl方27.Caption = .Range("DZ" & l)
lbl方28.Caption = .Range("EA" & l)
lbl方29.Caption = .Range("EB" & l)
lbl方30.Caption = .Range("EC" & l)
lbl方31.Caption = .Range("ED" & l)
lbl方32.Caption = .Range("EE" & l)
lbl方33.Caption = .Range("EF" & l)
lbl方34.Caption = .Range("EG" & l)
lbl方35.Caption = .Range("EH" & l)
lbl方36.Caption = .Range("EI" & l)
lbl方37.Caption = .Range("EJ" & l)
lbl方38.Caption = .Range("EK" & l)
lbl方39.Caption = .Range("EL" & l)
lbl方40.Caption = .Range("EM" & l)
lbl方41.Caption = .Range("EN" & l)
lbl方42.Caption = .Range("EO" & l)
lbl方43.Caption = .Range("EP" & l)
lbl方44.Caption = .Range("EQ" & l)
lbl方45.Caption = .Range("ER" & l)
lbl方46.Caption = .Range("ES" & l)
lbl方47.Caption = .Range("ET" & l)
lbl方48.Caption = .Range("EU" & l)
lbl方49.Caption = .Range("EV" & l)
lbl方50.Caption = .Range("EW" & l)
lbl方51.Caption = .Range("EX" & l)
lbl方52.Caption = .Range("EY" & l)
lbl方53.Caption = .Range("EZ" & l)
lbl方54.Caption = .Range("FA" & l)
lbl方55.Caption = .Range("FB" & l)
lbl方56.Caption = .Range("FC" & l)
lbl方57.Caption = .Range("FD" & l)
lbl方58.Caption = .Range("FE" & l)
lbl方59.Caption = .Range("FF" & l)
lbl方60.Caption = .Range("FG" & l)
lbl方61.Caption = .Range("FH" & l)
lbl方62.Caption = .Range("FI" & l)
lbl方63.Caption = .Range("FJ" & l)
lbl方64.Caption = .Range("FK" & l)
lbl方65.Caption = .Range("FL" & l)
lbl方66.Caption = .Range("FM" & l)
lbl方67.Caption = .Range("FN" & l)
lbl方68.Caption = .Range("FO" & l)
lbl方69.Caption = .Range("FP" & l)
lbl方70.Caption = .Range("FQ" & l)
lbl方71.Caption = .Range("FR" & l)
lbl方72.Caption = .Range("FS" & l)
lbl方73.Caption = .Range("FT" & l)
lbl方74.Caption = .Range("FU" & l)
lbl方75.Caption = .Range("FV" & l)
lbl方76.Caption = .Range("FW" & l)
lbl方77.Caption = .Range("FX" & l)
lbl方78.Caption = .Range("FY" & l)
lbl方79.Caption = .Range("FZ" & l)
lbl方80.Caption = .Range("GA" & l)
lbl方81.Caption = .Range("GB" & l)
lbl方82.Caption = .Range("GC" & l)
lbl方83.Caption = .Range("GD" & l)
lbl方84.Caption = .Range("GE" & l)
lbl方85.Caption = .Range("GF" & l)
lbl方86.Caption = .Range("GG" & l)
lbl方87.Caption = .Range("GH" & l)
lbl方88.Caption = .Range("GI" & l)
lbl方89.Caption = .Range("GJ" & l)
lbl方90.Caption = .Range("GK" & l)
lbl方91.Caption = .Range("GL" & l)
lbl方92.Caption = .Range("GM" & l)
lbl方93.Caption = .Range("GN" & l)
lbl方94.Caption = .Range("GO" & l)
lbl方95.Caption = .Range("GP" & l)
lbl方96.Caption = .Range("GQ" & l)
lbl方97.Caption = .Range("GR" & l)
lbl方98.Caption = .Range("GS" & l)
lbl方99.Caption = .Range("GT" & l)
lbl方100.Caption = .Range("GU" & l)
lbl請1.Caption = .Range("GV" & l)
lbl請2.Caption = .Range("GW" & l)
lbl請3.Caption = .Range("GX" & l)
lbl請4.Caption = .Range("GY" & l)
lbl請5.Caption = .Range("GZ" & l)
lbl請6.Caption = .Range("HA" & l)
lbl請7.Caption = .Range("HB" & l)
lbl請8.Caption = .Range("HC" & l)
lbl請9.Caption = .Range("HD" & l)
lbl請10.Caption = .Range("HE" & l)
lbl請11.Caption = .Range("HF" & l)
lbl請12.Caption = .Range("HG" & l)
lbl請13.Caption = .Range("HH" & l)
lbl請14.Caption = .Range("HI" & l)
lbl請15.Caption = .Range("HJ" & l)
lbl請16.Caption = .Range("HK" & l)
lbl請17.Caption = .Range("HL" & l)
lbl請18.Caption = .Range("HM" & l)
lbl請19.Caption = .Range("HN" & l)
lbl請20.Caption = .Range("HO" & l)
lbl請21.Caption = .Range("HP" & l)
lbl請22.Caption = .Range("HQ" & l)
lbl請23.Caption = .Range("HR" & l)
lbl請24.Caption = .Range("HS" & l)
lbl請25.Caption = .Range("HT" & l)
lbl請26.Caption = .Range("HU" & l)
lbl請27.Caption = .Range("HV" & l)
lbl請28.Caption = .Range("HW" & l)
lbl請29.Caption = .Range("HX" & l)
lbl請30.Caption = .Range("HY" & l)
lbl請31.Caption = .Range("HZ" & l)
lbl請32.Caption = .Range("IA" & l)
lbl請33.Caption = .Range("IB" & l)
lbl請34.Caption = .Range("IC" & l)
lbl請35.Caption = .Range("ID" & l)
lbl請36.Caption = .Range("IE" & l)
lbl請37.Caption = .Range("IF" & l)
lbl請38.Caption = .Range("IG" & l)
lbl請39.Caption = .Range("IH" & l)
lbl請40.Caption = .Range("II" & l)
lbl請41.Caption = .Range("IJ" & l)
lbl請42.Caption = .Range("IK" & l)
lbl請43.Caption = .Range("IL" & l)
lbl請44.Caption = .Range("IM" & l)
lbl請45.Caption = .Range("IN" & l)
lbl請46.Caption = .Range("IO" & l)
lbl請47.Caption = .Range("IP" & l)
lbl請48.Caption = .Range("IQ" & l)
lbl請49.Caption = .Range("IR" & l)
lbl請50.Caption = .Range("IS" & l)
lbl請51.Caption = .Range("IT" & l)
lbl請52.Caption = .Range("IU" & l)
lbl請53.Caption = .Range("IV" & l)
lbl請54.Caption = .Range("IW" & l)
lbl請55.Caption = .Range("IX" & l)
lbl請56.Caption = .Range("IY" & l)
lbl請57.Caption = .Range("IZ" & l)
lbl請58.Caption = .Range("JA" & l)
lbl請59.Caption = .Range("JB" & l)
lbl請60.Caption = .Range("JC" & l)
lbl請61.Caption = .Range("JD" & l)
lbl請62.Caption = .Range("JE" & l)
lbl請63.Caption = .Range("JF" & l)
lbl請64.Caption = .Range("JG" & l)
lbl請65.Caption = .Range("JH" & l)
lbl請66.Caption = .Range("JI" & l)
lbl請67.Caption = .Range("JJ" & l)
lbl請68.Caption = .Range("JK" & l)
lbl請69.Caption = .Range("JL" & l)
lbl請70.Caption = .Range("JM" & l)
lbl請71.Caption = .Range("JN" & l)
lbl請72.Caption = .Range("JO" & l)
lbl請73.Caption = .Range("JP" & l)
lbl請74.Caption = .Range("JQ" & l)
lbl請75.Caption = .Range("JR" & l)
lbl請76.Caption = .Range("JS" & l)
lbl請77.Caption = .Range("JT" & l)
lbl請78.Caption = .Range("JU" & l)
lbl請79.Caption = .Range("JV" & l)
lbl請80.Caption = .Range("JW" & l)
lbl請81.Caption = .Range("JX" & l)
lbl請82.Caption = .Range("JY" & l)
lbl請83.Caption = .Range("JZ" & l)
lbl請84.Caption = .Range("KA" & l)
lbl請85.Caption = .Range("KB" & l)
lbl請86.Caption = .Range("KC" & l)
lbl請87.Caption = .Range("KD" & l)
lbl請88.Caption = .Range("KE" & l)
lbl請89.Caption = .Range("KF" & l)
lbl請90.Caption = .Range("KG" & l)
lbl請91.Caption = .Range("KH" & l)
lbl請92.Caption = .Range("KI" & l)
lbl請93.Caption = .Range("KJ" & l)
lbl請94.Caption = .Range("KK" & l)
lbl請95.Caption = .Range("KL" & l)
lbl請96.Caption = .Range("KM" & l)
lbl請97.Caption = .Range("KN" & l)
lbl請98.Caption = .Range("KO" & l)
lbl請99.Caption = .Range("KP" & l)
lbl請100.Caption = .Range("KQ" & l)
lbl入1.Caption = .Range("KR" & l)
lbl入2.Caption = .Range("KS" & l)
lbl入3.Caption = .Range("KT" & l)
lbl入4.Caption = .Range("KU" & l)
lbl入5.Caption = .Range("KV" & l)
lbl入6.Caption = .Range("KW" & l)
lbl入7.Caption = .Range("KX" & l)
lbl入8.Caption = .Range("KY" & l)
lbl入9.Caption = .Range("KZ" & l)
lbl入10.Caption = .Range("LA" & l)
lbl入11.Caption = .Range("LB" & l)
lbl入12.Caption = .Range("LC" & l)
lbl入13.Caption = .Range("LD" & l)
lbl入14.Caption = .Range("LE" & l)
lbl入15.Caption = .Range("LF" & l)
lbl入16.Caption = .Range("LG" & l)
lbl入17.Caption = .Range("LH" & l)
lbl入18.Caption = .Range("LI" & l)
lbl入19.Caption = .Range("LJ" & l)
lbl入20.Caption = .Range("LK" & l)
lbl入21.Caption = .Range("LL" & l)
lbl入22.Caption = .Range("LM" & l)
lbl入23.Caption = .Range("LN" & l)
lbl入24.Caption = .Range("LO" & l)
lbl入25.Caption = .Range("LP" & l)
lbl入26.Caption = .Range("LQ" & l)
lbl入27.Caption = .Range("LR" & l)
lbl入28.Caption = .Range("LS" & l)
lbl入29.Caption = .Range("LT" & l)
lbl入30.Caption = .Range("LU" & l)
lbl入31.Caption = .Range("LV" & l)
lbl入32.Caption = .Range("LW" & l)
lbl入33.Caption = .Range("LX" & l)
lbl入34.Caption = .Range("LY" & l)
lbl入35.Caption = .Range("LZ" & l)
lbl入36.Caption = .Range("MA" & l)
lbl入37.Caption = .Range("MB" & l)
lbl入38.Caption = .Range("MC" & l)
lbl入39.Caption = .Range("MD" & l)
lbl入40.Caption = .Range("ME" & l)
lbl入41.Caption = .Range("MF" & l)
lbl入42.Caption = .Range("MG" & l)
lbl入43.Caption = .Range("MH" & l)
lbl入44.Caption = .Range("MI" & l)
lbl入45.Caption = .Range("MJ" & l)
lbl入46.Caption = .Range("MK" & l)
lbl入47.Caption = .Range("ML" & l)
lbl入48.Caption = .Range("MM" & l)
lbl入49.Caption = .Range("MN" & l)
lbl入50.Caption = .Range("MO" & l)
lbl入51.Caption = .Range("MP" & l)
lbl入52.Caption = .Range("MQ" & l)
lbl入53.Caption = .Range("MR" & l)
lbl入54.Caption = .Range("MS" & l)
lbl入55.Caption = .Range("MT" & l)
lbl入56.Caption = .Range("MU" & l)
lbl入57.Caption = .Range("MV" & l)
lbl入58.Caption = .Range("MW" & l)
lbl入59.Caption = .Range("MX" & l)
lbl入60.Caption = .Range("MY" & l)
lbl入61.Caption = .Range("MZ" & l)
lbl入62.Caption = .Range("NA" & l)
lbl入63.Caption = .Range("NB" & l)
lbl入64.Caption = .Range("NC" & l)
lbl入65.Caption = .Range("ND" & l)
lbl入66.Caption = .Range("NE" & l)
lbl入67.Caption = .Range("NF" & l)
lbl入68.Caption = .Range("NG" & l)
lbl入69.Caption = .Range("NH" & l)
lbl入70.Caption = .Range("NI" & l)
lbl入71.Caption = .Range("NJ" & l)
lbl入72.Caption = .Range("NK" & l)
lbl入73.Caption = .Range("NL" & l)
lbl入74.Caption = .Range("NM" & l)
lbl入75.Caption = .Range("NN" & l)
lbl入76.Caption = .Range("NO" & l)
lbl入77.Caption = .Range("NP" & l)
lbl入78.Caption = .Range("NQ" & l)
lbl入79.Caption = .Range("NR" & l)
lbl入80.Caption = .Range("NS" & l)
lbl入81.Caption = .Range("NT" & l)
lbl入82.Caption = .Range("NU" & l)
lbl入83.Caption = .Range("NV" & l)
lbl入84.Caption = .Range("NW" & l)
lbl入85.Caption = .Range("NX" & l)
lbl入86.Caption = .Range("NY" & l)
lbl入87.Caption = .Range("NZ" & l)
lbl入88.Caption = .Range("OA" & l)
lbl入89.Caption = .Range("OB" & l)
lbl入90.Caption = .Range("OC" & l)
lbl入91.Caption = .Range("OD" & l)
lbl入92.Caption = .Range("OE" & l)
lbl入93.Caption = .Range("OF" & l)
lbl入94.Caption = .Range("OG" & l)
lbl入95.Caption = .Range("OH" & l)
lbl入96.Caption = .Range("OI" & l)
lbl入97.Caption = .Range("OJ" & l)
lbl入98.Caption = .Range("OK" & l)
lbl入99.Caption = .Range("OL" & l)
lbl入100.Caption = .Range("OM" & l)
lbl備1.Caption = .Range("ON" & l)
lbl備2.Caption = .Range("OO" & l)
lbl備3.Caption = .Range("OP" & l)
lbl備4.Caption = .Range("OQ" & l)
lbl備5.Caption = .Range("OR" & l)
lbl備6.Caption = .Range("OS" & l)
lbl備7.Caption = .Range("OT" & l)
lbl備8.Caption = .Range("OU" & l)
lbl備9.Caption = .Range("OV" & l)
lbl備10.Caption = .Range("OW" & l)
lbl備11.Caption = .Range("OX" & l)
lbl備12.Caption = .Range("OY" & l)
lbl備13.Caption = .Range("OZ" & l)
lbl備14.Caption = .Range("PA" & l)
lbl備15.Caption = .Range("PB" & l)
lbl備16.Caption = .Range("PC" & l)
lbl備17.Caption = .Range("PD" & l)
lbl備18.Caption = .Range("PE" & l)
lbl備19.Caption = .Range("PF" & l)
lbl備20.Caption = .Range("PG" & l)
lbl備21.Caption = .Range("PH" & l)
lbl備22.Caption = .Range("PI" & l)
lbl備23.Caption = .Range("PJ" & l)
lbl備24.Caption = .Range("PK" & l)
lbl備25.Caption = .Range("PL" & l)
lbl備26.Caption = .Range("PM" & l)
lbl備27.Caption = .Range("PN" & l)
lbl備28.Caption = .Range("PO" & l)
lbl備29.Caption = .Range("PP" & l)
lbl備30.Caption = .Range("PQ" & l)
lbl備31.Caption = .Range("PR" & l)
lbl備32.Caption = .Range("PS" & l)
lbl備33.Caption = .Range("PT" & l)
lbl備34.Caption = .Range("PU" & l)
lbl備35.Caption = .Range("PV" & l)
lbl備36.Caption = .Range("PW" & l)
lbl備37.Caption = .Range("PX" & l)
lbl備38.Caption = .Range("PY" & l)
lbl備39.Caption = .Range("PZ" & l)
lbl備40.Caption = .Range("QA" & l)
lbl備41.Caption = .Range("QB" & l)
lbl備42.Caption = .Range("QC" & l)
lbl備43.Caption = .Range("QD" & l)
lbl備44.Caption = .Range("QE" & l)
lbl備45.Caption = .Range("QF" & l)
lbl備46.Caption = .Range("QG" & l)
lbl備47.Caption = .Range("QH" & l)
lbl備48.Caption = .Range("QI" & l)
lbl備49.Caption = .Range("QJ" & l)
lbl備50.Caption = .Range("QK" & l)
lbl備51.Caption = .Range("QL" & l)
lbl備52.Caption = .Range("QM" & l)
lbl備53.Caption = .Range("QN" & l)
lbl備54.Caption = .Range("QO" & l)
lbl備55.Caption = .Range("QP" & l)
lbl備56.Caption = .Range("QQ" & l)
lbl備57.Caption = .Range("QR" & l)
lbl備58.Caption = .Range("QS" & l)
lbl備59.Caption = .Range("QT" & l)
lbl備60.Caption = .Range("QU" & l)
lbl備61.Caption = .Range("QV" & l)
lbl備62.Caption = .Range("QW" & l)
lbl備63.Caption = .Range("QX" & l)
lbl備64.Caption = .Range("QY" & l)
lbl備65.Caption = .Range("QZ" & l)
lbl備66.Caption = .Range("RA" & l)
lbl備67.Caption = .Range("RB" & l)
lbl備68.Caption = .Range("RC" & l)
lbl備69.Caption = .Range("RD" & l)
lbl備70.Caption = .Range("RE" & l)
lbl備71.Caption = .Range("RF" & l)
lbl備72.Caption = .Range("RG" & l)
lbl備73.Caption = .Range("RH" & l)
lbl備74.Caption = .Range("RI" & l)
lbl備75.Caption = .Range("RJ" & l)
lbl備76.Caption = .Range("RK" & l)
lbl備77.Caption = .Range("RL" & l)
lbl備78.Caption = .Range("RM" & l)
lbl備79.Caption = .Range("RN" & l)
lbl備80.Caption = .Range("RO" & l)
lbl備81.Caption = .Range("RP" & l)
lbl備82.Caption = .Range("RQ" & l)
lbl備83.Caption = .Range("RR" & l)
lbl備84.Caption = .Range("RS" & l)
lbl備85.Caption = .Range("RT" & l)
lbl備86.Caption = .Range("RU" & l)
lbl備87.Caption = .Range("RV" & l)
lbl備88.Caption = .Range("RW" & l)
lbl備89.Caption = .Range("RX" & l)
lbl備90.Caption = .Range("RY" & l)
lbl備91.Caption = .Range("RZ" & l)
lbl備92.Caption = .Range("SA" & l)
lbl備93.Caption = .Range("SB" & l)
lbl備94.Caption = .Range("SC" & l)
lbl備95.Caption = .Range("SD" & l)
lbl備96.Caption = .Range("SE" & l)
lbl備97.Caption = .Range("SF" & l)
lbl備98.Caption = .Range("SG" & l)
lbl備99.Caption = .Range("SH" & l)
lbl備100.Caption = .Range("SI" & l)
A = WorksheetFunction.Sum(Range("GV & l:KQ & l"))
B = WorksheetFunction.Sum(Range("KR & l:OM & l"))
lbl請求総額.Caption = A
lbl入金総額.Caption = B
lbl残金.Caption = A - B
End With
End Sub
（えりか） 2019/03/22(金) 11:26
こんにちは。大作ですねえ
"GV & l:KQ & l" という文字ですが、イミディエイトウインドウで
Debug.Print "GV & l:KQ & l" [Enter]とやってみてください。
Rangeプロパティへの引数は、 例えば lが2とかだったら "GV2:KQ2" とかをわたさないといけませんが、 そうなってません。
文字列中の l という文字は、あくまでも l という文字であって、 変数lの値に勝手に置き換わってはくれません。 演算子の & もそうです。
回りくどく書くと以下のようになります。 Format関数で変数 Iを明示的に文字列に変換しています。 "GV" & Format(l,"0") & ":KQ" & Format(l,"0")
上は、もっと簡単に以下のようにしても大丈夫です。 "GV" & l & ":KQ" & l 暗黙の型変換で、l を勝手に文字列に変換してから、文字列として連結してくれます。
さてと、
・100回分を列方向に格納するワークシートの設計は変えられませんか？
→ 1回分の履歴に1行使った方が、今後の処理がいろいろ楽だと思います。
・ループをつかった繰り返し処理のやり方は分かりますか？
・UerForm上で、リストボックをつかったらいかがですか？
（でれすけ） 2019/03/22(金) 12:31
そこでまた別の問題にあたっています。
遠回りながら自分の頭でわかる範囲で進めているのですが、以下を実行時にプロシージャが多すぎるとのエラーが出てしまいました…。
よければプロシージャを少なくする方法を教えていただけますか?
ご指摘のあった→ 1回分の履歴に1行使うというやり方は、ワークシート上での作業性を考えるとなるべく使いたくないです。
ループを使う、リストボックスの件は私の頭では正直難しいです…
因みに最終的に保存ボタンで、ラベルの値をすべてワークシートに転記します。
どうかよろしくおねがいします
Private Sub btn入力_Click()
If txt請求額.Value = "" And txt入金額.Value = "" Then
MsgBox "金額を入力してください"
Exit Sub
End If
If txt入金額.Value <> "" And cmb入金方法.Value = "" Then
MsgBox "入金方法を入力してください"
Exit Sub
End If
If lbl日1.Caption = "" And lbl日2.Caption = "" Then
lbl日1.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方1.Caption = cmb入金方法.Value
lbl請1.Caption = txt請求額.Value
lbl入1.Caption = txt入金額.Value
lbl備1.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請1.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入1.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日1.Caption <> "" And lbl日2.Caption = "" Then
lbl日2.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方2.Caption = cmb入金方法.Value
lbl請2.Caption = txt請求額.Value
lbl入2.Caption = txt入金額.Value
lbl備2.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請2.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入2.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日2.Caption <> "" And lbl日3.Caption = "" Then
lbl日3.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方3.Caption = cmb入金方法.Value
lbl請3.Caption = txt請求額.Value
lbl入3.Caption = txt入金額.Value
lbl備3.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請3.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入3.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日3.Caption <> "" And lbl日4.Caption = "" Then
lbl日4.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方4.Caption = cmb入金方法.Value
lbl請4.Caption = txt請求額.Value
lbl入4.Caption = txt入金額.Value
lbl備4.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請4.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入4.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日4.Caption <> "" And lbl日5.Caption = "" Then
lbl日5.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方5.Caption = cmb入金方法.Value
lbl請5.Caption = txt請求額.Value
lbl入5.Caption = txt入金額.Value
lbl備5.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請5.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入5.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日5.Caption <> "" And lbl日6.Caption = "" Then
lbl日6.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方6.Caption = cmb入金方法.Value
lbl請6.Caption = txt請求額.Value
lbl入6.Caption = txt入金額.Value
lbl備6.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請6.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入6.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日6.Caption <> "" And lbl日7.Caption = "" Then
lbl日7.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方7.Caption = cmb入金方法.Value
lbl請7.Caption = txt請求額.Value
lbl入7.Caption = txt入金額.Value
lbl備7.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請7.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入7.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日7.Caption <> "" And lbl日8.Caption = "" Then
lbl日8.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方8.Caption = cmb入金方法.Value
lbl請8.Caption = txt請求額.Value
lbl入8.Caption = txt入金額.Value
lbl備8.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請8.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入8.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日8.Caption <> "" And lbl日9.Caption = "" Then
lbl日9.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方9.Caption = cmb入金方法.Value
lbl請9.Caption = txt請求額.Value
lbl入9.Caption = txt入金額.Value
lbl備9.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請9.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入9.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日9.Caption <> "" And lbl日10.Caption = "" Then
lbl日10.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方10.Caption = cmb入金方法.Value
lbl請10.Caption = txt請求額.Value
lbl入10.Caption = txt入金額.Value
lbl備10.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請10.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入10.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日10.Caption <> "" And lbl日11.Caption = "" Then
lbl日11.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方11.Caption = cmb入金方法.Value
lbl請11.Caption = txt請求額.Value
lbl入11.Caption = txt入金額.Value
lbl備11.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請11.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入11.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日11.Caption <> "" And lbl日12.Caption = "" Then
lbl日12.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方12.Caption = cmb入金方法.Value
lbl請12.Caption = txt請求額.Value
lbl入12.Caption = txt入金額.Value
lbl備12.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請12.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入12.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日12.Caption <> "" And lbl日13.Caption = "" Then
lbl日13.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方13.Caption = cmb入金方法.Value
lbl請13.Caption = txt請求額.Value
lbl入13.Caption = txt入金額.Value
lbl備13.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請13.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入13.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日13.Caption <> "" And lbl日14.Caption = "" Then
lbl日14.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方14.Caption = cmb入金方法.Value
lbl請14.Caption = txt請求額.Value
lbl入14.Caption = txt入金額.Value
lbl備14.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請14.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入14.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日14.Caption <> "" And lbl日15.Caption = "" Then
lbl日15.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方15.Caption = cmb入金方法.Value
lbl請15.Caption = txt請求額.Value
lbl入15.Caption = txt入金額.Value
lbl備15.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請15.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入15.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日15.Caption <> "" And lbl日16.Caption = "" Then
lbl日16.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方16.Caption = cmb入金方法.Value
lbl請16.Caption = txt請求額.Value
lbl入16.Caption = txt入金額.Value
lbl備16.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請16.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入16.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日16.Caption <> "" And lbl日17.Caption = "" Then
lbl日17.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方17.Caption = cmb入金方法.Value
lbl請17.Caption = txt請求額.Value
lbl入17.Caption = txt入金額.Value
lbl備17.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請17.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入17.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日17.Caption <> "" And lbl日18.Caption = "" Then
lbl日18.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方18.Caption = cmb入金方法.Value
lbl請18.Caption = txt請求額.Value
lbl入18.Caption = txt入金額.Value
lbl備18.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請18.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入18.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日18.Caption <> "" And lbl日19.Caption = "" Then
lbl日19.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方19.Caption = cmb入金方法.Value
lbl請19.Caption = txt請求額.Value
lbl入19.Caption = txt入金額.Value
lbl備19.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請19.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入19.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日19.Caption <> "" And lbl日20.Caption = "" Then
lbl日20.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方20.Caption = cmb入金方法.Value
lbl請20.Caption = txt請求額.Value
lbl入20.Caption = txt入金額.Value
lbl備20.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請20.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入20.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日20.Caption <> "" And lbl日21.Caption = "" Then
lbl日21.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方21.Caption = cmb入金方法.Value
lbl請21.Caption = txt請求額.Value
lbl入21.Caption = txt入金額.Value
lbl備21.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請21.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入21.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日21.Caption <> "" And lbl日22.Caption = "" Then
lbl日22.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方22.Caption = cmb入金方法.Value
lbl請22.Caption = txt請求額.Value
lbl入22.Caption = txt入金額.Value
lbl備22.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請22.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入22.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日22.Caption <> "" And lbl日23.Caption = "" Then
lbl日23.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方23.Caption = cmb入金方法.Value
lbl請23.Caption = txt請求額.Value
lbl入23.Caption = txt入金額.Value
lbl備23.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請23.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入23.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日23.Caption <> "" And lbl日24.Caption = "" Then
lbl日24.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方24.Caption = cmb入金方法.Value
lbl請24.Caption = txt請求額.Value
lbl入24.Caption = txt入金額.Value
lbl備24.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請24.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入24.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日24.Caption <> "" And lbl日25.Caption = "" Then
lbl日25.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方25.Caption = cmb入金方法.Value
lbl請25.Caption = txt請求額.Value
lbl入25.Caption = txt入金額.Value
lbl備25.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請25.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入25.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日25.Caption <> "" And lbl日26.Caption = "" Then
lbl日26.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方26.Caption = cmb入金方法.Value
lbl請26.Caption = txt請求額.Value
lbl入26.Caption = txt入金額.Value
lbl備26.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請26.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入26.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日26.Caption <> "" And lbl日27.Caption = "" Then
lbl日27.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方27.Caption = cmb入金方法.Value
lbl請27.Caption = txt請求額.Value
lbl入27.Caption = txt入金額.Value
lbl備27.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請27.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入27.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日27.Caption <> "" And lbl日28.Caption = "" Then
lbl日28.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方28.Caption = cmb入金方法.Value
lbl請28.Caption = txt請求額.Value
lbl入28.Caption = txt入金額.Value
lbl備28.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請28.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入28.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日28.Caption <> "" And lbl日29.Caption = "" Then
lbl日29.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方29.Caption = cmb入金方法.Value
lbl請29.Caption = txt請求額.Value
lbl入29.Caption = txt入金額.Value
lbl備29.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請29.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入29.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日29.Caption <> "" And lbl日30.Caption = "" Then
lbl日30.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方30.Caption = cmb入金方法.Value
lbl請30.Caption = txt請求額.Value
lbl入30.Caption = txt入金額.Value
lbl備30.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請30.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入30.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日30.Caption <> "" And lbl日31.Caption = "" Then
lbl日31.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方31.Caption = cmb入金方法.Value
lbl請31.Caption = txt請求額.Value
lbl入31.Caption = txt入金額.Value
lbl備31.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請31.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入31.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日31.Caption <> "" And lbl日32.Caption = "" Then
lbl日32.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方32.Caption = cmb入金方法.Value
lbl請32.Caption = txt請求額.Value
lbl入32.Caption = txt入金額.Value
lbl備32.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請32.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入32.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日32.Caption <> "" And lbl日33.Caption = "" Then
lbl日33.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方33.Caption = cmb入金方法.Value
lbl請33.Caption = txt請求額.Value
lbl入33.Caption = txt入金額.Value
lbl備33.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請33.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入33.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日33.Caption <> "" And lbl日34.Caption = "" Then
lbl日34.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方34.Caption = cmb入金方法.Value
lbl請34.Caption = txt請求額.Value
lbl入34.Caption = txt入金額.Value
lbl備34.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請34.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入34.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日34.Caption <> "" And lbl日35.Caption = "" Then
lbl日35.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方35.Caption = cmb入金方法.Value
lbl請35.Caption = txt請求額.Value
lbl入35.Caption = txt入金額.Value
lbl備35.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請35.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入35.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日35.Caption <> "" And lbl日36.Caption = "" Then
lbl日36.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方36.Caption = cmb入金方法.Value
lbl請36.Caption = txt請求額.Value
lbl入36.Caption = txt入金額.Value
lbl備36.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請36.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入36.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日36.Caption <> "" And lbl日37.Caption = "" Then
lbl日37.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方37.Caption = cmb入金方法.Value
lbl請37.Caption = txt請求額.Value
lbl入37.Caption = txt入金額.Value
lbl備37.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請37.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入37.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日37.Caption <> "" And lbl日38.Caption = "" Then
lbl日38.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方38.Caption = cmb入金方法.Value
lbl請38.Caption = txt請求額.Value
lbl入38.Caption = txt入金額.Value
lbl備38.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請38.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入38.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日38.Caption <> "" And lbl日39.Caption = "" Then
lbl日39.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方39.Caption = cmb入金方法.Value
lbl請39.Caption = txt請求額.Value
lbl入39.Caption = txt入金額.Value
lbl備39.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請39.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入39.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日39.Caption <> "" And lbl日40.Caption = "" Then
lbl日40.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方40.Caption = cmb入金方法.Value
lbl請40.Caption = txt請求額.Value
lbl入40.Caption = txt入金額.Value
lbl備40.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請40.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入40.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日40.Caption <> "" And lbl日41.Caption = "" Then
lbl日41.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方41.Caption = cmb入金方法.Value
lbl請41.Caption = txt請求額.Value
lbl入41.Caption = txt入金額.Value
lbl備41.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請41.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入41.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日41.Caption <> "" And lbl日42.Caption = "" Then
lbl日42.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方42.Caption = cmb入金方法.Value
lbl請42.Caption = txt請求額.Value
lbl入42.Caption = txt入金額.Value
lbl備42.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請42.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入42.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日42.Caption <> "" And lbl日43.Caption = "" Then
lbl日43.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方43.Caption = cmb入金方法.Value
lbl請43.Caption = txt請求額.Value
lbl入43.Caption = txt入金額.Value
lbl備43.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請43.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入43.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日43.Caption <> "" And lbl日44.Caption = "" Then
lbl日44.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方44.Caption = cmb入金方法.Value
lbl請44.Caption = txt請求額.Value
lbl入44.Caption = txt入金額.Value
lbl備44.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請44.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入44.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日44.Caption <> "" And lbl日45.Caption = "" Then
lbl日45.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方45.Caption = cmb入金方法.Value
lbl請45.Caption = txt請求額.Value
lbl入45.Caption = txt入金額.Value
lbl備45.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請45.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入45.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日45.Caption <> "" And lbl日46.Caption = "" Then
lbl日46.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方46.Caption = cmb入金方法.Value
lbl請46.Caption = txt請求額.Value
lbl入46.Caption = txt入金額.Value
lbl備46.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請46.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入46.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日46.Caption <> "" And lbl日47.Caption = "" Then
lbl日47.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方47.Caption = cmb入金方法.Value
lbl請47.Caption = txt請求額.Value
lbl入47.Caption = txt入金額.Value
lbl備47.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請47.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入47.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日47.Caption <> "" And lbl日48.Caption = "" Then
lbl日48.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方48.Caption = cmb入金方法.Value
lbl請48.Caption = txt請求額.Value
lbl入48.Caption = txt入金額.Value
lbl備48.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請48.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入48.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日48.Caption <> "" And lbl日49.Caption = "" Then
lbl日49.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方49.Caption = cmb入金方法.Value
lbl請49.Caption = txt請求額.Value
lbl入49.Caption = txt入金額.Value
lbl備49.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請49.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入49.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日49.Caption <> "" And lbl日50.Caption = "" Then
lbl日50.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方50.Caption = cmb入金方法.Value
lbl請50.Caption = txt請求額.Value
lbl入50.Caption = txt入金額.Value
lbl備50.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請50.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入50.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日50.Caption <> "" And lbl日51.Caption = "" Then
lbl日51.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方51.Caption = cmb入金方法.Value
lbl請51.Caption = txt請求額.Value
lbl入51.Caption = txt入金額.Value
lbl備51.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請51.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入51.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日51.Caption <> "" And lbl日52.Caption = "" Then
lbl日52.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方52.Caption = cmb入金方法.Value
lbl請52.Caption = txt請求額.Value
lbl入52.Caption = txt入金額.Value
lbl備52.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請52.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入52.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日52.Caption <> "" And lbl日53.Caption = "" Then
lbl日53.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方53.Caption = cmb入金方法.Value
lbl請53.Caption = txt請求額.Value
lbl入53.Caption = txt入金額.Value
lbl備53.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請53.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入53.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日53.Caption <> "" And lbl日54.Caption = "" Then
lbl日54.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方54.Caption = cmb入金方法.Value
lbl請54.Caption = txt請求額.Value
lbl入54.Caption = txt入金額.Value
lbl備54.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請54.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入54.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日54.Caption <> "" And lbl日55.Caption = "" Then
lbl日55.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方55.Caption = cmb入金方法.Value
lbl請55.Caption = txt請求額.Value
lbl入55.Caption = txt入金額.Value
lbl備55.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請55.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入55.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日55.Caption <> "" And lbl日56.Caption = "" Then
lbl日56.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方56.Caption = cmb入金方法.Value
lbl請56.Caption = txt請求額.Value
lbl入56.Caption = txt入金額.Value
lbl備56.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請56.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入56.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日56.Caption <> "" And lbl日57.Caption = "" Then
lbl日57.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方57.Caption = cmb入金方法.Value
lbl請57.Caption = txt請求額.Value
lbl入57.Caption = txt入金額.Value
lbl備57.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請57.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入57.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日57.Caption <> "" And lbl日58.Caption = "" Then
lbl日58.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方58.Caption = cmb入金方法.Value
lbl請58.Caption = txt請求額.Value
lbl入58.Caption = txt入金額.Value
lbl備58.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請58.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入58.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日58.Caption <> "" And lbl日59.Caption = "" Then
lbl日59.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方59.Caption = cmb入金方法.Value
lbl請59.Caption = txt請求額.Value
lbl入59.Caption = txt入金額.Value
lbl備59.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請59.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入59.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日59.Caption <> "" And lbl日60.Caption = "" Then
lbl日60.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方60.Caption = cmb入金方法.Value
lbl請60.Caption = txt請求額.Value
lbl入60.Caption = txt入金額.Value
lbl備60.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請60.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入60.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日60.Caption <> "" And lbl日61.Caption = "" Then
lbl日61.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方61.Caption = cmb入金方法.Value
lbl請61.Caption = txt請求額.Value
lbl入61.Caption = txt入金額.Value
lbl備61.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請61.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入61.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日61.Caption <> "" And lbl日62.Caption = "" Then
lbl日62.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方62.Caption = cmb入金方法.Value
lbl請62.Caption = txt請求額.Value
lbl入62.Caption = txt入金額.Value
lbl備62.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請62.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入62.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日62.Caption <> "" And lbl日63.Caption = "" Then
lbl日63.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方63.Caption = cmb入金方法.Value
lbl請63.Caption = txt請求額.Value
lbl入63.Caption = txt入金額.Value
lbl備63.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請63.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入63.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日63.Caption <> "" And lbl日64.Caption = "" Then
lbl日64.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方64.Caption = cmb入金方法.Value
lbl請64.Caption = txt請求額.Value
lbl入64.Caption = txt入金額.Value
lbl備64.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請64.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入64.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日64.Caption <> "" And lbl日65.Caption = "" Then
lbl日65.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方65.Caption = cmb入金方法.Value
lbl請65.Caption = txt請求額.Value
lbl入65.Caption = txt入金額.Value
lbl備65.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請65.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入65.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日65.Caption <> "" And lbl日66.Caption = "" Then
lbl日66.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方66.Caption = cmb入金方法.Value
lbl請66.Caption = txt請求額.Value
lbl入66.Caption = txt入金額.Value
lbl備66.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請66.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入66.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日66.Caption <> "" And lbl日67.Caption = "" Then
lbl日67.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方67.Caption = cmb入金方法.Value
lbl請67.Caption = txt請求額.Value
lbl入67.Caption = txt入金額.Value
lbl備67.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請67.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入67.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日67.Caption <> "" And lbl日68.Caption = "" Then
lbl日68.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方68.Caption = cmb入金方法.Value
lbl請68.Caption = txt請求額.Value
lbl入68.Caption = txt入金額.Value
lbl備68.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請68.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入68.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日68.Caption <> "" And lbl日69.Caption = "" Then
lbl日69.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方69.Caption = cmb入金方法.Value
lbl請69.Caption = txt請求額.Value
lbl入69.Caption = txt入金額.Value
lbl備69.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請69.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入69.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日69.Caption <> "" And lbl日70.Caption = "" Then
lbl日70.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方70.Caption = cmb入金方法.Value
lbl請70.Caption = txt請求額.Value
lbl入70.Caption = txt入金額.Value
lbl備70.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請70.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入70.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日70.Caption <> "" And lbl日71.Caption = "" Then
lbl日71.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方71.Caption = cmb入金方法.Value
lbl請71.Caption = txt請求額.Value
lbl入71.Caption = txt入金額.Value
lbl備71.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請71.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入71.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日71.Caption <> "" And lbl日72.Caption = "" Then
lbl日72.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方72.Caption = cmb入金方法.Value
lbl請72.Caption = txt請求額.Value
lbl入72.Caption = txt入金額.Value
lbl備72.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請72.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入72.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日72.Caption <> "" And lbl日73.Caption = "" Then
lbl日73.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方73.Caption = cmb入金方法.Value
lbl請73.Caption = txt請求額.Value
lbl入73.Caption = txt入金額.Value
lbl備73.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請73.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入73.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日73.Caption <> "" And lbl日74.Caption = "" Then
lbl日74.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方74.Caption = cmb入金方法.Value
lbl請74.Caption = txt請求額.Value
lbl入74.Caption = txt入金額.Value
lbl備74.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請74.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入74.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日74.Caption <> "" And lbl日75.Caption = "" Then
lbl日75.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方75.Caption = cmb入金方法.Value
lbl請75.Caption = txt請求額.Value
lbl入75.Caption = txt入金額.Value
lbl備75.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請75.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入75.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日75.Caption <> "" And lbl日76.Caption = "" Then
lbl日76.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方76.Caption = cmb入金方法.Value
lbl請76.Caption = txt請求額.Value
lbl入76.Caption = txt入金額.Value
lbl備76.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請76.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入76.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日76.Caption <> "" And lbl日77.Caption = "" Then
lbl日77.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方77.Caption = cmb入金方法.Value
lbl請77.Caption = txt請求額.Value
lbl入77.Caption = txt入金額.Value
lbl備77.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請77.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入77.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日77.Caption <> "" And lbl日78.Caption = "" Then
lbl日78.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方78.Caption = cmb入金方法.Value
lbl請78.Caption = txt請求額.Value
lbl入78.Caption = txt入金額.Value
lbl備78.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請78.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入78.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日78.Caption <> "" And lbl日79.Caption = "" Then
lbl日79.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方79.Caption = cmb入金方法.Value
lbl請79.Caption = txt請求額.Value
lbl入79.Caption = txt入金額.Value
lbl備79.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請79.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入79.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日79.Caption <> "" And lbl日80.Caption = "" Then
lbl日80.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方80.Caption = cmb入金方法.Value
lbl請80.Caption = txt請求額.Value
lbl入80.Caption = txt入金額.Value
lbl備80.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請80.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入80.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日80.Caption <> "" And lbl日81.Caption = "" Then
lbl日81.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方81.Caption = cmb入金方法.Value
lbl請81.Caption = txt請求額.Value
lbl入81.Caption = txt入金額.Value
lbl備81.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請81.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入81.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日81.Caption <> "" And lbl日82.Caption = "" Then
lbl日82.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方82.Caption = cmb入金方法.Value
lbl請82.Caption = txt請求額.Value
lbl入82.Caption = txt入金額.Value
lbl備82.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請82.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入82.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日82.Caption <> "" And lbl日83.Caption = "" Then
lbl日83.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方83.Caption = cmb入金方法.Value
lbl請83.Caption = txt請求額.Value
lbl入83.Caption = txt入金額.Value
lbl備83.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請83.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入83.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日83.Caption <> "" And lbl日84.Caption = "" Then
lbl日84.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方84.Caption = cmb入金方法.Value
lbl請84.Caption = txt請求額.Value
lbl入84.Caption = txt入金額.Value
lbl備84.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請84.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入84.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日84.Caption <> "" And lbl日85.Caption = "" Then
lbl日85.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方85.Caption = cmb入金方法.Value
lbl請85.Caption = txt請求額.Value
lbl入85.Caption = txt入金額.Value
lbl備85.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請85.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入85.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日85.Caption <> "" And lbl日86.Caption = "" Then
lbl日86.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方86.Caption = cmb入金方法.Value
lbl請86.Caption = txt請求額.Value
lbl入86.Caption = txt入金額.Value
lbl備86.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請86.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入86.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日86.Caption <> "" And lbl日87.Caption = "" Then
lbl日87.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方87.Caption = cmb入金方法.Value
lbl請87.Caption = txt請求額.Value
lbl入87.Caption = txt入金額.Value
lbl備87.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請87.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入87.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日87.Caption <> "" And lbl日88.Caption = "" Then
lbl日88.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方88.Caption = cmb入金方法.Value
lbl請88.Caption = txt請求額.Value
lbl入88.Caption = txt入金額.Value
lbl備88.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請88.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入88.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日88.Caption <> "" And lbl日89.Caption = "" Then
lbl日89.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方89.Caption = cmb入金方法.Value
lbl請89.Caption = txt請求額.Value
lbl入89.Caption = txt入金額.Value
lbl備89.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請89.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入89.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日89.Caption <> "" And lbl日90.Caption = "" Then
lbl日90.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方90.Caption = cmb入金方法.Value
lbl請90.Caption = txt請求額.Value
lbl入90.Caption = txt入金額.Value
lbl備90.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請90.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入90.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日90.Caption <> "" And lbl日91.Caption = "" Then
lbl日91.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方91.Caption = cmb入金方法.Value
lbl請91.Caption = txt請求額.Value
lbl入91.Caption = txt入金額.Value
lbl備91.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請91.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入91.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日91.Caption <> "" And lbl日92.Caption = "" Then
lbl日92.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方92.Caption = cmb入金方法.Value
lbl請92.Caption = txt請求額.Value
lbl入92.Caption = txt入金額.Value
lbl備92.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請92.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入92.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日92.Caption <> "" And lbl日93.Caption = "" Then
lbl日93.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方93.Caption = cmb入金方法.Value
lbl請93.Caption = txt請求額.Value
lbl入93.Caption = txt入金額.Value
lbl備93.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請93.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入93.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日93.Caption <> "" And lbl日94.Caption = "" Then
lbl日94.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方94.Caption = cmb入金方法.Value
lbl請94.Caption = txt請求額.Value
lbl入94.Caption = txt入金額.Value
lbl備94.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請94.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入94.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日94.Caption <> "" And lbl日95.Caption = "" Then
lbl日95.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方95.Caption = cmb入金方法.Value
lbl請95.Caption = txt請求額.Value
lbl入95.Caption = txt入金額.Value
lbl備95.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請95.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入95.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日95.Caption <> "" And lbl日96.Caption = "" Then
lbl日96.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方96.Caption = cmb入金方法.Value
lbl請96.Caption = txt請求額.Value
lbl入96.Caption = txt入金額.Value
lbl備96.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請96.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入96.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日96.Caption <> "" And lbl日97.Caption = "" Then
lbl日97.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方97.Caption = cmb入金方法.Value
lbl請97.Caption = txt請求額.Value
lbl入97.Caption = txt入金額.Value
lbl備97.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請97.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入97.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日97.Caption <> "" And lbl日98.Caption = "" Then
lbl日98.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方98.Caption = cmb入金方法.Value
lbl請98.Caption = txt請求額.Value
lbl入98.Caption = txt入金額.Value
lbl備98.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請98.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入98.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日98.Caption <> "" And lbl日99.Caption = "" Then
lbl日99.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方99.Caption = cmb入金方法.Value
lbl請99.Caption = txt請求額.Value
lbl入99.Caption = txt入金額.Value
lbl備99.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請99.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入99.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
If lbl日99.Caption <> "" And lbl日100.Caption = "" Then
lbl日100.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方100.Caption = cmb入金方法.Value
lbl請100.Caption = txt請求額.Value
lbl入100.Caption = txt入金額.Value
lbl備100.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請100.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入100.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
End Sub
（えりか） 2019/04/01(月) 15:57
すみませんが、長すぎて読んでません。
提示されているプロシジャは1つしか無いようなので、プロシジャが実際に多いかどうかはわかりません。
どっちかというと、プロシジャが長すぎるのではないかと思います。
いきなり100個とかやらないで、最初は5個くらいで動くものをつくってみたらどうでしょうか。
5個でうまくいってから、100個に作り直す方がいいと思います。
それと、何がやりたいのか、文章で説明してもらいたいです。 （でれすけ） 2019/04/01(月) 16:36
If lbl日1.Caption = "" And lbl日2.Caption = "" Then
lbl日1.Caption = txt年.Value & "/" & txt月.Value & "/" & txt日.Value
lbl方1.Caption = cmb入金方法.Value
lbl請1.Caption = txt請求額.Value
lbl入1.Caption = txt入金額.Value
lbl備1.Caption = txt備考.Value
lbl請求総額.Caption = Val(lbl請求総額.Caption) + Val(lbl請1.Caption)
lbl入金総額.Caption = Val(lbl入金総額.Caption) + Val(lbl入1.Caption)
lbl残金.Caption = Val(lbl請求総額.Caption) - Val(lbl入金総額.Caption)
cmb入金方法.Value = ""
txt請求額.Value = ""
txt入金額.Value = ""
txt備考.Value = ""
Exit Sub
End If
何がやりたいかというと、
フォームを開き、請求額や入金方法、入金額などのテキストボックスに数値を入力して入力ボタンを押すたびに、ラベルを大量に並べて作った擬似リストボックスへと、上から順に値が入力されていきます。
またその合計や差額（残金）がリストの下に表示されます。
最後に保存ボタンを押すことで、ワークシートに全ての入力値が転記、保存される仕組みです。
わかりづらい説明で本当に申し訳ないです。
（えりか） 2019/04/01(月) 17:24
ActiveXは一切貼れませんが、代わりにフォームコントロールを貼れるし、手で貼らずともマクロで一気に貼れば良いし、何よりもコントロールが配列扱いできるので、1つの処理をループさせるだけで済みますよ。
更に、もっと簡単なのは、シートに入力してしまう事ではないかと思いますけどねぇ？ Excelはどんなコントロールよりも、表入力はやりやすいですよ。
（???） 2019/04/01(月) 17:56
>擬似リストボックス なぜ、苦労して「疑似リストボックス」を作らなくてはいけないのでしょうか。
入力ボタンを押したら、リストボックスに1行追加するようにすれば簡単では？ リストボックスをつかってはいけない理由がありますか？ （でれすけ） 2019/04/01(月) 23:49
lbl日1 と言う名前のラベルは、整数型の変数iをつかって、
Me.Controls("lbl日" & i) というように指定することも出来ます。
これを使うと、For 〜 Next ステートメントを使ってiを順番に変化させて、 繰り返し処理をすることもできます。
また、何回ボタンを押したかを変数 i に格納しておけば、 全てのラベルを調べる必要もなくなりますね。 （でれすけ） 2019/04/02(火) 08:58
Dim rng As Range
Dim A As Long
Dim B As Long
Dim r As Long
Dim i As Long
Worksheets("入金マスタ").Activate
Set rng = Range("B:B").Find(Me.txt顧客名.Value)
r = rng.Row
rng.EntireRow.Select
For i = 1 To 10
Me.Controls("lbl日" & i).Caption = Cells(r, i + 3).Value 'D列より
Me.Controls("lbl方" & i).Caption = Cells(r, i + 103).Value 'CZ列より
Me.Controls("lbl請" & i).Caption = Cells(r, i + 203).Value 'GV列より
Me.Controls("lbl入" & i).Caption = Cells(r, i + 303).Value 'KR列より
Me.Controls("lbl備" & i).Caption = Cells(r, i + 403).Value 'ON列より
Next
A = WorksheetFunction.Sum(Cells(r, "GV").Resize(, 100))
B = WorksheetFunction.Sum(Cells(r, "KR").Resize(, 100))
Me.lbl請求総額.Caption = A
Me.lbl入金総額.Caption = B
Me.lbl残金.Caption = A - B
End Sub
（ピンク） 2019/04/02(火) 11:50
For i = 1 To 10
↓
For i = 1 To 100
（ピンク） 2019/04/02(火) 11:55
>（???）さん >（のりん）さん >（でれすけ）さん >（ピンク）さん 中々思うように進められず申し訳ないです… プロシージャが多すぎてエラーが起きる件については、マクロを1と2に分割して連続実行させることで、とりあえず動くようになりました。 ありがとうございます。
そこで今度は、顧客名が見つからなかった場合に一番下の空白セルへ顧客名を入力し、その行を選択させるようにしたいのですが、Irow.Row.Selectのところで「修飾子が不正です」とのエラーが出てしまいます。
どうすればよいでしょうか？
よろしくお願いします。
Private Sub UserForm_Initialize()
Dim rng As Range
Dim A As Long
Dim B As Long
Dim r As Long
Dim i As Long
Dim lrow As Integer
Sheets("入金マスタ").Activate
With Worksheets("入金マスタ")
Set rng = Range("B:B").Find(frm.txt顧客名.Value)
If rng Is Nothing Then
lrow = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & lrow) = frm.txt顧客名.Value
lrow.Row.Select
Else
r = rng.Row
rng.EntireRow.Select
For i = 1 To 100
Me.Controls("lbl日" & i).Caption = Cells(r, i + 3).Value 'D列
Me.Controls("lbl方" & i).Caption = Cells(r, i + 103).Value 'CZ列
Me.Controls("lbl請" & i).Caption = Cells(r, i + 203).Value 'GV列
Me.Controls("lbl入" & i).Caption = Cells(r, i + 303).Value 'KR列
Me.Controls("lbl備" & i).Caption = Cells(r, i + 403).Value 'ON列
Next
End If
A = WorksheetFunction.Sum(Cells(r, "GV").Resize(, 100))
B = WorksheetFunction.Sum(Cells(r, "KR").Resize(, 100))
lbl請求総額.Caption = A
lbl入金総額.Caption = B
lbl残金.Caption = A - B
End With
End Sub
（えりか） 2019/04/22(月) 09:04
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.