- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-4-22 09:18 ½s¿è
¦^´_ 5# v03586
¦^´_ 4# ã´£³¡ªL
¥¿¦pã´£³¡ªL¤j¤j©Ò¨¥¡A¸g¹ê»Ú´ú¸Õ«á¡A¥¦¬OÃöÁä©Ò¦b¡C
Module1: Sub ·s³øªí_HQ¶×¤J()- Dim RR&, xArea As Range, xRR As Range, xH As Range, T, TT, XX
- RR = [FMC!A65536].End(xlUp).Row: If RR < 3 Then Exit Sub
- ' ½Ð±N ("A3:A" & R) ק令 ("A2:A" & R) §Y¥i¡C
- ' Set xArea = Sheets("FMC").Range("A3:A" & R)
- Set xArea = Sheets("FMC").Range("A2:A" & R)
- For Each xRR In xArea
- T = xRR(1, 26): xRR(1, 26) = Mid(T, InStr(T, "-") + 1)
- Next
½Æ»s¥N½X ' xRR & xRR(1, 2) : "eMCP SIP162L 11.5*132981180" : Variant/String
' xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981180" : Variant/String
' xH : Nothing : Range
' xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981181" : Variant/String
'
' °õ¦æ¶¥¬q¿ù»~ '1004':
' Range'¤èªk ('_Global'ª«¥ó)¥¢±Ñ
'
' PKG MONBR PCCode DEVICE IPT_DATE DavinciCode
' eMCP SIP162L 11.5*13 2981180 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 R1F60:02
' eMCP SIP162L 11.5*13 2981180 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 B1D25:03
' eMCP SIP162L 11.5*13 2981181 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 R1F60:02
' ----------------------------------------------------------------------
' B-1.xlsx
' xRR & xRR(1, 2) : "eMCP SIP162L 11.5*132981181" : Variant/String
' xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981180" : Variant/String
' xH : "eMCP SIP162L 11.5*13" : Range
' xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981182" : Variant/String
'
' xRR & xRR(1, 2) : "eMCP SIP162L 11.5*132981182" : Variant/String
' xRR(0) & xRR(0, 2) : "eMCP SIP162L 11.5*132981181" : Variant/String
' xH : "eMCP SIP162L 11.5*13" : Range
' xRR(2) & xRR(2, 2) : "eMCP SIP162L 11.5*132981182" : Variant/String
' PKG MONBR PCCode DEVICE IPT_DATE DavinciCode
' eMCP SIP162L 11.5*13 2981180 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 R1F60:02
' eMCP SIP162L 11.5*13 2981181 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 R1F60:02
' eMCP SIP162L 11.5*13 2981182 KSI-PS-A0419-16 P-PS0703MKP82110EG-NR4GCA2-CTHD08GD1-45 2016/4/20 01:01 R1F60:02
°ÝÃD¾É·½©ó:- Set xArea = Sheets("FMC").Range("A3:A" & R)
½Æ»s¥N½X |
|