找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻尊貴會員無限使用任何功能你準備好成為出色的版主了嗎?
office三上上原亞衣ge七大罪世紀帝國高中
dass 22異世界来精翻豬肝記得adorable小島南大槻

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]超龍珠英雄MM 02-

TVアニメ『一拳超人

[繁]葬送的芙莉蓮25-

[繁]因為不是真正的夥

[繁]月光下的異世界之

[簡]北海道辣妹金古錐
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 2941|回復: 3

[求助] 如何於工作表1A4貼完後,再新增工作表2A4繼續貼,直到A3大於0[複製鏈接]

Rank: 1

帖子
14
積分
91 點
潛水值
3373 米
發表於 2019-6-11 12:02 AM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
拜託 各位厲害大大們解套
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
...
瀏覽完整內容,請先 註冊登入會員
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 2Rank: 2

帖子
183
積分
492 點
潛水值
12885 米
發表於 2019-6-17 11:55 AM|顯示全部樓層
1.MsgBox "請輸入目標"
        Range("A3").Value =???? 鍵盤如何鍵入A3中?????
(請改成 Range("A3") = InputBox("請輸入XXXXXXX")
2.Worksheets("工作表i").Select 這是要做什麼,變數應該不能放在""內
以上是語法的問題,其他的並不太知道你要的是什麼。
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

帖子
2
積分
0 點
潛水值
1690 米
發表於 2019-11-8 04:37 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
本帖最後由 Waroger1 於 2019-11-8 04:44 PM 編輯
  1. Private Sub CommandButton1()
  2.     Dim i As Integer
複製代碼

使用道具檢舉

帖子
2
積分
0 點
潛水值
1690 米
發表於 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
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部