請教 EXCEL 高手，可否將游標所在儲存格改變顏色或改粗體以利辨識所在位置

johnlin0808 2011-12-26 10:21:39 ‧ 51432 瀏覽

分享至

或者可運用 VBA 指令，將游標所在儲存格改變顏色或改粗體，以利使用者找到游標所在位置。

因有時畫面儲存格太多，不易找到游標所在位置。

Tks!

海綿寶寶 iT邦大神 1 級 ‧ 2011-12-26 15:02:37 檢舉

不是很完美的做法
看看合不合用

將程式碼複製到
工作表的VBA編輯區(例：sheet1)即可

Option Explicit
Dim savedAddress, savedColor
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If savedAddress <> "" Then
        Range(savedAddress).Interior.ColorIndex = savedColor
    End If
    savedColor = ActiveCell.Interior.ColorIndex
    savedAddress = Target.Address
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

liurambo0911 iT邦高手 1 級 ‧ 2011-12-27 10:44:18 檢舉

高呀

要是VFP 改變格線是極為簡單的事
EXCEL我就沒空去研究了

elainelee iT邦新手 4 級 ‧ 2015-10-30 12:26:58 檢舉

請問前輩
是否選取的儲存格變色, vba只能寫在worksheet, 不能寫在workbook裡?
因為事件只能在寫在相對應的worksheet裡, 但整個工作簿裡的不同sheet就無法觸發這個vba

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

5 個回答

jimmytwo

iT邦新手 5 級 ‧ 2011-12-28 15:38:34

最佳解答

參考網路上的資料改的，
選取的部份會變色變粗，離開時恢復原來格式，
若複製選取後再點其他儲存格會自動貼上。

這應該是你要的吧~~

&lt;pre class="c" name="code">
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   If Application.CutCopyMode = xlCopy Then Me.Paste
   On Error Resume Next
   [colorCell].FormatConditions.Delete
   Target.Name = "colorCell"
   With [colorCell].FormatConditions      ' 設定格式化條件
       .Delete
       .Add xlExpression, , "TRUE"        ' 條件(一)內公式為
       .Item(1).Interior.ColorIndex = 36  ' .Item(1)等於FormatConditions(1)
       .Item(1).Font.Bold = True
   End With
End Sub