时间戳

首页 > 解决方案 > 范围变量未定义

excel - 范围变量未定义

问题描述

我的任务是更正别人的代码，但没有评论，我不是 VBA 专业人士。我的问题是，如何将单元格变量定义为电子表格中的特定单元格。这是我正在谈论的部分： go.Range("B" & b).Value = cell

首先他将其设置为 Range 维度，然后突然将其设置为等于一个单元格，但它如何知道它包含任何内容？

让我知道我是否太含糊

    Dim batch As Worksheet
    Dim go As Worksheet
    Set batch = Worksheets("BATCHES")
    Set go = Worksheets("GoLive")

    Dim cell As Range
    Dim b As Integer
    Dim idag As Date
    Dim modtaget As Date
    idag = Format(Now(), "YYYY-MM-DD")


b = 10
Dim N As Integer



For Each cell In batch.Range("tbl_batches[BATCH_NO]")

        If batch.Cells(cell.Row, batch.Range("tbl_batches[PKQA]").Column) <> "" And batch.Cells(cell.Row, batch.Range("tbl_batches[PGAQA]").Column) = "" Then

                If batch.Cells(cell.Row, batch.Range("tbl_batches[QARP]").Column) = "" Then
                    go.Range("B" & b).Value = cell

                    modtaget = batch.Cells(cell.Row, batch.Range("tbl_batches[PKQA]").Column)
                    go.Range("C" & b).Value = modtaget

                    N = Application.WorksheetFunction.NetworkDays(modtaget, idag)
                    go.Range("D" & b).Value = N

                    b = b + 1

标签： excelvba

解决方案

尝试：

go.Range("B" & b).Value = cell.value

推荐阅读