VBA Excel, как вводить из пользовательской формы в определенные строки в Excel - PullRequest
Новая
       15

VBA Excel, как вводить из пользовательской формы в определенные строки в Excel

0 голосов
/ 15 марта 2019

Я намереваюсь ввести свои данные из пользовательской формы в конкретную строку, которая находится здесь, где выполняется поиск из первой подпрограммы.Второй подпункт предназначен для этого намерения, но каким-то образом, когда я нажимаю кнопку, в таблицу не вводятся новые данные.И есть ошибка, говорящая «определяемая приложением или определяемая объектом ошибка» для addnew.offset и так далее в строках.Я не могу понять, как это исправить.

Вот мой код для поиска конкретной строки: 

   Sub CmdSearch3_Click()

Dim FerNum As String, totRows As Long, ws As Worksheet

Set ws = Worksheets("Sheet1")
totRows = ws.Range("A1").CurrentRegion.Rows.Count
FerNum = CStr(InputBox("Please enter the fermenter number you are looking for."))

If FerNum = "" Then
    MsgBox "Enter the fermenter number you wish to search."

Else

    For m = 2 To totRows

        If Trim(Sheet1.Cells(m, 3)) <> Trim(FerNum) And m = totRows Then
            MsgBox ("Sorry, the fermenter number " & FerNum & " is not found.")

        ElseIf Trim(Sheet1.Cells(m, 3)) = Trim(FerNum) Then
            MsgBox ("Please enter the data need here.")
            DTPickerActualHarvestDate.SetFocus
            Exit For
        End If
    Next m

End If

End Sub

Вот код для ввода новых данных: 

    Sub cmdAddRecord_Click()

Dim wks As Worksheet, AddNew As Range
Set wks = Worksheets("Sheet1")

Set AddNew = wks.Range("A1")
AddNew.Offset(m - 1, 6).Value = DTPickerActualHarvestDate.Value
AddNew.Offset(m - 1, 7).Value = txtpH.Text
AddNew.Offset(m - 1, 8).Value = cboNumberofCases.Value

AddNew.Offset(m - 1, 10).Value = cboNumberofPails2gal.Text

AddNew.Offset(m - 1, 12).Value = cboNumberofPails5gal.Text

AddNew.Offset(m - 1, 13).Value = txtRetailPouchWeight1.Text
AddNew.Offset(m - 1, 14).Value = txtRetailPouchWeight2.Text
AddNew.Offset(m - 1, 15).Value = txtRetailPouchWeight3.Text
AddNew.Offset(m - 1, 16).Value = txt2galPailsWeight1.Text
AddNew.Offset(m - 1, 17).Value = txt2galPailsWeight2.Text
AddNew.Offset(m - 1, 18).Value = txt2galPailsWeight3.Text
AddNew.Offset(m - 1, 19).Value = txt5galPailsWeight1.Text
AddNew.Offset(m - 1, 20).Value = txt5galPailsWeight2.Text
AddNew.Offset(m - 1, 21).Value = txt5galPailsWeight3.Text
End Sub
...