主要内容
OLEObjects控件里的LinkedCell属性应用示例
官方解释
返回或设置指向控制值的工作表区域。 如果为这些单元格赋值,则指定控制也会取得相应的值。 与此类似,如果更改控制的值,则单元格的值也作相应变动。 读/写 String。
![3ca1b706b4f8b3817c2f25ce48e29e20.png](https://i-blog.csdnimg.cn/blog_migrate/8aa9d7582b0e248acd0966dd9bce104b.jpeg)
说明
通常在应用一些ActiveX控件的时候,其主要目的是对工作表内容进行修改工作。
一些通常用法就是选择单元格,然后赋值。
比如:
Range("A1").select
selection.value="ABC"
要不就是直接赋值[A1]="ABC"
引入控件之后,我们需要引用控件的值来进行修改。
Excel做了LinkedCell属性,对于单元格内的值进行读写操作,十分方便。
下面示例图解
![136993e60a640ac3a0c993ee9af68b29.png](https://i-blog.csdnimg.cn/blog_migrate/d6729dafc9117ccbf087748d8a978660.jpeg)
功能介绍
上图左侧为表格内容,中间为操作区域,右侧为说明部分。
左侧表格内容根据中间操作区域内容动态变化。
比如单击选择复选框可以打开各关闭操作功能,也就是说是否可以操作。
当不能操作的时候,所有功能变成Enabled,也就是不可操作灰色。
具体可操作的内容有文本框、下拉列表框、和单选框。
根据修这三个控件的内容,相应的左侧表内的内容也同步更改,也就是说控件能过设置LinkedCell值和相应表格建立了联系,控件内容就是表格内容,这样理解就简单了。
文本框和下拉框属性设置:LinkedCell="A3"
复选框属性:LinkedCell="B3"
单选框属性:LinkedCell="C3"
其中三个单选框属性分别是"C3"、"C4"、"C5"
![f64189ad55348ff03f991078dbd01c6a.png](https://i-blog.csdnimg.cn/blog_migrate/627fb25bddf1bf3f1dffedfca319e8cc.jpeg)
当单击复选框为不可修改进的效果,如此所有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属性在实际应用中很方便,对于工作表内容修改和读取有天然的优势,以前编程走了很多弯路,特别是对于表格定位做得比较复杂。有了这个属性,相对就容易的多了。
欢迎关注、收藏