obsidian/知识参考/电脑软件常用指令/Excel-VBA/Vba学习代码-勿删.md

Sub SelSht() '工作bai表查找du
    Dim Sht As String
    Dim str As String
    Dim st as WorkSheet
    Sht = Application.InputBox(prompt:="请输入zhi要查找的值：", Title:="模糊查找", Type:=2)
    str=""
    for each st in sheets
        if st.name like ""& sht &"" then
            st.activate
            st.select
            str="ok"
            exit for
        end if
    nest st
     If str <> "ok" Then
     MsgBox "不存在或名dao称输入有误！"
     End If
End Sub