熱線電話: 0537-2316625 968107 | sdjyrljt@163.com | 聯(lián)系 歡迎登錄聚源熱力網(wǎng)站

      資訊中心

      資訊中心——技術(shù)交流

      信息化文件注意事項及解決EXCEL工具欄不見的問題

      時間:2012年03月02日

      信息化文件注意事項及解決EXCEL工具欄不見的問題

          1、信息化操作人員在傳輸文件或者其他文本文檔時,輸入文件主題請勿帶入特殊符號如""、\等。以免造成文件發(fā)送者或接受者信息化系統(tǒng)文件接收出現(xiàn)加載錯誤的現(xiàn)象。
          2、解決EXCEL常用工具欄不見的問題。
      當(dāng)電腦軟件office中的EXCEL的常用工具欄不見時,用以下方法解決:打開一個excel文件,按ALT+F11,然后打開窗口導(dǎo)航欄中的插入——模塊,出現(xiàn)新的對面框后將下面的這段語句粘貼進(jìn)去。然后按F5執(zhí)行程序語句,保存關(guān)閉即可?;氐紼XCEL操作界面點擊鼠標(biāo)右鍵重新選擇常用工具欄。


      Sub aaa()
       Dim aa, bb As Boolean
       aa = True
       bb = False
       Application.CommandBars("ply").Enabled = aa
       '右鍵點工作表標(biāo)簽是否可用
       Application.CommandBars("cell").Enabled = aa
       '右鍵點單元格是否可用
       Application.CommandBars("toolbar list").Enabled = aa
       '右鍵點工具欄及“視圖”-“工具欄”是否可用
       Application.CommandBars("autocalculate").Enabled = aa
       '右鍵點狀態(tài)欄是否可用
       Application.CommandBars("worksheet menu bar").Enabled = aa
       Application.CommandBars(1).Enabled = aa
       '以上兩句的作用都是把菜單取消
       Application.CommandBars(2).Enabled = aa
       '暫時未知
       Application.CommandBars(3).Enabled = aa
       '常用工具欄是否可用
       Application.CommandBars(3).Controls(3).Enabled = aa
       '使常用工具欄中第三個“保存”是否可用
       Application.CommandBars(4).Enabled = aa
       '格式工具欄是否可用
       Application.CommandBars(5).Enabled = aa
       '暫時未知
       Application.CommandBars(1).Enabled = aa
       '恢復(fù)菜單可用
       Application.CommandBars(1).Controls(1).Enabled = aa
       '使菜單中的“文件”是否可用
       Application.CommandBars("file").Controls("頁面設(shè)置(&U)...").Enabled = aa
       '菜單中的“文件”中的“頁面設(shè)置”是否可用
       Application.CommandBars(1).Controls(4).Enabled = aa
       '菜單中的第四個“插入”是否可用
       Application.CommandBars(1).Controls(4).Caption = "victor"
       '更改名稱
       Application.CommandBars(1).Reset
       '恢復(fù)菜單
       Application.DisplayFormulaBar = aa
       '編輯欄是否顯示
       Application.DisplayStatusBar = aa
       '狀態(tài)欄是否顯示
       ActiveWindow.DisplayHeadings = aa
       '行號列標(biāo)是否顯示
       ActiveWindow.DisplayWorkbookTabs = aa
       '工作表標(biāo)簽是否顯示
       ActiveWindow.DisplayHorizontalScrollBar = aa
       '水平滾動條是否顯示
       ActiveWindow.DisplayVerticalScrollBar = aa
       '垂直滾動條是否顯示
       End Sub

      九九在线免费观看AV,免费极品av毛片福利网站,欧洲无码在线,亚洲人成电影在线天堂色 亚洲v日韩v精品v下载 日本熟妇牲交视频在线观看,国产在线播放99,国产一级无码视频,国产在线观看添荫蒂视频|www.tjnx.com.cn/ 日本熟妇牲交视频在线观看,国产在线播放99,国产一级无码视频,国产在线观看添荫蒂视频|www.zzshanglu.com http://www.tjnx.com.cn/ http://www.zzshanglu.com