Question

我对VBA全新，因此不知道我在做什么...... 以下是我的问题以及相关代码的描述。

我原本想要做的是：复制单击的单元格，选择新工作表，选择任何单元格，粘贴为值

现在我找到了一个显然可以解决这个问题的代码：

12 Feb 2015

我说“显然”，因为我无法测试它。这是问题所在：

我将工作簿保存为excel启用宏的工作簿
点击ALT Q - 返回我的工作簿
然后ALT F8运行它 - 但那里什么都没有......空白......

我错过了什么？

Answer 1

在模块中，使用您想要使用的宏。

public sub mymacro(r as excel.range)
If Not Intersect(r, Columns("A")) Is Nothing Then         
     If r.Row > 1 And Len(r.Value) Then Worksheets("S11").Range("C2").Value= r.Value
  End If
end sub

public sub wbtest()
    mymacro activecell
end sub

并使用如此

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Columns("A")) Is Nothing then
        mymacro target
    end if
end sub

复制粘贴代码后，宏不会出现在列表中

1 个答案: