求助vba代码

[qq_20320947]

vba 写代码 选中A1至Z10，求该区域中单元格为黑色的前一列的黄色单元格的值，并在消息框提示。 已知每一列只有一个单元格有颜色。

[qq_20320947]

引用 1 楼 >_<s的回复:

黄色的单元格是与黑色单元格在同一行么？

不一定在同一行。区域内每个单元格都有数据，不为空。

[>_<s]

黄色的单元格是与黑色单元格在同一行么？

[qq_20320947]

每一列单元格只有一个任意颜色的单元格

[qq_20320947]

A1至A10都有数据，不为空。

[jieru_liu]

这种写代码的，最好上传附件

[qq_20320947]

表述应该没问题吧，主要是代码如何实现。

[米老鼠yeah]

如果楼主设置了条件格式，也要说明一下吧

[qq_20320947]

引用 7 楼 米老鼠yeah的回复:

如果楼主设置了条件格式，也要说明一下吧

我这道题目就没有设置条件格式了，不然还是写不出代码。研究了半天。

[qq_20320947]

引用 7 楼 米老鼠yeah的回复:

如果楼主设置了条件格式，也要说明一下吧

刚入手Vba，只有一点经验。不过写了代码老是出错。希望能够给点提示哈

[jieru_liu]

Sub 获取目标单元格的值()
    Dim rng As Range
    Set rng = [a1:z10]
    
    Dim rg1 As Range, rg2 As Range
    For Each rg1 In rng
        If rg1.Interior.Color = RGB(0, 0, 0) Then
            For Each rg2 In Intersect(rng, Columns(rg1.Column - 1))
                If rg2.Interior.Color = RGB(255, 255, 0) Then
                    rg2.Select
                    MsgBox "目标单元格地址为：" & rg2.Address & "；值为：" & rg2.Value
                End If
            Next
        End If
    Next
    
End Sub

[vba小白]

黑色单元格是唯一吗？ 还是你偏移的黄色单元格也是唯一？