Можно ли отключить добавление пустой строки в электронную таблицу с помощью пользовательской формы в Excel? - PullRequest
Новая
       9

Можно ли отключить добавление пустой строки в электронную таблицу с помощью пользовательской формы в Excel?

0 голосов
/ 29 января 2019

Здравствуйте, у меня здесь есть код, который позволяет мне добавлять / вставлять новую строку в электронную таблицу, используя пользовательскую форму, однако он также позволяет мне добавлять строки BLANK / EMPTY.Кто-нибудь знает, как это отключить?У меня нет знаний в области кодирования, поэтому я опираюсь на учебные пособия, но, похоже, не смог их найти.

Вот код: 

Private Sub cmbAdd_Click()
    Dim sheet As Worksheet
    Set sheet = ThisWorkbook.Sheets("TRY TRY")

    nextrow = sheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

    sheet.Cells(nextrow, 1) = Me.cmbSchema
    sheet.Cells(nextrow, 2) = Me.cmbEnvironment
    sheet.Cells(nextrow, 3) = Me.cmbHost
    sheet.Cells(nextrow, 4) = Me.cmbIP
    sheet.Cells(nextrow, 5) = Me.cmbAccessible
    sheet.Cells(nextrow, 6) = Me.cmbLast
    sheet.Cells(nextrow, 7) = Me.cmbConfirmation
    sheet.Cells(nextrow, 8) = Me.cmbProjects

    MsgBox "Data Added!"

End Sub

Могу ли я иметь MsgBox снова со словами «Вы не можете добавлять пустые строки».?

Ответы [ 2 ]

0 голосов
/ 29 января 2019

Попробуйте выполнить следующее, измените имя листа в случае вашего листа. 

Private Sub CommandButton1_Click()
    Dim sht As Worksheet
    Set sht = ThisWorkbook.Sheets("TRY_TRY")

    nextrow = sht.Cells(Rows.Count, 1).End(xlUp).Row + 1

    If Me.cmbSchema = "" Or _
        Me.cmbEnvironment = "" Or _
        Me.cmbHost = "" Or _
        Me.cmbIP = "" Or _
        Me.cmbAccessible = "" Or _
        Me.cmbLast = "" Or _
        Me.cmbConfirmation = "" Or _
        Me.cmbProjects = "" Then

        MsgBox "Empty value is not allowed", vbCritical, "Data Missing"

    Else

        sht.Cells(nextrow, 1) = Me.cmbSchema
        sht.Cells(nextrow, 2) = Me.cmbEnvironment
        sht.Cells(nextrow, 3) = Me.cmbHost
        sht.Cells(nextrow, 4) = Me.cmbIP
        sht.Cells(nextrow, 5) = Me.cmbAccessible
        sht.Cells(nextrow, 6) = Me.cmbLast
        sht.Cells(nextrow, 7) = Me.cmbConfirmation
        sht.Cells(nextrow, 8) = Me.cmbProjects

        MsgBox "Data Added!"

    End If
End Sub
0 голосов
/ 29 января 2019 
Private Sub cmbAdd_Click()

If IsEmpty(Me.cmbSchema) Then
    MsgBox "cmbSchema is blank!"
    Exit Sub
End If


'....Rest of code goes here


End Sub
...