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

Question

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

沿东西这行：

''' 
dim grid as string 

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

但我不知道该怎么调暗格的。 我试过整数，字符串和范围，但网格似乎永远不会有价值。 我还假设我没有正确指定范围到变量

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

下面的回复im粘贴代码在这里。 duplicatecheck函数通过一系列单元格来检查它们是否超过某个数字，然后相应地突出显示单元格

正如我想查看不同范围的单元格以进行不同的检查，我需要可变所以该函数可以

然而当可变网格被称为在它没有价值的duplicatecheck功能和theirfor没有细胞被检查

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-2D阵列，与暗淡1 =行和DIM2 =列

例如B3的内容将是vGrid（1,1）

编辑：看来你现在使用Grid作为Range对象的字符串参数，并且存在CountIF问题。

设置选项明确和需要变量声明的选项，如我在评论中提到的。

至于你COUNTIF声明，如果你正在检查的范围是，在电网中声明，你的标准是在Selection.Offset（行，列），则该行应该是这个样子：

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

请注意，我已更正您的使用函数作为工作表对象的属性;将范围和标准参数按正确的顺序排列;并删除了在该函数结尾添加的.check。