求助VBA代码

2019-09-10 12:23:26 816 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

qq_20320947 墨衍会员 · AI 创作全网分发关注 + 加入社区

求助vba大神大神们，我是想写保留前5行，按列拆分数据为若干新工作簿，但是代码一直错了，可以帮忙看一下吗？ Sub 保留表头拆分数据为若干新工作簿()     Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%     c = Application.InputBox(“请输入拆分列号”, , 6, , ,... 阅读详情

如何同时选中第一列和第二列所有填充色为黑色的单元格

...全文

ESP32天线阵列实现Wi-Fi空间成像与无直视定位 Wi-Fi信道状态信息（CSI）是OFDM系统中表征多径传播特性的基础物理层参数，其复数值包含幅度与相位，可反映无线环境的空间特征。基于CSI的射频感知技术，通过提取子载波级信道响应，结合阵列信号处理，实现到达角（AoA）估计与深度映射，本质是将通信链路重构为空间域传感器。该技术无需专用雷达硬件，具备低成本、被动式、隐私友好等工程优势，在室内定位、行为识别、仓储导航等场景具有广泛落地价值。本文聚焦ESP32平台，详解多芯片相位同步、CSI零拷贝采集、嵌入式MUSIC算法及信道图谱轻量化部署等关键实现。阅读详情

qq_20320947

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

>_<s 2019-09-17

打赏
举报

[quote=引用 14 楼 qq_20320947 的回复:] 如果是条件格式的话你没必要纠结于颜色啊，你不是设置有条件么，你把我二三楼代码里IF里的条件换成你条件格式的条件就可以了。

qq_20320947 2019-09-15

打赏
举报

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

[quote=引用 11 楼脆皮大雪糕的回复:] [quote=引用 8 楼 qq_20320947 的回复:] [quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:
Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色[/quote] 楼主说了是用条件格式标记的颜色，这个用代码读不出来[/quote] 谢谢您补充好我的问题，其实换句话中就是选中用条件格式设置好的单元格，例如黑色，这样怎么选中呢？如果手动填充的黑色用二三楼朋友的回复代码是可以执行的。但实际上还是没处理好我想要的结果。

qq_20320947 2019-09-15

打赏
举报

引用 9 楼 milaoshu1020的回复:

你可以通过这个代码查看自动生成的颜色和你自己填充的颜色是否一致;

这个颜色没错。就是黑色。感谢大家的帮助，目前还是没有研究出来，就是用条件格式设置好的单元格颜色怎么选中，这个问题好难！

米老鼠yeah 2019-09-15

打赏
举报

引用 11 楼脆皮大雪糕的回复:

[quote=引用 8 楼 qq_20320947 的回复:] [quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:
Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色[/quote] 楼主说了是用条件格式标记的颜色，这个用代码读不出来

脆皮大雪糕 2019-09-14

打赏
举报

引用 8 楼 qq_20320947 的回复:

[quote=引用 7 楼 milaoshu1020的回复:]试试看,看看颜色对不对:
Sub test()
    Dim objRange As Range
    For Each objRange In Sheet1.Range("A1:B10")
        Debug.Print objRange.Interior.Color
    Next
End Sub

你这个代码？？？怎么会对呢？[/quote] 这是让你检查所有格子的颜色是不是都是一样的。比如 rgb(0,0,0）是黑色， rgb(5,5,5) 看上去也是挺黑的，但程序就不认为这是同一种颜色

米老鼠yeah 2019-09-14

打赏
举报

首先，建议楼主把问题描述完整：A:B列用条件格式根据数据设置了不同的颜色，需要代码实现选中A:B列中所有相同颜色的单元格

milaoshu1020 2019-09-13

打赏
举报

你可以通过这个代码查看自动生成的颜色和你自己填充的颜色是否一致;

qq_20320947 2019-09-13

打赏
举报

引用 7 楼 milaoshu1020的回复:

试试看,看看颜色对不对:



Sub test()

    Dim objRange As Range

    For Each objRange In Sheet1.Range("A1:B10")

        Debug.Print objRange.Interior.Color

    Next

End Sub

你这个代码？？？怎么会对呢？

jieru_liu 2019-09-12

打赏
举报

引用 5 楼 qq_20320947 的回复：

不好意思，我运行代码后，还是实现不了。仔细看了才发现，我是先用条件格式获取单元格的颜色为黑色，A1:B10 之间的单元格数值根据条件格式已经设置好了单元格的填充色为黑色，现在主要是要选中条件格式设置后的黑色。运行您的代码后发现单元格通过条件格式设置后的黑色没法选中，如果是用自己手动填充的单元格黑色的，用了您的代码确实能实现。这个问题困扰很久了，还麻烦您帮忙处理下，谢谢！补充的问题应该改为条件格式设置后的单元格为黑色用VBA代码如何实现选中。

方上传附件吗

milaoshu1020 2019-09-12

打赏
举报

试试看,看看颜色对不对:



Sub test()

    Dim objRange As Range

    For Each objRange In Sheet1.Range("A1:B10")

        Debug.Print objRange.Interior.Color

    Next

End Sub

>_<s 2019-09-10

打赏
举报

Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A:B") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub

qq_20320947 2019-09-10

打赏
举报

不好意思，我运行代码后，还是实现不了。仔细看了才发现，我是先用条件格式获取单元格的颜色为黑色，A1:B10 之间的单元格数值根据条件格式已经设置好了单元格的填充色为黑色，现在主要是要选中条件格式设置后的黑色。运行您的代码后发现单元格通过条件格式设置后的黑色没法选中，如果是用自己手动填充的单元格黑色的，用了您的代码确实能实现。这个问题困扰很久了，还麻烦您帮忙处理下，谢谢！补充的问题应该改为条件格式设置后的单元格为黑色用VBA代码如何实现选中。

>_<s 2019-09-10

打赏
举报

楼上倒数第一张是运行前，倒数第二张是运行后，仔细看是有选中单元格的

>_<s 2019-09-10

打赏
举报

[quote=引用 2 楼 qq_20320947 的回复:] 有具体的区域限制把RANGE里的范围改了就不卡了，如下： Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A1:B10") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub 是能选择中的，除非你单元格的填充色不是纯黑色要选哪个区改ColorIndex 对应颜色的数字就行，颜色对照表和运行结果可以看图片

qq_20320947 2019-09-10

打赏
举报

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

Sub Test() Dim cel As Range, aa As Range For Each cel In Range("A:B") If cel.Interior.ColorIndex = 1 Then If aa Is Nothing Then Set aa = cel Else Set aa = Union(aa, cel) End If Next If Not aa Is Nothing Then aa.Select End Sub

运行后一个单元格都没选中。而且代码运行后很卡。问题补充下，如A1至B10中每个单元格都有数字值，几个单元格为黑色，几个为黄色，目前想用代码实现，选中填充色为黑色的单元格。你的代码实现不了

求助VBA代码

相关推荐