[發問] 請教點選儲存格的問題

mark15jill

請問一下
問題1

1                 1甲                    1乙                 1丙
2                 2甲                    2乙                 2丙
3                 3甲                    3乙                 3丙
4                 4甲                    4乙                 4丙
5                 5甲                    5乙                 5丙

如果今天我點選   1甲  的時候 則 1甲 1乙 1丙 底色均黃色
如果今天我點選   2甲  的時候 則 2甲 2乙 2丙 底色均黃色

這要怎寫??


問題貳 是否可凍結左側一欄位?



附檔
eeeewq.pdf (86.8 KB)

下載次數: 10

2012-4-18 08:31

register313

回復 1# mark15jill

工作表模組

1. Private Sub worksheet_selectionchange(ByVal target As Range)
   
2. If target.Column = 1 Then
   
3.    Cells.Interior.ColorIndex = xlNone
   
4.    target.EntireRow.Interior.ColorIndex = 6
   
5. End If
   
6. With ActiveWindow
   
7.   .SplitColumn = 1
   
8.   .FreezePanes = True
   
9. End With
   
10. End Sub

複製代碼

mark15jill

謝謝您。
凍結OK~  顏色跑不出= =

register313

回復 3# mark15jill


點A1 =>第1列變黃底
點A2 =>第2列變黃底
...
點A5 =>第5列變黃底

c_c_lai

回復 3# mark15jill
須將以下之程式碼貼入到你的 "工作表1" 的程式碼區塊裏 (而非 ThisWorkbook 裏)，貼完後再至 "工作表1"點點看！

1. Private Sub worksheet_selectionchange(ByVal target As Range)
   
2.     If target.Column = 1 Then
   
3.        Cells.Interior.ColorIndex = xlNone
   
4.        target.EntireRow.Interior.ColorIndex = 6
   
5.     End If
   
6.    
   
7.     With ActiveWindow
   
8.         .SplitColumn = 1
   
9.         .FreezePanes = True
   
10.     End With
    
11. End Sub

複製代碼

mark15jill

回復 4# register313

我找到原因了...
因有凍結 把A欄 全隱藏= ="
所以 再怎麼點 也點不到A欄位的任何位置..