¨D±Ð¡G®Ö¹ï¡A¦X¦}¡A¥[Á`¡A§ó·s¡A¥[´¡¸ê®Æ
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¨D±Ð¡G®Ö¹ï¡A¦X¦}¡A¥[Á`¡A§ó·s¡A¥[´¡¸ê®Æ
½Ð¦U¤j¤jÀ°¦£
Window & Door ¬O¸ê®Æ®w
Window & Doorªí¬O°O¿ý ¦Uq³æ¸¹WO-J057-0**qÁʨC´Ú¹Ï¸¹ªº¼Æ¶q
PJ ¬O¶×Á`ªí
¬O±NWindow & Door ¦X¦}¦¨¤@Ó¸ê®Æ®w¡C
¦pªGWindow & Door ¸ê®Æ®wùعϸ¹¡Aªø¡A¼e¤@Pªº¬Û¦PWO-J057-*** ¼Æ¶q¥[Á` ¡]¦p¬õ¦â¦r FS101, FS512, FS102, DF100¡^
¦pªGWO-J057-0** ¥þ³¡³£¬O¡§0¡¨ «h¸Ó¹Ï¸¹/ªø/¼e/±¿n/Ãþ«¬/WO-J057-*** ªº¼Æ¶q¼Æ¾Ú¤£§Û¤JPJ¶×Á`ªí内¡C ¡]¦p FS511, DF115, DF116, DF117, DF118) ¦]爲¨S¦³q³f¡A©Ò¥H¤£¥ÎÅã¥Ü¨ìPJ¶×Á`ªí内¡C¡^
WO-J057-0**q³æ¸¹«h¥HÄæ¦ì±Æ¦C¡C
¦pªGWindow Ãþ«¬¤@Äæ¬O¡§¤f¦r§Î¡¨¡A PJ ªºÃþ«¬¤@ÄæÅܦ¨¡§ Mouth" ;
¦pªGWindow Ãþ«¬¤@Ä椣¬O¡§¤f¦r§Î¡¨¡A PJ ªºÃþ«¬¤@ÄæÅܦ¨¡§ Other" ;
¦pªGDoor ªíªº¸ê®Æ¡A PJ ªºÃþ«¬¤@ÄæÅܦ¨¡§ Door"
****¦]爲¦³¾÷·|קï Window & Door ¸ê®Æ©ÎªÌ¼W¥[WO-J057-0**q³æ¡A©Ò¥HPJªí¦pªG¤£¬OªÅ¥Õ¡A«h«O¯d쥻ªº¹Ï¸¹/ªø/¼e/±¿n/Ãþ«¬ªº¸ê®Æ¡A¥u¬O§ó·s¨CÓWO-J057-0** ªº¼Æ¶q¡A©ÎªÌ¥[´¡PJªí内¨S¦³ªºWO-J057-0**¤@Äæ¨ìÄæE«á± |
-
-
ac test.rar
(27.48 KB)
-
-
ac test.rar
(27.48 KB)
-
-
sample.rar
(18.5 KB)
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 1# 198188
¨S¯d·N¤W¸ü¤F3Óªþ¥ó¡Aªþ¥óSample¤~¬O¥¿½T¡A¨ä¥L¨âÓªþ¥ó¬O¿ù¤F¡C |
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
- Option Explicit
- Sub Test()
- Dim Brr, Z, i&, C, T$, T1$, T2$, T3$, T4$, T5$, T6$, xZ As Range
- Dim ColNum As Long
- Dim m, j, k As Integer
- Dim L As String
- Set Z = CreateObject("Scripting.Dictionary")
- Brr = Range([Window!AE02], [WINDOW!A65536].End(3))
- For i = 1 To UBound(Brr)
- T1 = Trim(Brr(i, 2)): T2 = Val(Brr(i, 4)): T3 = Val(Brr(i, 5)):: T = T1 & "/" & T2 & "/" & T3
- If T1 = "" Then GoTo i01
- Z(T) = Val(Brr(i, 6))
- i01: Next
- Brr = [PJ!a1].CurrentRegion
- For i = 2 To UBound(Brr)
- T1 = Trim(Brr(i, 1)): T2 = Val(Brr(i, 2)): T3 = Val(Brr(i, 3)): T = T1 & "/" & T2 & "/" & T3
- If T1 = "" Or Z(T) = "" Then Brr(i - 1, 1) = "": GoTo i02
- Brr(i - 1, 1) = Z(T)
- i02: Next
- [PJ!D2].Resize(UBound(Brr), 1) = Brr
- End Sub
½Æ»s¥N½X ¦^´_ 2# 198188
Z(T) = Val(Brr(i, 6)) ¬O°O¿ýWindow Äæ F¬O¼Æ¾Ú¡A
¦pªG·Q°O¿ý¦hÓÄæ¦ìªº¼Æ¾Ú¡A¨Ò¦pÄæG, I, J, K - AD ,À³¸Ó¦pªG¼g¡H
¥t¥~§Ú¸Õ¹L°O¿ýÄæG¼Æ¾Ú¡A¦ý¬O¤¤¤å¦n¹³Åª¤£¥X¨Ó¡C
¦pªGWindow 内 ÄæB, D, E ¬Û¦Pªº¼Æ¾Ú¡A Äæ I - AD ªº¼Æ¶q«öÄæ¦ì¤À§O¥[Á`¡A¦p¦óªí¹F¡H |
|
|
|
|
|
|
- ©«¤l
- 14
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 64
- ÂI¦W
- 42
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- excel
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-8-24
- ³Ì«áµn¿ý
- 2024-8-19
|
|
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 4# xyz66217
¬Oªº¡A·|¤£Â_¦V¤U©M¦V¥k©µ¥Ó¡C
©µ¥Ó°ÝÃD¤£¤j¡A´N¬O¤£ª¾¹D«ç¼Ë§â¬Û¦Pªº¥[Á` ©M¦hÄæ¦ì°O¿ý¡C
Ãþ¦ü³o¼Ë¥[Á`
Z(T) = Val(Brr(i, 6)) + Val(Brr(i, 6)) + Val(Brr(i, 6))
ÁÙ¦³´N¬O«ç¼Ë¦hÄæ¦ì°O¿ý
ARRAY (Z(T), Z(T), Z(T), Z(T), Z(T)) |
|
|
|
|
|
|
- ©«¤l
- 1437
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1461
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 3# 198188
«Øij:¥H¦r¨å°O¿ý Windowªí¸ê®Æªº ÃöÁä¦r²Õ¬°key,¦C¸¹¬°item |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 430
- ¥DÃD
- 65
- ºëµØ
- 0
- ¿n¤À
- 521
- ÂI¦W
- 30
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-10-30
- ³Ì«áµn¿ý
- 2024-8-13
|
¦^´_ 6# Andy2483
²{¦b¦b¾Ç²ß¤¤¡A¦ý¬O·§©ÀÁÙ¬O«Ü¼Ò½k¡A½Ð°Ý«e½ú¤U±³o¨â¥y¬O«ç¼Ë¸ÑŪ¡A§Ú¸Õ¹L¥Î³v¨B°»¿ù¨Ó¤F¸Ñ¨Ï¥Î¤è¦¡¡A¦ý¬OÁÙ¬O¤£À´¡C
[Backup!a1].Item(2, c).Resize(UBound(Brr) - 2) = Brr
[PJ!D2].Resize(UBound(Brr), 1) = Brr |
|
|
|
|
|
|