麻辣家族討論版版 » Excel程式區 » 使用ActiveX Button執行程式碼，Range("A1").Select無法正常執行

返回列表下一主題上一主題發帖

[發問] 使用ActiveX Button執行程式碼，Range("A1").Select無法正常執行

小學生 Rank: 1

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-7-20 06:52 | 只看該作者

[發問] 使用ActiveX Button執行程式碼，Range("A1").Select無法正常執行

本帖最後由 day741025 於 2011-7-20 06:53 編輯

使用ActiveX Button執行程式碼，Range("A1").Select無法正常執行，程式碼如下：

Private Sub CommandButton1_Click()
Sheets("第二個").Select '--->這一段可以正常執行
Range("A1").Select '--->這一段會無法正常執行，且會出現錯誤訊息，如下圖所示。
End Sub

請問這是為什麼？謝謝！:(

error msg.jpg

error msg.jpg

使用button執行select問題.zip (10.47 KB)

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-20 08:46 | 只看該作者

回復 1# day741025
CommandButton1_Click 是工作表1的程序 Range("A1").Select 是指在工作表1的 .Select
Sheets("第二個").Select 後作用中的工作表是工作表2 所以會錯誤

Private Sub CommandButton1_Click()
With Sheets("第二個")
.Select
.Range("A1").Select
End With
End Sub

複製代碼

小學生 Rank: 1

帖子: 20
主題: 3
精華: 0
積分: 47
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 10
註冊時間: 2011-7-16
最後登錄: 2012-3-15

3^#

發表於 2011-7-20 21:58 | 只看該作者

回復 2# GBKEE

嗯，已經懂了！
謝謝GBKEE板主淺顯易懂的解釋^^

中學生 Rank: 2

帖子: 38
主題: 4
精華: 0
積分: 65
點名: 0
作業系統: Window7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-12-16
最後登錄: 2013-12-13

4^#

發表於 2011-12-17 01:49 | 只看該作者

卡了很久的問題終於獲得了解決! 感謝GBKEE版主

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

5^#

發表於 2013-8-2 09:37 | 只看該作者

回復 2# GBKEE

請問板大，同上例，如果是要改要選取 sheets("執行")的range("a1")

是不是只剩多加行『Sheets("執行").Activate』

這個方法？

Private Sub CommandButton1_Click()
Sheets("第二個").Select
Sheets("執行").Activate
Sheets("執行").Range("A1").Select
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-8-2 13:23 | 只看該作者

回復 5# gkld

Option Explicit
Private Sub CommandButton1_Click()
Sheets("第二個").Select '有何作用?
With Sheets("執行") '工作表"執行" (物件)
.Activate
.Range("A1").Select
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 1
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: microsoft2010
閱讀權限: 20
註冊時間: 2015-8-6
最後登錄: 2016-6-14

7^#

發表於 2015-10-26 22:25 | 只看該作者

感覺好像很困難...謝謝GBKEE板主

靜思自在 : 得理要饒人，理直要氣和。

返回列表下一主題上一主題