騎都尉 發問時間: 電腦與網際網路軟體 · 6 年前

excel 如何用儲存格內的值隱藏活頁簿?

我在Excel裡面有數個Sheet(活頁簿)

我打算在主要活頁簿裡面(某個特定的儲存格)如果使用者選擇了1

則sheet1會隱藏(其餘sheet仍留著)

如果使用者選擇了2,則有某特定的sheet會被隱藏.

請問要怎麼做呢? (對VBA完全不熟悉....)

3 個解答

評分
  • 小嵐
    Lv 4
    6 年前
    最佳解答

    新增一個Sheets(Sheet1)的Change的事件

    開啟VB編輯左上角Sheets(Sheet1)點2下把以下程序複製貼上

    A1輸入1隱藏Sheet2

    A1輸入2取消隱藏Sheet2

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row = 1 And Target.Column = 1 Then

    If Target.Value = 1 Then Sheets("Sheet2").Visible = False

    If Target.Value = 2 Then Sheets("Sheet2").Visible = True

    End If

    End Sub

  • 6 年前

    兩位熱心的朋友...請恕小弟看不太懂...QQ

    方便您多給些說明嗎?

    兩位是指用excel ,在我要隱藏的sheetX 內(滑鼠游標移到該sheet,按右鍵-->程式)

    在裡面輸入您的程式碼嗎?

  • 6 年前

    Private Sub worksheet_change(ByVal target As Range)

    If target.Address = "$A$1" And target.Count = 1 And target.Value <= ThisWorkbook.Sheets.Count - 1 And target <> "" Then

    Dim sh As Object

    For Each sh In ThisWorkbook.Sheets

    2014-11-17 09:34:22 補充:

    If sh.Name <> "主要" And sh.Name <> "Sheet" & target.Value Then

    sh.Visible = False

    Else

    sh.Visible = True

    End If

    Next sh

    Else

    MsgBox "輸入錯誤!"

    End If

    End Sub

    試試

還有問題?馬上發問,尋求解答。