[已解决]如何查找第一行单元格的某项属性获得列号？

sblisb

有一段代码，原来是固定的行号，现在想改成查找单元格属性来获取行号，比如第一行没有锁定的行号，如何改呢？
红色部份
Sub test()
For xRow = 2 To Range("A15536").End(xlUp).Row

        If Range("a" & xRow).Value = "" Or Range("b" & xRow).Value = "" Or Range("c" & xRow).Value = "" Or Range("d" & xRow).Value = "" Or Range("e" & xRow).Value = "" Or Range("f" & xRow).Value = "" Or Range("g" & xRow).Value = "" Or Range("h" & xRow).Value = "" Or Range("i" & xRow).Value = "" Then
            Range("b" & xRow).Select
            MsgBox "统计单位,被使用林地单位,林班大班小班及面积,使用林地类型,建档,现状" & Chr(10) & "9项数据不能为空,请检查数据!"
        End If
Next
End Sub

test.zip (9.21 KB, 下载次数: 12)

2014-10-19 18:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-20 05:41

1. Sub Macro1() '判断第一列标题哪些单元格没锁定
   
2. Dim rng As Range, c As Range
   
3. For Each c In [a1:ac1]
   
4.     If Not c.Locked Then
   
5.         If rng Is Nothing Then Set rng = c Else Set rng = Union(rng, c)
   
6.     End If
   
7. Next
   
8. If Not rng Is Nothing Then
   
9.     s = rng.Count
   
10.     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    
11.         If Application.CountA(rng.Offset(i - 1, 0)) <> s Then
    
12.             MsgBox "第" & i & "行" & s & "项数据不能为空,请检查数据!"
    
13.             rng.Offset(i - 1, 0).Select
    
14.         End If
    
15.     Next
    
16. End If
    
17. End Sub

复制代码

跳转到最佳答案楼层

qh8600

想改成什么样，说清楚

dsmch

1. Sub test()
   
2. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
3.     If Application.CountA(Cells(i, 1).Resize(1, 9)) <> 9 Then
   
4.         Range("b" & i).Select
   
5.         MsgBox "统计单位,被使用林地单位,林班大班小班及面积,使用林地类型,建档,现状" & Chr(10) & "9项数据不能为空,请检查数据!"
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

原代码太啰嗦了，如果有90项，莫非要全部列举？

su45

除了写得繁，代码本身没错！只是不知楼主要改成啥样？

sblisb

dsmch 发表于 2014-10-19 20:36
原代码太啰嗦了，如果有90项，莫非要全部列举？

这里举例是连续的，不连续的怎么写？

sblisb

qh8600 发表于 2014-10-19 19:07
想改成什么样，说清楚

改红色列号，不固定是哪列，以查找表头单元格中某一属性为准，比如例子中想以单元格没有锁定内容为准

sblisb

su45 发表于 2014-10-19 20:56
除了写得繁，代码本身没错！只是不知楼主要改成啥样？

想把红色列号改为查找获得，如查找表头没有锁定的单元格列号

su45

是不是想判断这9列中有没有空格？有空格就提示错误？

sblisb

su45 发表于 2014-10-19 23:24
是不是想判断这9列中有没有空格？有空格就提示错误？

是，但这9列是通过表头单元格某一属性与与它单元格不一样来确定的，如：这表头的这9个单元格保护属性没有锁定

sblisb

dsmch 发表于 2014-10-19 20:36
原代码太啰嗦了，如果有90项，莫非要全部列举？

Sub test()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Application.CountA(Union("a" & Rows, "b" & Rows, "f" & Rows)) <> 3 Then
        Range("b" & i).Select
        MsgBox "统计单位,被使用林地单位,林班大班小班及面积,使用林地类型,建档,现状" & Chr(10) & "9项数据不能为空,请检查数据!"
    End If
Next

End Sub

怎么提示类型不匹配？如何根据属性查找获得列号？