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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1307 След.
генерация таблицы с определенными словами и разными цветами
 
Что не получается - заполнение слвами или заполнение цветом? Вы же sergexcel, значит, хоть основы дожны знать?
Используйте оператор Randomize, Rnd
Получение значения переменной из формы
 
Цитата
Irbis_evs написал: нигде не написано что это должна быть именно первая строка
Первая ссылка по запросу "VBA как объявить переменную public"

Цитата
Инженер... тот кто знает где найти ответ
Похоже, Вы не инженер :)

Публичные переменные занимают память, пока открыта книга. Если управление передается другому макросу, переменную тоже можно передать (test2 - без объявления переменной):
Код
Sub test1()
    Dim sTxt As String
    
    sTxt = "проверка"
    Call testTotal(sTxt)
End Sub

Sub test2()
    Call testTotal("OK")
End Sub

Sub testTotal(sStr As String)
    MsgBox sStr
End Sub
"счётеслимн" не хочет считать
 
Юра, сообщения не по теме удалены, но автор все равно добавил последнее сообщение.
VBA - замена значений в ячейках только в выделенном диапазоне по условию
 
casag, For Each iCell In Selection - перебор всех ячеек выделенного диапазона. А это подразумевает намного больше вычислений в циклах:
к-во_столбцов_диапазона*к-во_значений_листа2

Немного изменил:
Код
Sub csg()
    Dim rRng As Range
    Dim lRw As Long, i As Long, k As Long
    
    With Selection
        If .Column <> 1 Then Exit Sub
        If .Columns.Count < 3 Then Exit Sub
    End With
    
    Set rRng = Selection
    lRw = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
 
    With Sheets(2)
        For k = 1 To rRng.Rows.Count
           For i = 2 To lRw
              If rRng(k, 1).Value = .Cells(i, 1).Value Then rRng(k, 3).Value = "Спеццена"
            Next i
         Next k
    End With
   
    Application.ScreenUpdating = True
    Set rRng = Nothing
End Sub

Если диапазон большой, лучше обработать в массиве.
Поиск даты по нескольким столбцам с условием и выводом данных в другой отчет
 
Андрей_26, Вы не заметили, что почти пустой файл вырос до 170 кБ? Замените пример (удалить 100 000  пустых форматированных строк)
Авто запуск файла в указанное время
 
Toto_costa, вернитесь и отредактируйте свои сообщения. Цитата - не тупое нажатие на кнопку!
Форматирование базы, Удаление определенных номеров
 
Уточните название темы. Сейчас общее и не отражает проблему. Модераторы заменят
[ Закрыто] Простая "склейка" нескольких одинаковых таблиц с разных листов документа
 
Тема закрыта. Следующий шаг - бан учетки
Уменьшение объёма и увеличения быстродействия файла с запросами PQ, Необходимо произвести уменьшения объёма файла и увеличить быстродействие
 
Цитата
kaa700 написал: С какой именно темой?
А Вы все свои просмотрите. Я глянул две - Ваших ответов нет. Нужно уважать помогающих.
Сортировка по убыванию с исключением строк с показателем < 2
 
Молочный выпал, не жалко )
Автоматическая нумерация в несколько уровней
 
Цитата
BUGL написал:  Там же описание.
Задача должна быть описана в сообщении.

Цитата
Критерий номера - заполненность поля рядом.
Пунк заполнен. Подпункта нет, заполняют строки третьего уровня. Как быть?
Сортировка по убыванию с исключением строк с показателем < 2
 
Цитата
БМВ написал: ...садистом в такие моменты обзывает
Как просили. Формула полностью удовлетворяет условиям.

Цитата
тему подправь, затейник.
Сразу, как увидел, переименовал. Зуб даю )
Написать-то написал, но, видимо, не сохранил.
Автоматическая нумерация в несколько уровней
 
Строка 6 почему пропущена? Какая логика заполнения нумерацией? Пункт.подпункт - это понятно. По каким критериям ставить номер?
Пауза макроса для выполнения другого, Как приостановить макрос
 
Код
Sub макрос1 ()
    ...... ' действия макроса1
    Call макрос2
    ...... ' действия макроса1
End Sub

Sub макрос2 ()
    ...... ' действия макроса2
End Sub
Сортировка по убыванию с исключением строк с показателем < 2
 
Заметил... Переделал. Но вряд ли в тесте подразумевалось подобное. Покажите тем, кто тест задавал. Может, разберутся :)
Там, наверное, с доп. столбцом подходит.
Сортировка по убыванию с исключением строк с показателем < 2
 
Сортировка чисел:
=ЕСЛИ(СТРОКА(A1)>СЧЁТЕСЛИ($C$11:$C$16;">=2");;НАИБОЛЬШИЙ($C$11:$C$16;СТРОКА(A1)))
Буква:
=ЕСЛИ(F11;ИНДЕКС($B$11:$B$16;НАИБОЛЬШИЙ(МУМНОЖ(--($C$11:$C$16=F11);1)*{1:2:3:4:5:6};СЧЁТЕСЛИ($F$11:F11;F11)));"")
Зависание USERFORM
 
Память не может забиваться?
[ Закрыто] Простая "склейка" нескольких одинаковых таблиц с разных листов документа
 
Измените логин.  Не нужно писать прыгающими буквами
Макрос для обратной нумерации ячеек в столбце
 
Я так понял, что если смогли написать макрос вставки данных, то сможете сами внедрить  в него дополнение по нумерации
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал: А я уж думал раз столько вопросов то там полная ....
Если бы не полная... в постановке задачи, то эти несколько строк Вы получили бы во втором сообщении и без вопросов.

Цитата
Gold_Barsik написал: Что значит "эта строка, предыдущая строка"?
Вы писали, что есть макрос, который заполняет строку. Он же знает, какую строку заполнять? Так вот "предыдущая" - это строка перед заполняемой ("этой")
Очистить содержимое ячеек с искомым сочетанием символов в начале
 
как понять, какая комбинация нужная?
=ЕСЛИ(ЛЕВБ(I1;ДЛСТР("1-"))="1-";"";I1)
Макрос для обратной нумерации ячеек в столбце
 
Код
    lNum = Worksheets("Лист1").Range("E20").Value
    
    If Cells(предыдущая_строка, 3).Value = 1 Then
        Cells(эта_строка, 3).Value = lNum
    Else
        Cells(эта_строка, 3).Value = Cells(предыдущая_строка, 3).Value - 1
    End If

Val - для исключения ошибки при заполнении первой строки таблицы
Нет, это неправильно
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал: Нужно что бы... прописывало 25 или 50. ... вниз по нисходящей писало 49,48,47 и т.д
А если 25? Первый диапазон до 1, потом начинать с 50?

Формула нумерации от 50 до 1
=50-ОСТАТ(СТРОКА(A1)-1;50)
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал:  с 29 это прожито.
Как это понять? Что есть "прожито"?

Цитата
Должна начинаться с цифры в ячейке Е20 на Лист1.
Там не цифра - число 50. Почему начинается не с 50?
Макрос для обратной нумерации ячеек в столбце
 
Цитата
Gold_Barsik написал: до конца листа
Конец листа - строка 1 048 576

Почему первая нумерация начинается с числа 29? Может быть и по-другому?
Как указать номер строки через переменную
 
Cells(переменная,2)
Range("B" & переменная)

Почитайте о том, как в VBA можно указывать диапазоны
Выделенную строку с одного листа перенести на другой
 
Вопрос не по теме
Скрыть/отобразить диаграмму по условию
 
Вопрос не по теме
Если в ячейке слов больше, чем (значение), то применить действие, либо удалить, либо отметить цветом, например
 
Цитата
Geineh написал:  Я, очевидно, что-то сделал явно не так, да?
Точно.
В ячейке А1 формула ссылается на себя и вызывает циклическую ссылку.  Уберите.
В В2 формула ссылается на А1. Почему?
Макрос для заливки выделенных ячеек
 
Название поменял.
Еще было замечание по оформлению сообщения. Сами, пожалуйста. Модератор не нянька.
Пока не устранено, помощь приостановлена.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1307 След.
Наверх