Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 15.04.2019
Сообщений: 69
1

Сортировка и удаление лишних строк

04.12.2019, 23:36. Просмотров 2598. Ответов 9
Метки vb, vba (Все метки)

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


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim n, k As Integer
 
Private Sub CommandButton1_Click()
k = 1
Worksheets("продажи").Activate
    Range("A3").Select
    Selection.End(xlDown).Select
    endrow = ActiveCell.Row
    Range("A3:2" & endrow).Clear
Do
k = k + 1
Loop Until Worksheets(3).Cells(k, 1) = ""
For i = 2 To n - 1
If TextBox1.Text = Worksheets(1).Cells(i, 3) Then
Worksheets(3).Cells(k, 1) = Worksheets(1).Cells(i, 1)
Worksheets(3).Cells(k, 1).Borders.Color = vbBlack
Worksheets(3).Cells(k, 2) = CInt(Worksheets(1).Cells(i, 5)) * CInt(Worksheets(1).Cells(i, 6))
Worksheets(3).Cells(k, 2).Borders.Color = vbBlack
k = k + 1
End If
Next i
Worksheets("продажи").Activate
End Sub
0
Миниатюры
Сортировка и удаление лишних строк   Сортировка и удаление лишних строк  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2019, 23:36
Ответы с готовыми решениями:

Удаление лишних строк - доделать макрос
Приветствую знатоков и прошу помочь доделать код. Есть текстовые данные, разбитые постранично. На...

Удаление лишних символов
Помогите я новичок. Макрос должен удалять повторяющиеся запятые, а так же те что стоят до и после...

Удаление лишних пробелов
В заданной строке удалить все лишние пробелы. Прошу помощи.

Удаление лишних пробелов.
Доброго времени суток. Задание убрать лишние пробелы перед знаками разделителями, используя только...

9
204 / 167 / 42
Регистрация: 02.08.2019
Сообщений: 540
Записей в блоге: 22
05.12.2019, 06:24 2
Makcim2288, Привет! прикрепите файл
0
131 / 115 / 49
Регистрация: 10.11.2011
Сообщений: 596
05.12.2019, 07:46 3
Macsim, вы создаете новую тему не ответив в теме "Выпалающий список".
И опять картинки.
0
1373 / 972 / 470
Регистрация: 23.03.2015
Сообщений: 3,286
05.12.2019, 08:17 4
Makcim2288,

Visual Basic
1
2
3
4
5
6
7
8
9
Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A1000").Rows.Hidden = False
For i = 1 To LR
If Cstr(Cells(i, 3).Value )= TextBox1.Text Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub
0
0 / 0 / 0
Регистрация: 15.04.2019
Сообщений: 69
05.12.2019, 20:32  [ТС] 5
Я ответил же, что вы помогли, не отправилось, извините.

Добавлено через 8 минут
оно убирает введённые данные, нужно наоборот, что бы оставляло только то, что ввожу.
0
1373 / 972 / 470
Регистрация: 23.03.2015
Сообщений: 3,286
05.12.2019, 20:42 6
Лучший ответ Сообщение было отмечено Makcim2288 как решение

Решение

Makcim2288,
Visual Basic
1
2
3
4
5
6
7
8
9
Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A1000").Rows.Hidden = False
For i = 1 To LR
If Cstr(Cells(i, 3).Value )<> TextBox1.Text Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub
0
0 / 0 / 0
Регистрация: 15.04.2019
Сообщений: 69
05.12.2019, 20:48  [ТС] 7
Спасибо большое♥
Можно попросить о последнем? что бы можно было возвращать всю таблицу при закрытии иил по кнопке?
0
1373 / 972 / 470
Регистрация: 23.03.2015
Сообщений: 3,286
05.12.2019, 21:04 8
Лучший ответ Сообщение было отмечено Makcim2288 как решение

Решение

Цитата Сообщение от Makcim2288 Посмотреть сообщение
было возвращать всю таблицу при закрытии иил по кнопке
4ю строчку в отдельный макрос - и все …

Visual Basic
1
2
3
Sub NNN()
Range("A2:A1000").Rows.Hidden = False
End sub
0
0 / 0 / 0
Регистрация: 15.04.2019
Сообщений: 69
05.12.2019, 21:06  [ТС] 9
Спасибо большое.
0
1373 / 972 / 470
Регистрация: 23.03.2015
Сообщений: 3,286
05.12.2019, 21:09 10
Makcim2288,

Пожалуйста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2019, 21:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удаление лишних страниц
Подскажите пожалуйста. Необходимо удалить или скрыть некоторые страницы Excel в зависимости от...

Удаление лишних запятых в ячейке экселя кнопкой
Добрый день. Подскажите пожалуйста новичку. В ячейке экселя есть данные, например - АДРЕС. Адрес в...

Сцепка текста в ячейках, если совпадают значения в столбце А, удаление повторов имен, удаление лишних строк
Добрый день, подскажите, как решить задачу: Есть список организаций с контактами. Одна организация...

Удаление лишних строк в reg-файле
Приветствую всех ! К примеру имеется дамп ветки реестра HKLM\SYSTEM\CurrentControlSet\services...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.