[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ユーザーフォームで入金管理の入力と履歴表示』(えりか)
お世話になります。
ユーザーフォーム上から入金日、入金額などを入力するとワークシートに転記され、また同じフォーム内に今までの入金履歴が最大100件まで表示される仕組みを考えています。
その際ワークシートでは、例えば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.