如何将一系列单元格存储在变量中

Question

我目前正在使用 VBA 将 Sudoku 程序作为 excel 中的一个项目工作，我需要将一系列单元格存储在一个变量中。

类似这样的事情：

'''
dim grid as string 

grid = range("b3:j11")
'''

但我不确定将网格调暗为什么。 我尝试过整数、字符串和范围，但网格似乎从来没有值。 我还假设我没有正确地将范围分配给变量

//////////////////////////////

按照我在此处粘贴代码的回复。 duplicatecheck 函数查看一系列单元格以检查它们是否超过一定数量的一个，然后相应地突出显示单元格

由于我想查看不同范围的单元格以进行不同的检查，因此我需要将范围设为变量，以便可以重复使用该函数

但是，当在 duplicatecheck 函数中调用变量 grid 时，它没有任何值，并且它们的单元格没有被检查

Dim row As Integer

Dim col As Integer

Dim grid As Variant

Dim checkmark As Integer


Sub Rowcheck()

    checkmark = 1
    row = 0
    col = 0

    grid = range("b3:j3").Value

    For row = 0 To 8

        duplicatecheck

    Next row

结束子

Function duplicatecheck()

Dim safe As Boolean

Dim check As Integer

Dim x As Integer

        ' check each number in a range for duplicates starting with 1
For check = 1 To 9
    If Application.Worksheet.Function.CountIf(Selection.Offset(row, col), range(grid)).check = 1      Then 
' if number is only found once
safe = True
    ElseIf Application.Worksheet.Function.CountIf(Selection.Offset(row, col), range(grid)).check < 1 Then
' if the number is found less than once in the range
safe = False
    ElseIf Application.Worksheet.Function.CountIf(Selection.Offset(row, col), range(grid)).check > 1 Then
' if the number is found more than once
Selection.Offset(row, x).range(grid).Interior.colour = vbBlue ' highlight the range red

        If checkmark = 1 Then
              For x = 0 To 8
                    Selection.Offset(row, x).range(geid).Value = check
                    Selection.Offset(row, x).range.ont.colour = vbRed
               Next x
        ElseIf checkmark = 2 Then
              For x = 0 To 8
                    Selection.Offset(x, col).range(grid).Value = check
                    Selection.Offset(x, col).range.ont.colour = vbRed

              Next x
              safe = False
                 error = True

    If safe = False Then
       complete = False
    End If

如果结束 万一 下次检查 结束函数

Answer 1

将其存储在变体中

Dim vGrid as Variant
vGrid = range("B3:J11")

vGrid 将是一个基于 1 的二维数组，其中 Dim 1 = 行，Dim2 = 列

例如，B3 的内容将在 vGrid(1,1) 中

编辑：您现在似乎正在使用 Grid 作为 Range 对象的字符串参数，并且您的 CountIF 存在问题。

设置 Option Explicit 和我在评论中提到的要求变量声明的选项。

就您的 CountIF 语句而言，如果您要检查的范围是在 Grid 中声明的范围，并且您的条件在 Selection.Offset(row,col) 中，那么该行应该类似于：

If Application.WorksheetFunction.CountIf(Range(grid),Selection.Offset(Row, col)) = 1 Then ...

请注意，我已更正您将 Function 用作 Worksheet 对象的属性；将范围和条件参数按正确的顺序放置；并删除了您在该函数末尾添加的 .check。