从单元格值

Question

下午好一切，

我有点对我的VBA生锈参考命名范围For循环，因为我已经移动到其他语言编程，所以我希望有人能够帮助我。

我所搭售做

我有两个表。一个是用户填写的表单页面，另一个（Sheet1 ....我没有命名）基本上是一个数据页面。

在Sheet1中我有一个表格，显示1或0取决于窗体上的范围是否有特定的选择。单元格值上方的两列指出需要输入消息的范围。宏应该找到所有的1，查找命名的范围找到两列并插入命名的范围。不幸的是我不断收到应用程序或对象定义的错误。我的代码如下：

PcentData = Sheets("Sheet1").Range("PcentData").Value 
    If PcentData > 0 Then 
     For Each pCell In Sheets("Sheet1").Range("PcentSwitch") 
      If pCell.Value = 1 Then 
       With Sheets("Payment-Deduction Form").Range(Cells(pCell.Row, pCell.Column + 2)).Validation 'Error here 
       .Add Type:=xlValidateInputOnly 
       .InputTitle = "Test" 
       .InputMessage = "Test" 

       End With 
      End If 

     Next pCell 
    End If 

编辑：

我已成功地确保代码通过定义一个名为NamedRange串并让它等于旧with语句，指着拉从正确的表命名范围正确的工作表。

Dim NamedRange As String 
PcentData = Sheets("Sheet1").Range("PcentData").Value 
    If PcentData > 0 Then 
     For Each pCell In Sheets("Sheet1").Range("PcentSwitch") 
      If pCell.Value = 1 Then 
       NamedRange = Sheets("Sheet1").Cells(pCell.Row, pCell.Column + 2).Value 
       MsgBox (Sheets("Sheet1").Cells(pCell.Row, pCell.Column + 2).Value) 
       With Sheets("Payment-Deduction Form").Range(NamedRange) 
        If .Validation Then .Validation.Delete 
        .Validation.Add /* Error Here */ Type:=xlValidateInputOnly 
        .InputTitle = "Test" 
        .InputMessage = "Test" 
       End With 
      End If 

     Next pCell 
    End If 

不幸的是我得到的错误对象不支持If .validation部分的这个属性或方法。

Answer 1

在Vityata的帮助下，我设法找到了解决方案。问题在于原来的循环取得了我想从错误表格中查找的表格的位置。我将它存储在名为“NamedRange”的变量中，并将其插入到With语句中，而不是直接将其编码到Range（）中。

下一个问题是数据验证。它似乎不喜欢将.Validation与With语句分开，因此如果我需要将多个单元格更改为单元格，我将需要多个With语句。这里是工作代码：

Dim NamedRange As String 
PcentData = Sheets("Sheet1").Range("PcentData").Value 

    If PcentData > 0 Then 
     For Each pCell In Sheets("Sheet1").Range("PcentSwitch") 
      If pCell.Value = 1 Then 
       NamedRange = Sheets("Sheet1").Cells(pCell.Row, pCell.Column + 2).Value 
       With ThisWorkbook.Sheets("Payment-Deduction Form").Range(NamedRange).Validation 
        .Delete 
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ 
        :=xlBetween 
        .IgnoreBlank = True 
        .InCellDropdown = True 
        .InputTitle = "test" 
        .ErrorTitle = "" 
        .InputMessage = "test" 
        .ErrorMessage = "" 
        .ShowInput = True 
        .ShowError = True 
       End With 
      End If 

     Next pCell 
    End If 

感谢您的帮助！

Answer 2

也许你可以尝试这样的：

PcentData = Sheets("Sheet1").Range("PcentData").Value 
    If PcentData > 0 Then 
     For Each pCell In Sheets("Sheet1").Range("PcentSwitch") 
      If pCell.Value = 1 Then 
       With Sheets("Payment-Deduction Form").Cells(pCell.Row, pCell.Column + 2).validation 
        .delete 
        .Add Type:=xlValidateInputOnly 
        .InputTitle = "Test" 
        .InputMessage = "Test"  
       End With 
      End If  
     Next pCell 
    End If 

我已删除了.Range，我必须从目前的细胞去除验证。