12
返回列表 上一主題 發帖

[發問] 各位老師vba 改善獲取指定頁的程式內有程序代碼!

marco2000

帖子
13 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
window7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-2-17 
最後登錄
2014-2-20 
11# 跳轉到 »
發表於 2014-2-20 09:30 | 顯示全部帖子
回復 16# Kubi


謝謝你,我知道有什麼用,但看不明程序代碼
因為我想進行修改,但看不明白代碼,以致更改不到

TOP

marco2000

帖子
13 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
window7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-2-17 
最後登錄
2014-2-20 
12#
發表於 2014-2-20 10:11 | 顯示全部帖子
rr = 7                                           rr=7是什麼意思?
    For c = 1 To lb2                             這個是listbox2的檔案
        text1sl = UserForm1.ListBox2.List(c - 1)                         text1sl 是什麼
        pp = rr + 2                                         
        kk = checkrow                                   檢查橫例??
        arn = "C8" & ":" & "Z" & kk                                   arn是有什麼用?":"是用來連接?
        ActiveWorkbook.Worksheets(text1sl).Range(arn).Copy
        rrn = "B" & rr                                                                 B??
        ThisWorkbook.Sheets(1).Range(rrn).PasteSpecial
        rr = rr + kk - 5                                                   
        
        arn2 = "A" & pp & ":" & "A" & (rr - 3)                          'for fill "A" column
        ThisWorkbook.Sheets(1).Range(arn2) = ActiveWorkbook.Worksheets(text1sl).Cells(8, 3)

TOP

marco2000

帖子
13 
主題
1 
精華
0 
積分
16 
點名
0  
作業系統
window7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2014-2-17 
最後登錄
2014-2-20 
13#
發表於 2014-2-20 13:28 | 顯示全部帖子
好,謝謝我會努力研究!

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
12
返回列表 上一主題