与excel中的单选按钮相关的动态条件

时间:2017-07-12 10:46:21

标签: excel vba excel-vba

如何使单选按钮的条件动态化?例如。如果我有一个单选按钮"是"在A100中,与之相关的条件出现在A103中。而且,如果我插入行,我希望两者(按钮及其值)相应地移动。

Sub OptionButton21_Click()
  Range("A103") = " Not Applicable "
End Sub
Sub DynamicRange()
  'Best used when only your target data is on the worksheet

  'Refresh UsedRange (get rid of "Ghost" cells)
   Worksheets("Sheet1").UsedRange

  'Select UsedRange
  Worksheets("Sheet1").UsedRange.Select
End Sub

提前致谢

1 个答案:

答案 0 :(得分:0)

使用指定范围

1 - 选择目标单元格(即A103)并在"名称框中为其命名"在屏幕的左上角。假设您选择了名称" MyTargetName"

2-使控件随细胞移动。

Right-click the control --> Format control --> Properties --> Move but dont size with cells

3-在VBA代码中,按名称而不是地址引用目标单元格:

Sub OptionButton21_Click()
  Range("MyTargetName") = " Not Applicable "
End Sub

每当插入新行时,这将使引用的目标与控件一起正确移位。