½Ð±Ð ¤½¦¡_¸õÄæ¨Ã¥B²Å¦X±ø¥ó¤~¥[Á`
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
¦^´_ 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-- ¤Sn¦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~~ |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 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-- ¤Sn¦p¦ó¨ú???
¤£À´©Ò¥H¦A°Ý,[«e¸m]MAX ¬On¤À§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
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2020-8-26 11:16 ½s¿è
¦^´_ 22# Andy2483
[«e¸m]MAX ¬On¤À§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 ??? |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 23# ã´£³¡ªL
¥¿ t¤@°_¤ñ ¨ú³Ì¤j ! ¦pªG¨CÄæ³£¬Ot¼Æ ¤]¬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
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-27
|
¦^´_ 26# Andy2483
2003ª©¥u¬O´£¨Ñ°Ñ¦Ò¥Î,
µ{¦¡½XÁÙ¬On·h¨ì2013ª©, §K±o¦]ª©¥»¦³¨Ç¥\¯à¤£¥i¥Î~~ |
|
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 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) '¦Xp
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
|
|
|
|
|
- ©«¤l
- 1446
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1470
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 25# ã´£³¡ªL
ÁÂÁ«e½ú«ü¾É
«e½úªºµ{¦¡½X¤Óºë²¤F
«á½ú¥Ñ ²¤ÆÁc,³v¨B½m²ß¦r¨å»P°}¦C
¤µ²ß±o ¦r¨å.Add- Option Explicit
- Sub TEST_20220919()
- Dim Arr, Brr, R&, C&, i&, j&, k%, T$, TT, Y
- TT = Timer
- R = Cells(Rows.Count, "d").End(xlUp).Row '³Ì«á¤@¦æ
- C = Cells(12, Columns.Count).End(xlToLeft).Column '³Ì«á¤@Äæ
- Set Y = CreateObject("Scripting.Dictionary")
- For i = 1 To 13 Step 4
- Y.Add Mid(Cells(11, i + 12), 2, 2), i
- Next
- Arr = Range([A1], Cells(R, C)) '©w¸q¸ê®Æ½d³ò--A1¦Ü¾ãÓ°Ï
- 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
- C = Y(T) 'ÀË´ú¦U¤À¶µn¶ñ¤JBrrªº¦ì¸m
- 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)
- End If
- 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) '¦Xp
- Next k
- End If
- Next j
- Next i
- [M13].Resize(UBound(Brr), UBound(Brr, 2)) = Brr
- MsgBox Timer - TT
½Æ»s¥N½X |
|
|
|
|
|
|