有关EXCEL中COLOR index 的研究.

stanleypan

有关EXCEL中COLOR index 的研究.前几天看到有关帖子所做. BbiHBuZE.rar (50.7 KB, 下载次数: 1026)

2005-1-18 23:12 上传

点击文件名下载附件
有关EXCEL中COLOR index 的研究.

hxhgxy

谢谢! 建议给个说明如何使用, 或者做个例子。

stanleypan

这个是VB制作的在EXCEL中使用的加载宏. 加载：在EXCEL界面右键单击工具栏-->自定义-- >命令--选择 工具 -->命令栏-->调出 COM加载项 菜单。点击 COM 加载项菜单，单击 添加，选中 这个ExcelColorIndex.dll,确定,加载完成。作用其实就是注册一下., 会有菜单出现.YOU CAN TRY.

hxhgxy

可否公开代码， 还有你前面发的COLOR CHANGE

stanleypan

Color Change 的代码跟EXCEL版的差不多.我想很多人都已有吧,就是用条件FORMAT去做.

我给个EXCEL版的吧.

[此贴子已经被作者于2005-1-19 13:20:54编辑过]

stanleypan

Option Explicit Dim CVArray As Variant

Sub Main() Dim ColorR, ColorC As Integer Dim R As Double, G As Double, B As Double Dim K As Long On Error Resume Next CVArray = Array(1, 53, 52, 51, 49, 11, 55, 56, 9, 46, 12, 10, 14, 5, 47, 16, 3, 45, 43, 50, 42, 41, 13, 48, 7, 44, 6, 4, 8, 33, 54, 15, 38, 40, 36, 35, 34, 37, 39, 2, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32) ActiveCell.Select Cells(ActiveCell.Row + 8, ActiveCell.Column) = "ColorIndex Öµ" For ColorR = 1 To 7 For ColorC = 1 To 8 ActiveCell.Offset((ColorR - 1), ColorC - 1).Interior.ColorIndex = CVArray((ColorR - 1) * 8 + ColorC - 1) K = ActiveCell.Offset((ColorR - 1), ColorC - 1).Interior.Color Cells(ActiveCell.Row + 9 + (ColorR - 1), ActiveCell.Column + ColorC - 1) = CVArray((ColorR - 1) * 8 + ColorC - 1) R = K Mod 256 B = Int(K / 65536) G = Int((K - (B * 65536)) / 256) With Cells(ActiveCell.Row + (ColorR - 1), ActiveCell.Column + ColorC - 1).Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween .IgnoreBlank = True .InCellDropdown = True .InputTitle = "RGB Öµ" .ErrorTitle = "" .InputMessage = R & "," & G & "," & B .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With 'Cells(ActiveCell.Row + (ColorR - 1), ActiveCell.Column + 8 + ColorC - 1) = R & "," & G & "," & B Next ColorC Next ColorR End Sub

hxhgxy

我做过一个，但是Excel版相当于不时地在执行宏，不能做UNDO操作了。

不知你的代码如何，相信比较精炼。

stanleypan

我的也不行,要用XCOLOR这个加载宏,它的机理不是用条件FORMAT.

shuiyuan

确实不错，收藏。谢谢

6606txj

太好了，强烈建议，楼主，做个excel版的以供大家参考，尤其是那个关于窗口是怎么做出来的。

[此贴子已经被作者于2005-3-15 23:52:50编辑过]