(謝謝多位版主的大力幫忙，完成)如何將定義延伸成可以手動修改?(自訂表單) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » (謝謝多位版主的大力幫忙，完成)如何將定義延伸成可以手動修改?(自訂表單)

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

[發問] (謝謝多位版主的大力幫忙，完成)如何將定義延伸成可以手動修改?(自訂表單)

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-6-22 23:58 | 顯示全部帖子

回復 3# av8d

這應該是公用變數設置的技巧就能解決
你是在此主程式中要引用w變數
在一般模組宣告公共變數w

Public w$

複製代碼

開啟檔案時先將w給值

Sub auto_open()
w = "家用,早餐,午餐,晚餐"
End Sub

複製代碼

執行修改程序

Sub 修改()
w = InputBox("輸入逗點分隔字串", , w)
End Sub

複製代碼

主程式

Sub test()
MsgBox w
End Sub

複製代碼

公用變數.rar (7.78 KB)

1 評分人數

HUNGCHILIN: 金錢 + 2

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-6-23 15:30 | 顯示全部帖子

回復 7# av8d
這個問題已經回答到這程度，你應該要去了解變數是如何運作的
既然已經用到定義名稱來儲存字串
那麼，w變數就是該定義名稱的內容
之後在整個活頁簿內要調用這個字串
只要呼叫該名稱即可

Sub auto_open() '開啟檔案時觸發此程序
Dim n As Name
For Each n In ThisWorkbook.Names '檢查活頁簿內的名稱
If n.Name = "逗點分隔字串" Then Exit Sub '如果此名稱存在就離開程序
Next
ThisWorkbook.Names.Add "逗點分隔字串", "家用,早餐,午餐,晚餐", 0 '加入隱藏的名稱
End Sub
Sub 主程序()
w = [逗點分隔字串] '取出名稱內容賦給變數
MsgBox w
End Sub
Sub 修改()
Dim mystr$
mystr = InputBox("輸入逗點分隔字串", , [逗點分隔字串]) '輸入新字串
If mystr = "" Then MsgBox "字串不得為空白": Exit Sub '避開空字串取代原定義內容
Names("逗點分隔字串").Value = mystr '將新字串寫入名稱
End Sub

複製代碼

學海無涯_不恥下問

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。

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