Во всех строках в столбце A, которые одновременно 1) содержат текст " ms " И 2) содержат число >1200 делаем: заменяем указанно в такой строке число на рандом ОТ [это же число/2] ДО [это же число*2].
Пример данных которые нужно обработать (есть сейчас) прикрепил.
govorun, ваш способ полностью корректно работает, если заменить ThisWorkbook.Name (где макрос) на ActiveWorkbook.Name (который открыли, переходим на вкладку).
Sanja, всё, полностью корректно сработало, в т.ч. в рамках пакетной обработки, после замены ThisWorkbook.Worksheets(, на Sheets(. govorun, в вашем варианте тоже если книга расположения макроса и та в которую нужно вставлять разные - то не срабатывает.
Sanja, помогло, но: 1. Только если макрос находится в Pervaya-Kniga.xlsx. Этот пункт не ключевой, а важен следующий. 2. Я хотел использовать в рамках пакетной обработки (её код верный, много раз пользовался). Но появляется debug и выделяет жёлтым полностью ваш код:
Код
Sub ПОбработка()
Dim sFolder As String, sFiles As String
'диалог запроса выбора папки с файлами
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = False Then Exit Sub
sFolder = .SelectedItems(1)
End With
sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
'отключаем обновление экрана, чтобы наши действия не мелькали
Application.ScreenUpdating = False
sFiles = Dir(sFolder & "*.xls*")
Do While sFiles <> ""
'открываем книгу
Workbooks.Open sFolder & sFiles
'действия с файлом
Workbooks("Vtoraya-Kniga.xlsm").ActiveSheet.Columns("U:IZ").Copy _
ThisWorkbook.Worksheets("Vkladka").Columns("U:U")
'Закрываем книгу с сохранением изменений
ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
sFiles = Dir
Loop
'возвращаем ранее отключенное обновление экрана
Application.ScreenUpdating = True
PushButton = MsgBox("Проверить по датам изменения на пропуски.", vbInformation) = vbYes
End Sub
Вот макроc записанный средствами Excel. Как сделать что бы копирование происходило не именно в Pervaya-Kniga.xlsx, а в ту книга, которая изначально была активна, в которой мы первым действием переходили на вкладку? Это должны по итогу получатся разные книги в разных ситуациях, а макрос один.
Код
Sub Makros1()
Sheets("Vkladka").Select
Windows("Vtoraya-Kniga.xlsm").Activate
Columns("U:IZ").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Pervaya-Kniga.xlsx").Activate
Columns("U:U").Select
ActiveSheet.Paste
End Sub
Здравствуйте. Помогите написать макрос, который бы действовал в соответствии с нижеизложенными условиями.
Если количество значений в столбце A: <=301, то выводим сообщение "Готово", >301, то удаляем столько первых строк (без заголовка), что бы значений в столбце A оставалось 301, выводим сообщение "Готово". Предварительно перед удалением заменив с формул на значения (копировать - вставить как значения) те 30 строк которые после удаления окажутся первыми после заголовка.
Ладно друзья. Спасибо всем кто попытался помочь. Я искал простое решение, идеально решающее проблему. Видимо в excel его попросту нет. Для меня вопрос закрыт.
Потому что в результате цвет A2 будет формироваться на основе значения A2. А мне нужно на основе A1. Предполагается что значение A1 будет постоянно меняться, а A2 нет и 2 ячейки должны принимать одинаковый вид. Распространением эта задача не решается (вид получится разный).
Юрий М написал: Вы считаете, что УФ ячейки можно применить только по значению в ней?
Я так не считаю. Я считаю что УФ функция "Форматировать все ячейки на основе их значений", может применяться только по значению в ячейке которой применяется (что и указано в названии функции). Остальные способы условного форматирования, не подходят, потому что ими нельзя или чрезвычайно трудно эмитировать то, что необходимо. Задача такая, но выразить те условия которые в A1 другими способами УФ очень трудно, а в точности наверное чуть ли невозможно. Если вы не согласны со мной, то пожалуйста, продемонстрируйте в примере, который я скинул.
mr667 написал: по всем остальным условиям тоже самое
здесь условиям уф имелось ввиду, а не моим. У меня оно одно и твержу уже его много раз (разными способами что бы понятнее было) и в примере тоже самое. Ну не уже ли не понятно что я пишу? жесть...
Использовать формулу что бы получить статистический стиль (по всем остальным условиям тоже самое), а не постоянно меняющийся за оригиналом. Покажите в файле который я скинул...
Это я продолжил его сообщение, показывая что это мне не подходит!!
vikttur написал: Там есть и другие условия. Например, использовать формулу
Использовать формулу что бы получить статистический стиль (по всем остальным условиям тоже самое), а не постоянно меняющийся за оригиналом. Покажите в файле который я скинул...
Есть 2 ячейки. Одна постоянно изменяет свой стиль по трёхцветной шкале цветов в зависимости от своего значения.
Как сделать что бы вторая ячейка постоянно заимствовала этот стиль себе? Или по другому, как сделать форматирования по трёхцветной шкале на основании значения в другой ячейке?