表格算字元數嗎
Excel定義了很多特定的名稱,其作用是程式碼Excel不同的功能屬性或者物件。
本文介紹一個物件,可以將Excel中的某些專用名稱返回為一個物件或者是值。
似乎並不太容易理解,也可以這麼理解,有一個人叫張三,當你叫的名字的時候,對方答應了你,並且,它可以回答你任何他知道的資訊,那麼你叫他的這個過程就是本文的內容。
如上圖所示,我們要了解Evaluate方法,此方法就是你叫張三的一個過程,不叫他,他是不會回答你的。
具體可以參考下表:
上述內容還是不很清楚表達如何使用,我們看下圖示例:
本示例有兩個功能,一個是單元格引用,另一個是定義名稱引用 。
當然了,還可以進行其它方式引用,上表中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物件。
返回定義名稱程式碼:
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
如你對本文有獨特見解,歡迎關注、收藏。
也可透過私信來獲取如下免費應用:
辦公檔案管理
結婚禮單管理
年會抽獎
工作日誌管理