如何在VBA中以编程方式添加按钮旁边的某些单元格数据？ [英] How to add a button programmatically in VBA next to some sheet cell data?

问题描述

我有一个函数可以生成100个单元格行（和2列）的数据。对于每一行（在第3列），我需要添加一个按钮，当点击时，会弹出一个自定义模式对话框，给出用户4个选项/按钮可供选择。

任何想法如何做？

/ T

解决方案

p>我认为这足以使你有一个很好的路径：

  Sub a（）
 Dim btn As按钮
 Application.ScreenUpdating = False 
 ActiveSheet.Buttons.Delete 
 Dim t As Range 
 For i = 2 To 6 Step 2 
 Set t = ActiveSheet.Range单元格（i，3），单元格（i，3））
设置btn = ActiveSheet.Buttons.Add（t.Left，t.Top，t.Width，t.Height）
带有btn 
 .OnAction =btnS
 .Caption =Btn& i 
 .Name =Btn& i 
结束
下一步i 
 Application.ScreenUpdating = True 
 End Sub 
 
 Sub btnS（）
 MsgBox Application.Caller 
 End Sub 
  

它创建按钮并将其绑定到butnS（）。在btnS（）子中，您应该显示对话框等。

I have a function that generates data for say 100 cell rows (and 2 columns). For each row (in the 3rd column) I need to add a button which, when clicked, brings up a custom modal dialog box giving the user 4 options/buttons to choose from.

Any idea how to do this?

/T

解决方案

I think this is enough to get you on a nice path:

Sub a()
  Dim btn As Button
  Application.ScreenUpdating = False
  ActiveSheet.Buttons.Delete
  Dim t As Range
  For i = 2 To 6 Step 2
    Set t = ActiveSheet.Range(Cells(i, 3), Cells(i, 3))
    Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
    With btn
      .OnAction = "btnS"
      .Caption = "Btn " & i
      .Name = "Btn" & i
    End With
  Next i
  Application.ScreenUpdating = True
End Sub

Sub btnS()
 MsgBox Application.Caller
End Sub

It creates the buttons and binds them to butnS(). In the btnS() sub, you should show your dialog, etc.

这篇关于如何在VBA中以编程方式添加按钮旁边的某些单元格数据？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！