麻辣家族討論版版 - Powered by Discuz! Board

標題: Excel中的按鈕是如何設定才可以從頭到尾的列出資料呢？ [打印本頁]

作者: 馨。 時間: 2016-3-2 12:47 標題: Excel中的按鈕是如何設定才可以從頭到尾的列出資料呢？

各位大大好

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

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

作者: 准提部林 時間: 2016-3-2 13:35

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

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

作者: 馨。 時間: 2016-3-3 09:17

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

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

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

作者: lpk187 時間: 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
[attach]23368[/attach]
[attach]23369[/attach]

作者: 馨。 時間: 2016-3-3 22:19

回復馨。

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

感謝大大回覆…:-)

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)