怎样用代码判断单元格自动换行了

wls_198210100

如题！！！
我的本意是在单元格内随机生成字符，列宽是固定的，如果字符超出单元格就会自动换行，那么怎样用代码判断哪些单元格自动换行了呢？
如果自动换行了的话，就将该单元格内容字号更改为10号字（原来是12号的）。


求高手给个答案！！！

5blessyou

我觉得这个是用LENB应该可以的！

wls_198210100

如果单元格设置了自动换行的话，用LEN是判断不出来的

yaozong

参考附件。。

wls_198210100

yaozong 发表于 2011-11-4 11:08
参考附件。。

谢谢你，我明白你是怎么做到的了！！！但是我还是想了解一下，
除你的这种利用行高来判断方法外，还能用其它的方式方法来实现吗？

detergent181

Sub 按钮1_单击()
[a1].WrapText = False
h1 = [a1].Height
[a1].WrapText = True
[a1].Rows.AutoFit
If [a1].Height <> h1 Then
   MsgBox "自动换行"
   Else
   MsgBox "没有自动换行"
    End If
End Sub

yaozong

Private Sub CommandButton3_Click()
For i = 2 To [a65536].End(3).Row
   If Cells(i, 1).WrapText = True Then Cells(i, 5) = "是" Else Cells(i, 5) = "否"
Next
End Sub
‘如整列均设“自动换行”，上式无效（只能从行高判断了/列宽与字符参数的判断是有误差的）。

wls_198210100

多谢各位了。。。。。

东亚五金

yaozong 发表于 2012-10-2 16:39
2010版没安装,可用与否不清楚.

这个代码在我的工作簿模块里可以运行，关键是我的A列是序号，B列是有换行的数据。
是否能改动一下代码，检查B列的数据是否有自动换行。就是把A列改成B列。
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim a, b
Sheet1.UsedRange.Offset(1, 1).ClearContents
[a1].CurrentRegion.EntireRow.AutoFit
For i = 2 To [a65536].End(3).Row
    Cells(i, 1).WrapText = True
    a = Cells(i, 1).RowHeight
    Cells(i, 1).WrapText = False
    b = Cells(i, 1).RowHeight
    Cells(i, 1).WrapText = True
    'Cells(i, 3) = Application.Ceiling(a / b, 1)
    'MsgBox Cells(i, 1).Address(0, 0) & " 格行数： " & Application.Ceiling(a / b, 1)
    If a <> b Then Cells(i, 4) = "是" Else Cells(i, 4) = "否"
Next
Application.ScreenUpdating = True
End Sub

yaozong

2010版没安装,可用与否不清楚.