求教Taller斑竹：如何将工作表事件代码作成加载宏以应用于任意工作簿？

FENGJUN

代码如下：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 If Target.Row <> 1 And Target.Rows.Count = 1 Then Target.EntireRow.Interior.ColorIndex = 19 End If End Sub

cofe2000

放在thisworbook中

Public WithEvents xlApp As Excel.Application

Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.ColorIndex = 0 If Target.Row <> 1 And Target.Rows.Count = 1 Then Target.EntireRow.Interior.ColorIndex = 19 End If End Sub

FENGJUN

非常感谢cofe2000！

FENGJUN

cofe2000：

如何在上述宏中建立一个能调用颜色面板的窗体，从而实现动态设置Target.EntireRow.Interior.ColorIndex ?

[此贴子已经被作者于2004-10-13 11:42:41编辑过]

cofe2000

参考别人的代码做的

模块中定义

Type udtCColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As String flags As Long lCustData As Long lpfnHook As Long lpTemplateName As Long End Type

Declare Function ChooseColorA Lib "Comdlg32" _ (lpChooseColor As udtCColor) As Long

thisworkbook中

Public WithEvents xlApp As Excel.Application

Private Sub Workbook_Open() Set xlApp = Application End Sub Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Interior.ColorIndex = 0 If Target.Row <> 1 And Target.Rows.Count = 1 Then 'Target.EntireRow.Interior.ColorIndex = 19 Dim CColor As udtCColor Dim CustColors As String * 16 With CColor .lStructSize = 36 .lpCustColors = CustColors End With If ChooseColorA(CColor) = 0 Then Exit Sub Target.EntireRow.Interior.Color = CColor.rgbResult End If End Sub

cofe2000

这样的话，一天到晚就在选颜色了，别的事情就做不了了

不知道你想干什么

哆拉A梦

又学到有用的东西了。

我原先的做法是用VBA将代码复制到目的工作簿(工作表）中进行处理，现在不用这么做了。多谢了！！

补充一点：如果工作表中存在SelectionChange事件，则是先执行工作表的SelectionChange事件，然后执行加载宏中的xlApp_SheetSelectionChange事件。

[此贴子已经被作者于2004-10-13 15:58:44编辑过]

FENGJUN

以下是引用cofe2000在2004-10-13 11:51:00的发言：

这样的话，一天到晚就在选颜色了，别的事情就做不了了

不知道你想干什么

是我表述不清：我需求是——能够让用户设置自己喜好的颜色，不要固定使用代码中的颜色19。

如何做到呢？

cofe2000

我也是别处抄来的代码，应该是这里某个版主的代码，具体我也不知如何做

FENGJUN

upup