返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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丙 底色均黃色

這要怎寫??


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



附檔
eeeewq.pdf (86.8 KB)
收藏 分享

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

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

  少看=只看不做也枉然

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
6#
發表於 2012-4-18 17:04 | 只看該作者
回復 4# register313

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

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

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

  少看=只看不做也枉然

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 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
複製代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-4-18 14:30 | 只看該作者
回復 3# mark15jill


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

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2012-4-18 13:57 | 只看該作者
謝謝您。
凍結OK~  顏色跑不出= =

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

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

  少看=只看不做也枉然

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題