­ã´£³¡ªL

¦^´_ 10# v03586


³øªíªºDATE TIME ¨ÃµL[¦~«×], ¥B¬°¡e¤å¦r®æ¦¡¡f¡A11/08  16:31¡A
Split("11/08  16:31", " ")(0) ¬O¨ú¥X 11/08,

­Y¬O¥HÀx¦s®æ«ü©w¤é´Á¡G
QDate = Format(Sheets("comply").[H13], "mm/dd")

­Y¬O©T©w¬°¹q¸£¤é´Áªº¡e¤µ¤Ñ¡f¡G
QDate = Format(Date, "mm/dd")

­ã´£³¡ªL

­×§ï¤@¤U¡e¦Û­q¨ç¼Æ¡f¡A
¬Ý¼Æ¾Ú¡ADEVICE ¦ü¥G³£¥H¡e«á­±¡fªº¸`ÂI¬°¥D¡A¤£¹L³oÁÙ¬O·§²¤ªºÀË´úªk¡AµLªk¦Ê¤À¦Ê¥¿½T¡G

Function Get_Layer(xStr$) As String
Dim i%, j&, N%, U, T, TT$, Ta$, Tb$
T = xStr
For Each U In Array("02G", "04G", "08G"):  T = Replace(T, U, Mid(U, 2)):  Next
¡@
T = Split(T, "-")
For j = UBound(T) To 0 Step -1
¡@¡@N = 0: Ta = "": Tb = ""
¡@¡@For i = 7 To 1 Step -1
¡@¡@¡@¡@TT = "-" & T(j)
¡@¡@¡@¡@If N <> 5 Then
¡@¡@¡@¡@¡@N = InStr(TT, 2 ^ i & "G")
¡@¡@¡@¡@¡@If N > 0 Then If Not IsNumeric(Mid(TT, N - 1, 1)) Then Ta = 2 ^ i & "G": Exit For
¡@¡@¡@¡@End If
¡@¡@Next i
¡@¡@If Ta = "" Then GoTo 101
¡@
¡@¡@N = N + Len(Ta)
¡@¡@For i = N To N + 2
¡@¡@¡@¡@Tb = Mid(TT, i, 1)
¡@¡@¡@¡@If Val(Mid(TT, i, 1)) Then Tb = Left(Val(Mid(TT, i)), 2): Exit For
¡@¡@¡@¡@Tb = ""
¡@¡@Next i
¡@¡@If Tb <> "" Then Get_Layer = Ta & "*" & Tb: Exit Function
101: Next j
End Function

v03586

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


    ÁÂÁª©¤j«ü±Ð
½Ð°Ý¤@¤Uª©¤j... ½Ð°Ý¬O¥[¦b³o°Ï¶Ü?

¤U¸ü (37.96 KB)

2015-11-30 00:57

·Pı¤W<¦Û­q¨ç¼Æªk>»P<¦X¨Ö¨âªk> ¬O¯à§â¼h§O§P§Oªº³Ì²M·¡ªº¤@­Ó¤èªk~

v03586

Sorry sir ....ª¾¹D­×§ï­þ¸Ì¤F!!

­ã´£³¡ªL

³øªí¡eCUSTNAME¡f²Å¦X¡e«ü©wÃöÁä¦r¡f¡A¤£¥[Á`¸Óµ§¼Æ¶q¡ã¡ã¡@

If InStr(RepArr(j, 2), "ENG") Or InStr(RepArr(j, 2), "CSP") Then GoTo 101
§ï¦¨¦p¤U¡G¡@
Dim x, XX
XX = Array("HQ-5F", "HQ5F", "HQ-2F", "HQ2F", "AT7F", "AT6F", "CSP", "ENG")
For x = 0 To UBound(XX)
¡@¡@If InStr(RepArr(j, 2), XX(x)) Then GoTo 101
Next

v03586

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


    ­×§ï«áªGµM¥[Á`¼Æ¦r¤ñ¸û±µªñÁ`§ë½u¶q¤F!!!!!·PÁª©¤jªºsupport

v03586

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


    ª©¤j½Ð°Ý¤@¤U¦pªG­n¦A°µ­Ó·L½Õ  ½Ð°Ý¥i¦æ¶Ü?
¼W¥[¤@ÄæDEVICE ¨Ì·Ó¬Û¦PªºDevice  ¦p¹Ï

¤U¸ü (28.37 KB)

2015-12-1 14:42

¬Û¦PDevice¥[Á` ³Ì«á§e²{®É±a¥X¬Û¦Pªº¥[Á`  ±a¤J­pºâ
¦p°õ¦æµ²ªG¹Ï¡õ

°õ¦æµ²ªG¨ºÃäÄæ»P¦C  ¼W¥[¤@­Ó¥[Á`  ¦p¹Ï ¥i¥H¶Ü?
¦pªG³o¼Ë­pºâ¥X¨Óªº¼Æ­È ¬O¤£¬OÀ³¸Ó­nµL±ø¥ó¨ú¾ã¼Æ?

¤U¸ü (69.68 KB)

2015-12-1 14:42

­ã´£³¡ªL

¦^´_ 17# v03586


ON¶}¾÷¼Æ­pºâµ{¦¡_v2.rar (489.14 KB)

¤U¸ü¦¸¼Æ: 4

2015-12-1 18:28

v03586

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


    ·PÁª©¤j°w¹ï»Ý¨Dªº½Õ¾ã!!!
¥t¥~Total ªº¥[Á`­ì¥»§Ú·Q»¡¦Û¤v¹w³]¨ç¼ÆSum(F2:T2) µM«á¤â°Ê©Ô¤U¥h
¨S·Q¨ì«ö­pºâ«á ·|§â§Úªº¨ç¼Æ²M°£

ÂŦⳡ¤À¦pªGµLªk§e²{¨SÃö«Y

¤U¸ü (83.54 KB)

2015-12-2 00:48

c_c_lai

¦^´_ 19# v03586
¸Õ¸Õ¬Ý¡G

1. Sub ­pºâ·í¤é¶}¾÷¼Æ()
   
2.     Dim RepSht As Worksheet, RepArr, xD1, xD2, R&, C&
   
3.              .
   
4.              .
   
5.              .
   
6.     '  ¦¹³B©I¥s
   
7.     GetSubTot
   
8.     Application.GoTo xSht.[A2]
   
9. End Sub

½Æ»s¥N½X

¼W¥[³¡¤À¡G

1. Sub GetSubTot()
   
2.     Dim Btm As Long, rPos As Long
   
3.    
   
4.     With Sheets("¶}¾÷¼Æ")
   
5.         Btm = .Range("A" & Rows.Count).End(xlUp).Row
   
6.         rPos = Sheets("¶}¾÷¼Æ").UsedRange.End(xlToRight).Column
   
7.         If (Cells(1, rPos) = "Total") Then rPos = rPos - 1
   
8.         .Cells(1, rPos + 1) = "Total"
   
9.         .Cells(2, rPos + 1).Resize(Btm - 1).Formula = "=SUM(F" & 2 & ":T" & 2 & ")"
   
10.         .Cells(2, rPos + 1).Resize(Btm - 1) = .Cells(2, rPos + 1).Resize(Btm - 1).Value
    
11.         .Cells(Btm + 1, "B") = "                        Total"
    
12.         .Cells(Btm + 1, "F").Resize(, 16).Formula = "=SUM(F" & 2 & ":F" & Btm & ")"
    
13.         .Cells(Btm + 1, "F").Resize(, 16) = .Cells(Btm + 1, "F").Resize(, 16).Value
    
14.     End With
    
15. End Sub

½Æ»s¥N½X