返回列表 上一主題 發帖

程式修改

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-10-14 07:42 | 顯示全部帖子
回復 2# modelcrazyer
set 設定變數 為物件
  1. set  k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)
  2. K5.value=K4
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-10-14 09:00 | 顯示全部帖子
回復 4# modelcrazyer
1# 說:
工作表1的A3 3-39換成工作表中的A2的3-40
程式如下:
N = Worksheets("工作表3").Cells(Rows.Count, "a").End(xlUp).Row
k4 = Worksheets("工作表3").Cells(N, 1)
P = Worksheets("工作表1").Cells(Rows.Count, "a").End(xlUp).Row
k5 = Worksheets("工作表1").Range("A2:A" & P).Find(What:=k4, LookAt:=xlPart)   '你的用意何在

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-10-22 07:09 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-10-22 07:10 編輯

回復 8# modelcrazyer
1#資料置換  如Hsieh超版說:  問題請清楚敘述你的需求
所以附檔: 工作表1  只有你了解,請做個範列吧!
    且附檔 不見原詳細價目表
  1. Sub test2()
  2. Dim l, i, k, r, S As Integer
  3. '由詳細價目表轉過來項次最後一項
  4. l = Worksheets("原詳細價目表").Cells(Rows.Count, "b").End(xlUp).Row   
複製代碼

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題