Вопросы и ответы
Топ за год Облако тегов  

Вопрос по VBA

программирование программы excel VBA

Папин МиниGun, 466 просмотров
0
пытаюсь сделать штуку.
Проверка по кнопке пустая ли строка,если стока пустая то записываем туда данные.
Вот мой код,сам не могу понять как сделать это.

Примечание:
Private Sub CommandButton1_Click()
ÍîìåðÑòðîêè = Application.CountA(ActiveSheet.Columns(1)) + 1
p = 1
Do While Cells(p, 1).Text <> ""
If Cells(p, 1).Value = Empty Then
p = p + 1
Loop
With ThisWorkbook.Worksheets("Áàçà")
ThisWorkbook.Worksheets("Áàçà").Activate
.Cells(ÍîìåðÑòðîêè, 1).Value = Ôàìèëèÿ
.Cells(ÍîìåðÑòðîêè, 2).Value = ãîä_ðîæäåíèÿ
.Cells(ÍîìåðÑòðîêè, 3).Value = ïàñïîðòíûå_äàííûå
.Cells(ÍîìåðÑòðîêè, 4).Value = Äàòà_ïðîõîæäåíèÿ
.Cells(ÍîìåðÑòðîêè, 5).Value = ComboBox1

End With
End Sub
Ответы:
Алексей Матевосов
Когда копируете код, переключатель раскладки клавиатуры должен быть RU
Может быть так подойдет?
Private Sub CommandButton1_Click()
Dim i as Long
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
   If Evaluate("CountA(A" & i & ":E" & i & ")") = 0 Then 'проверка строки
       Cells(i, 1).Value = "Фамилия"
       Cells(i, 2).Value = "год_рождения"
       Cells(i, 3).Value = "паспортные_данные"
       Cells(i, 4).Value = "Дата_прохождения"
       Cells(i, 5).Value = "ComboBox1"
   End If
Next i
End Sub


11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.