[已解决].LinkedCell=RG.Address

adan_bai

Sub 批量插入复选框()
Dim RG As Range
   Dim S As Shape
  For Each S In ActiveSheet.Shapes
   If InStr(S.Name, "Ch") > 0 Then
      S.Delete
   End If
Next S
For Each RG In Range("B2:B15")
    ActiveSheet.CheckBoxes.Add(RG.Left, RG.Top + 5, RG.Width - 20, RG.Height - 20).Select
    With Selection
        .Characters.Text = "是"
        .Value = xlOff
        .LinkedCell = RG.Address
    End With
Next RG
End Sub

其中LinkedCell 这个函数可以根据选择给单元格返回值。但是有个缺点返回值在单元格中会影响美观。
我想保留返回值的功能，但是数值不要在单元格中显示。让界面看着整洁一些。
这个有办法吗？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-7 15:09

把单元格设置条件格式。

1. .NumberFormatLocal = ";;;"

复制代码

跳转到最佳答案楼层

hwc2ycy

把单元格设置条件格式。

1. .NumberFormatLocal = ";;;"

复制代码

hwc2ycy

把单元格设置自定义格式。

adan_bai

hwc2ycy 发表于 2013-1-7 15:10
把单元格设置自定义格式。

这个设置比较神奇  为什么；；；就不显示了啊？

hwc2ycy

adan_bai 发表于 2013-1-7 20:02
这个设置比较神奇  为什么；；；就不显示了啊？

这个是自定义格式，你在论坛搜搜用法就知道了。