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

[µo°Ý] EXCEL ¸ê®Æªí¤Wªº¸ê®Æ©T©w§R°£®É¶¡

[µo°Ý] EXCEL ¸ê®Æªí¤Wªº¸ê®Æ©T©w§R°£®É¶¡

¥»©«³Ì«á¥Ñ v03586 ©ó 2015-9-25 00:58 ½s¿è

¤W½gµo¤åµ{¦¡¥Øªº¬°¦¬®ÆÀ³¥Î
¦¹¥÷¸ê®Æ¬°¸ê®Æ®w¦¬®ÆªºÂÅ¥»
¤W½gµo¤å

¦ý¨Æ«á·Q¦¹¸ê®Æ«O¦sªº®Ä´Á¤£»Ý­n¥Ã¤[(EXCEL¦n¹³¥u¯à°O¿ý6¸U¦hµ§¸ê®Æ¦Ó¤w) ¥~¥[¤W¤½¥q¹q¸£®e¶q¦³­­

·Q¨Ì·ÓCÄæ¦ìªº®É¶¡»P²{¦bªº®É¶¡§@±Àºâ¡A¶W¹L¤T­Ó¤ëªº¸ê®Æ¦Û°Ê§R°£

¥Ø«eCÄæ¦ì¨Ì·Óµ{¦¡½X¬O±a¥X¿é¤J®É¶¡
°²³]¿é¤J®É¶¡¬O2015/6/20   ¤ñ¹ï²{¦b®É¶¡2015/9/21
¨º2015/6/20ªº¸ê®Æ¤w¸g¶W¹L3­Ó¤ë®Ä´Á¡A¤£ª¾¹D¸ê®Æ¬O§_¯à¦Û°Ê§R°£
¤w½T«OªÅ¶¡¸ò°õ¦æ³t«×©O¡H

  1. Sub ¿é¤J()
  2. Dim xR As Range, X, Y, T$, N%
  3. Set xR = Cells(Rows.Count, 2).End(xlUp)(2, 0)
  4. ¡@
  5. T = "½Ð¿é¤J¦¬®ÆOP¤u¸¹ [ Please enter Operator ID ]"
  6. Do: X = InputBox(T, T)
  7. ¡@¡@If StrPtr(X) = 0 Then Exit Sub  '¨Ï¥ÎªÌ«ö¡e¨ú®ø¡f¸õ¥X
  8. Loop Until X <> ""
  9. ¡@
  10. T = "½Ð¿é¤JMO [ Please enter MO ]"
  11. Do: Y = InputBox(T & "¡A¿é¤J§¹²¦½Ð«ö¨ú®øÁä", T)
  12. ¡@¡@If StrPtr(Y) = 0 Then GoTo 999  '¨Ï¥ÎªÌ«ö¡e¨ú®ø¡fµ²§ô
  13. ¡@¡@If Y <> "" Then
  14. ¡@¡@¡@xR.Resize(1, 3) = Array(X, Y, Now)
  15. ¡@¡@¡@Set xR = xR(2, 1): N = N + 1
  16. ¡@¡@End If
  17. Loop
  18. ¡@
  19. 999: If N > 0 Then ThisWorkbook.Save
  20. End Sub
½Æ»s¥N½X

¶W¹L¢¸¢¯¤Ñ¤~§R¡A¥H¿W¥ßµ{§Ç°õ¦æ¡G
  1. Sub §R°£()
  2. Dim R&
  3. R = Application.CountIf([Database!C:C], "<" & Date - 90)
  4. If R > 0 Then [Database!A2:C2].Resize(R).Delete Shift:=xlUp
  5. ¡@
  6. R = Application.CountIf([Database!F:F], "<" & Date - 90)
  7. If R > 0 Then [Database!D2:F2].Resize(R).Delete Shift:=xlUp
  8. End Sub
½Æ»s¥N½X

TOP

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


    ·PÁª©¥Dªº¦^ÂСI¸Ñ¨M¤F¦ÑÁó¬ðµM¥áµ¹§Úªº¤@­Ó°ÝÃD.....:handshake

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD