ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ì¾Ú­±ÃB¤£¦P©Ò»Ý±i¼Æ¦Û°Ê²£¥Í¬y¤ô½s¸¹

¦^´_ 20# ­ã´£³¡ªL

«D±`·PÁ  ­ã´£³¡ªL  «ü¾É

©Ò­z°ÝÃDÀɮ׬O office 2013 ª©¥»©Ò»s§@²£¥Í
¤£ª¾°ÝÃD¬O§_»Pª©¥»¦³Ãö?

TOP

¦^´_ 20# ­ã´£³¡ªL

­è­è´ú¸Õ office 2010¤Î2013ª©ªºª©¥»¬Ò¬°¤@¼Ëªº°ÝÃD
¬O§_¯à½Ð ª©¥D ­ã´£³¡ªL  ´£¨Ñ¥¿½TÀɮװѦÒ...

TOP

¦^´_ 25# ­ã´£³¡ªL

«D±`·PÁ  ­ã´£³¡ªL  ´£¨Ñ¤½¦¡¤Î VBA ¨âºØ¤è¦¡°µ°Ñ¦Ò

°ß¤@¤£¸Ñªº¬O¤½¦¡¸Ì¥X²{ªº #VALUE! ¤§°ÝÃD???

¤U¹Ï¬Oª©¥D´£¨ÑªºÀɮפ½¦¡¤u§@ªí§e²{¤@¼Ëªº°ÝÃD

13.jpg
2021-12-14 00:39

TOP

¦^´_ 25# ­ã´£³¡ªL

´£°Ý
¤½¦¡¤¤

14.jpg
2021-12-14 00:59

TR = [{"A","F","B"}]
YR = [{64564,38000, 81140}]

    x = Switch(P = 100, 1, P = 200, 2, P = 500, 3, P = P, 0)

­±ÃB100¬O¥ÑA645645°_ºâ
­±ÃB200¬O¥ÑF38001°_ºâ   ???  (¬O³o¼Ë¸ÑŪ¶Ü?)
­±ÃB500¬O¥ÑB81141°_ºâ

TOP

¦^´_ 25# ­ã´£³¡ªL

­Y·Q100,200,500¤À§O½s½X:
¨Ï¥Î XX20211213v01(¤ÀÃþ¬y¤ô¸¹) ÀÉ®×

©Ò±oµ²ªG¦p¤U:

153.jpg
2021-12-15 01:09


¬y¤ô½s¸¹¨Ã¥¼¦p¨ä«ö 100,200,500¤À§O½s½X
­±ÃB100¬O¥ÑA645645°_ºâ
­±ÃB200¬O¥ÑF38001°_ºâ   ???  (¬y¤ô½s¸¹¦³°ÝÃD)
­±ÃB500¬O¥ÑB81141°_ºâ

TOP

¦^´_ 30# ­ã´£³¡ªL

¯u¬O¤Ó±j¤F!!  ·PÁ ª©¥D ­ã´£³¡ªL ...^^

ª©¥D¥[±j¤F¥H¤U¤½¦¡
Sub ¬y¤ô½s¸¹1()
Dim Arr, i&, P%, V&, N&, T1$, T2$, TT$, x%, Y&, SS(2)
Arr = Range([c1], [b65536].End(xlUp)(1, 0))
For i = 3 To UBound(Arr)
    If Arr(i, 1) = "¦X­p" Then Exit For
    N = N + 1: Arr(i - 2, 1) = ""
    P = Val(Arr(i, 2)): V = Val(Arr(i, 3))
    x = Switch(P = 100, 1, P = 200, 2, P = 500, 2, P = P, 0)
    If P = 0 Or V = 0 Or x = 0 Then GoTo i01
    Y = Array(64564, 81140)(x - 1): TT = Array("A", "B")(x - 1)
    T1 = TT & Format(Y + SS(x) + 1, "0000000")
    T2 = TT & Format(Y + SS(x) + V, "0000000")
    Arr(i - 2, 1) = T1 & IIf(T1 = T2, "", "-" & T2)
    SS(x) = SS(x) + V
i01: Next i
[d3].Resize(N) = Arr
End Sub

©Ò­z°ÝÃD¤w§¹¬ü³B²z...·P®¦
15.jpg
2021-12-15 12:57


Ãö©ó¨ç¼Æ¤½¦¡ REPLACE(TEXT(MMULT((IF(B3=100,64564,81140)+SUMIF(B$2:B2,B3,C$2:C2)+C3^{0,1}),10^{7;0}),REPT(IF(B3=100,"A","B")&"0000000",2)),9,,"-")
211213032120c748f99b50acec.jpg
2021-12-15 13:00

¦¹°ÝÃD¦³¨ä¥L¤è¦¡¥i­×¥¿¶Ü??

TOP

¦^´_ 32# ­ã´£³¡ªL

«D±`·PÁ±z

¸ÓÀÉ®×¥H
®a¤¤®à¾÷*1(WIN7+2013)+µ§¹q*2(WIN10+2013 and WIN7+2016)
¤½¥q®à¾÷*1(WIN10+2010)

´ú¸Õµ²ªG­±ÃB  500 ¤§Àx¦s®æ¥X²{ #VALUE!  ¤§°ÝÃD¤´¤@¼Ë¦s¦b...

TOP

¦^´_ 35# hcm19522

·PÁ hcm19522  ¼ö¤ß«ü¾É
¥i¾A¥Î¦UºØ¹ô­È±i¼Æ¬y¤ô½s¸¹©O  ^^

TOP

¦^´_ 34# Andy2483

«D±`·PÁ  Andy2483 ´£¨Ñªº¸Ô²Ó¸Ñ»¡µ{¦¡½X¥Nªí§t·N¤Î¬ÛÃöVBA...
­Y¬O¦]¥t¦³»Ý­n®É
©Ò»Ý­±ÃB ¦P®É§t¦³  100  200  500  1000  ...¦UºØ­±ÃB®É(«e¦r­y­^¤å¦r¥À¦U¤£¦P)
100(A0000125)  200(B0000100)  500(C0000085)  1000(D0000055)

¸Ó¦p¦ó­×¥¿ ??

TOP

¦^´_ 38# Andy2483

¦A·PÁ  Andy2483 ¼ö¤ß´£¨Ñªº¸Ô²ÓVBA...
1.·s¼W J2:L6 ­±ÃB¬ÛÃö¬y¤ô½s¸¹¸ê°T(§Æ±æ¥H¦¹¸ê°TÄæ¦ì¼Æ¾Ú¬°¥D)
2.­±ÃB±i¼Æ¦³ 0 ¥X²{¤§±¡§Î...
3.­±ÃB¹ô­È³¡¤À A(0) = [{1,2,5,10}]¡KQ = A(0)(i) * 100: Z(Q) = A(1)(i): Z(Q & "") = A(2)(i)
  ¤£¸Ñ¬°¦ó¬O [{1,2,5,10}]¡KQ = A(0)(i) * 100 ªº¤è¦¡?¤£¬Oª½±µ¥H 100 200 500 1000¡K¤è¦¡§e²{

sshot-1.jpg
2023-11-15 14:18


20231115+.rar (13.5 KB)

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD