Question

我使用以下内容来获取代码表，但我想获得该代号的索引。让我们说代号是＆＃34; Sheet4＆＃34;我想得到的数字是4.如果它是＆＃34; Sheet12＆＃34;我想要的只是12。

ActiveSheet.CodeName

谢谢！

Answer 1

很简单：

  ActiveSheet.Index

Answer 2

好的是提取字符串的数字，它们基本上是两种方式。首先，您可以编写一个函数，它将从您的字符串中提取所有数字字符：

Function ExtractNumericChars(sInput As String) As String

Dim i As Integer
Dim sResult As String
Dim sChr As String

For i = 1 To Len(sInput)
    sChr = Mid(sInput, i, 1)
    If IsNumeric(sChr) Then
        sResult = sResult & sChr
    End If
Next

removeBadChars = sResult

End Function

这适用于您的情况。更优雅的方式是使用正则表达式。这需要引用＆＃34; Microsoft VBScript正则表达式5.5＆＃34;。优点是，你基本上可以匹配正则表达式的任何东西。在您的情况下，它将如下所示：

Dim regEx As New RegExp
regEx.Pattern = "[^\d]+"
Debug.Print regEx.Replace(ActiveSheet.CodeName, "")

Answer 3

我设法得到一个功能，根据代号为我提供表格。

<HTML>
    <BODY>
       <form action="index.php" method="get">
         <input name="value" type="text">
         <input name="submit" type="supmit">
       <form>
    </BODY>
</HTML>

VBA - 如何获取工作表代码名称索引

3 个答案: