麻辣家族討論版版 » Excel程式區 » 私用變數?

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

私用變數?

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-10-20 19:44 | 只看該作者

私用變數?

某變數只用在自已的工作表( private)
想在別的工作表裡的程序改變它的值?如何做?

樓主熱帖

收藏

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

2^#

發表於 2014-10-20 21:02 | 只看該作者

private -> Public

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2014-10-20 21:33 | 只看該作者

本帖最後由 luhpro 於 2014-10-20 21:40 編輯

某變數只用在自已的工作表( private)
想在別的工作表裡的程序改變它的值?如何做?
t8899 發表於 2014-10-20 19:44

private -> Public
bobomi 發表於 2014-10-20 21:02

補充 2#
1. 變數設為 Public 只可放在第一個 Sub 指令的上方,
且放在 Option Explicit 的上方或下方皆可.

2. 假設在 Sheets("Sheet1") 有設定 Public vN
則在非 Sheets("Sheet1") 中使用時, (例如 Sheets("Sheet3"), 或是 ThisWorkBook...)
要用 Sheets("Sheet1").vN 的形式來使用該變數.

3. 若想在所有區域共用此變數,
請將該 Public 的變數設在 Module 內.

4. 若以物件導向的概念來做的話,
應該是將該變數設為 Private ,
而在該 Sheet 內新增一個 Public Sub 程序名(欲設定的值) 的方式來實現修改或顯示該變數的功能,
相同的可用 Sheets("Sheet1"). 程序名(欲設定的值) 的形式呼叫修改此變數內容.
這樣的話若不透過這個程序是無法修改此變數的.

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

4^#

發表於 2014-10-20 21:42 | 只看該作者

本帖最後由 t8899 於 2014-10-20 21:44 編輯

補充 2#
1. 變數設為 Public 只可放在第一個 Sub 指令的上方,
且放在 Option Explicit 的上方或 ...
luhpro 發表於 2014-10-20 21:33

private 都改成 public 如圖

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

5^#

發表於 2014-10-20 22:04 | 只看該作者

有 declare 的不能改成 Public 只能用 Private

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

6^#

發表於 2014-10-20 22:05 | 只看該作者

回復 4# t8899
要用上述 4. 的方式來實現.

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

7^#

發表於 2014-10-20 22:06 | 只看該作者

所以你只有一個 Dim leaving As Integer 可以改成
Public leaving As Integer

大學生 Rank: 4

帖子: 759
主題: 249
精華: 0
積分: 1021
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-11-22

8^#

發表於 2014-10-21 03:33 | 只看該作者

我後來想到的方法是，直接寫在private 的工作表(sheet1)
sub abc123()
改變變數的值
end sub
在別的工作上裡
用 sheet1.abc123 就可以了

靜思自在 : 多做多得。少做多失。

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