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

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

¦^´_ 18# samwang

¯u¬O¤Ó¯«©_¤F  ^^
«D±`·PÁ  samwang  ¤£§[«ü¾É...·P®¦

©Ò­z°ÝÃD¥Hªï¤b¦Ó¸ÑÁÙ³q¥Î­±ÃB 200 or  500  ¤§¤è¦¡¤½¦¡

¦A«×·PÁÂ...¤ô°Õ

TOP

¦^´_ 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

¦^´_ 23# cypd

2000ª©°µªº, ¤½¦¡¤Îvba¦U¤@:
XX20211213v01(¤ÀÃþ¬y¤ô¸¹).rar (8.91 KB)

TOP

­Y·Q100,200,500¤À§O½s½X:
Sub ¬y¤ô½s¸¹()
Dim Arr, i&, P%, V&, N&, T1$, T2$, x%, TR, YR, SS&(3)
Arr = Range([c1], [b65536].End(xlUp)(1, 0))
TR = [{"A","F","B"}]
YR = [{64564,38000, 81140}]
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, 3, P = P, 0)
    If P = 0 Or V = 0 Or x = 0 Then GoTo i01
    T1 = TR(x) & Format(YR(x) + SS(x) + 1, "0000000")
    T2 = TR(x) & Format(YR(x) + 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

TOP

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

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

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

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

TOP

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

´£°Ý
¤½¦¡¤¤


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

¦^´_ 27# cypd


¬Oªº~~
µ¹ÅܼÆ, ¦A¤Þ¥Î°}¦C¤¤ªº¤¸¯À

TOP

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

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

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



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

TOP

¦^´_ 29# cypd


À³¸Ó¬O§AÀÉ®×°ÝÃD, ¶ÇÀɮ׬ݬÝ~~~
XX20211213v01(¤ÀÃþ¬y¤ô¸¹).rar (9.58 KB)

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD