這段vba程式碼該怎麼簡化？

abollar

abollar
個人積分：965分
文章編號：54207731

965分

樓主

2015-01-25 23:46

Worksheets("sheet1").Select
Range("a1").Select

上述是先選工作表，再選儲存格

能不能改成直接選工作表sheet1的a1儲存格？

就不用選兩次，簡化成一句

求高手！

2015-01-25 23:46 發佈

文章關鍵字 vba程式

az126001

az126001
個人積分：53分
文章編號：54208937

53分

2樓

2015-01-26 2:28

Worksheets("Sheet1").Range("A1").Select
用手機看的，沒電腦，你試試看吧

abollar

abollar
個人積分：965分
文章編號：54213341

965分

樓主

2015-01-26 12:30

它出現

我是2007版，是因為版本差異嗎？

az126001

az126001
個人積分：53分
文章編號：54223018

53分

4樓

2015-01-26 23:20

abollar wrote:
它出現我是2007版...(恕刪)

因為當下不再 sheet1 導致的錯誤
還是就乖乖寫2行吧

好奇問一下選取後要做甚麼?

badday

badday
個人積分：301分
文章編號：54314868

301分

5樓

2015-02-02 12:22

abollar wrote:
Worksheets...(恕刪)

取得Sheet2 A1值

=INDIRECT("Sheet2!" & "A1")

用 office 2007 試過了

abollar

abollar
個人積分：965分
文章編號：54321786

965分

樓主

2015-02-02 20:50

我不是要取值，我要select！

再說我問的是VBA不是函數

sx3052

sx3052
個人積分：81分
文章編號：54322726

81分

7樓

2015-02-02 21:56

http://support.microsoft.com/kb/291308/zh-tw

Application.Goto (ActiveWorkbook.Sheets("sheet1").Range("a1"))

badday

badday
個人積分：301分
文章編號：54330708

301分

8樓

2015-02-03 13:14

abollar wrote:
我不是要取值，我要s...(恕刪)

那就這樣試試看吧
ThisWorkbook.Sheets("name of sheet 2").Range("A1")

話說這google一下就有答案了不是嗎?

abollar

abollar
個人積分：965分
文章編號：54333428

965分

樓主

2015-02-03 15:58

你試過了嗎？失敗，ok！

abollar wrote:
Worksheets...(恕刪)

abollar

abollar
個人積分：965分
文章編號：54333498

965分

樓主

2015-02-03 16:02

可簡化為Application.Goto [Sheet1!a1]
謝啦！