0
我想修改此子代码,以代替一次接受一个单元格,一个从一个源到另一个目标,接受一系列单元格,源范围和目标范围。将这个子输入作为一个单元格更改为一个单元格范围
我的目标是调用这个Sub从一个输入范围的单元格中复制数据验证并通过调用这个Sub将它们粘贴到另一个单元格区域。这个Sub是为了能够被其他Subs(也许是函数)调用,所以它需要是可重用的。任何人都可以为我解释这个问题吗?
我想修改的代码是:
Sub CopyValidation(ByRef rngSourceCell As Range, ByRef rngTargetCell As Range)
With rngTargetCell.Validation
.Delete
.Add Type:=rngSourceCell.Validation.Type, _
AlertStyle:=rngSourceCell.Validation.AlertStyle, _
Operator:=rngSourceCell.Validation.Operator, Formula1:=rngSourceCell.Validation.Formula1, Formula2:=rngSourceCell.Validation.Formula2
.ErrorMessage = rngSourceCell.Validation.ErrorMessage
.ErrorTitle = rngSourceCell.Validation.ErrorTitle
.IgnoreBlank = rngSourceCell.Validation.IgnoreBlank
.IMEMode = rngSourceCell.Validation.IMEMode
.InCellDropdown = rngSourceCell.Validation.InCellDropdown
.InputMessage = rngSourceCell.Validation.InputMessage
.InputTitle = rngSourceCell.Validation.InputTitle
.ShowError = rngSourceCell.Validation.ShowError
.ShowInput = rngSourceCell.Validation.ShowInput
End With
End Sub
我把它看成是同构的,你的意思是说它们在一个矩形的组中,就好像你要拖动鼠标来选择单元格一样? –
@DavidS。是......从一个矩形到另一个相同的维度,或从一行的一部分到一行的另一部分,或从一列的一部分到另一部分一列,或从一个单元格到一个矩形等..................就像任何其他复制/粘贴特殊。 –