如何於工作表1A4貼完後，再新增工作表2A4繼續貼，直到A3大於0

a681110

拜託 各位厲害大大們解套
Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim b As Integer
    i = 1
        If Range("A3").Value = "" Then
        MsgBox "請輸入目標"
        Range("A3").Value =???? 鍵盤如何鍵入A3中?????
        ElseIf Range("A3").Value < 1 Then
...

瀏覽完整內容，請先 註冊 或 登入會員

pardia

1.MsgBox "請輸入目標"
        Range("A3").Value =???? 鍵盤如何鍵入A3中?????
(請改成 Range("A3") = InputBox("請輸入XXXXXXX")
2.Worksheets("工作表i").Select 這是要做什麼，變數應該不能放在""內
以上是語法的問題，其他的並不太知道你要的是什麼。

Waroger1

1. Private Sub CommandButton1()
   
2.     Dim i As Integer

複製代碼

Waroger1

Waroger1 發表於 2019-11-8 04:37 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

奇怪，編輯後怎麼只剩兩行...煩請版主幫忙刪掉，謝謝!

1. Sub CommandButton1()
   
2.     Dim i As Integer
   
3.     Dim b As Integer
   
4.     Dim s As String
   
5.    
   
6.     i = 1
   
7.     If Range("A3").Value = "" Then
   
8.        s = InputBox("請輸入目標")
   
9.        If s = "" Then Exit Sub
   
10.        Range("A3").Value = Val(s)
    
11.     End If
    
12.     If Range("A3").Value < 1 Then
    
13.        Worksheets("工作表" & i).Select
    
14.        Range("A4").Select
    
15.        Application.Width = 792
    
16.        Application.Height = 535.5
    
17.        i = i + 1
    
18.        Worksheets.Add Before:=Worksheets(i), Count:=i
    
19.        Range("A4").Select
    
20.     End If
    
21. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員