麻辣家族討論版版 » Excel程式區 » Index問題

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

[發問] Index問題

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-3-1 15:27 | 只看該作者

[發問] Index問題

請問大大
我在sheet1 的USERFORM 寫了這句

TextBox2.Value = WorksheetFunction.Index(Sheet2.Range(Cells(2, 1), Cells(MYno, 14)), .Range("Z1"), 4)

說Sheet2.Range(Cells(2, 1), Cells(MYno, 14)) 有錯, 請問大大有什麼方法可以解決?

樓主熱帖

收藏

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

6^#

發表於 2011-3-1 16:51 | 只看該作者

回復 6# GBKEE

謝謝GBKEE 大大解說
本以為Range前加Sheet2 , Range內的東西都會是Sheet2 ><

50 字節以內
不支持自定義 Discuz! 代碼

超級版主 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兔年全勤獎章

5^#

發表於 2011-3-1 16:42 | 只看該作者

回復 5# basarasy
按照2樓 donald 改正就可以阿.
要告訴你是
在程式碼中 CELL 或 RANGE 沒指明父層(工作表) ,就傳回作用中的的工作表 (ActiveSheet)的 CELL 或 RANGE位置
如執行程式碼時 ActiveSheet 是 Sheet1
Sheet2.Range(Cells(1, 1), Cells(2, 1)) 會出錯

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

4^#

發表於 2011-3-1 16:26 | 只看該作者

回復 3# GBKEE

Sheet2.Range(Cells(2, 1), Cells(MYno, 14))出錯時以試了在sheet2 run不會錯.
但是我不知改什麼地方><

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

3^#

發表於 2011-3-1 16:22 | 只看該作者

回復 2# donald

謝謝你.
想不到Cells前面都要加Sheet2 ><

50 字節以內
不支持自定義 Discuz! 代碼

超級版主 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-3-1 16:08 | 只看該作者

本帖最後由 GBKEE 於 2011-3-1 16:13 編輯

回復 1# basarasy
請開啟一新檔,在Sheet1 ,Sheet2,Sheet3,ThisWorkbook 的CodePane 都貼上下列的程式碼.
各自按F8 執行試試看哪裡會錯誤,哪裡會正常.

Sub Ex()
MsgBox Sheet2.Range(Cells(2, 1), Cells(1, 14)).Address
End Sub

複製代碼

沒出錯時 ,請回到Excel視窗看看作用中的工作表是哪一個

靜思自在 : 原諒別人就是善待自己。

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