' 將 B2:F5 此範圍定義一個名字叫 "DataRange"
    Dim myRgn As Range
    Set myRgn = Range("B2:F5")
    ThisWorkbook.Names.Add "DataRange", myRgn
   
    ' 選擇 DataRange 範圍
    Range("DataRange").Select
    Names("DataRange").RefersToRange.Select
   
    ' 選擇不同工作表上資料
    Application.Goto Range("DataRange")
   
    ' 選擇 DataRange 第 2 列
    Range("DataRange").Rows(2).Select
   
    ' 選擇 DataRange 第 2~4 列
    Range("DataRange").Rows("2:4").Select
   
    ' 計算此 DataRange 共幾列
    MsgBox Range("DataRange").Rows.Count
   
   
    ' 選擇此 DataRange 相對於向下 2 格,向右 4 格之欄位
    Range("DataRange").Cells(2, 4).Select
   
    ' 隱藏已定義之名稱範圍
    ThisWorkbook.Names("DataRange").Visible = False
   
    ' 開啟已定義之名稱範圍
    ThisWorkbook.Names("DataRange").Visible = True
   
    ' 變更參照範圍
    ThisWorkbook.Names("DataRange").RefersTo = Worksheets("工作表2").Range("B2:F5")
   
    ' 改回來
    ThisWorkbook.Names("DataRange").RefersTo = Worksheets("工作表1").Range("B2:F5")
   
    ' 刪除定義名稱範圍

    ThisWorkbook.Names("DataRange").Delete
   
    ' 列舉定義名稱範圍
    Dim tmpName As Name
    For Each tmpName In ThisWorkbook.Names
        tmpName.Visible = False ' 隱藏所有定義名稱範圍
    Next

edisonx 發表在 痞客邦 PIXNET 留言(1) 人氣()


留言列表 (1)

發表留言
  • 訪客
  • Names("DataRange").RefersToRange.Select
    要修正為
    application.Names("DataRange").RefersToRange.Select

您尚未登入,將以訪客身份留言。亦可以上方服務帳號登入留言

請輸入暱稱 ( 最多顯示 6 個中文字元 )

請輸入標題 ( 最多顯示 9 個中文字元 )

請輸入內容 ( 最多 140 個中文字元 )

請輸入左方認證碼:

看不懂,換張圖

請輸入驗證碼

【 X 關閉 】

【PIXNET 痞客邦】國外旅遊調查
您是我們挑選到的讀者!

填完問卷將有機會獲得心動好禮哦(注意:關閉此視窗將不再出現)

立即填寫取消