Excel的VBA簡單的選擇表名稱的一部分

Question

我有2片與像 160913-01和160913-01-2的名字，我想選擇「160913-01」部分只

如何做到這一點？我的編碼，以獲得工作表名稱：

Sheet = ActiveSheet.Name 

Answer 1

只要劃線作爲，你可以使用下面的代碼的分隔符：

子GetPartSheetName（）
      SNAME = ActiveSheet.Name
      iNumberOfDashes = CountCharacter（SNAME， 「 - 」）
     如果iNumberOfDashes> 1然後
            saParts =分段（SNAME， 「 - 」）
            SNAME = saParts（0）+ 「 - 」 + saParts（1）
     結束如果
      MsgBox sName
End Sub

功能CountCharacter（BYVAL值，BYVAL CH）
      CNT = 0
     對於i = 1至LEN（值）
           如果MID（值，I，1）= CH，然後CNT = CNT + 1
     接着
      CountCharacter = CNT
結束功能