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

¸óÄæ¹ï¤ñ

¦^´_ 30# Andy2483


    «e½ú«ü­þ­Ó¸ê®Æ¡H KP & KH ÁÙ¬O°õ¦æªº¤u§@ªí¡H
¤T­Óªíùتº¤å¦r³£¬O¼Æ¦r¡A¨S¦³²Å¸¹¡C

TOP

¦^´_ 31# 198188


    ¤µ¤Ñ¤~¬d¨ì2¦C»P137¦CÃöÁä¦r¬Û¦P,«á¾Ç¤£¹î,©êºp
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 25# 198188


¬O°Ý:°£¤F¼Qªo, ÁÙ¦³¨S¦³¨ä¥¦? ¨Ò¦p:¤W½¤??
§Y¦P¤@Áä­È, ¦³¤£¦P¤u§@¤º®e???

BF/BH  ¼Qªo/¤W½¤~~~

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2024-3-5 15:20 ½s¿è

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


Project ¦WºÙ ¡]BH / BF) ³o¨Ç·|¸g±`ÅÜ°Ê¡A
KH / KP ÄæùØ¥u¦³¼Qªo¡A¨S¦³¨ä¥L¤F

TOP

¦^´_ 32# Andy2483


    °õ¦æ¤u§@ªíùØ­±ªº¸ê®Æ (SECTION & LENGTH) ²Õ¦X·|¦³­«½Æ©Êªº¡A¦]爲¬O¥]¸Ë¤£¦PªºNOùØ¡A©Ò¥H(SECTION & LENGTH) ²Õ¦X¤£·|¬O°ß¤@

TOP

¦^´_ 35# 198188
ÁÂÁ«e½ú«ü¾É,½Ð¦A¸Õ¸Õ¬Ý
Option Explicit
Sub TEST()
Dim Arr, Brr, Crr, V$, Z, Q, i&, T$, TT$, A, xA As Range, N%, C%
Set Z = CreateObject("Scripting.Dictionary")
Set xA = Range(ActiveSheet.[G1], ActiveSheet.[B65536].End(3)(1, 0))
xA.Offset(1, 12).Resize(, 3).ClearContents:  Brr = xA
For i = 2 To UBound(Brr)
   T = Format(Trim(Brr(i, 2)), "0000000"): V = Format(Val(Brr(i, 7)), "0000000"): TT = T & "/" & V
   Z(TT) = Z(TT) & "/" & i
Next
Arr = ActiveSheet.[M1].Resize(UBound(Brr), 3)
A = Array(Range([KH!C1], [KH!A65536].End(3)), Range([KH!J1], [KH!H65536].End(3)), Range([KP!C1], [KP!A65536].End(3)), Range([KP!J1], [KP!H65536].End(3)))
For Each Crr In A
   Crr = Crr: N = N + 1
   For i = 3 To UBound(Crr)
      T = Format(Trim(Crr(i, 1)), "0000000"): V = Format(Val(Crr(i, 2)), "0000000"): TT = T & "/" & V
      If Z.Exists(TT) Then
         Q = Split(Z(TT) & "/", "/")
         For C = 1 To UBound(Q) - 1
            If Arr(Q(C), 1) = "" Then
               Arr(Q(C), 1) = Crr(1, 1)
               ElseIf InStr("/" & Arr(Q(C), 1) & "/", "/" & Crr(1, 1) & "/") = 0 Then
               Arr(Q(C), 1) = Arr(Q(C), 1) & "/" & Crr(1, 1)
            End If
            Arr(Q(C), N \ 3 + 2) = Crr(1, 3)
         Next
      End If
   Next
Next
ActiveSheet.[M1].Resize(UBound(Brr), 3) = Arr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 36# Andy2483


    ´ú¸Õ¹L¡Aµª®×¨S¦³°ÝÃD¡C
¥t¥~¦³­Ó°ÝÃD¡A½Ð°Ý "¼Qªo" ¬OŪ¨ú KP & KH  ¤u§@ªí内 C1 & J1 ªºÀx¦s®æ¶Ü¡H §Ú´ú¸Õ¹L¦n¹³¤£¬O¡A½Ð°Ýµ{¦¡­þ­Ó¦ì¸m¬O¾Þ§@³o­Óªº¡H
¦]爲¦³¨âºØ¿ï¾Ü ¡§ ¼Qªo¡¨ ©M ¡§¤£¼Qªo¡¨¡A§Ú·Q¬Ý¬Ý¯à¤£¯à¦Û¤v­×§ï¤@¤U¡C
©ÎªÌ¯à§_¹³©«¤lùتº¹Ï¤ù¡A²Ä¤@Äæ¼Ò¸¹¡A²Ä¤GÄæªø«×¡A²Ä¤TÄæ ¡§¼Qªo¡¨ ©ÎªÌ ªÅ¥Õ¡AµM«áª½±µÅª¨ú²Ä¤TÄ檺¼Æ¾Ú¡C

TOP

¦^´_ 37# 198188

Crr(1, 3)  §ï¬° Crr(i, 3). ¸Õ¸Õ¬Ý
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD