主要內容

OLEObjects控件里的LinkedCell屬性應用示例

官方解釋

返回或設置指向控制值的工作表區域。 如果為這些單元格賦值，則指定控制也會取得相應的值。 與此類似，如果更改控制的值，則單元格的值也作相應變動。 讀/寫 String。

說明

通常在應用一些ActiveX控件的時候，其主要目的是對工作表內容進行修改工作。

一些通常用法就是選擇單元格，然后賦值。

比如：

Range("A1").select

selection.value="ABC"

要不就是直接賦值[A1]="ABC"

引入控件之后，我們需要引用控件的值來進行修改。

Excel做了LinkedCell屬性，對于單元格內的值進行讀寫操作，十分方便。

下面示例圖解

功能介紹

上圖左側為表格內容，中間為操作區域，右側為說明部分。

左側表格內容根據中間操作區域內容動態變化。

比如單擊選擇復選框可以打開各關閉操作功能，也就是說是否可以操作。

當不能操作的時候，所有功能變成Enabled，也就是不可操作灰色。

具體可操作的內容有文本框、下拉列表框、和單選框。

根據修這三個控件的內容，相應的左側表內的內容也同步更改，也就是說控件能過設置LinkedCell值和相應表格建立了聯系，控件內容就是表格內容，這樣理解就簡單了。

文本框和下拉框屬性設置：LinkedCell="A3"

復選框屬性：LinkedCell="B3"

單選框屬性：LinkedCell="C3"

其中三個單選框屬性分別是"C3"、"C4"、"C5"

當單擊復選框為不可修改進的效果，如此所有ActiveX控件處理失效狀態。

這個功能在一些防止錯誤操作的時候很有用。

有需要的時候，可以試用一下。

代碼

復選框代碼

Private Sub CheckBox1_Click()If Me.OLEObjects("CheckBox1").Object.Value Then setTrueFalse ("T")Else setTrueFalse ("F")End IfEnd Sub

函數代碼

Private Sub setTrueFalse(tf As String) Dim o As Object For Each o In Me.OLEObjects If tf = "T" Then If o.Name <> "CheckBox1" Then o.Enabled = True Else o.Enabled = True o.Object.Caption = "投票" End If End If If tf = "F" Then If o.Name <> "CheckBox1" Then o.Enabled = False Else o.Enabled = True o.Object.Caption = "禁止" End If End If Next oEnd Sub

總結

LinkedCell屬性在實際應用中很方便，對于工作表內容修改和讀取有天然的優勢，以前編程走了很多彎路，特別是對于表格定位做得比較復雜。有了這個屬性，相對就容易的多了。

歡迎關注、收藏

總結

以上是生活随笔為你收集整理的在bcb中添加activex控件_LinkedCell 属性介绍，OLEObjects 控件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。