[發問] 一鍵自動隱藏

kai6929

請教大師們
            可否用巨集設定為按成 ■連續模後 7~14列整列自動隱藏在               結果在Sheet2。    kai~14.rar (17.06 KB)

一鍵自動隱藏
下載次數: 11

2012-10-25 14:29

kai6929

感謝!!感謝

mark15jill

回復 7# kai6929


        
    我的那個方法 是只限定   7~14 列

kai6929

感謝二位大師的協助,但這二種方法看起來的結果都是一樣,但不知這二者有何不同請教一下Hsieh

Hsieh

回復 5# kai6929

1. Sub check()
   
2.     Dim K As String, M As Boolean
   
3.     With ActiveSheet.Shapes(Application.Caller)
   
4.         With .TextFrame
   
5.             K = .Characters.Text
   
6.             If Left(K, 1) = "□" Then
   
7.                 .Characters.Text = "■連續模"
   
8.                 M = False
   
9.             Else
   
10.                 .Characters.Text = "□工程模"
    
11.                 M = True
    
12.             End If
    
13.             .Characters(1, Len(K) + 1).Font.Size = 30
    
14.             .Characters(1, 1).Font.Size = 30
    
15.         End With
    
16.         .TopLeftCell.Offset(, 1) = M
    
17.         .TopLeftCell.Offset(, 2) = IIf(CSng(M) = 0, 0, 1)
    
18.     End With
    
19.       If Application.CountA(Range("A7:A65536")) > 0 Then Range("A7:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Hidden = M
    
20. End Sub

複製代碼

kai6929

哇  感謝大師的回覆 就是這樣  謝謝了

mark15jill

哇  感謝大師的回覆 就是這樣謝謝了
kai6929 發表於 2012-10-25 15:19

我是新手~ 不是大師~ 大師是 版主他們..
話說 其實 那兩行 你應該會~ 只是應該沒想到而已

kai6929

哇  感謝大師的回覆 就是這樣謝謝了

mark15jill

請教大師們
            可否用巨集設定為按成 ■連續模後 7~14列整列自動隱藏在               結果在She ...
kai6929 發表於 2012-10-25 14:29

若 需 7~ X 列(不低於7 ， 可用 字串判斷  藉此增加)

            If Left(K, 1) = "□" Then
                .Characters.Text = "■連續模"
                M = False
                Rows("7:14").Select
                Selection.EntireRow.Hidden = True
            Else
                .Characters.Text = "□工程模"
                M = True
                Rows("7:14").Select
                Selection.EntireRow.Hidden = False
            End If