VBA判断本工作表名中有多少个-

以下是VBA代码，可以用于判断本工作表名中有多少个“-”字符：

Sub CountDashes()
    Dim count As Integer
    count = 0
    For i = 1 To Len(ActiveSheet.Name)
        If Mid(ActiveSheet.Name, i, 1) = "-" Then
            count = count + 1
        End If
    Next i
    MsgBox "This workbook has " & count & " dashes in the sheet name."
End Sub

该代码遍历了当前活动工作表的名称，对于每一个字符，判断它是否为“-”字符。如果是，计数器就加1。最终，代码将弹出一个消息框，告诉用户当前工作表名称中“-”字符的数量。

相关问题

VBA, 如何判断工作表名里"(2)"?

在 VBA 中，可以使用 `InStr` 函数来判断字符串中是否包含指定的子字符串。下面是一个例子，可以用来判断工作表名称是否包含 "(2)"：

Sub CheckWorksheetName()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If InStr(ws.Name, "(2)") > 0 Then
            MsgBox "工作表名 " & ws.Name & " 包含 (2)"
        Else
            MsgBox "工作表名 " & ws.Name & " 不包含 (2)"
        End If
    Next ws
End Sub

上面的代码会遍历当前工作簿中的所有工作表，对于每一个工作表，判断它的名称中是否包含 "(2)" 子字符串。如果包含，就会弹出一个消息框，显示工作表名称和包含 (2) 的信息，否则显示不包含 (2) 的信息。

VBA ADO 中case when语句如何写

在VBA ADO中，可以使用CASE WHEN语句来进行条件判断和返回不同的结果。下面是一个示例代码，展示了如何在VBA ADO中编写CASE WHEN语句：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

' 连接数据库
conn.Open "Provider=SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword"

' 构建SQL语句
strSQL = "SELECT column1, column2, " & _
         "CASE WHEN column3 = 'value1' THEN 'result1' " & _
         "     WHEN column3 = 'value2' THEN 'result2' " & _
         "     ELSE 'result3' END AS result " & _
         "FROM myTable"

' 执行SQL语句
rs.Open strSQL, conn

' 处理查询结果
If Not rs.EOF Then
    Do Until rs.EOF
        ' 获取结果
        Dim result As String
        result = rs.Fields("result").Value
        
        ' 处理结果
        ' ...
        
        ' 移动到下一行
        rs.MoveNext
    Loop
End If

' 清理资源
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

在上述示例中，我们使用了CASE WHEN语句来根据column3的值返回不同的结果。根据实际需求，你可以修改CASE WHEN语句的条件和返回结果。同时，你需要根据你的数据库连接信息修改连接字符串和SQL语句中的表名、列名等内容。
#### 引用[.reference_title]
- *1* *2* *3* [VBA + ADO 调用存储过程](https://blog.csdn.net/stone0823/article/details/101873043)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insertT0,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]