麻辣家族討論版版 » Excel程式區 » VBA製作薪資條卡關(已爬文參考麻煩抓錯

返回列表下一主題上一主題發帖

[發問] VBA製作薪資條卡關(已爬文參考麻煩抓錯

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 10
性別: 女
註冊時間: 2018-5-23
最後登錄: 2019-4-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-7-30 11:15 | 只看該作者

[發問] VBA製作薪資條卡關(已爬文參考麻煩抓錯

各位前輩好，最近在做簡易人事系統算薪資及產生薪資條部分遇到困難，已經爬文並參考此篇，需求差不多，都是自動產生薪資條並另存PDF檔，因此借用版大的VBA自己查過資料後稍做修改，但仍出現錯誤，想麻煩各位前輩能指教小菜鳥~
參考文章：
http://forum.twbts.com/viewthread.php?tid=17217

目前修改到
For Each xR In Range([1-2薪資計算表!D4], [1-2薪資計算表!D65536].End(xlUp))
這一段就錯誤了Orz

下面附上檔案，謝謝~
javascript:;

B-人事系統詢問篇.rar (40.03 KB)

樓主熱帖

收藏

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-7-30 12:50 | 只看該作者

本帖最後由 a5007185 於 2018-7-30 12:52 編輯

回復 1# chyong911

你的主要問題在於 Range的定義出現了問題，
Range([1-2薪資計算表!D4], [1-2薪資計算表!D65536].End(xlUp))
改成以下方式就可以正常輸出了~

Range("D4:D" & cells(Cells.Rows.Count, 4).End(xlUp).row)

複製代碼

請參考附檔。

B-人事系統詢問篇.zip (36.2 KB)

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-7-30 12:56 | 只看該作者

回復 1# chyong911

抱歉，上面的附件有誤，
請以此份為準。

B-人事系統詢問篇.zip (36.3 KB)

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: WIN10
軟體版本: Office 2010
閱讀權限: 10
性別: 女
註冊時間: 2018-5-23
最後登錄: 2019-4-30

4^#

發表於 2018-7-30 18:07 | 只看該作者

回復 3# a5007185

太感謝A大了!!!我已經成功完成，感謝您解決了我嘗試了一整天仍然失敗的痛苦阿QQ

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2018-7-31 07:44 | 只看該作者

回復 4# chyong911

哈哈，我想這是每個人曾經都有過的惡夢~

靜思自在 : 時時好心就是時時好日。

返回列表下一主題上一主題