- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 4# fancky
±N¨âÓ«ö¶sªºµ{¦¡½Xco¥X¨Ó~ §A¦Û¤v¦A««Ø¤@¤U~ À³¸Ó´N¤F¸Ñ¤F~- Private Sub CommandButton1_Click() '¨C¤é¸ê®Æ§ó·s
- If Sheet1.Range("F2") = "" Then '¸Ó¶g²Ä¤@¤Ñ¶}½LÂI Y¶}½LÂI¤w¸g¦³¸ê®Æ¡A´N¤£·|¦A±a¨ä¥¦¤é´Áªº¸ê®Æ
- Sheet1.Range("F2") = Sheet1.Range("C8").End(xlDown)
- End If
- '¸Ó¶g³Ì°ªÂI
- Sheet1.Range("F3") = Application.Max(Sheet1.Range("D9"), Sheet1.Range("D10"), Sheet1.Range("D11"), Sheet1.Range("D12"), Sheet1.Range("D13"))
- '¸Ó¶g³Ì§CÂI
- Sheet1.Range("F4") = Application.Min(Sheet1.Range("E9"), Sheet1.Range("E10"), Sheet1.Range("E11"), Sheet1.Range("E12"), Sheet1.Range("E13"))
- '¸Ó¶g¨C¤é¦¬½L»ù
- Sheet1.Range("F5") = Sheet1.Range("F65536").End(xlUp)
- End Sub
½Æ»s¥N½X- Private Sub CommandButton2_Click() '¶×¥X¸ê®Æ
- A = VBA.Weekday(Date, vbMonday)
- If A = 1 And IsError(Application.VLookup(Sheet1.Range("B9"), Sheet1.Range("J9:J65536"), 1, False)) Then
- For I = 9 To 13 '±N¤W¶g¸ê®Æ¶×¨ì¾ú¥vªÑ»ù°Ï
- 'Y¸Ó¤é¬O¥¼¶}¥«¡A½Ð¤£n¶ñ¼g¸ê®Æ¡A·|¦Û¦æ§PÂ_±N¸Ó¤Ñ¸ê®Æç°£
- If Sheet1.Range("C" & I) = "" Or Sheet1.Range("D" & I) = "" Or Sheet1.Range("E" & I) = "" Or Sheet1.Range("F" & I) = "" Then
- Else
- Sheet1.Range("J65536").End(xlUp).Offset(1, 0) = Sheet1.Range("B" & I)
- Sheet1.Range("K65536").End(xlUp).Offset(1, 0) = Sheet1.Range("C" & I)
- Sheet1.Range("L65536").End(xlUp).Offset(1, 0) = Sheet1.Range("D" & I)
- Sheet1.Range("M65536").End(xlUp).Offset(1, 0) = Sheet1.Range("E" & I)
- Sheet1.Range("N65536").End(xlUp).Offset(1, 0) = Sheet1.Range("F" & I)
- Sheet1.Range("O65536").End(xlUp).Offset(1, 0) = Sheet1.Range("G" & I)
- Sheet1.Range("P65536").End(xlUp).Offset(1, 0) = Sheet1.Range("H" & I)
- End If
- Next
- Sheet1.Range("F2:F5").ClearContents '²M°£¶}½L»ù/³Ì°ªÂI/³Ì§CÂI/¦¬½L»ù
- Sheet1.Range("B9:H13").ClearContents '²M°£¤W¤@¶gªºªÑ»ù¸ê®Æ
- For I = 0 To 4 '³]©w¥»¶g¤@~¤ªº¤é´Á
- Sheet1.Range("B65536").End(xlUp).Offset(1, 0) = VBA.Date + I
- Next
- Else
- MsgBox "¸Ó¶g¸ê®Æ¤w¸g¶×¥X"
- End If
- End Sub
½Æ»s¥N½X |
|