本文介紹一下，VBE中如何使用RefEdit對(duì)象來(lái)實(shí)現(xiàn)一個(gè)些簡(jiǎn)單的引用操作。

上圖為引用示例，實(shí)現(xiàn)了對(duì)一些數(shù)據(jù)的乘法運(yùn)算，當(dāng)然了，通過(guò)代碼可以實(shí)現(xiàn)任意想要的計(jì)算過(guò)程。

整體效果如下圖所示：

創(chuàng)建三個(gè)RefEdit對(duì)象，分別引用3列數(shù)據(jù)單元格。

前2列為計(jì)算數(shù)據(jù)，后一列為結(jié)果位置。很好理解，通過(guò)一列表來(lái)顯示計(jì)算結(jié)果。

下圖為面向?qū)ο缶庉婻efEdit對(duì)象的屬性設(shè)置面板，通過(guò)下面的屬性設(shè)置，可以實(shí)現(xiàn)其相應(yīng)的外觀以及功能屬性等。

相對(duì)都比較簡(jiǎn)單。

本示例，通過(guò)RefEdit引用單元格地址，來(lái)進(jìn)行單元格內(nèi)數(shù)據(jù)進(jìn)行計(jì)算操作。

也就是RefEdit的Value值，它是個(gè)體字符串。

具體可參考下面代碼進(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等對(duì)象的屬性相差無(wú)幾，可以參考學(xué)習(xí)一下。

歡迎關(guān)注、收藏

—END—