麻辣家族討論版版 » Excel程式區 » 請教點選儲存格的問題

返回列表下一主題上一主題發帖

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

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

高中生 Rank: 3 Rank: 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)

樓主熱帖

收藏

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

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

  少看=只看不做也枉然

　頭銜: 麻辣路人甲

大學生 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

工作表模組

Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 1 Then
Cells.Interior.ColorIndex = xlNone
target.EntireRow.Interior.ColorIndex = 6
End If
With ActiveWindow
.SplitColumn = 1
.FreezePanes = True
End With
End Sub

複製代碼

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

高中生 Rank: 3 Rank: 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~ 顏色跑不出= =

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

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

  少看=只看不做也枉然

　頭銜: 麻辣路人甲

大學生 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列變黃底

博士班 Rank: 6 Rank: 6

帖子: 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"點點看！

Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Column = 1 Then
Cells.Interior.ColorIndex = xlNone
target.EntireRow.Interior.ColorIndex = 6
End If
With ActiveWindow
.SplitColumn = 1
.FreezePanes = True
End With
End Sub

複製代碼

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

高中生 Rank: 3 Rank: 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欄位的任何位置..

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

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

  少看=只看不做也枉然

靜思自在 : 人要知福、惜福、再造福。

返回列表下一主題上一主題