馨。

帖子: 53
主題: 24
精華: 0
積分: 87
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2018-11-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-3-2 12:47 | 只看該作者

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

各位大大好

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

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

測試.zip (38.72 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 2016-3-2 13:35 | 只看該作者

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

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

TOP

馨。

中學生 Rank: 2

帖子: 53
主題: 24
精華: 0
積分: 87
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2018-11-3

3^#

發表於 2016-3-3 09:17 | 只看該作者

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

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

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 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

馨。

中學生 Rank: 2

帖子: 53
主題: 24
精華: 0
積分: 87
點名: 0
作業系統: windows10
軟體版本: office2016
閱讀權限: 20
性別: 女
註冊時間: 2016-2-13
最後登錄: 2018-11-3

5^#

發表於 2016-3-3 22:19 | 只看該作者

回復馨。

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

感謝大大回覆…:-)

TOP