kai6929

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-10-25 14:29 | 只看該作者

[發問] 一鍵自動隱藏

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

kai~14.rar (17.06 KB)

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

kai6929

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

3^#

發表於 2012-10-25 15:19 | 只看該作者

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2012-10-25 15:59 | 只看該作者

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

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

kai6929

中學生 Rank: 2

帖子: 84
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: xp
軟體版本: offcie 2007
閱讀權限: 20
註冊時間: 2010-5-6
最後登錄: 2024-2-17

5^#

發表於 2012-10-25 17:23 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 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