Board logo

標題: [發問] 請教點選儲存格的問題 [打印本頁]
作者: mark15jill    時間: 2012-4-18 08:31     標題: 請教點選儲存格的問題

本帖最後由 mark15jill 於 2012-4-18 08:34 編輯

請問一下
問題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丙 底色均黃色

這要怎寫??


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



附檔
[attach]10487[/attach]
作者: register313    時間: 2012-4-18 08:56

回復 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    時間: 2012-4-18 13:57

謝謝您。
凍結OK~  顏色跑不出= =
作者: register313    時間: 2012-4-18 14:30

回復 3# mark15jill


點A1 =>第1列變黃底
點A2 =>第2列變黃底
...
點A5 =>第5列變黃底
作者: c_c_lai    時間: 2012-4-18 16:16

回復 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    時間: 2012-4-18 17:04

回復 4# register313

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



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