VBA §Ç¸¹¶W¹L12½X¼Æ¦r¦p¦ó¥H¼Æ¦C¤è¦¡©¹¤U¶ñº¡

aassddff736

§Úªº§Ç¸¹¶W¹L12½X¼Æ¦r¦p¦ó¥H¼Æ¦C¤è¦¡©¹¤Uµ¥¥[¤@¶ñº¡
§Ç¸¹®i¶}.zip (27.15 KB)

¤U¸ü¦¸¼Æ: 3

2024-2-17 11:28

Andy2483

¦^´_ 1# aassddff736


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

Private Sub CommandButton1_Click()
Dim T$, Q$, Brr, V&
T = Trim([A1]): V = Val(TextBox1.Value): If V = 0 Or T = "" Then Exit Sub
ReDim Brr(1 To V, 1 To 1)
Q = StrReverse(Mid(Val(StrReverse(T & "1")), 2))
T = Replace(T, Q, "")
For i = 0 To V - 1: Brr(i + 1, 1) = T & (Val(Q) + i): Next
[A1].Resize(V) = Brr
End Sub

aassddff736

¦^´_ 2# Andy2483


·PÁ¤j¯«
§Úª¦¤å«Ü¤[ ¨S§ä¨ì
«D±`¶}¤ß±zªºÀ°¦£
±z¯uªº¬O§Úªº¯«

aassddff736

¦^´_ 2# Andy2483

½Ð°Ý¤j¯«
§Úªº½X¼Æ¯à¸òA1¨Ì¼Ë¶Ü?0001¤£­nÅܦ¨1

Andy2483

¦^´_ 4# aassddff736

ÁÂÁ«e½ú¦^´_
«á¾Ç­×§ï»P¾Ç²ß¤ß±o¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æ«e:

¤U¸ü (54.86 KB)

2024-2-19 07:59

°õ¦æµ²ªG:

¤U¸ü (90.25 KB)

2024-2-19 07:59

Private Sub CommandButton1_Click()
Dim T$, Q$, Brr, V&, L%
'¡ô«Å§iÅܼÆ
T = Trim([A1]): V = Val(TextBox1.Value): If V = 0 Or T = "" Then Exit Sub
'¡ô¥OTÅܼƬO[A1]Àx¦s®æ¥h°£ÀY§À«áªº·s¦r¦ê,¥OVÅܼƬO¤å¦rµ¡¿é¤J­ÈÂà¤Æ¦¨ªº¼Æ­È
'¦pªGVÅܼƬO0 ©ÎTÅܼƬOªÅ¦r¤¸,´Nµ²§ôµ{¦¡°õ¦æ
Intersect(Me.UsedRange, [A:A]).Offset(1).ClearContents
'¡ô¥O[A2]¶}©l¥H¤UªºÀx¦s®æ²M°£¤º®e
ReDim Brr(1 To V, 1 To 1)
'¡ô«Å§iBrrÅܼƬO¤GºûªÅ°}¦C
Q = Val(StrReverse(T & "1")): Q = StrReverse(Mid(Q, 2)): L = Len(Q)
'¡ô¥OQÅܼƬO T¦r¦ê³Ì«áªº³sÄò¼Æ¦r¦ê,¥OLÅܼƬOQÅܼƪº¦r¤¸¼Æ
T = Replace(T, Q, "")
'¡ô¥OTÅܼÆÅܦ¨¦Ü´«±¼QÅܼƫ᪺·s¦r¦ê
For i = 0 To V - 1: Brr(i + 1, 1) = T & Application.Text(Val(Q) + i, String(L, "0")): Next
'¡ô³]¶¶°j°é!¥OiÅܼƱq0 ¨ìVÅܼÆ-1,±N°j°é·s¦r¦ê¼g¤JBrr°}¦C¤¤
[A1].Resize(V) = Brr
'¡ô¥O±q[A1]Àx¦s®æ¶}©l¦V¤UÂX®iVÅܼƭÓÀx¦s®æ½d³ò,¥HBrr°}¦C­È¼g¤J
End Sub

aassddff736

¦^´_ 5# Andy2483

ÁÂÁ±zªº²Ó¤ß«ü¾É
§Ú«Ü·Q¾Ç·|VBA ¥Ø«e¥¿¦b¾Ç°ò¦ ÁÂÁ±z!

¤U¸ü (43.7 KB)

2024-2-19 10:42

¦pªG§Úªº§Ç¸¹¬O"0001"®i¶}·|ÅÜ"1"§Ú­n¦p¦óÅý¥¦¤£ÅÜ°Ê ³]¦¨¤å¦r®æ¬O¶Ü?

Andy2483

¦^´_ 6# aassddff736

¿ï¨úA:A

¤U¸ü (85.05 KB)

2024-2-19 11:53

aassddff736

¦^´_ 7# Andy2483

ÁÂÁ«ü±Ð