返回列表 上一主題 發帖

[發問] 請教各位大大，如果想用VBA完成群組功能該如何下手

fangshen

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windows 
軟體版本
2013 
閱讀權限
10 
註冊時間
2019-5-29 
最後登錄
2019-6-10 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-5-30 09:57 | 只看該作者

[發問] 請教各位大大，如果想用VBA完成群組功能該如何下手

想請教各位大大, 我有一個物料BOM表. 長下面這個樣子.


希望能用VBA群組化後長這個樣子. ...





因為物料太多種. 想用VBA來完成這樣的動作.
每一品號, 的階次順序, 都是由上而下固定的. 不知各位大大能否協助? 感恩..
收藏 分享

fangshen

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windows 
軟體版本
2013 
閱讀權限
10 
註冊時間
2019-5-29 
最後登錄
2019-6-10 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2019-6-4 09:14 | 只看該作者
以上均已解決, 謝謝大家

TOP

fangshen

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
windows 
軟體版本
2013 
閱讀權限
10 
註冊時間
2019-5-29 
最後登錄
2019-6-10 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2019-6-4 07:47 | 只看該作者
感謝google大神, 目前已完成大部份程式.

有點小問題, 目前的程式會有一段要求使用者輸入啟始欄位. 固定是B2, 不知這部份能不能寫死, 不要每次問使用者.

Set StartCell = Application.InputBox("請在下欄輸入啟始欄位 B2", Type:=8)
StartRow = StartCell.Row
LevelCol = StartCell.Column
LastRow = ActiveSheet.UsedRange.Rows.Count

另一個問題, 有語法可以取得該活頁簿資料的最後一列的列號嗎?

謝謝各位大神

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題