亚洲 欧洲 日韩 综合色天使,久久国产Av无码一区二区老太,人妻醉酒被下药迷昏带到诊所 ,亚州老熟女A片AV色欲小说

v表白代碼vbs不同意無(wú)法關(guān)閉s表白代碼不同意按鍵會(huì)跑手機(jī)制作（表白代碼vbs不同意無(wú)法關(guān)閉）

投稿用戶 ? ? 營(yíng)銷推廣 ? 閱讀 927

Excel 提供了一個(gè)引用單元格的對(duì)象，這個(gè)對(duì)象一般使用比較少，但是熟悉Excel操作的話，對(duì)此也并不陌生。

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

v表白代碼vbs不同意無(wú)法關(guān)閉s表白代碼不同意按鍵會(huì)跑手機(jī)制作（表白代碼vbs不同意無(wú)法關(guān)閉）

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

整體效果如下圖所示：

v表白代碼vbs不同意無(wú)法關(guān)閉s表白代碼不同意按鍵會(huì)跑手機(jī)制作（表白代碼vbs不同意無(wú)法關(guān)閉）

創(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)單。

v表白代碼vbs不同意無(wú)法關(guān)閉s表白代碼不同意按鍵會(huì)跑手機(jī)制作（表白代碼vbs不同意無(wú)法關(guā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
v表白代碼vbs不同意無(wú)法關(guān)閉s表白代碼不同意按鍵會(huì)跑手機(jī)制作（表白代碼vbs不同意無(wú)法關(guān)閉）

RefEdit屬性看上去較多，但和TextBox,ComboBox等對(duì)象的屬性相差無(wú)幾，可以參考學(xué)習(xí)一下。

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

—END—

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

相關(guān)推薦