[µo°Ý] ½s¸¹¤è¦¡-­^¤å+¦~¤ë+¬y¤ô½s¸¹2½X.¥X¨Ó¨S«ö¶¶§Ç

kkooo15

°ÝÃD¡R½s¸¹¤è¦¡-­^¤å+¦~¤ë+¬y¤ô½s¸¹2½X.¥X¨Ó¨S«ö¶¶§Ç
«ö·s¼Wªº®É­ÔÀ³¸Ó­n¸õC190805¡A¬°¤°»ò¥L·|¸õ¨ìC190813?

2019-8-11 23:42

1. Private Sub Button1_Click()
   
2.     Call ·s¼W½s¸¹
   
3. End Sub
   
4. 
   
5. Private Sub Button3_Click()
   
6.     Call ·s¼W¸ê®Æ
   
7. End Sub
   
8. Sub ·s¼W½s¸¹()
   
9.     Set wSh = Sheets("¤u§@ªí1")
   
10.     Dim i As Integer
    
11.     i = 4
    
12.     Do
    
13.     i = i + 1
    
14.         If wSh.Cells(i, 3) = "" Then Exit Do
    
15.         If TBox1.Value = "C" & Application.Text(Date, "YYMM") & Right("00" & Number + 1, 2) Then
    
16.         Number = Number + 1
    
17.         End If
    
18.         TBox1.Value = "C" & Application.Text(Date, "YYMM") & Right("00" & Number + 1, 2)
    
19.     Loop
    
20. 
    
21. End Sub
    
22. 
    
23. Sub ·s¼W¸ê®Æ()
    
24.     Set wSh = Sheets("¤u§@ªí1")
    
25.     '¨¾§b
    
26.     If TBox1 = "" Or TBox2 = "" Or TBox3 = "" Then MsgBox ("¸ê®Æ¿é¤J¤£¥þ¡C")   'µ²§ôµøµ¡´£¥Ü:Exit Sub
    
27.     Dim i As Integer
    
28.     i = 4
    
29.     Do
    
30.     i = i + 1
    
31.     If wSh.Cells(i, 3) = "" Then Exit Do
    
32.     If TBox1.Text = wSh.Cells(i, 3) Then
    
33.         MsgBox ("¦X¬ù½s¸¹­«½Æ¡A½Ð­«·s¿é¤J¡C")   'µ²§ôµøµ¡´£¥Ü
    
34.     Exit Sub
    
35.     End If
    
36.     Loop
    
37.     k = 0
    
38.     For j = 3 To 5
    
39.     k = k + 1
    
40.     wSh.Cells(i, j) = Me("TBox" & k).Value
    
41.     Next
    
42.     MsgBox ("½s¸¹" & TBox1.Text & "¦X¬ù¡A·s¼W§¹¦¨¡C") 'µ²§ôµøµ¡´£¥Ü
    
43. End Sub

½Æ»s¥N½X

ªþ¥ó¡R
ZA0004015.rar (20.04 KB)

¤U¸ü¦¸¼Æ: 4

2019-8-11 23:40

ikboy

°N¬O½s¸¹¥i¥H²¤Æ¤@¤U:

1. Private Sub UserForm_Initialize()
   
2.     Dim ym$, Myr&
   
3.     ym = "C" & Format(Date, "YYMM")
   
4.     Myr = [c65536].End(3).Row
   
5.     a = Cells(Myr, "c")
   
6.     TBox1.Value = ym & Format(IIf(Left(a, 5) = ym, Val(Right(a, 2)), 0) + 1, "00")
   
7. End Sub

½Æ»s¥N½X

kkooo15

¦^´_ 2# ikboy
«D±`ÁÂÁ¡A§âµ{¦¡Åܵu¤F¡A¦Ó¥B¤]§¹¦¨§Úªº»Ý­n¡C

µ{¦¡½X¦p¤U¡R

1. Private Sub UserForm_Initialize()
   
2.     Dim ym$, Myr&
   
3.     'Long ªº«¬ºA«Å§i¦r¤¸¬° &
   
4.     'String ªº«¬ºA«Å§i¦r¤¸¬° $
   
5.     ym = "C" & Format(Date, "YYMM")
   
6.     'ym = "C"¶}ÀY + ¦~(2½X)¤ë
   
7.     Myr = [c65536].End(3).Row
   
8.     'Myr = C¦æ³Ì¤U­±©¹¤W§ä¨ì¦³¦rªº¨º¤@®æ
   
9.     a = Cells(Myr, "c")
   
10.     'a = Cells(Myr¨º¦C,CÄæ)
    
11.     TBox1.Value = ym & Format(IIf(Left(a, 5) = ym, Val(Right(a, 2)), 0) + 1, "00")
    
12.     'TBox1 = ym=[c+¦~+¤ë] & C¦æ³Ì¤U­±©¹¤W§ä¨ì¦³¦rªº¨º¤@®æ¦pªG= ymªº«e5­Ó¦r¤¸
    
13.     '´N5­Ó¦r¤¸«á­±¥[2½X¨Ã¥[1
    
14.     '³Ì«á§â¸ê®Æ©ñ¨ìTBox1
    
15. End Sub

½Æ»s¥N½X

Àɮצp¤U¡R(¦³»Ý­nªº¦Û¨ú)
ZA0004015-1.rar (23.54 KB)

¤U¸ü¦¸¼Æ: 6

2019-8-12 18:32