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

oak0723-1

以下程式碼
請問
我哪裡寫錯?
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

GBKEE

回復 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"

oak0723-1

回復 2# GBKEE


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