返回列表 上一主題 發帖

隱藏

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
1# 跳轉到 »
發表於 2010-6-17 00:04 | 顯示全部帖子
本帖最後由 victorl 於 2010-6-17 00:39 編輯

For Leov9
把所有範圍先隱藏再將選取欲呈現的範圍顯示，應該就OK了吧
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then
        Rows("13:72").Hidden = True   
        Rows(Target.Row - 1 & ":" & Target.Row + 10).EntireRow.Hidden = False
    End If
    Range("B1").Select
End Sub

For Leov10
把Target.Row當引數呼叫程序(Ex. Call 確定差異還原(Target.Row))
下方藍色部分為原程式碼有修改部分.
Sub 確定差異還原(tRow As Integer)
          ...
    ElseIf [A1] = "部份" Then Call 差異部份還原(tRow)
          ...
Sub 差異部份還原(tRow As Integer)
    Range(Cells(tRow - 1, 3), Cells(tRow + 10, 256)).Copy Sheet11.[C65536].End(xlUp).Offset(0, 0)
    Sheet11.Select
End Sub

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
2#
發表於 2010-6-17 19:55 | 顯示全部帖子
感謝GBKEE版大，小弟受教了；竟然忽略掉了 Target=ActiveCell。

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題