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

½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`

¦^´_ 20# Andy2483


1) ¨C¦¸µo©«³£¥u´£¨Ñ²¤Æª©, ·íµM±o¤£¨ì¥¿½T¸Ñµª, °£«D§A¯uªº¤w¥i¦Û¤v­×§ïµ{¦¡©Î¤½¦¡
2) ¥H³oª©¥»¨Ó¬Ý, ¥[Á`±ø¥ó[¨ø¼Ò]~[¬[¼Ò]~[½Õ²£], ³£¦b²Ä11¦C, ­Yµ{¦¡¨S­×§ï, ·íµM¤£¥¿½T
     ¥t¥~,[«e¸m]MAX-- ¤S­n¦p¦ó¨ú???
3) ¨Ì¾Ú¤W¤è4­Ó±ø¥ó, ¥[Á`ªº¦ì¦b¦bQ~AFÄæ, ©Ò¥HBrrªºÄæ¼ÆÀ³Åܦ¨ 1 to 16 ¦Ó¤£¬O 1 to 3
4) k = 1 to 3 ³o¬O©T©wªº, ¥¦·|ÀH j ­ÈÅܤÆ----j + k

¦Û¤v¦A¬Ý¬Ý­ì¨Óµ{¦¡¨C¤@¦æ, ­Y¯à¤@¤@²z¸Ñ, ¦A¨Ó»¡ÂX¼W»Ý¨D~~

TOP

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


1) ¨C¦¸µo©«³£¥u´£¨Ñ²¤Æª©, ·íµM±o¤£¨ì¥¿½T¸Ñµª, °£«D§A¯uªº¤w¥i¦Û¤v­×§ïµ{¦¡©Î¤½¦¡
¾á¤ß½d¨Ò¤Ó²V¶Ã!«e½ú­Ì¤£²z! ½Õ¾A¤¤

2) ¥H³oª©¥»¨Ó¬Ý, ¥[Á`±ø¥ó[¨ø¼Ò]~[¬[¼Ò]~[½Õ²£], ³£¦b²Ä11¦C, ­Yµ{¦¡¨S­×§ï, ·íµM¤£¥¿½T
     ¥t¥~,[«e¸m]MAX-- ¤S­n¦p¦ó¨ú???
¤£À´©Ò¥H¦A°Ý,[«e¸m]MAX ¬O­n¤À§O±q ¨C­Ó«~¸¹(¦C)  [«e¸m]¬q¸Ì(¼Ð·Ç.¹ê»Ú.»~®t) ¦U¨ú³Ì¤j ¦pSHEET("¬yµ{¶µ¥Ø").[K46]

3) ¨Ì¾Ú¤W¤è4­Ó±ø¥ó, ¥[Á`ªº¦ì¦b¦bQ~AFÄæ, ©Ò¥HBrrªºÄæ¼ÆÀ³Åܦ¨ 1 to 16 ¦Ó¤£¬O 1 to 3
½d¨Ò¦³§ï

4) k = 1 to 3 ³o¬O©T©wªº, ¥¦·|ÀH j ­ÈÅܤÆ----j + k
¥H¬°Äæ¦ìÂX¤j¤F ´N¸Ó¸òµÛÅÜ ¤£À´ ½Ð¦A«ü¾É

¦Û¤v¦A¬Ý¬Ý­ì¨Óµ{¦¡¨C¤@¦æ, ­Y¯à¤@¤@²z¸Ñ, ¦A¨Ó»¡ÂX¼W»Ý¨D~~
·Pı¦Û¤v¦³²z¸Ñ ´N§ï§ï¬Ý ^_^

ÁÂÁÂ
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-8-26 11:16 ½s¿è

¦^´_ 22# Andy2483


[«e¸m]MAX ¬O­n¤À§O±q ¨C­Ó«~¸¹(¦C)  [«e¸m]¬q¸Ì(¼Ð·Ç.¹ê»Ú.»~®t) ¦U¨ú³Ì¤j   

__¨ú[¼Ð·Ç]³Ì¤j, ¦P®É±N¸Ó³Ì¤j[¼Ð·Ç]¦P²Õªº[¹ê»Ú¤Î»~®t], ¤@°_¶ñ¤J???
   ÁÙ¬O¤T­Ó¤À§O¨ú³Ì¤j???

¼Ð·Ç 100  ¹ê»Ú 120 »~®t -20 (­t¼Æ--«ç¤ñ¸û)
¼Ð·Ç 110  ¹ê»Ú 100 »~®t 10

¨ú: ¼Ð·Ç 110  ¹ê»Ú 120 »~®t 10 ???

TOP

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


¥¿ ­t¤@°_¤ñ ¨ú³Ì¤j ! ¦pªG¨CÄæ³£¬O­t¼Æ ¤]¬O¤ñ³Ì¤j¼Æ
¨Ò¦p
»~®t­È 5   ,10   ,20  ,6   .....¨ú20
»~®t­È -5   ,-10   ,-20  ,-6   .....¨ú-5
»~®t­È- 5   ,10   ,-20  ,6   .....¨ú10

­t¼Æ¬O´£«e§¹¦¨ªº·N«ä,©Ò¥H¤£ÅýÅÜ¥¿¼Æ
¥¿¼Æ¬O¶W¹L¼Ð·Ç®É¶¡
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 24# Andy2483

ºCºC¬ã¨s:
½d¨Ò_20200826_v1.rar (221.41 KB)

TOP

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


ÁÂÁ«e½ú«ü¾É
Andy·|»{¯u¬ã¨s ¤£ªP¶O±zªº«ü¾É

¥t½Ð±Ð ½d¨Ò·í¤¤ªº¹Ïªí¦C¦L½d³ò°ÝÃD
1.¥H2013ª©ªº¤À­¶¹wÄý½Õ¾ã¹Ïªí¨Ó°t¦XA4ª½¦L,¤]¥i²£¥ÍPDFÄÒ
2.¦A¥H2003ª©¶}±Ò®É¹Ïªí¦ì¸m´N¶]±¼¤F
3.ºÃ¦üª©¥»°ÝÃD!
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 26# Andy2483

2003ª©¥u¬O´£¨Ñ°Ñ¦Ò¥Î,
µ{¦¡½XÁÙ¬O­n·h¨ì2013ª©, §K±o¦]ª©¥»¦³¨Ç¥\¯à¤£¥i¥Î~~

TOP

¦^´_ 27# ­ã´£³¡ªL
¤F¸Ñ
ÁÂÁ«ü¾É
³o½d¨Ò¬O±M®×¹ê»Ú­n¨Ï¥Îªº²Î­p¤u¨ãÀÉ
·|¨Ì¹Î¶¤¹ê»Ú»Ý¨D±¡ªp§@½Õ¾ã
¦³±zªºÀ°¦£Åý¥\¯à§ó§¹¾ã ®Ä¯à§ó¦n ¥Nªí¹Î¶¤·PÁª©ª©.·PÁ¦U¦ì«e½ú.
¯S§O·PÁ±z¹ïAndy­@¤ßªº«ü¾É
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


    ÁÂÁ«e½ú¨ó§U»P«ü¾É!
1.¥Í¬¡Á`¬O¦£¦£¸L¸Lªº! ³o©«¤w¸g¹L¤F11­Ó¤ë¤F!
2.¤u§@§i¤@¬q¸¨ªº¥ð®§¤ù¨è,¦A¦^¨Ó¾Ç²ß³o¹ê¥Îªºµ{¦¡½X!ÁÙ¬O«Ü¦Y¤O!
3.³o¬q®É¶¡¸Ì¦]¨t²ÎÂà´«Oracle>SAP ,¤j¶qªºExcelµ{¦¡½X»Ý­n­«¼g!
4.¦]¬°¤S¦h¤S«æµÛ­n¤W½u¨Ï¥Î,³£¥u¨D¯à¥Î´N¦n!
®Ä¯à»Ý­n´£¤É!"
Andy¾Ç²ß¶i¨Bªº«ÜºC!½Ð «e½ú­Ì¦A«ü¾É!
ÁÂÁ ³Â»¶®a±Ú°Q½×ª©ª© ªºÀu½è¥­¥x


Sub TEST_20200826()
Dim Arr, Brr, R&, C&, i&, j&, k%, T$
R = Cells(Rows.Count, "d").End(xlUp).Row '³Ì«á¤@¦æ
C = Cells(12, Columns.Count).End(xlToLeft).Column '³Ì«á¤@Äæ
Arr = Range([A1], Cells(R, C)) '©w¸q¸ê®Æ½d³ò--A1¦Ü¾ã­Ó°Ï
'¡ô Arr©w¸q¦¨¾ã­Ó°Ï°ì§ó®e©ö²z¸Ñ«á­±ªºÅÞ¿è³W«h!ÁÂÁ«e½ú!
ReDim Brr(1 To UBound(Arr) - 12, 1 To 20) '³]ªÅ°}¦C
For i = 13 To UBound(Arr)
   For j = [AG1].Column To UBound(Arr, 2) Step 4
       T = Right(Split(Arr(11, j), "]")(0), 2)  '¨ú[??]¤¤ªº¤å¦r
       '¡ô ¦]¬°¯S®í²Å¸¹[ ]·|¼vÅT°õ¦æµ²ªG!©Ò¥H¨ú¸Ì­±ªº¦r
       C = InStr("/«e¸m//¨ø¼Ò//¬[¼Ò//½Õ²£/", T) - 1 'ÀË´ú¦U¤À¶µ­n¶ñ¤JBrrªº¦ì¸m
       '¡ô¥ÎT¦r¦êªº©Ò¦bªº¦r¼Æ¦ì¸m ¨M©wT¶µ¥ØªºÁ`©M©ñ¦bBrrªº¦ì¸m! ¯u©¯¹B¯àÀ°¦P¨Æ³]­p³o¥÷¸ê®Æ!ÁÂÁÂ!
       If C = 1 Then  '«e¸m--¨ú³Ì¤j
          For k = 0 To 2
              If Arr(i, j + k) > Brr(i - 12, C + k) Then Brr(i - 12, C + k) = Arr(i, j + k)
          Next k
       ElseIf C >= 5 Then '¨ä¥¦¶µ--²Ö­p
          For k = 0 To 2
              Brr(i - 12, C + k) = Brr(i - 12, C + k) + Arr(i, j + k) '¦U¤À¶µ²Ö­p
              Brr(i - 12, 17 + k) = Brr(i - 12, 17 + k) + Arr(i, j + k) '¦X­p
          Next k
       End If
    Next j
Next i
[M13].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

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


    ÁÂÁ«e½ú«ü¾É
«e½úªºµ{¦¡½X¤Óºë²¤F
«á½ú¥Ñ ²¤ÆÁc,³v¨B½m²ß¦r¨å»P°}¦C
¤µ²ß±o ¦r¨å.Add
  1. Option Explicit
  2. Sub TEST_20220919()
  3. Dim Arr, Brr, R&, C&, i&, j&, k%, T$, TT, Y
  4. TT = Timer
  5. R = Cells(Rows.Count, "d").End(xlUp).Row '³Ì«á¤@¦æ
  6. C = Cells(12, Columns.Count).End(xlToLeft).Column '³Ì«á¤@Äæ
  7. Set Y = CreateObject("Scripting.Dictionary")
  8. For i = 1 To 13 Step 4
  9.    Y.Add Mid(Cells(11, i + 12), 2, 2), i
  10. Next
  11. Arr = Range([A1], Cells(R, C)) '©w¸q¸ê®Æ½d³ò--A1¦Ü¾ã­Ó°Ï
  12. ReDim Brr(1 To UBound(Arr) - 12, 1 To 20) '³]ªÅ°}¦C
  13. For i = 13 To UBound(Arr)
  14.    For j = [AG1].Column To UBound(Arr, 2) Step 4
  15.        T = Right(Split(Arr(11, j), "]")(0), 2)  '¨ú[??]¤¤ªº¤å¦r
  16.        C = Y(T) 'ÀË´ú¦U¤À¶µ­n¶ñ¤JBrrªº¦ì¸m
  17.        If C = 1 Then  '«e¸m--¨ú³Ì¤j
  18.           For k = 0 To 2
  19.               If Arr(i, j + k) > Brr(i - 12, C + k) Then
  20.                  Brr(i - 12, C + k) = Arr(i, j + k)
  21.               End If
  22.           Next k
  23.        ElseIf C >= 5 Then '¨ä¥¦¶µ--²Ö­p
  24.           For k = 0 To 2
  25.               Brr(i - 12, C + k) = Brr(i - 12, C + k) + Arr(i, j + k) '¦U¤À¶µ²Ö­p
  26.               Brr(i - 12, 17 + k) = Brr(i - 12, 17 + k) + Arr(i, j + k) '¦X­p
  27.           Next k
  28.        End If
  29.     Next j
  30. Next i
  31. [M13].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
  32. MsgBox Timer - TT
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD