返回列表 上一主題 發帖

[發問] 不知發生出了甚麼狀況，還請各位大大給予協助

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-2-10 15:16 | 顯示全部帖子
我的做法 , 很少帶入函數寫都用以下的做法

產品編號 = [A1]
XX = Worksheets("工作表2").Columns(1).Find(產品編號, , , xlWhole, , xlPrevious).Row '找尋該產品的行號
[B1] = Worksheets("工作表2").Cells(2, XX) '例如產品名稱
[C1] = Worksheets("工作表2").Cells(3, XX) '例如產品的單價
'依此類推

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題