excel vba 获取所选行的总行高

可以通过以下代码获取所选行的总行高：

Sub GetSelectedRowsHeight()
    Dim selectedRows As Range
    Dim totalHeight As Double
    
    Set selectedRows = Selection.EntireRow
    
    totalHeight = 0
    For Each row In selectedRows
        totalHeight = totalHeight + row.Height
    Next row
    
    MsgBox "所选行的总行高为：" & totalHeight & " 磅（" & totalHeight / 72 & " 英寸）"
End Sub

在这个示例中，首先使用 `Selection.EntireRow` 获取所选行的范围，然后使用 `For Each` 循环遍历每一行，将每一行的高度累加到 `totalHeight` 变量中。最后使用消息框显示总行高，其中将磅转换为英寸。

相关问题

excel vba 获取文件属性

Excel VBA 可以使用内置的属性和方法来获取文件的属性。以下是其中一种方法：

首先，我们需要创建一个对象来表示文件。可以使用 `FileSystemObject` 对象来实现。在使用之前，需要先引入 `Microsoft Scripting Runtime` 库。

Sub GetFileAttributes()
    Dim fs As Object
    Dim file As Object

    ' 创建 FileSystemObject 对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件对象
    Set file = fs.GetFile("文件路径")

    ' 使用 file 对象来获取属性
    MsgBox "文件路径：" & file.Path
    MsgBox "文件名：" & file.Name
    MsgBox "文件类型：" & file.Type
    MsgBox "文件大小：" & file.Size
    MsgBox "创建时间：" & file.DateCreated
    MsgBox "最后修改时间：" & file.DateLastModified
    MsgBox "最后访问时间：" & file.DateLastAccessed
	
    ' 释放对象
    Set file = Nothing
    Set fs = Nothing
End Sub

在上面的代码中，我们首先创建了一个 `FileSystemObject` 的实例，并将其赋值给 `fs` 变量。然后，我们使用 `GetFile` 方法来获取想要查看属性的文件，并将其赋值给 `file` 变量。

之后，我们使用 `file` 对象来获取文件的属性，例如路径、名称、类型、大小、创建时间、最后修改时间和最后访问时间等。

最后，我们释放已经使用的对象，以释放内存资源。

请注意，上述代码中的 "文件路径" 需要替换为你自己的文件路径。确保要获取文件属性的文件路径是正确的，否则会引发错误。

希望以上回答对你有所帮助。

excel vba 获取最后的sheet

在Excel VBA中，获取最后一个工作表(sheet)的方法如下：

1. 使用Sheets属性和Count属性：

   Dim lastSheet As Worksheet
   Set lastSheet = Sheets(Sheets.Count)

这里的Sheets.Count表示工作簿中所有工作表的数量，通过将其作为参数传递给Sheets属性，即可获取到最后一个工作表对象。

2. 使用Worksheets属性和Count属性：

   Dim lastSheet As Worksheet
   Set lastSheet = Worksheets(Worksheets.Count)

类似于第一种方法，这里的Worksheets.Count表示工作簿中所有工作表的数量，通过将其作为参数传递给Worksheets属性，即可获取到最后一个工作表对象。

需要注意的是，上述两种方法获取的是按照工作表在工作簿中的索引顺序的最后一个工作表。如果工作表的顺序发生变化，那么获取到的最后一个工作表也会相应变化。

此外，可以使用变量来存储最后一个工作表的索引号（Index），如：

Dim lastIndex As Long
lastIndex = Sheets.Count

这样就可以通过lastIndex来引用最后一个工作表。