有关EXCEL中COLOR index 的研究.

stanleypan · 发表于 2005-1-18 23:11

有关EXCEL中COLOR index 的研究.前几天看到有关帖子所做.

BbiHBuZE.rar (50.7 KB, 下载次数: 1028)

hxhgxy · 发表于 2005-1-19 12:36

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

stanleypan · 发表于 2005-1-19 13:01

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

hxhgxy · 发表于 2005-1-19 13:06

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

stanleypan · 发表于 2005-1-19 13:16

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

我给个EXCEL版的吧.

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

stanleypan · 发表于 2005-1-19 13:19

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 · 发表于 2005-1-19 13:22

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

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

stanleypan · 发表于 2005-1-19 13:36

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

shuiyuan · 发表于 2005-2-21 13:09

确实不错，收藏。谢谢

6606txj · 发表于 2005-3-15 23:50

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

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

		自动登录	找回密码
密码			免费注册