向单元格添加宏按钮

时间:2017-07-07 12:31:34

标签: excel vba excel-vba

我的电子表格将由没有任何/很少excel经验的人使用,因此我为他们创建了宏以使其更容易。

我现在面临的问题是,如果他们将数据添加到新行中,我想要创建一个新的宏按钮。宏按钮将是其上方的副本。

基本上,在E列中是按钮,相关的宏会打开隐藏页面并对D列(相应行)中找到的单词进行过滤

我认为我需要的是,将其返回到原始页面的另一个宏在D列中查找并确保E列中有一个按钮,如果没有复制上面单元格中的宏按钮并将其粘贴到到E。

    'find content of the cell the button is on
    Dim b As Object, RowNumber As Integer
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        RowNumber = .Row
    End With

    protocolName = Range("D" & RowNumber).Value

'swap sheets and hide the other
    Sheets("Protocols").Visible = True
    Sheets("Orderables with Protocols").Visible = False
    Sheets("Protocols").Select


     ActiveSheet.Range("B:B").AutoFilter Field:=1, Criteria1:=protocolName

    Range("A1").Select

任何人都可以帮忙吗

0 个答案:

没有答案