Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1917 След.
ComboBox с поиском из нескольких листов
 
Цитата
Voltz написал:
чтобы при вводе в ComboBox
В какой КомбоБокс? Что вводить?  Что заполнять?
[ Закрыто] Гипперссылки, Макрос для гипперссылок
 
Название ни о чём. Тема закрыта.
VBA обработка событий элемента CommandButton, внедренного на лист Excel
 
Упростите себе задачу: вместо радиокнопок и ЧекБоксов используйте выпадающие списки, а на итоговый лист забирайте значения из ячеек.
Выпадающий список combobox из списка по условию
 
Цитата
Alex32 написал:
что бы combobox искали только
Какой КомбоБокс? У Вас их там несколько.

Цитата
Alex32 написал:
А можно сделать без выбора в combobox1???
И это расшифруйте.
HB
 
Дима, прими и мои поздравления! Всего тебе самого доброго!!!
Создание таблиц гугл excel
 
Цитата
Асланбек Махов написал:
НЕ за бесплатно.
Вот это можно было и не писать - Вы в платном разделе. Лучше бы написали сумму, которую готовы заплатить за решение.
Сокращенные названия городов заглавными буквами
 
Henderson - а здесь что должно получится?
[ Закрыто] Глюк Excell 2019, Примеры некоррекьной работы программы MS Excell (2019 в частности)
 
Цитата
vikttur написал:
Прошу (в третий раз)
Да сколько можно просить? Хватит!
[ Закрыто] Глюк Excell 2019, Примеры некоррекьной работы программы MS Excell (2019 в частности)
 
Цитата
FreeUSER написал:
можно подискутировать
Про какую дискуссию Вы говорите? Вам сделано справедливое замечание по поводу названия темы - Вы должны не дискутировать, а предложить нормальное название. Кроме того, подозреваю, что Виктор написал Вам в личку по поводу ника. Написал? Где реакция?
Макрос, на изменения названия книги
 
Цитата
sokol92 написал:
Мишель Легран
Эрих Мария Ремарк ))
[ Закрыто] Глюк Excell 2019, Примеры некоррекьной работы программы MS Excell (2019 в частности)
 
FreeUSER,  предложите нормальное название темы, из которого будет понятна проблема - модераторы поменяют.
Разделения столбца ( Конвертирования центов в Доллары )
 
Богдан Петрюк, не трогайте больше кнопку "Цитировать" - Вы не умеете ей пользоваться.
как посчитать среднее по одной дате?
 
Цитата
Ilya написал:
Дата представлена только в текстовом варианте.П
Можно быстро и легко превратить в дату: Данные - Текст по столбца - и сразу жмём "Готово".
Выставить столбцы друг под другом
 
Цитата
Robot attach you написал:
файл прикладываю
А зачем на форуме 2 файла, один из которых "плохой"?
Макрос, на изменения названия книги
 
Всегда найдётся фамилия, имя, отчество, по которым невозможно определить пол )
Выделить ячейки начиная с первой до двух подряд пустых в одном столбце, Выделить ячейки начиная с первой до двух подряд пустых в одном столбце
 
Исправил:
Код
Sub Macro1()
Dim LastRow As Long, i As Long, RowEnd As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastRow '- 2
        If Cells(i + 1, 1) = "" Then
            If Cells(i + 2, 1) = "" Then
                RowEnd = i ' + 2
                Exit For
            End If
        End If
    Next
    Range(Cells(1, 1), Cells(RowEnd, 1)).Select
End Sub
Выделить ячейки начиная с первой до двух подряд пустых в одном столбце, Выделить ячейки начиная с первой до двух подряд пустых в одном столбце
 
По первому вопрос вариант:
Код
Sub Macro1()
Dim LastRow As Long, i As Long, RowEnd As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastRow - 2
        If Cells(i + 1, 1) = "" Then
            If Cells(i + 2, 1) = "" Then
                RowEnd = i + 2
                Exit For
            End If
        End If
    Next
    Range(Cells(1, 1), Cells(RowEnd, 1)).Select
End Sub
Если же пустых захватыват не нужно, то строку 7 измените так: RowEnd = i
А с какой целью выделяете диапазон? Ведь не ради самого факта выделения?
===
Второй вопрос никакого отношения к этой теме не имеет.
Изменить на листе цвет заливки
 
Цитата
sashgera написал:
хотелось бы перед заменой заливки, посмотреть в каком месте листа будет происходить замена:
А смысл? Вы же при помощи обычного (по умолчанию) MsgBox не сможете отменить удаление заливки.  Если нужно убрать эту заливку со всех ячеек, то зачем клацать по кнопке 152 раза?  Если же нужно ПРОПУСТИТЬ некоторые ячейки, то в таком случае нужно дать пользователю возможность выбора. Код может быть таким:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 15921906 Then
            If MsgBox("Искомая заливка найдена в ячейке " & rng.Address(0, 0) & " Удалить заливку?", vbYesNo + 32, "Ваш выбор...") = vbYes Then
                rng.Interior.ColorIndex = xlNone
            End If
        End If
    Next
End Sub
Изменить на листе цвет заливки
 
15921906
Изменить на листе цвет заливки
 
Тогда активируйте ячейку с этой заливкой и в окне Immediate выполните строку: ?activecell.Interior.Color

Скопируйте число и вставьте его вместо 16777215 в этот код:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 16777215 Then rng.Interior.ColorIndex = xlNone
    Next
End Su
Изменить на листе цвет заливки
 
Попробуйте так:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.ColorIndex = 2 Then rng.Interior.ColorIndex = xlNone
    Next
End Sub
Запрет на изменение границ ячеек
 
Цитата
Sof07 написал:
В моем случае границы ячеек разные, где то жирные
И Вы об этом СРАЗУ упомянули? Или я должен был сам догадаться?
Попробуйте новый вариант. Код с комментариями.
Найти наименьшее количество затраченных материалов, для разработки 1 единицы продукции
 
Даниил Матвеев, предложите новое название, из которого будет понятна ЗАДАЧА - модераторы поменяют.
Как совместить данные четырех столбцов
 
Для 5 тыс. лучше использовать другой вариант.  
О сравнении текста и числа в VBA
 
kefirko, предложите новое название темы, из которого будет понятна задача - модераторы поменяют.
И прекратите писать через строку.
Как совместить данные четырех столбцов
 
См. вариант. Если строк ОЧЕНЬ много, то можно будет ускорить.
А что будете делать, если есть полные однофамильцы?
Как совместить данные четырех столбцов
 
Результат нужно получить "на месте" - в имеющемся диапазлне в столбцах А:В или на другом листе?
Попробуйте ответить без цитаты.
Как совместить данные четырех столбцов
 
Решение макросом Устроит?
Как совместить данные четырех столбцов
 
Цитата
Екатерина написал:
Дано: .... Нужно,...
Ни приветствия, ни просьбы о помощи... Прямо указание начальника подчинённому.
Как обновить макрос, чтобы работал на 64-bit
 
Я почему спрашиваю -  у меня некий микст: ОС 64, а Офис 32. И макрос работает.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1917 След.
Наверх