- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 7# av8d - Option Explicit
- 'Public xlTheW As String 'Public 所有模組皆可用的變數
- Private xlTheW As String 'Private 或 Dim 只有這模組可以用的變數
- Sub Auto_Open() '此程序用意在如沒有定義名稱 新增定義名稱
- Dim Msg As Boolean, n As Name
- 'Boolean 資料型態 預設為 False
- 'Boolean 變數係以 16 位元( 2 個位元組)數字的形式儲存，但只能是 True 或是 False。Boolean 變數的值不是 True 就是 False ( 在使用 Print 的時候 )，或是 #TRUE# 和 #FALSE# ( 在使用 Write # 的時候 )。使用關鍵字 True 與 False 可將 Boolean 變數指定為這兩個狀態中的一個。
- '當轉換其他的數值型態為 Boolean 時，0 會轉成 False，而所有其他的值則變成 True。當轉換 Boolean 值為其他的資料型態,時，False 成為 0 ，而 True 成為 -1。
- With ThisWorkbook ' With 這活頁簿
- For Each n In .Names '.Names : 這活頁簿的定義名稱集合
- If n.Name = "w" Then Msg = True: Exit For '找到w : Msg = True
- Next
- If Msg = False Then .Names.Add "w", "家用,早餐,午餐,晚餐"
- '沒找到w : Msg = False ;'.Names.Add : 活頁簿中新增定義名稱
- End With
- End Sub
- Sub 修改() '這程序 用於你的修改
- Dim A As String
- A = InputBox("輸入逗點分隔字串", , [W])
- If A <> "" Then ThisWorkbook.Names("w").Value = A '可預防 取消InputBox 或是 = ""
- End Sub
- Sub test() '你要於程式中取得名稱的值
- Dim A
- xlTheW = [W] '將名稱的值傳給 xlTheW
- ' xlTheW = Evaluate(ThisWorkbook.Names("W").Value) '將名稱的值傳給 xlTheW
- MsgBox xlTheW
- End Sub
|
|
發表於 2012-6-23 08:37
| 