麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 一鍵自動隱藏 [打印本頁]

作者: kai6929 時間: 2012-10-25 14:29 標題: 一鍵自動隱藏

請教大師們
可否用巨集設定為按成 ■連續模後 7~14列整列自動隱藏在結果在Sheet2。 [attach]12889[/attach]

作者: mark15jill 時間: 2012-10-25 14:37

本帖最後由 mark15jill 於 2012-10-25 14:39 編輯

請教大師們
可否用巨集設定為按成 ■連續模後 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

作者: kai6929 時間: 2012-10-25 15:19

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

作者: mark15jill 時間: 2012-10-25 15:59

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

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

作者: kai6929 時間: 2012-10-25 17:23

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

作者: Hsieh 時間: 2012-10-25 18:12

回復 5# kai6929

Sub check()
Dim K As String, M As Boolean
With ActiveSheet.Shapes(Application.Caller)
With .TextFrame
K = .Characters.Text
If Left(K, 1) = "□" Then
.Characters.Text = "■連續模"
M = False
Else
.Characters.Text = "□工程模"
M = True
End If
.Characters(1, Len(K) + 1).Font.Size = 30
.Characters(1, 1).Font.Size = 30
End With
.TopLeftCell.Offset(, 1) = M
.TopLeftCell.Offset(, 2) = IIf(CSng(M) = 0, 0, 1)
End With
If Application.CountA(Range("A7:A65536")) > 0 Then Range("A7:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Hidden = M
End Sub

複製代碼

作者: kai6929 時間: 2012-10-29 10:41

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

作者: mark15jill 時間: 2012-10-29 11:11

回復 7# kai6929

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

作者: kai6929 時間: 2012-10-30 09:46

感謝!!感謝

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