我试图根据其他三个单元格中的整数值指定活动单元格的填充颜色。这是我的职责:
Function AssignColor(r As Integer, g As Integer, b As Integer)
ActiveCell.Interior.color = RGB(r, g, b)
AssignColor = "#" & Application.WorksheetFunction.Dec2Hex(RGB(r, g, b))
End Function
当我使用该函数时,活动单元格将得到一个"#Value“结果,并且填充颜色不会被设置。似乎任何为单元
我有一个从MSDN得到的函数,它计算一个区域中具有另一种单元格颜色的单元格的数量。
以下是代码
Function countCcolor(range_data As Range, criteria As Range) As Long
Application.Volatile
Application.ScreenUpdating = False
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If
我在excel中有一个电子表格,其中彩色单元格包含值,没有填充的单元格是空的。我希望所有没有填充颜色的单元格都有值0。我使用的代码分别给出了黑色和黄色单元格值1和2。
Sub changeValuesBasedOnColour()
Dim rg As Range
Dim xRg As Range
Set xRg = Selection.Cells
Application.DisplayAlerts = False
For Each rg In xRg
With rg
Select Case .Interior.C
我用床单上的桌子。我选中“隐藏价格”框并运行相关代码。代码隐藏目标单元格中的值,将其中的字体颜色设置为填充颜色。再次单击复选标记时,代码将重新启动,并在单元格中设置字体颜色,与左侧示例性单元格中的字体颜色相同。由于使用表,用户可以选择某些表示样式,其中单元格中的字体颜色可能有所不同。因此,我不能设置任何特定的颜色,例如黑色。
With Sheets("Calculation")
For r = 9 To 10
For c = 22 To 23
.Cells(r, c).Select
clr1 = .Cells(r, c).Di
我有两组点,用蓝星和红点表示plot。然后用plot函数对两组的Voronoi图进行了分析。我想要指定每个单元格的颜色取决于它的站点所属的设置。我几乎是通过使用patch函数这样做的:
[v,c]=voronoin(D);
for p=1:TheNumberOfSets
r=rand()/2+0.5; % random gray color
col=[r r r];
for s=1:PointsInSet(p)
l=l+1;
patch(v(c{l},1),v(c{l},2),col
我正在尝试基于颜色更改来更改单元格值...当我更改单元格中的颜色时,没有任何反应。不会为单元格设置文本。
function createSpreadsheetEditTrigger() {
var ss = SpreadsheetApp.getActive();
ScriptApp.newTrigger(status)
.forSpreadsheet(ss)
.onEdit()
.create();
}
function status() {
var ss = SpreadsheetApp.getActiveSpreadsheet();