excel - 通过 VBA 反复添加启用宏的按钮
问题描述
尝试创建一个用户可以输入注释的输入框,这些注释将输入到同一个文档中,同时创建一个宏启用“点赞图标”,该宏将包含一个宏,其他成员可以“点赞”他们想要的想法推动。下面的代码导致按钮在同一个单元格上复制自身。我需要它来应用到下一个可用的单元格。
Sub VBA_Input_Idea_inputbox()
Dim MyInp As String
Dim NextRow As Long
MyInp = VBA.Interaction.InputBox("Please input idea", "LEARNING
REQUEST")
If MyInp = "" Then Exit Sub
NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Range("C" & NextRow).Value =
Excel.WorksheetFunction.Proper(MyInp)
Range("A" & NextRow).Select
ActiveSheet.Buttons.Add(0.75, 145.5, 42, 24.75).Select
Selection.OnAction = "Addcount"
End Sub
解决方案
像这样的东西:
Sub VBA_Input_Idea_inputbox()
Dim MyInp As String
Dim NextRow As Range, btn
MyInp = VBA.Interaction.InputBox("Please input idea", "LEARNING REQUEST ")
If MyInp = "" Then Exit Sub
With ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).EntireRow
.Cells(3).Value = Application.Proper(MyInp)
Set btn = ActiveSheet.Buttons.Add(.Cells(1).Left, .Cells(1).Top, _
.Cells(1).Width, .Cells(1).Height)
btn.OnAction = "Addcount"
End With
End Sub
推荐阅读
- node.js - 节点缓存不会按预期触发“过期”回调
- python - Pycharm:定位 pipenv 可执行文件
- php - Gmail / Hotmail 未收到排队的 Laravel 邮件
- swift - CollectionView 中的多个单元格 - Swift
- android - Android WebSocket 连接因 426 错误而关闭
- java - Java Servlet 异常
- typescript - Debugging TypeScript AWS CDK application
- timezone - Php Carbon 为同一时区提供不同的日期
- python - 如何在当前 python 服务器上使用查询或连接来操作 pandas DataFrame
- python - RQ-Worker 无法连接到 Docker 中的 Redis