返回列表 上一主題 發帖

無法隱藏

無法隱藏

  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"). 就無法隱藏
plyl

回復 1# plyl
傳檔上來看看

TOP

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

0324.rar (42.1 KB)

plyl

TOP

回復 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
複製代碼

TOP

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

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

TOP

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

TOP

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

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

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格,可以成就事業,也可以儲積功德。
返回列表 上一主題