返回列表 上一主題 發帖

Excel中的按鈕是如何設定才可以從頭到尾的列出資料呢？

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2016-3-3 11:34 | 顯示全部帖子
本帖最後由 lpk187 於 2016-3-3 11:37 編輯

回復 3# 馨。

其實要製作類似的檔案，並不是很困難，前題就像准大說的必須略懂得VBA程式碼，
其附檔只是做循環動作而已，而且VBA程式碼也只是用到基礎動作
以下的程式碼，也可以達到類似附檔的動作

    Private Sub 列印_Click()
    Dim xFrom%, xTo%, I% '宣告變數
    xFrom = Range("L1") '讀取儲存格L1的值，寫入變數 xFrom
    xTo = Range("N1") '讀取儲存格N1的值，寫入變數 xTo
    If xFrom = 0 Or xTo = 0 Then MsgBox "輸入區不得為空白": GoTo 10 '檢查輸入區域是否為空白，若是空白，離開程式
        For I = xFrom To xTo    '以 xFrom 到 xTo 做循環
            [A2] = Sheets("名冊").Cells(I, 1) '將名冊中的序號寫到工作區的A2儲存格
            [B2] = Sheets("名冊").Cells(I, 2) '棟別
            [D2] = Sheets("名冊").Cells(I, 3) '姓名
            [G2] = Sheets("名冊").Cells(I, 5) '所有權比例
            Worksheets("工作區").PrintOut '列印
        Next
10:
End Sub

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題