Excel 提供了一個引用單元格的對象,這個對象一般使用比較少,但是熟悉Excel操作的話,對此也并不陌生。
本文介紹一下,VBE中如何使用RefEdit對象來實(shí)現(xiàn)一個些簡單的引用操作。

上圖為引用示例,實(shí)現(xiàn)了對一些數(shù)據(jù)的乘法運(yùn)算,當(dāng)然了,通過代碼可以實(shí)現(xiàn)任意想要的計算過程。
整體效果如下圖所示:

創(chuàng)建三個RefEdit對象,分別引用3列數(shù)據(jù)單元格。
前2列為計算數(shù)據(jù),后一列為結(jié)果位置。很好理解,通過一列表來顯示計算結(jié)果。
下圖為面向?qū)ο缶庉婻efEdit對象的屬性設(shè)置面板,通過下面的屬性設(shè)置,可以實(shí)現(xiàn)其相應(yīng)的外觀以及功能屬性等。
相對都比較簡單。

本示例,通過RefEdit引用單元格地址,來進(jìn)行單元格內(nèi)數(shù)據(jù)進(jìn)行計算操作。
也就是RefEdit的Value值,它是個體字符串。
具體可參考下面代碼進(jìn)一步理解。
代碼:
Private Sub CommandButton1_Click()
Dim R1 As String, R2 As String, R3 As String
R1 = Me.RefEdit1.Value
R2 = Me.RefEdit2.Value
R3 = Me.RefEdit3.Value
Dim R As Range, xR As Range, yR As Range
Dim i As Integer
Set R = Range(R1)
Set xR = Range(R2)
Set yR = Range(R3)
For i = 1 To R.Count
With yR.Item(i)
.Value = R.Item(i) * xR.Item(i)
End With
Next i
End Sub

RefEdit屬性看上去較多,但和TextBox,ComboBox等對象的屬性相差無幾,可以參考學(xué)習(xí)一下。
歡迎關(guān)注、收藏
—END—

本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn),該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲空間服務(wù),不擁有所有權(quán),不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容, 請發(fā)送郵件至 sumchina520@foxmail.com 舉報,一經(jīng)查實(shí),本站將立刻刪除。
如若轉(zhuǎn)載,請注明出處:http://www.qjsdgw.cn/8534.html
如若轉(zhuǎn)載,請注明出處:http://www.qjsdgw.cn/8534.html