excel макрос if



Автор Александр Иванов задал вопрос в разделе Другие языки и технологии

Excel макросы и получил лучший ответ

Ответ от PROXY[новичек]
создай кнопку на странице и привяжи вот этот макрос: Private Sub CommandButton1_Click() Dim nR, maxR As Long Dim nC As String nR = 1 \'номер строки в которой находится первое число nC = \"A\" \'имя колонки maxR = 65000 \' максимально количество строк для просмотра, но все они смотреть не будет, только заполненные askB = False \' индикатор первой записи, т. е. нашли первую заполненную ячейку (нужно если первое число стоит не в строке nR=1 i = 1\' счетчик For Each res In Range(nC & nR & \":\" & nC & maxR) \'перебираем строки в колонке If res.Text = \"\" And askB Then \'если обнаружена пустая строка после окончания перебора - выходим из цикла Exit For ElseIf Not res.Text = \"\" Then \'если найдена не пустая ячейка askB = True If Not Val(res.Text) = i Then \'сравниваем значение ячейки со счетчиком Rows(res.Row & \":\" & res.Row).Insert Shift:=xlDown \'не совпало значение, вставляем строку Range(nC & res.Row - 1) = i \' и заполняем i = i + 1 Else i = i + 1 End If End If Next End Sub

Ответ от Алексей Матевосов (AlexM)[гуру]
Sub Macros() a = Selection.Item(1).Value For Each cell In Selection If cell - a > 1 Then Rows(cell.Row).Insert Shift:=xlDown a = a + 1 cell.Offset(-1, 0).Value = a Else a = cell.Value End If Next End Sub

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Excel макросы

У меня вопрос по Excel 2010, выделение цветом ячеек при поиске в документе
Макрос, код которого ниже окрашивает выделенную ячейку. Код поместить в модуль "Эта книга"
подробнее...

Excel Как так сделать чтобы: поставив галочку в квадратик и формулы в некоторых ячейках стали другими. А потом галочку
Вариант с галочкой в ячейке F1. В Эту ячейку "проверкой вводимых значений" ограничен ввод. В ячейке
подробнее...
спросили в Впр
(EXCEL) Макрос с использованием ВПР
Примерно так
k = 1
Do While Worksheets(1).Rows(k).Cells(1) <> \"\"
j = 1
Do
подробнее...

MS Excel. Макросы на авто растягивание ячеек.
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 06.04.2015 (Александр)
'подробнее...

Нужен Excel макрос для удаления строк по условию,
Диапазон в экселе понятие почти всеобъемлющее, поэтому макрос работает с крайним правым столбцом
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Echo Night Selection
Как создать эти макросы в VBA (Excel)?
первый макрос:

Sub makros1()
iii = 1
For Each ttt In Selection.Cells

подробнее...
спросили в SAP Open
подскажите как макросом xls открыть любой файл xls например в корневом диске с? не указывая его имени?
добавь в referenses галочку около Microsoft Scripting Runtime и используй (открывает не только
подробнее...

Как в EXCEL удалить строки через одну начиная с 5 до 1000?
Sub udalenie()
For ii = 5 To 1000
If ii Mod 2 = 0 Then
Rows(ii).ClearContents

подробнее...
спросили в Echo Night Selection
Помогите с простым макросом для Excel! (см. внутри)
Меняйте свой макрос на этот
Код
Sub замена_дат ()
For Each cell In Selection
If
подробнее...

Сведение двух таблиц в одну. Excel
В каждой таблице на Лист1 и Лист2 в столбце А - код, в В - наименование, в С - количество
подробнее...

массивы в excel
вот тебе макрос сортировки
на листе в первую строчку вбей любые цифры- он тебе их отсортирует
подробнее...

можно ли автоматически склонять по падежам существительные в формате Excel
Доброго времени суток.

Если речь идет о ФИО, наименованиях должностей или подразделений,
подробнее...

Excel. VBA. Поиск текста. Ошибка когда не найдет текст
ну дык.. . проверяйте сперва -- нашлось ли что-либо -- перед тем как делать что-то с найденным.подробнее...
спросили в Дата Даты
Подскажите, как сделать автоматическое добавление текущей даты в ячейку в excel???
Вариант Ивана Леконтцева не очень удачный. Он, конечно, работает, но при открытии книги на
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*