Excel 檢查工作表後,再決定新增

Function Fn2_新增頁表()
    Dim Sht9Star As Object
    Next_Con=1
    On Error GoTo create
        Set Sht9Star = Sheets("九星下" & Next_Con)
        Exit Function
create:
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = "九星下" & Next_Con
End Function

留言

這個網誌中的熱門文章

超任 三國志3代,登入武將金手指

歐姆龍 HEM-7600T 評價,購買心得分享(打臉文)

年青人眼鏡評價(負評),辛酸血淚史分享文