| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 192 人关注过本帖
标题:请教老师:将颜色单元格放到对应标题下面?
只看楼主 加入收藏
lygyjt
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-6-25
  问题点数:0  回复次数:3   
请教老师:将颜色单元格放到对应标题下面?
各位老师好!想请教的问题:如何将指定标题及其下面绿色单元格里的数据,放到AM:AT中。
解释:A:AI第一行是标题行,每列最多100个数据(不包括标题)。在AK列,输入标题行里的任意数值(最多输入8个),在A:AI中,把这些“任意数值”标题及其下面绿色单元格里的数值,放到AM:AT中。比如:AK列第一个数是06,在A:AI标题行中,把06及其下面绿色单元格数字,放在AM下面;AK列第二个数是09,在A:AI标题行中,把09及其下面绿色单元格数字,放在AN下面。
上面是手工标准答案。
绿色单元格形成:在A:AI标题行下面,只要有与AK列中相同的数字,单元格就变绿。具体请见例子:
附件: 您没有浏览附件的权限,请 登录注册
2018-11-15 08:09
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1198
专家分:1289
注 册:2005-3-14
  得分:0 
如果你的格式是固定的,这个很好弄的


loading...
2018-12-14 16:49
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1198
专家分:1289
注 册:2005-3-14
  得分:0 
程序代码:
Private Sub CommandButton1_Click()

Call CommandButton2_Click
For i = 1 To 8
    Cells(1, 38 + i) = Cells(i, 37)
    For m = 1 To 35
        For n = 1 To 25
            If Cells(n, m) = Cells(i, 37) Then
               Cells(n, m).Interior.Color = 32768
            End If
        Next
     Next
Next

For k = 1 To 8
        z = 2
    For y = 1 To 35
        If Cells(1, y) = Cells(1, 38 + k) Then
           For w = 2 To 22
               If Cells(w, y).Interior.Color = 32768 Then
                   Cells(z, 38 + k) = Cells(w, y)
                   z = z + 1
               End If
           Next
        End If
    Next
Next

End Sub

Private Sub CommandButton2_Click()
For m = 1 To 25
    For n = 1 To 35
        Cells(m, n).Interior.ColorIndex = xlNone
    Next
Next
For x = 1 To 8
    For y = 1 To 8
        Cells(x, 38 + y) = ""
    Next
Next
End Sub


附件: 您没有浏览附件的权限,请 登录注册

loading...
2018-12-19 08:29
lygyjt
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2017-6-25
  得分:0 
回复 3楼 icecool
icecool老师,实在太过意不去了!写后,由于接着忙别的事了,就一直没看。白白浪费了您的一番好意,我也不知怎么能补偿或表达。在现实中,一定会请您喝酒赔罪。可在这里。。。,敬重的向您说声:谢谢!
前天 22:06







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036562 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved