PTT數位生活區 / Office

[問題] VBA錯誤

看板Office作者 (Q我的人是手養嗎)時間3年前 (2021/11/14 22:56), 編輯推噓4(4推 0噓 20→)
留言24則, 6人參與, 3年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:EXCEL 365 版本:365 各位好 VBA新手請教，因為年末要盤點要做個表格複製的VBA 但是卡在SUB的地方 一直出錯，顯示型別不符或未定義 思維是 先計算表格1的行數(總共需要印出來的小卡張數) 因為每張A4會印4張小卡所以設定pp = 4 總共需要的列印頁數就會等於行數/4 = tn 每份有41行 所以實務上會變成選擇1~41行的小卡表格 貼上第42列 重複執行到 行數X總表格數的次數 Sub 空白盤點小卡複製() Dim kk As Long '宣告kk為列數的變數 Dim tn As Integer '宣告tn為 頁數的變數 Dim i As Integer '宣告i為張貼列數變化的變數 Dim pp As Integer '宣告pp為變數 kk = Worksheets("表格1").Range("A65535").End(xlUp).Row pp = 4 tn = (kk \ pp) + 1 i = i * 41 For i = 1 To i * tn Step 1 Worksheets("小卡").Rows("1:41").Select Selection.Copy Worksheets("小卡").Rows("i:i").Paste Next 行數不會超過65535行 因為在SUB的地方直接顯示黃底，底下不知道有沒有錯誤，如果還有其他錯誤的地方 還請不吝賜教，謝謝。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.180.166.182 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1636901810.A.6F3.html
推
11/14 23:49, 3年前 , 1F
沒有End ?
11/14 23:49, 1F
→
11/15 07:49, 3年前 , 2F
有End sub
11/15 07:49, 2F
→
11/15 08:38, 3年前 , 3F
i 是什麼？
11/15 08:38, 3F
推
11/15 19:46, 3年前 , 4F
用range會不會比較好
11/15 19:46, 4F
推
11/15 20:13, 3年前 , 5F
淺見，定義tn為整數，但tn算式結果有可能非整數？
11/15 20:13, 5F
→
11/15 21:30, 3年前 , 6F
我用你的程式碼下去跑 可以順利往下走 你要不要貼圖
11/15 21:30, 6F
→
11/15 21:30, 3年前 , 7F
或是錯誤訊息上來?
11/15 21:30, 7F
→
11/15 23:00, 3年前 , 8F
Rows("i:i") 應該是rows(i & ":" & i) 或者rows(i)
11/15 23:00, 8F
→
11/15 23:00, 3年前 , 9F
然後四個dim 都先槓掉 懷疑超標
11/15 23:00, 9F
→
11/15 23:01, 3年前 , 10F
最後就是 有超過兩個同名的sub 不能有兩個名稱一樣
11/15 23:01, 10F
→
11/15 23:01, 3年前 , 11F
就算不同模組
11/15 23:01, 11F
→
11/15 23:03, 3年前 , 12F
還有 i 不要這樣用 改成
11/15 23:03, 12F
→
11/15 23:03, 3年前 , 13F
j=j*41
11/15 23:03, 13F
→
11/15 23:03, 3年前 , 14F
For i = 1 to j * tn 不然會無限跑不停
11/15 23:03, 14F
→
11/16 08:04, 3年前 , 15F
i值超過intrger 因為i值產生自我遞迴了 可能連續放大
11/16 08:04, 15F
→
11/16 08:04, 3年前 , 16F
摁 無窮迴圈 For i = 1 To i * tn Step 1
11/16 08:04, 16F
→
11/16 08:05, 3年前 , 17F
後面的 i * tn 印象是每迴圈一次 重算一次
11/16 08:05, 17F
推
11/16 09:29, 3年前 , 18F
更正 不會產生遞迴 此種寫法 沒有重置迴圈 請參考其他
11/16 09:29, 18F
→
11/16 09:29, 3年前 , 19F
問題
11/16 09:29, 19F
→
11/16 15:21, 3年前 , 20F
->K大 了解 我會再貼圖上來 ->W大我會再試試看感謝
11/16 15:21, 20F
→
11/16 17:53, 3年前 , 21F
依照上述意見稍微修改
11/16 17:53, 21F
→
11/16 17:54, 3年前 , 22F
但是錯誤訊息變成此處需要物件 需要改kk變數類型還是?
11/16 17:54, 22F
→
11/16 17:54, 3年前 , 23F
先前未加Set在前也是同樣錯誤 還請各位不吝指教
11/16 17:54, 23F
→
11/16 18:54, 3年前 , 24F
kk 不用set
11/16 18:54, 24F
‣ 更多 snow12031 的文章
文章代碼(AID): #1XaIEoRp (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 snow12031 的文章
文章代碼(AID): #1XaIEoRp (Office)