主要内容

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属性在实际应用中很方便，对于工作表内容修改和读取有天然的优势，以前编程走了很多弯路，特别是对于表格定位做得比较复杂。有了这个属性，相对就容易的多了。

欢迎关注、收藏