TWed2k - 程式開發討論區 - EXCEL VBA 求解...

oscar731130
鐵驢友〔初級〕

今日心情

．積分： 29
．文章： 99
．收花： 217 支
．送花： 150 支
．比例： 0.69
．在線： 874 小時
．瀏覽： 4390 頁
．註冊： 6764 天
．失蹤： 11 天
．新竹縣

#1 : 2015-10-18 08:43 PM 全部回覆	送花 (3) 送出中...

以下是我的程式碼：我要達成的目的是，當點選A儲存格時，該列、行的外框會變色及變粗。再點選B儲存格時，A儲存格該列、行恢復原有格式，換成B儲存格的列、行變外框變色變粗。但目前我只會寫到外框變色的程式，不會寫變粗的程式，有誰可以幫忙？還有就是我這段程式碼在Excel 2010版不會跳錯誤訊息，但在excel 2003版就會跳錯誤訊息(如下)，為什麼呢？？

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.FormatConditions.Delete
With Columns(Target.Column).FormatConditions
  .Delete
  .Add xlExpression, , "true"
  .Item(1).Borders(7).ColorIndex = 5 '<---Excel 2003版會在這行跳出：執行階段錯誤'1004':
  .Item(1).Borders(10).ColorIndex = 5                                     '無法設定種類Border的Colorindex屬性
End With
With Rows(Target.Row).FormatConditions
  .Delete
  .Add xlExpression, , "true"
  .Item(1).Borders(8).ColorIndex = 5
  .Item(1).Borders(9).ColorIndex = 5
End With
End Sub

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆