12
返回列表 上一主題 發帖

Public 問題

basarasy

帖子
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)

AAA.JPG

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2010-9-23 20:21 | 只看該作者
要放在sub ***()的上方

TOP

basarasy

帖子
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! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
4#
發表於 2010-9-23 20:43 | 只看該作者
用Public 定義全局變數要把定義放在最上方！

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
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
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

basarasy

帖子
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! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 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

TOP

basarasy

帖子
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! 代碼

TOP

et5323

帖子
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))

TOP

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
10#
發表於 2010-9-23 23:21 | 只看該作者
其他人就原諒了，超版還要犯，只有叫他三天之內體重減10Kg。

TOP

        靜思自在 : 盡多少本份，就得多少本事。
12
返回列表 上一主題