- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 4# yagami12th - Option Explicit
- Private Sub Workbook_Open()
- If [COUNTA(Sheet1!D2:E2)] = 2 Then 'D2:E22. ³£¦³¸ê®Æ 'Sheet1! : ¬°¤u§@ªí¦WºÙ
- 'If Application.CountA(Sheet1.[D2:E2]) = 2 Then 'Sheet1. : ¬°¤u§@ªí¼Ò²Õ¦WºÙ
- 'If Application.CountA(Sheets("Sheet1").[D2:E2]) = 2 Then
- Ex
- Else
- Application.OnTime #8:45:00 AM#, "EX" 'EX ¦b¤@¯ë¼Ò²Õ
- 'Application.OnTime #8:45:00 AM#, "EX" 'EX ¦b¤@¯ë¼Ò²Õ
- 'Application.OnTime #8:45:00 AM#, "ThisWorkbook.EX" 'EX ¦bª«¥ó¼Ò²Õ
- 'Application.OnTime TimeValue("8:45:00"), "EX" 'EX ¦b¤@¯ë¼Ò²Õ
- 'Application.OnTime Now + TimeValue("0:0:30"), "EX" '30¬í«á°õ¦æEX
- End If
- End Sub
- Sub Ex()
- With Sheet1
- .[D2:E2].AutoFill Destination:=.Range("D2:E" & .[C2].End(xlDown).Row) ', Type:=xlFillCopy
- End With
- End Sub
½Æ»s¥N½X |
|