首頁 > 書法

如何將Excel名稱轉換為物件進行引用,一個很重要的方法,趕快學

作者:由 江覓易見 發表于 書法日期:2023-01-14

表格算字元數嗎

Excel定義了很多特定的名稱,其作用是程式碼Excel不同的功能屬性或者物件。

本文介紹一個物件,可以將Excel中的某些專用名稱返回為一個物件或者是值。

似乎並不太容易理解,也可以這麼理解,有一個人叫張三,當你叫的名字的時候,對方答應了你,並且,它可以回答你任何他知道的資訊,那麼你叫他的這個過程就是本文的內容。

如何將Excel名稱轉換為物件進行引用,一個很重要的方法,趕快學

如上圖所示,我們要了解Evaluate方法,此方法就是你叫張三的一個過程,不叫他,他是不會回答你的。

具體可以參考下表:

如何將Excel名稱轉換為物件進行引用,一個很重要的方法,趕快學

上述內容還是不很清楚表達如何使用,我們看下圖示例:

如何將Excel名稱轉換為物件進行引用,一個很重要的方法,趕快學

本示例有兩個功能,一個是單元格引用,另一個是定義名稱引用 。

當然了,還可以進行其它方式引用,上表中7類引用方法。

單元格引用也就是A1 樣式引用,是透過單元格地址返回一個Range物件。

簡單示例:

ActiveSheet。Evaluate (“A1”)

複雜示例:

Sub Evaluate()

‘單元格引用

Dim s As Worksheet

Set s = ActiveSheet

Dim xAd As String

xAd = “A1”

MsgBox s。Evaluate(xAd)。Value

Set s = Nothing

End Sub

同樣,都是返回一個A1單元格Range物件。

如何將Excel名稱轉換為物件進行引用,一個很重要的方法,趕快學

返回定義名稱程式碼:

Sub 定義名稱()

’定義名稱引用

Dim s As Worksheet

Set s = ActiveSheet

Dim xAd As String

xAd = [B1]。Value ‘定義引用名稱名字

Dim i As Integer

Dim xName As Object

Set xName = s。Evaluate(xAd) ’返回引用名稱

s。OLEObjects(“ListBox1”)。Object。Clear

For i = 1 To xName。Count ‘新增名稱專案到列表框

s。OLEObjects(“ListBox1”)。Object。AddItem s。Evaluate(xAd)。Item(i)

Next i

Set xName = Nothing

Set s = Nothing

End Sub

嚴格來說,Evaluate方法對初學者並不適用,因為它太過於難理解,而且許多可直接引用的方法並不需要用這個方法來實現。

但是到更加深入的程式設計,或者說需要靈活運用一些程式設計技巧的時候,用到它就顯得十分靈活了。

END

如你對本文有獨特見解,歡迎關注、收藏。

也可透過私信來獲取如下免費應用:

辦公檔案管理

結婚禮單管理

年會抽獎

工作日誌管理