VBA:获取sheet表中的值

最新推荐文章于 2024-07-02 10:09:36 发布

是小爱呀

最新推荐文章于 2024-07-02 10:09:36 发布

阅读量842

点赞数

分类专栏： ExcelVBA 文章标签： excel 开发语言 Powered by 金山文档

本文链接：https://blog.csdn.net/weixin_51465537/article/details/129364747

版权

ExcelVBA 专栏收录该内容

7 篇文章 1 订阅

订阅专栏

如何获取sheet表中的某些字段值？

场景：sheet表名：sheetRecord，此表中存有表头数据为：sheetName和updateTime。根据sheetName获取其对应的updateTime的值。

'获取value
Private Sub Value()

    '定义
    Dim value As String
    '调用方法
    value = UpdateTime("表A")
   
End Sub

'获取更新时间
Function UpdateTime(ByVal sheetName As String) As String

    Dim sheetRecord As Worksheet
    Set sheetRecord = ThisWorkbook.Worksheets("sheetRecord")
    
    '找到sheetName所属行
    Dim rowIndex As Long
    rowIndex = Application.Match(sheetName, sheetRecord.Range("A:A"), 0)
    
    If Not IsError(rowIndex) Then

        '找到updateTime所属列
        Dim updateTimeCol As Integer
        updateTimeCol = Application.Match("update_Time", sheetRecord.Rows(1), 0)
        
        If Not IsError(updateTimeCol) Then
            '赋值
            UpdateTime = sheetRecord.Cells(rowIndex, updateTimeCol).value
        End If
  
    End If
    
End Function