iT邦幫忙

0

Excel巨集求助

小的遇到一個問題,希望大大能幫忙一下

小弟Excel分兩個頁面,分別為sheetl及sheet2
而sheet1想撈取sheet2的資料,如某個欄位 =Sheet2!A2
而今天我想列印,在sheet2有一百筆資料
想問各位有方式能讓公式自動為
例如列印100次,而此欄位就會自動變為
=Sheet2!A2
=Sheet2!A3
=Sheet2!A4
......
......
=Sheet2!A101

請問有什麼方法讓A2~A101
讓它依照列印次數嗎?
如印第一次就是 A1+1第二次為A1+2.....A1+100

感謝各位協助

賽門 iT邦超人 1 級 ‧ 2015-04-02 13:46:06 檢舉
很想看懂你在問什麼,但是....愚魯鈍....實在看不懂....落寞
dj5200037 iT邦新手 5 級 ‧ 2015-04-02 15:05:26 檢舉
小弟表達能力不好,請見諒
在此附圖表說明


如上圖,在Sheet1裡面小弟部門以及姓名欄位皆需要抓取sheet2的欄位


而小弟是想說,例如我今天要列印四張
有辦法在不手動修正的情況下
列印四張
第一張部門為管理部 姓名為A
第二張部門為行政部 姓名為B
......

感謝大大指教
ltc09 iT邦研究生 5 級 ‧ 2015-04-04 10:22:23 檢舉
建議寫一個列印專用的按鈕解決

2 個回答

0
海綿寶寶
iT邦超人 1 級 ‧ 2015-04-02 16:08:54
最佳解答

簡單寫 VBA 如下
看看合不合用

<pre class="c" name="code">
Sub Main()
    For nI = 1 To 4
        Call SubFun(nI)
    Next nI
End Sub
Sub SubFun(ByVal idx As Integer)
    Range("Sheet1!C4").Value = Range("Sheet2!A1").Offset(idx, 0).Value
    Range("Sheet1!C5").Value = Range("Sheet2!B1").Offset(idx, 0).Value
    
    MsgBox "Good job", vbInformation
End Sub
0
eigen
iT邦新手 1 級 ‧ 2015-04-05 01:06:50

這是我以前問的,有高手提供完整的解答,剛好符合你的需求,自己看一下吧

http://forum.twbts.com/thread-10659-1-1.html

我要發表回答

立即登入回答