pointchi

¦^´_ 10# ­ã´£³¡ªL
ª©¤j±z¦n¡A
§Ú±N±zªº»yªk¶K¦Ü§Úªº¤º®e¡A¦p¤U:

Sub step01()
        
    a = Cells(13, 5)
    If Len(a) >= 28 Then
        Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 5).Font.Size = 35
        Worksheets("raw").Cells(13, 5).Font.FontStyle = "²ÊÅé"
    Else

        Worksheets("raw").Cells(13, 5).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 5).Font.Size = 48
        Worksheets("raw").Cells(13, 5).Font.FontStyle = "²ÊÅé"
    End If  

    Dim linkbook As Workbook
    For Each linkbook In Workbooks
        If LCase(.Name) Like "link*.xls*" Then .Close 0
        Next
   
End Sub

¥i¬O¥X²{(.Name)¿ù»~°T®§¬°"¤£¥¿½Tªº¤Þ¥Î"¡A¬O§_¦]¬°§Ú­ì¥»ªºVBA»yªk­þ¸Ì¦³¿ù»~¡A¾É­P«áÄòªº²§±`¡C

samwang

¦^´_ 11# pointchi

¬Ý¤F­ã¤j¦^ÂСA®M¥Î¥Lªº¦^ÂСAÀ³¸Ó¥i¥H²Å¦X±zªº»Ý¨D¤F¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Dim wb As Workbook
For Each wb In Workbooks
    If LCase(wb.Name) Like "link*.xls*" Then wb.Close 0
Next

pointchi

¦^´_ 12# samwang


    ·PÁª©¤j»PS¤j¡A¦¨¥\¤F~
    ±µ¤U¨Ó§Ú¦A¨Ó¬ã¨s¶}ÀYªºLink(N-1).xlsÀɮ׽ƻs¦Ü§@·~¥DÀÉTEST1ªºRaw¼ÐÅÒ­¶