返回列表 上一主題 發帖

請問我哪裡寫錯了??請指導小弟

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

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

請問我哪裡寫錯了??請指導小弟

以下程式碼
請問
我哪裡寫錯?
1.請幫我修正
2.請幫我寫個更容易執行的版本讓小弟對照學習
Private Sub CommandButton1_Click()
Worksheets("1").cell(2, 2).Value = Worksheets("3").cell(3, 5)
Worksheets("1").cell(3, 2).Value = Worksheets("3").cell(3, 6)
Worksheets("1").cell(4, 2).Value = Worksheets("3").cell(3, 7)
Worksheets("1").cell(5, 2).Value = Worksheets("3").cell(3, 8)
End Sub

990830-1.rar (7.87 KB)

收藏 分享

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2010-8-30 19:27 | 只看該作者
回復 2# GBKEE


    感恩~~~~謝謝指導~~

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#
發表於 2010-8-30 10:55 | 只看該作者
回復 1# oak0723-1
VBA 的問題到應到Excel程式區 發問較恰當
Private Sub CommandButton1_Click()
Worksheets(1).cellS(2, 2).Value = Worksheets(3).cellS(3, 5)
Worksheets(1).cellS(3, 2).Value = Worksheets(3).cellS(3, 6)
Worksheets(1).cellS(4, 2).Value = Worksheets(3).cellS(3, 7)
Worksheets(1).cellS(5, 2).Value = Worksheets(3).cellS(3, 8)
End Sub
假如你檔案中有 名為"3"的工作表 下式是正確
Worksheets("1").cellS(3, 2).Value = Worksheets("3").cellS(3, 6)

你的附檔中   Worksheets("1")   有工作表名為"1"的工作表                沒有Worksheets("3") 工作表名為"3"的工作表
                  Worksheets(1) 是工作表排序中的第1個工作表 -> "1"     Worksheets(3)是第3個工作表   ->"Sheet3"

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題