word vba怎样获取光标所在的任意一个合并单元格的宽和高

shenjianrong163

　　Word中有合并单元格的表格，当在任意一个合并单元格中单击鼠标时，怎样计算出此单元格的宽和高（如图中光标在内容为“单元格”的单元格中时，怎样计算出此合并单元格的宽和高），请各位老师指点，谢谢！　　
　　 word vba怎样获取光标所在的任意一个合并单元格的宽和高.zip (8.22 KB, 下载次数: 15)

2021-7-20 16:03 上传

点击文件名下载附件

413191246se

* 沈老师：下面代码不一定正确，实属抛砖引玉，仅供参考：

1. Sub aaaa_MergeCell_WidthHeight()
   
2.     Dim r As Range, i!
   
3.    
   
4.     Set r = Selection.Range
   
5.     Selection.Cells(1).Select
   
6.     Selection.MoveEnd 'if it's the last cell
   
7.    
   
8.     i = Selection.Rows.Count
   
9.     r.Select
   
10.    
    
11.     With Selection.Cells(1)
    
12.         MsgBox Round(.Width / 28.34, 2) & "cm/" & Round(.Height / 28.34, 2) * i & "cm"
    
13.     End With
    
14. End Sub

复制代码

zhanglei1371

要计算单元格的高度，必须先设置属性中的行高。否则得不到正确的数据。因此先用代码调整单元格行距后，剩下的就很简单了。

shenjianrong163

413191246se 发表于 2021-7-21 07:30
* 沈老师：下面代码不一定正确，实属抛砖引玉，仅供参考：

谢谢，这种如果合并单元格的每行高度相同，高度计算是正确的；如果出现不同高度的行，则结果有误。如果通过计算合并单元格的所有行的高度相加，怎样确定表示合并单元格的行和列？比如例子中怎样快速得出合并单元格是（1,7），请老师指点！

shenjianrong163

zhanglei1371 发表于 2021-7-21 10:17
要计算单元格的高度，必须先设置属性中的行高。否则得不到正确的数据。因此先用代码调整单元格行距后，剩下 ...

老师，假如已经设置好行高和列宽（各行高度和各列宽度可能不相同），怎样计算出合并单元格的宽和高呢？谢谢！

zhanglei1371

shenjianrong163 发表于 2021-7-21 11:34
老师，假如已经设置好行高和列宽（各行高度和各列宽度可能不相同），怎样计算出合并单元格的宽和高呢？谢 ...

刚又测试了下，发现获取不到。
但是若是想要判断是否是合并单元格的话，可以判定下面和右边的单元格是否存在。若不存在就是合并单元格。

shenjianrong163

zhanglei1371 发表于 2021-7-21 17:34
刚又测试了下，发现获取不到。
但是若是想要判断是否是合并单元格的话，可以判定下面和右边的单元格是否 ...

好的，谢谢！

shenjianrong163

413191246se 发表于 2021-7-21 07:30
* 沈老师：下面代码不一定正确，实属抛砖引玉，仅供参考：

获取单元格所在的行号和列号应该是这样吧？好像对于合并和非合并单元格都适用！
Selection.Information(wdStartOfRangeRowNumber)　'行
Selection.Information(wdStartOfRangeColumnNumber)　'列

shenjianrong163

413191246se 发表于 2021-7-21 07:30
* 沈老师：下面代码不一定正确，实属抛砖引玉，仅供参考：

又出现一个问题：如果合并的单元格是多列多行的，"i = Selection.Rows.Count"中i的值一直都是1。

shenjianrong163

shenjianrong163 发表于 2021-7-21 21:16
又出现一个问题：如果合并的单元格是多列多行的，"i = Selection.Rows.Count"中i的值一直都是1。

想到了一种解决办法，移动光标来判断：

1. Sub GetCellRows() '获取光标所在单元格的行数
   
2.     Dim r%, rowStart%, rowNext$, rowTotal%
   
3.     If Selection.Information(wdWithInTable) Then  '是否在表格中
   
4.         rowStart = Selection.Information(wdStartOfRangeRowNumber) '获取光标所在单元格的行号
   
5.         rowTotal = Selection.Information(wdMaximumNumberOfRows) '计算出表格的最大行
   
6.         Selection.MoveDown Unit:=wdLine, Count:=1  '光标向下移动
   
7.         If Selection.Information(wdWithInTable) Then  '移动后光标是否在表格中
   
8.             rowNext = Selection.Information(wdStartOfRangeRowNumber)  '光标还在表格中，记录下一行的行号
   
9.         Else
   
10.             rowNext = rowTotal  '光标不在表格中，说明光标原来就在最后一行
    
11.         End If
    
12.         Selection.MoveUp Unit:=wdLine, Count:=1  '光标向上移动，还原到原来的位置
    
13.         If rowNext > rowStart Then
    
14.             r = rowNext - rowStart
    
15.         Else
    
16.             r = 1
    
17.         End If
    
18.         Debug.Print r
    
19.     End If
    
20. End Sub

复制代码