不同名稱隱藏

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2012-8-30 12:18 | 顯示全部帖子

回復 3# luhpro
前輩!
這正是小弟所需謝謝再三!!

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2012-8-30 12:25 | 顯示全部帖子

回復 2# GBKEE
良師!謝謝!!程式在隱藏時少了1欄 (點選欄)
展開時無法全開,同時沒有凍結窗格
如動畫所示!請再修改一下辛苦囉!!謝謝再三!

Leov65-B.gif (973.03 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

4^#

發表於 2012-8-31 12:22 | 顯示全部帖子

回復 6# GBKEE
良師!謝謝!!程式修改如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target(1).Row = 2 Then
      Select Case Target(1).Column
      Case 1
         [A:E].Cells.EntireColumn.Hidden = False  '增加此列
            With ActiveWindow
            .SplitColumn = 1  '修改處
            .SplitRow = 2  '修改處
            .FreezePanes = True
         End With
         [A:IV].Cells.EntireColumn.Hidden = True '修改處
         [A:IV].Cells.EntireColumn.Hidden = False  '修改處
         [A1].Select
      Case 2 To 5
         隱藏 Target(1)
End Select
End If
Application.EnableEvents = True
End Sub
         另有一程式(點選下拉)如附檔案!請再幫忙一下辛苦囉!!謝謝再三!

LeoV65-1.rar (19.51 KB)

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2012-8-31 21:36 | 顯示全部帖子

回復 8# GBKEE
良師! 謝謝!!程式修改如下辛苦囉!!謝謝再三!
Sub 數據()
zz = Application.InputBox("輸入數據", "請輸入修正數據", Type:=1)
If zz = 0 Then Exit Sub
ActiveCell = zz: [D1] = ""
Selection.AutoFill Range(Selection, Cells([B100].End(3).Row, Selection.Column)), Type:=xlFillDefault '修改處
[D1] = "'分析"
End Sub

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

6^#

發表於 2012-9-3 21:24 | 顯示全部帖子

回復 10# GBKEE
良師! 謝謝!!這個點選下拉程式已經修改可以囉!你可能誤會還需要修改
抱歉又麻煩你謝謝再三!!