2010年8月19日星期四

新工作表

Sub 新工作表()
x = InputBox("請輸入工作表數量", "世新")

Sheets(1).Select

For i = 1 To x Step 1
Sheets.Add
Next
End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱