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

[µo°Ý] ¤é½uKÂà¶g½uK(¤w¸Ñ¨M)

[µo°Ý] ¤é½uKÂà¶g½uK(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ jiuhtsair ©ó 2011-10-21 21:14 ½s¿è

¦U¦ì¤j¤j¦n¡G ¤é½uÂন¶g½u.zip (4.49 KB)
        ¤p§Ì·Q½Ð±Ð¡A­n¦p¦ó¤~¯à±N¤é½uK½u¹ÏÂন¶g½uK½u¹Ï?
    ¤p§Ì·Q°µªº¬O¡G¨Ò¦p¥»¶g¤@ªº¶}½L¬O¶g½uªº¶}½LÂI¡A¶g¤@¨ì¶g¤­ªº³Ì°ªÂI¬O¶g½u³Ì°ªÂI¡A¶g¤@¨ì¶g¤­ªº³Ì§CÂI¬O¶g½u³Ì§CÂI¡A
       ¶g¤­ªº¦¬½L¬O¥»¶gªº¶g½u¦¬½LÂIÂI¦ì¡C
       ©Ò¦³¸ê®Æ¥i¥H¨C¤Ñ§ó·s(¨Ò¦p¤µ¤Ñ¬O¬P´Á¥|¡A¥»¶g¤@ªº¶}½L¬O¶g½uªº¶}½LÂI¡A¶g¤@¨ì¶g¥|ªº³Ì°ªÂI¬O¶g½u³Ì°ªÂI¡A¶g¤@¨ì¶g¥|ªº³Ì§CÂI¬O¶g½u³Ì§CÂI¡A
       ¶g¥|ªº¦¬½L¬O¥Ø«eªº¦¬½LÂIÂI¦ì)¡A¦P®É..¤é´ÁÄæ¤]¯à§ó·s...
    ¨C¶g¤@¶}©l®É¯à±q·sªº¤@Äæ¶}©l...
    ³o°ÝÃD·Q¤F¦n¾÷¤Ñ¡A«o¤´µM¨S¦³ÀYºü..
    Àµ½Ð¦U¦ì¤j¤jÀ°¦£...ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# jiuhtsair

   ³o­Ó¤£ª¾¹D¬O¤£¬O§A»Ý­nªºµ²ªG~

   ¤À¨â­Ó«ö¶s~ ¤@­Ó¬O¶×¥X¾ú¥v¸ê®Æ   ¤@­Ó¬O¨C¤é¸ê®Æ§ó·s
   ¦³¤@­Ó¯ÊÂI¬O~  ¥²Äò­n¨C­Ó¬P´Á¤@­n±N¸ê®Æ¶×¥X~ §A¥i¥H¦A¦Û¦æ­×§ï

    ¤é½uÂন¶g½u_´ú¸Õª©.rar (12.22 KB)
   
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 2# hugh0620

·PÁ¤j¤j´£¥Ü¡I²×©óª¾¹D¦p¦ó³B²z¤F¡I·PÁ¦A·PÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

·Qª¾¹D¬O¦p¦óÂà´«¡AÁÂÁ¡C

TOP

¦^´_ 4# fancky

±N¨â­Ó«ö¶sªºµ{¦¡½Xco¥X¨Ó~ §A¦Û¤v¦A­««Ø¤@¤U~ À³¸Ó´N¤F¸Ñ¤F~
  1. Private Sub CommandButton1_Click() '¨C¤é¸ê®Æ§ó·s

  2. If Sheet1.Range("F2") = "" Then  '¸Ó¶g²Ä¤@¤Ñ¶}½LÂI ­Y¶}½LÂI¤w¸g¦³¸ê®Æ¡A´N¤£·|¦A±a¨ä¥¦¤é´Áªº¸ê®Æ
  3.      Sheet1.Range("F2") = Sheet1.Range("C8").End(xlDown)
  4. End If
  5. '¸Ó¶g³Ì°ªÂI
  6. Sheet1.Range("F3") = Application.Max(Sheet1.Range("D9"), Sheet1.Range("D10"), Sheet1.Range("D11"), Sheet1.Range("D12"), Sheet1.Range("D13"))
  7. '¸Ó¶g³Ì§CÂI
  8. Sheet1.Range("F4") = Application.Min(Sheet1.Range("E9"), Sheet1.Range("E10"), Sheet1.Range("E11"), Sheet1.Range("E12"), Sheet1.Range("E13"))
  9. '¸Ó¶g¨C¤é¦¬½L»ù
  10. Sheet1.Range("F5") = Sheet1.Range("F65536").End(xlUp)

  11. End Sub
½Æ»s¥N½X
  1. Private Sub CommandButton2_Click()  '¶×¥X¸ê®Æ
  2. A = VBA.Weekday(Date, vbMonday)

  3. If A = 1 And IsError(Application.VLookup(Sheet1.Range("B9"), Sheet1.Range("J9:J65536"), 1, False)) Then
  4.    For I = 9 To 13  '±N¤W¶g¸ê®Æ¶×¨ì¾ú¥vªÑ»ù°Ï
  5.        '­Y¸Ó¤é¬O¥¼¶}¥«¡A½Ð¤£­n¶ñ¼g¸ê®Æ¡A·|¦Û¦æ§PÂ_±N¸Ó¤Ñ¸ê®Æ­ç°£
  6.        If Sheet1.Range("C" & I) = "" Or Sheet1.Range("D" & I) = "" Or Sheet1.Range("E" & I) = "" Or Sheet1.Range("F" & I) = "" Then
  7.        Else
  8.        Sheet1.Range("J65536").End(xlUp).Offset(1, 0) = Sheet1.Range("B" & I)
  9.        Sheet1.Range("K65536").End(xlUp).Offset(1, 0) = Sheet1.Range("C" & I)
  10.        Sheet1.Range("L65536").End(xlUp).Offset(1, 0) = Sheet1.Range("D" & I)
  11.        Sheet1.Range("M65536").End(xlUp).Offset(1, 0) = Sheet1.Range("E" & I)
  12.        Sheet1.Range("N65536").End(xlUp).Offset(1, 0) = Sheet1.Range("F" & I)
  13.        Sheet1.Range("O65536").End(xlUp).Offset(1, 0) = Sheet1.Range("G" & I)
  14.        Sheet1.Range("P65536").End(xlUp).Offset(1, 0) = Sheet1.Range("H" & I)
  15.        End If
  16.    Next
  17.    Sheet1.Range("F2:F5").ClearContents  '²M°£¶}½L»ù/³Ì°ªÂI/³Ì§CÂI/¦¬½L»ù
  18.    Sheet1.Range("B9:H13").ClearContents '²M°£¤W¤@¶gªºªÑ»ù¸ê®Æ
  19.    For I = 0 To 4     '³]©w¥»¶g¤@~¤­ªº¤é´Á
  20.         Sheet1.Range("B65536").End(xlUp).Offset(1, 0) = VBA.Date + I
  21.    Next
  22. Else
  23.      MsgBox "¸Ó¶g¸ê®Æ¤w¸g¶×¥X"
  24. End If
  25. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

®¦®¦¡A³o¼Ë§ÚÀ³¸Ó¬ÝÀ´¤F¡A¦]¬°­è¥[¤J¨S¿ìªk¤U¸üªþ¥ó¡A©Ò¥H§Ú¤~·|³o¼Ë°Ý

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD