Excel巨集求助

office excel 函數

dj5200037 2015-04-02 09:36:15 ‧ 5080 瀏覽

分享至

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

小弟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邦研究生 4 級 ‧ 2015-04-04 10:22:23 檢舉

建議寫一個列印專用的按鈕解決

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2015-04-02 16:08:54

最佳解答

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

&lt;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