VBA实现在指定的字段区域内选择单元格时插入按钮

需求：VBA实现在指定的字段区域内选择单元格时插入按钮，比如明细表中的一列点击一个单元格时插入一个按钮，点击字段内其他的单元格时，删除其他的按钮。
效果：

方法：

1. Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
   
2.                         Dim Rng As IRange = e.RangeSelection.Intersect(Range("F_59119"))
   
3.                         If Not Rng Is Nothing Then
   
4.                 Dim r As Double = ActiveWorkbook.ActiveWorksheet.WindowInfo.RowToPoints(e.RangeSelection.Row)
   
5.                 Dim c As Double = ActiveWorkbook.ActiveWorksheet.WindowInfo.ColumnToPoints(e.RangeSelection.Column)
   
6.                 Dim rw As Double = ActiveWorkbook.ActiveWorksheet.Range(e.RangeSelection.Address).Width
   
7.                 Dim rh As Double = ActiveWorkbook.ActiveWorksheet.Range(e.RangeSelection.Address).Height
   
8.                 Dim bw As Integer = 10
   
9.                 Dim bh As Integer = rh - 4
   
10. 
    
11.                 For i As Integer = ActiveWorkbook.ActiveWorksheet.Shapes.Count - 1 To 0 Step -1
    
12.                     If Left(ActiveWorkbook.ActiveWorksheet.Shapes(i).Name, 5) = "List_" Then
    
13.                         ActiveWorkbook.ActiveWorksheet.Shapes(i).Delete()
    
14.                     End If
    
15.                 Next
    
16. 
    
17.                 ActiveWorkbook.Worksheets("Sheet1").Shapes.AddFormControl(1, c + rw - bw - 2, r + 2, bw, bh).Name = "List_" & e.RangeSelection.Address
    
18. 
    
19.                         End If
    
20.        End Sub'单元格选择后执行的事件
    

复制代码

为什么不早点出这个贴子，前些天刚好也试出来！

为什么不早点出这个贴子，前些天刚好也试出来！