Public 問題

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-9-23 19:12 | 只看該作者

Public 問題

為什麼不能用?

AAA.JPG (32.79 KB)

樓主熱帖

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-9-23 20:21 | 只看該作者

要放在sub ***()的上方

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

3^#

發表於 2010-9-23 20:26 | 只看該作者

回復 2# oobird

那麼請問我想要 Public 變數MYW 要如果做?

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-9-23 20:43 | 只看該作者

用Public 定義全局變數要把定義放在最上方！

版主 Rank: 7 Rank: 7 Rank: 7

Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

5^#

發表於 2010-9-23 21:17 | 只看該作者

public gsVal as string
sub aa()
gsVal="Hi Min"
end sub

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

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

6^#

發表於 2010-9-23 22:16 | 只看該作者

本帖最後由 basarasy 於 2010-9-23 22:22 編輯

明白了^^
謝謝2位大大.

還有1個問題是
為什麼這樣會錯?
Sheet1.Range(Cells(MYO, 1), Cells(MYO, 6)) = Sheet5.Range(Cells(MY1, 1), Cells(MY1, 6))

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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-9-23 22:33 | 只看該作者

= Sheet5.Range(Cells(MY1, 1), Cells(MY1, 6)).value

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

8^#

發表於 2010-9-23 22:52 | 只看該作者

回復 7# oobird

2邊加了value 都有錯誤><

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

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

9^#

發表於 2010-9-23 23:12 | 只看該作者

加不加value都是錯。這是個最容易忽視和犯的錯誤：
Sheet1.Range(Sheet1.Cells(MYO, 1), Sheet1.Cells(MYO, 6)) = Sheet5.Range(Sheet5.Cells(MY1, 1), Sheet5.Cells(MY1, 6))

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

10^#

發表於 2010-9-23 23:21 | 只看該作者

其他人就原諒了，超版還要犯，只有叫他三天之內體重減10Kg。