singo1232001

¦^´_ 1# av8d


1.    °£¿ù ®É ¥ýµù±¼ on error resume next

2. Workbooks.Open (ThisWorkbook.Path & "\" & FN) '¶}±Ò¸ÓÀÉ®×  ·|¹ê»Ú¨Ì·Ó"windows¸ê®Æ§¨¶}±Ò°ÆÀɦW³]©w" §PÂ_¸ê®Æ  ¨Ò¦p.xlsx  §äÀÉ®×
¦pªG¨S¶} §Aªº¼gªk¬O¥¿½Tªº
­Y¶}°ÆÀɦW µ{§Ç´N§ä¤£¨ìÀÉ®×

3.©ÎªÌ¥ý¥Îdir¼g if§PÂ_ §ä¥ý§PÂ_Àɮצb¤£¦b ¤£¦A´N else ¥[¤W¦³°ÆÀɦWªº§ä
dirªº¤è¦¡°ÝGPT

singo1232001

¦^´_ 2# singo1232001


    Workbooks.Open (ThisWorkbook.Path & "\" & FN)  
ª½±µ§ï¦¨
Workbooks.Open  (ThisWorkbook.Path & "\" & FN & ".xlsx")
¸Õ¸Õ¬Ý

singo1232001

¦bon error resume next
³oºØ¿ù¤F¤S¿ùªº±¡ªp«Ü®e©öµo¥Í

©Ò¥H³£·|³sÄò¨Ï¥Î
on error resume next
........
err.clear
on error goto 0

ªº¤è¦¡¨Ó±j¨î©¿²¤¿ù»~«á
ÁקK«á¤è¤S¥X¿ù¨S§ä¨ì°ÝÃD
¦b·íµ{§Çªº¶q¤j¨ì¤@©wµ{«× ³o¬O¥²¥Î¤Wªº§Þ³N

¥t¥~·í ¦³®É­Ôon error resume next «á
¹J¨ì¿ù»~ ´N¥²¶·Âk¹s ÁקKµ{§Ç¤S¿ù
¨Ò¦p
on error resume next
in isobect(ar) then err.clear:on error go to 0 :exit sub
err.clear:on error go to 0
...
...

singo1232001

¦^´_ 6# av8d


    Private Sub CommandButton1_Click()
'¼È°±¥|­Ó®e©ö©ìºCªº Excel ¥\¯à
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
'Application.EnableEvents = False
'On Error Resume Next
    '§ó·s¬¡­¶Ã¯¡G¥«¥Á¥d¤é³øªí
    FN = "¥«¥Á¥d¤é³øªí" 'ÀɮצWºÙ
    Set FNwb = Workbooks.Open(ThisWorkbook.Path & "\" & FN)  '¶}±Ò¸ÓÀÉ®×
   
    CB = Left(ComboBox1, Len(ComboBox1) - 3) '©Ò³]©wªº¤é´Á
    'yTD = Format(CB, "yyyy") - 1911
    mTD = Format(CB, "m")
    dTD = Format(CB, "d")
    FNTD = mTD & "¤ë"

    Dim FNcell As Range
    For Each Z In FNwb.Sheets(FNTD).Range("C2:CM2")
    If Z.Value = Int(Format((DateValue(CB)), 0)) Then
    Set FNcell = Z
    Exit For
    End If
    Next
   
   
    ActiveWindow.ScrollColumn = FNcell.Column - 15
    ActiveWindow.ScrollRow = FNcell.Row - 1
   
    If Not FNcell Is Nothing Then
        FNcell.Offset(1, 0).Select
        For m = 7 To 12
            For n = 1 To 4
                ActiveCell.Offset(m, n - 1) = Cells(m + 5, n * 2)
            Next
        Next
        For m = 19 To 24
            For n = 1 To 4
                ActiveCell.Offset(m, n - 1) = Cells(m, n * 2)
            Next
        Next
        ActiveCell.Offset(-1, 0).Select
        
        '§ó·s[¾ú¥v¦X­p]
        Dim i As Integer, j As Integer
        '·í¤é¦X­p¶K¨ì¾ú¥v¦X­pB4:B9
        For i = 4 To 9
            Cells(i, 2) = Cells(i + 8, 4)
        Next
        '·í¤é¦X­p¶K¨ì¾ú¥v¦X­pD4:D9
        For i = 4 To 9
            Cells(i, 4) = Cells(i + 8, 8)
        Next
        '·í¤é¦X­p¶K¨ì¾ú¥v¦X­pF4:F9
        For i = 4 To 9
            Cells(i, 6) = Cells(i + 15, 4)
        Next
        '·í¤é¦X­p¶K¨ì¾ú¥v¦X­pH4:H9
        For i = 4 To 9
            Cells(i, 8) = Cells(i + 15, 8)
        Next
        '²M°£[·í¤é¦X­p]
        For i = 2 To 8 Step 2
            For j = 12 To 17
                Cells(j, i) = ""
            Next
        Next
        For i = 2 To 8 Step 2
            For j = 19 To 24
                Cells(j, i) = ""
            Next
        Next
        [K3:O15].ClearContents
        [J20].ClearContents
    Else
        MsgBox "¦b¡i¥«¥Á¥d¤é³øªí¡j¤¤§ä¤£¨ì " & CB & " ¡A°Ê§@²×¤î¡C"
    End If

'«ì´_¥|­Ó®e©ö©ìºCªº Excel ¥\¯à
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
'Application.EnableEvents = True
End Sub