返回列表 上一主題 發帖

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

馨。

帖子
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)

收藏 分享

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
2#
發表於 2016-3-2 13:35 | 只看該作者
附件是別人的檔案吧？
若是懂得程式，可自行修改套看看！

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

TOP

馨。

帖子
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

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

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

馨。

帖子
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

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題