伊莉討論區

標題: 如何於工作表1A4貼完後，再新增工作表2A4繼續貼，直到A3大於0 [打印本頁]

---

作者: a681110    時間: 2019-6-11 12:02 AM     標題: 如何於工作表1A4貼完後，再新增工作表2A4繼續貼，直到A3大於0

拜託 各位厲害大大們解套
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
        Worksheets("工作表i").Select
        Range("A4").Select
        
        Application.Width = 792
        Application.Height = 535.5
        i = i + 1
        Worksheets.Add Before:=Worksheets(i), Count:=i
        Range("A4").Select
        End If

End Sub

---

作者: pardia    時間: 2019-6-17 11:55 AM

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

---

作者: Waroger1    時間: 2019-11-8 04:37 PM

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

複製代碼

---

作者: Waroger1    時間: 2019-11-8 04:47 PM

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

複製代碼

---

歡迎光臨 伊莉討論區 (http://www55.eyny.com/)

Powered by Discuz!