Кнопка обновления не работает, так как существует несоответствие типов - PullRequest
Новая
       9

Кнопка обновления не работает, так как существует несоответствие типов

0 голосов
/ 30 августа 2018

Ошибка несоответствия типов в rowselect = Search.BN.Value. Я хочу позволить пользователю редактировать и обновлять лист Excel, лист Excel называется «Мастер». Сообщение об ошибке: Ошибка времени выполнения «13» Несоответствие типов. 

Private Sub Update_Click()

Dim Bname As String

Bname = Search.BN.Text

Sheets("MASTER").Select

Dim rowselect As Integer
Dim ans As String

rowselect = Search.BN.Value
rowselect = rowselect + 1
Rows(rowselect).Select


Sheets("MASTER").Cells(rowselect, 6) = Search.A.Text
Sheets("MASTER").Cells(rowselect, 7) = Search.Emailto.Text
Sheets("MASTER").Cells(rowselect, 8) = Search.CClist.Text
Sheets("MASTER").Cells(rowselect, 9) = Search.Emailcc.Text

rowselect = rowselect - 1

Unload Me

ans = MsgBox("S/N " & rowselect & "  Successfully Updated...Continue?", vbYesNo, "Update")
If ans = vbYes Then
    Search.Show
Else
    Sheets("MASTER").Select
End If

End Sub

1 Ответ

0 голосов
/ 30 августа 2018

Может быть, проверка на возможность конвертации и объявление в качестве варианта для выявления любой ошибки при конвертации. Затем проверьте, была ли выдана ошибка в ветке программы. Ниже приведен иллюстративный. 

Public Sub TEST()
    Dim s As String
    'this is illustrative. You would incorporate this so  Search.BN.Value was available
    s = Search.BN.Value
    Dim rowSelect As Variant
    On Error Resume Next
    rowSelect = CLng(s)
    On Error GoTo 0

    If IsError(rowSelect) Then Exit Sub

    'Your other code......
End Sub
...