Скопировать данные - VBA

Узнай цену своей работы

Формулировка задачи:

На 1 листе расположена таблица № Фам Отдел Зарплата. В textbox1 - вводится отдел, при нажатии на кнопку нужно все фамилии и зарплаты этого отдела скопировать на 2 лист. Помогите пожалуйста. Код набросала, но он не работает.

Решение задачи: «Скопировать данные»

textual
Листинг программы
Private Sub CommandButton1_Click()
fg = CStr(TextBox1.Text)
Sheets(1).Activate
Sheets(2).Cells(1, 1) = "Ведомость"
Sheets(2).Cells(2, 1) = "Фамилия"
Sheets(2).Cells(2, 2) = "Зарплата"
i = 2: k = 3
Do While Cells(i, 3) = fg
If Cells(i, 4) > 0 Then
Sheets(2).Cells(k, 1) = Cells(i, 2)
Sheets(2).Cells(k, 2) = Cells(i, 4)
k = k + 1
End If
i = i + 1
Loop
Sheets(2).Activate
End Sub

ИИ поможет Вам:


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

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы