Board logo

標題: 無法隱藏 [打印本頁]
作者: plyl    時間: 2011-3-24 09:49     標題: 無法隱藏

  1. Private Sub 隱_Click()
  2. Dim STATUS As Integer  
  3. STATUS = 0            
  4. If 隱.Caption = "隱" Then Sheets("紀錄").Columns("E:BH").Hidden = True: STATUS = 1: 隱.Caption = "現"
  5. If 隱.Caption = "現" And STATUS = 0 Then Sheets("紀錄").Columns("E:CC").Hidden = False: 隱.Caption = "隱"
  6. End Sub
複製代碼
Columns("E:BH"). 更改Columns("E:FN"). 就無法隱藏
作者: GBKEE    時間: 2011-3-24 09:57

回復 1# plyl
傳檔上來看看
作者: plyl    時間: 2011-3-24 10:43

GBKEE版主 辛苦您了!小弟由衷感謝
作者: GBKEE    時間: 2011-3-24 11:43

回復 3# plyl
你檔案中的注解問題,我不知道原因為何會引起, 隱藏欄的錯誤.
尚需高手來解釋原因.執行下列程式刪除注解後可正常了.
  1. Sub Ex()
  2.     Dim S As Object
  3.     For Each S In Sheets("紀錄").Shapes
  4.         If S.Name <> "隱" And S.Name <> "隱" Then S.Delete
  5.     Next
  6. End Sub
複製代碼
作者: GBKEE    時間: 2011-3-24 12:03

本帖最後由 GBKEE 於 2011-3-24 12:28 編輯

樓主的問題 :   加入註解  隱藏欄有時 會有 [無法將物件移出工作表外] 的錯誤  ,為何會如此?
一般是在檔案的最右端 或最底端 輸入文字 防止插入 整欄或整列 .
作者: oobird    時間: 2011-3-24 13:10

以前有過相同困擾
註解物件都要設為大小位置隨儲存格而變就行了
http://support.microsoft.com/kb/211769/zh-tw
作者: plyl    時間: 2011-3-24 14:47

將儲存格的註解  ->按顯示註解->將指標移到物件的邊緣，直到指標變成周圍有四個小黑色箭頭->快按兩下->進入註解格式->摘要資訊索引標籤->按一下 [大小位置隨儲存格而變]，然後按一下 [確定]。
以上問題就解決了

oobird  & GBKEE版主 辛苦您了!小弟由衷感謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)