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

馨。

各位大大好

想請問大大附上檔案中的「議案票卡」、「動案票卡」中的按鈕是怎麼做的呢？
(只要輸入數值後，就會從那個數值一直跳到最尾部的數值結束)

再麻煩各位大大幫小女解惑了。謝謝！

准提部林

附件是別人的檔案吧？
若是懂得程式，可自行修改套看看！

否則，最好是上傳自己的檔案，根據實際需求寫程式較適合，
程式寫法各人不同，把需求詳細說明才好！

馨。

附件是別人的檔案吧？
若是懂得程式，可自行修改套看看！

否則，最好是上傳自己的檔案，根據實際需求寫 ...
准提部林 發表於 2016-3-2 13:35

附件是之前的人留下來的檔案
因為不懂得如何運幅，所以再建新的資料的時候，都沒辦法…

lpk187

回復 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

下載 (68.53 KB)

2016-3-3 11:37

下載 (67.67 KB)

2016-3-3 11:37

馨。

回復  馨。

其實要製作類似的檔案，並不是很困難，前題就像准大說的必須略懂得VBA程式碼，
其附檔只是 ...
lpk187 發表於 2016-3-3 11:34

感謝大大回覆…:-)