徵求VBA神人

vba

ppoty456 2014-01-15 10:18:37 ‧ 5642 瀏覽

分享至

XD各位大大好~小弟因為要做出公司每個員工教育訓練名單GOOGLE目前沒查到相關資料所以到這請求神人大大協助
目前我擁有的表單格式如下
表單1
員工編號中文姓名部門名稱
X0000007 王大明業務部

表單2
課程上課日期部門
銷售技巧 2014/01/01 業務部
基礎客戶服務 2014/01/02 ALL (意旨所有部門都要上)

完成後所需結果須如下

(員工編號)為該EXCEL Sheet 的名稱

王大明業務部
銷售技巧 2014/01/01
基礎客戶服務 2014/01/02

看更多先前的討論...收起先前的討論...

zuyan iT邦好手 1 級 ‧ 2014-01-15 10:24:15 檢舉

建議輸出在同一個sheet...
員工人數多的時候 sheet 會很多很多之後要整理資料沒有比較好用

張三
課程一日期一
課程二日期二

李四
課程一日期一
課程三日期三

ppoty456 iT邦新手 5 級 ‧ 2014-01-15 11:13:54 檢舉

感謝大大提醒，這點我有跟使用者討論過不過使用者堅持這樣做所以才發文

zuyan iT邦好手 1 級 ‧ 2014-01-15 13:34:28 檢舉

你應該堅持的.....
因為如果還有其他處理的時候,,,把它給標準化是會比較好的

張三課程一日期一
張三課程二日期二

李四課程一日期一
李四課程三日期三

因為這樣做之後可以用內建的表單 "樞紐分析表" ...
把所有人的課表做在同一張表上

也可以用自動篩選...

好處多很多 ..比如用自動篩選..在某一天課程上課的有誰...
順便做出簽到簿...

ppoty456 iT邦新手 5 級 ‧ 2014-01-15 16:17:58 檢舉

感謝大大回答

但是我是要做個人清單

例某某人該上的課有哪些上課日期是何時

zuyan iT邦好手 1 級 ‧ 2014-01-15 20:18:52 檢舉

在同一個sheet 也可以啊!!
不同sheet要也可以...
只是我那麼多的經驗中..告訴我應該這樣做...

登入發表討論

直播研討會

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

直播中

2 個回答

showjack

iT邦新手 1 級 ‧ 2014-01-23 15:25:52

最佳解答

a. 在sheet1 把員工資料都建好
b. 在sheet2 把課程資料都建好

程式碼不算太難
dim rr as integer '等一下用來做為輸出時的 row number
rr=1
for i= 1 to 員工人數
for j=1 to 課程數量
if (sheets(2).cells(j+1,3)=sheet2(1).cells(i,3)) or ((sheets(2).cells(j+1,3)="ALL) then
rr=rr+1
sheets(3).cells(rr,1)=sheets(1).cells(i,1)
sheets(3).cells(rr,2)=sheets(1).cells(i,3)
sheets(3).cells(rr,3)=sheets(2).cells(j,1)
sheets(3).cells(rr,4)=sheets(2).cells(j,2)
NEXT j
NEXT i

回應
分享
檢舉

登入發表回應

zuyan

iT邦好手 1 級 ‧ 2014-01-15 21:14:40

使用雙迴圈將資料展開

圈i >>
建立新 sheet ..
個人課程資料指標 = 1
圈j >>
if 課程資料參加 = 員工 or = 業務部門是則加入建立的sheet的資料中
個人課程資料指標 ++

圈i 為員工數
圈j 為課程項目數

程式的結構大概是這樣 ...

回應 1
分享
檢舉

zuyan iT邦好手 1 級 ‧ 2014-01-15 21:15:41 檢舉

&lt;pre class="c" name="code">圈i >>
建立新 sheet ..
個人課程資料指標 = 1
        圈j >>
        if 課程資料參加 = 員工 or = 業務部門 是則 加入建立的sheet的資料中
        個人課程資料指標 ++

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22121 篇

完賽人數

594 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙