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

[µo°Ý] ¨Ì·Ó³øªí§ë½u¶q»PUPH<¨C¤p®É²£¯à>­pºâ¶}¾÷¼Æ -- µo°Ý

¦^´_ 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")

TOP

­×§ï¤@¤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

TOP

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


    ÁÂÁª©¤j«ü±Ð
½Ð°Ý¤@¤Uª©¤j... ½Ð°Ý¬O¥[¦b³o°Ï¶Ü?
1448815872538.jpg
2015-11-30 00:57



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

TOP

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

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2015-11-30 10:27 ½s¿è

³øªí¡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

TOP

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


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

TOP

¥»©«³Ì«á¥Ñ v03586 ©ó 2015-12-1 14:46 ½s¿è

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


    ª©¤j½Ð°Ý¤@¤U¦pªG­n¦A°µ­Ó·L½Õ  ½Ð°Ý¥i¦æ¶Ü?
¼W¥[¤@ÄæDEVICE ¨Ì·Ó¬Û¦PªºDevice  ¦p¹Ï
device.png
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±ø¥ó¨ú¾ã¼Æ?
OK.png
2015-12-1 14:42

TOP

¦^´_ 17# v03586


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

TOP

¦^´_ 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
OK.png
2015-12-2 00:48

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD