相关疑难解决方法(0)

出于某种原因，以下代码仅在vbe中运行，在事件处理代码中运行时或通过宏列表运行时，代号仍为sheet1。

请有人可以调查吗？

Sub changesheetcodename()    

Dim ws,tsst as worksheet

For Each Ws In ActiveWorkbook.Worksheets
    If Ws.Name <> "Instructions"  then ws.delete
Next Ws

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Sheet1"

set tsst = Sheets("Sheet1")
With tsst
    .Parent.VBProject.VBComponents(.CodeName) _
    .Properties("_CodeName") = "test"
End With

End Sub

我在 Excel 中有以下函数，它根据列标题返回表的列号。该表称为 Config，表列标题为 value。下面将返回给我Excel中的列号。

=COLUMN(Config[Value])-COLUMN(Config)+1

谁能告诉我如何在 VBA 中使用它？我希望我可以使用类似的东西...

Application.WorksheetFunction.Column

但似乎Column不适合我使用。

有人对此有什么想法吗？任何帮助将不胜感激。

我在这里 和这里发现了这些其他问题，这些问题有点太高级了。在运行 VBA 代码时，我只需要一种简单的方法来更改 ActiveX 命令按钮“CommandButton1”的标题。我很确定它可以比其他示例更简单吗？