首頁>Club>
11
回覆列表
  • 1 # 使用者558168890935051

    Excel格式錯誤,可以使用VBA解決。

    1、開啟Excel表格。

    2、按Alt+F11進入VBA,點選執行-執行宏。

    3、新建宏。

    4、複製以下程式碼: Dim i As Byte On Error Resume Next Application.ScreenUpdating = False For i = 1 To 155 Application.CommandBars(i).Reset Application.CommandBars(i).Enabled = True Application.CommandBars(i).Visible = False Next Application.CommandBars("Status Bar").Visible = True For i = 1 To 4 Application.CommandBars(i).Visible = True Next With Application .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "+{INSERT}" .CellDragAndDrop = True .OnDoubleClick = "" End With Application.ScreenUpdating = True MsgBox "大功告成!" & "你的Excel已恢復。" & Chr(10) & "所有自定義選單、按鈕及功能限制均已解除。", 64, "【友情提示】"

    5、複製後,點選執行。

    6、執行成功,就會提示,點選確定。

    7、點選右鍵,選單就出來了。

  • 2 # 使用者4535004975032

    Excel格式錯誤,可以使用VBA解決。

    1、開啟Excel表格。

    2、按Alt+F11進入VBA,點選執行-執行宏。

    3、新建宏。

    4、複製以下程式碼:Dim i As ByteOn Error Resume NextApplication.ScreenUpdating = FalseFor i = 1 To 155Application.CommandBars(i).ResetApplication.CommandBars(i).Enabled = TrueApplication.CommandBars(i).Visible = FalseNextApplication.CommandBars("Status Bar").Visible = TrueFor i = 1 To 4Application.CommandBars(i).Visible = TrueNextWith Application.OnKey "^c".OnKey "^v".OnKey "^x".OnKey "+{DEL}".OnKey "+{INSERT}".CellDragAndDrop = True.OnDoubleClick = ""End WithApplication.ScreenUpdating = TrueMsgBox "大功告成!" & "你的Excel已恢復。" & Chr(10) & "所有自定義選單、按鈕及功能限制均已解除。", 64, "【友情提示】"5、複製後,點選執行。6、執行成功,就會提示,點選確定。7、點選右鍵,選單就出來了。

  • 中秋節和大豐收的關聯?
  • 咳不容緩哪個字錯了?