[已解决]判断显示问题

龙送农

判断显示问题：当年度下面有考核结果时，显示“年度+考核结果”，效果如附件第6行。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-6-16 17:17

判断显示问题3.rar (18.08 KB, 下载次数: 14)

2016-6-16 17:16 上传

点击文件名下载附件

以下两种方式都行
方式1：点按钮
方式2：切换到sheet1时，自动执行。

跳转到最佳答案楼层

爱疯

判断显示问题2.rar (25.51 KB, 下载次数: 16)

2016-6-16 16:37 上传

点击文件名下载附件


Function ndkh(rng As Range) As String
    Dim r%, c%, x
    r = rng.Row: c = rng.Column
    For Each x In [b3:k3]
        If Cells(r, c) <> "" Then ndkh = ndkh & " " & x & Cells(r, c)
        c = c + 1
    Next
End Function



函数的，一时想不出。。。

龙送农

爱疯 发表于 2016-6-16 16:39
Function ndkh(rng As Range) As String
    Dim r%, c%, x
    r = rng.Row: c = rng.Column

爱疯老师：能否点击这个表时，自动显示。

爱疯

判断显示问题3.rar (18.08 KB, 下载次数: 14)

2016-6-16 17:16 上传

点击文件名下载附件

以下两种方式都行
方式1：点按钮
方式2：切换到sheet1时，自动执行。