一个窗体控件能够链接到多个单元格吗?
时间:2023-10-28 22:27:15
Q:如下图1所示,在工作表中,有3个数值调节按钮(窗体控件),每个按钮链接到一个单元格。当点击数值调节按钮的上下箭头时,链接到的单元格中的数值会相应的增加或减少。
图1
通常,我们按下列步骤链接控件和单元格。首先绘制控件,然后选择控件并单击右键,在快捷菜单中选取“设置控件格式”命令。在“设置控件格式”对话框的“控制”选项卡中,设置单元格链接,如图2所示。
图2
当然,在图2所示的“单元格链接”中,可以选择或输入单元格区域,但仍然只是链接到区域左上角的单元格。那么,如何仅使用一个数值调节按钮,将其链接到多个单元格呢?
下面是chandoo.org介绍的技巧,与大家分享。
A:
可以将控件链接到命名公式,而该命名公式会基于当前单元格返回相应的单元格,因此控件将动态链接到相应的单元格,从而实现一个控件可以改变多个单元格的值。
如下图3所示的工作表Sheet2,我们将这个数值调节按钮动态链接到单元格C3、C4、C5,从而能够修改这些单元格中的值。
图3
定义名称如图4所示。
图4
其中,名称:SelectedRow
引用位置:A1
名称:ControlRange
引用位置:=Sheet2!$C$3:$C$5
名称:ControlLink
引用位置:=OFFSET(Sheet2!$C$1,SelectedRow-1,0)
设置控件格式如图5所示。
图5
在VBE编辑器的Sheet2代码模块中,输入代码:
Private SubWorksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target,Range(“ControlRange”)) Is Nothing Then
Range(“SelectedRow”).Value =0
Exit Sub
End If
Range(“SelectedRow”).Value = Target.Row
Application.CalculateFull
End Sub
至此,所有的工作完成。选择单元格C3,单击数值调节按钮,C3中的数值会相应变化,对于单元格C4和C5也是如此,如图6所示。
图6
如果要链接到不连续的单元格区域,例如单元格区域C3:C5、B6:B8、C9:C11中的9个单元格,那么可以将名称ControlRange修改为:
=Sheet2!$C$3:$C$5,Sheet2!$B$6:$B$8,Sheet2!$C$9:$C$11
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10更新后不能切换输入法怎么解决?Win10更新后不能切换输入法解决方法
![](https://img.aspxhome.com/file/2023/9/49409_0s.jpg)
怎么删除Word文档中最后一页空白页?
![](https://img.aspxhome.com/file/2023/0/31430_0s.jpg)
wps图片文字扫描功能怎么用
wps表格中如何制作表格?
win10版本常见问题汇总_win10版本常见使用问题汇总
![](https://img.aspxhome.com/file/2023/2/a285848_0s.jpg)
Win10 RS1预览版14271中OneDrive占位符回归
![](https://img.aspxhome.com/file/2023/28/a245526_0s.jpg)
让windows7系统变成Wi-Fi热点简单几步轻松实现
![](https://img.aspxhome.com/file/2023/29/a257201_0s.jpg)
Win10 msvcr100.dll丢失的解决方法
![](https://img.aspxhome.com/file/2023/25/a219063_0s.png)
如何使用wps表格绘制雷达图
Win10电脑win键失灵怎么解决?
![](https://img.aspxhome.com/file/2023/0/51000_0s.jpg)
Win7系统本次操作由于这台计算机的限制而被取消怎么办?
![](https://img.aspxhome.com/file/2023/3/a302820_0s.jpg)
Win10怎么删除任务视图记录?Win10删除任务视图记录方法
![](https://img.aspxhome.com/file/2023/26/a221350_0s.png)
win10鼠标无法唤醒电脑怎么办?
![](https://img.aspxhome.com/file/2023/4/a313369_0s.jpg)
电脑激活office2010出现0x80070190错误解决方法
![](https://img.aspxhome.com/file/2023/5/16585_0s.jpg)
Word怎样自定义方框打钩字符
![](https://img.aspxhome.com/file/2023/3/20623_0s.png)
AirPods 使用教程篇(三) | 如何充电?如何延长AirPods 续航时间?
![](https://img.aspxhome.com/file/2023/9/a199089_0s.jpg)
WinRAR怎么修复压缩包_WinRAR修复解压包教程
![](https://img.aspxhome.com/file/2023/5/a315746_0s.png)
Win10优化搜索体验:启用全新Related
![](https://img.aspxhome.com/file/2023/2/a290591_0s.jpg)
全加器原理是什么
Win10错误报告怎么关闭?Win10错误报告禁用操作方法
![](https://img.aspxhome.com/file/2023/1/a278638_0s.png)