当前位置: 首页 > 知识库问答 >
问题:

将单元格颜色从SheetA复制到具有相同单元格值的SheetB

熊博远
2023-03-14

这是我第一次在这里发帖,所以请直接回答我的问题,我会尽我所能解释我的问题。

我的工作簿中有两个工作表,其中工作表1直观地表示一个有162个方格的托盘中多个单位(A1到A162)的位置。并不是所有的方格都被填满,因为有些方格是空的。

现在,第2页显示了单位A1到A162的数值。我已经使用条件格式为每个值分配颜色。

我试图从sheet2将A1的颜色复制到sheet1中具有A1值的单元格,但没有成功。

在此附上两页的链接。我相信这里的excel向导会发现这是一个简单的问题,希望你们能帮助我解决这个问题。希望很快能听到这里的专家们的意见。

共有1个答案

易祯
2023-03-14

我希望我正确理解了这个问题。我读了好几遍才明白。下面你可以看到一个VBA解决方案,它对我很有效。

Sub color_cells()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim cl As Range, rng As Range
Dim str_a As String

Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")

For Each cl In ws2.Range("A1:EZ30")
    
    If Not IsError(cl.Value) And cl.Value Like "A*" Then

        str_a = cl.Value
        
        With ws1
            Set rng = .Range("B:B").Find(str_a)
            Set rng = rng.Offset(0, 2)
        End With
        
        cl.Interior.ColorIndex = rng.Interior.ColorIndex
        
    End If
Next

End Sub
 类似资料:
  • 这应该返回3,因为如果我将从单元格(2,1)开始,我将通过上下左右移动得到39,39,39,我的方法看起来像find_cells(int[][]矩阵,int行,int col),其中row和col是起点。不要使用任何帮助器方法。我得到1可能是因为我将邻居标记为true,下次当我试图访问它们时,它会跳过它们。很抱歉缩进了。

  • 问题内容: 我正在使用openpyxl读取Excel文件。我想从“ xlsx”文件中获取单元格颜色。我试图获得颜色,以便: 我得到“ 11L”,但我需要得到rgb颜色,我该怎么办? 问题答案: 看起来工作表正在使用内置的颜色索引。这些的映射位于 11L对应于0000FF00(十六进制),其rgb元组将为绿色(0,255,0)。

  • 我的excel工作表中有两个单元格,其中一个单元格包含如下字符串: 而另一个单元格有欧元货币,例如: 现在我想复制这两个值,即“总额”和“223.463.687€”,并将其复制到第三个单元格中。我使用的公式是这样的: 我得到以下结果: 但是我应该: 注: 货币的格式是德语格式,意思是“.”(小数点)和“,”(昏迷)扮演相反的角色。在德语格式中,“,”是小数点,在英语中是“。”。

  • 我正在尝试用apache POI更改单元格的背景。 伙计们,我做错什么了?

  • 有人能帮忙吗?我有一个现有代码,该代码当前根据V列中的单元格值(上诉记录)将整行数据从一张表(质量日志)复制到另一张表(上诉日志)。 之前,它已经从原始(质量日志)表中删除了该行,但我现在希望更改代码,以便将单元格值更改为(正在上诉),然后将其移动到下一页(上诉日志)。 请参阅下面我的代码。我已用**表示我试图更改代码

  • 我使用了如下内容:我为CellStyle设置了一个全局变量,并尝试为第4列中的所有单元格填充颜色。...... 顺便说一下,我使用HSSFWorkbook和HSSFSheet进行报告。 这样,它只是填充整个薄片,结果所有的细胞得到填充的石灰颜色!