Скопировать данные - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д