Question

我让此代码在“表单控件”按钮中工作并将其复制到Activex控件按钮中，现在它不起作用：（

它总是在DC = FindRow.Row代码行上抛出“运行时errpr'91'对象变量或未设置块变量”错误。

有什么建议吗？

Private Sub CommandButton2_Click()

Dim VL As Workbook
Dim wageRateInput As Worksheet
Dim wageRateMaster As Worksheet
Dim masterRange As Range
Dim inputRange As Range
Dim DCInput As String
Dim SearchRange As Range
Dim FindRow As Range


Set VL = ThisWorkbook
Set wageRateInput = VL.Sheets("Wage Rate Input")
Set wageRateMaster = VL.Sheets("Wage Rate Master Data")
Set masterRange = wageRateMaster.Range("A1:AL86")
Set inputRange = wageRateInput.Range("A1:AW42")

DCInput = inputRange.Cells(1, 31)

wageRateMaster.Visible = True

wageRateMaster.Activate

Set SearchRange = masterRange.Range("A1").End(xlUp)
Set FindRow = SearchRange.Find(DCInput, LookIn:=xlValues, lookat:=xlWhole)

DC = FindRow.Row

PositionCheck = wageRateMaster.Range("B" & DC)

If (PositionCheck = "Associate Driver (OFS)") Then
        
        wageRateInput.Activate
        wageRateInput.Range("C5", "AA25").Copy
        wageRateMaster.Activate
        wageRateMaster.Range("C" & DC - 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        wageRateInput.Activate
        wageRateMaster.Visible = False
        
        Else
            wageRateMaster.Visible = False
            MsgBox ("Something is Wrong!")
    End If

End Sub

将表单控件切换到Activex

0 个答案: