вижу только жёлтый в первой строке и голубой — в столбцах
Цитата
DJMC: цветовая шкала-зеленый, желтый, красный.нужно теперь сцепить каждый цвет с другим, то есть три варианта должно получится
строго 3 цвета тут получится, только, если в диапазоне применения содержится 3 разных числа (с повторениями или без): минимальное, среднее и максимальное. В противном случае - несколько десятков/сотен оттенков
Ну а так…используйте Range.DisplayFormat — этот метод возвращает не только цвета, выставленные руками, но и УФ
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
tolikt, это не тоже самое, что хочет ТС, если что хотя и может подойти…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Условное форматирование, заливка по числам из строки (мин макс), есть таблица с ценами, где нужно сделать такое правило,точнее несколько, где в столбике А ячейка А1 должна закрашиваться в зелёный цвет, если ни одно из значений b1-I1 не больше чем А1, и если хоть одно значение из B1-I1 больше чем А1 то в красный,
Игорь К, вам как самому-то, нравится ваша "цитата"? Цитата должна быть точеченой, а для простого обращения есть кнопка "Имя"
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Перенос данных с помощью кнопки с листа на другой лист, Перенос данных, с первого листа в определенные свободные ячейки второго листа, при условии заполнения всех необходимых ячеек, далее очищение ячеек от данных на первом Листе
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
denka1982, объясню популярно: вы предлагаете найти "ошибку" в работе функции, хотя примера исходной строки и необходимого результата не даёте. Правильно Ігор Гончаренко вас лесом отправил
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
kenigfinn: через некоторое время после начала работы макроса значения прогресса перестают обновляться
значит не включаете обновление перед выводом и/или не делаете DoEvents. Мою процедуру попробуйте.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Некоторые темы (обновления старых + новые) помечены прочитанными (белые конверты, а не зелёные), хотя я их точно не открывал…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Я использую вывод прогресса в прогрессбар (в левом нижнем углу) — по 10%. Перед выводом нужно включить обновление экрана, вывести, потом сделать DoEvents и после этого вернуть обновление экрана
Пользуйтесь на здоровье
Код
'====================================================================================================
' пример вызова
Sub Test()
Dim a&, all&
Application.ScreenUpdating = False
all = 1000000
For a = 1 To all
PRDX_StatusBar a, all
Next a
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
'====================================================================================================
Sub PRDX_StatusBar(ByVal sCur#, ByVal sTotal#, Optional ByVal Msg$ = "Progress")
Dim procCur#, ASU As Boolean
Static sPrev#
procCur = Round(sCur / sTotal, 1): If sPrev = procCur Then Exit Sub
ASU = Application.ScreenUpdating: Application.ScreenUpdating = True
sPrev = procCur: Application.StatusBar = Msg & ": " & Format$(procCur, "0%"): DoEvents
Application.ScreenUpdating = ASU
End Sub
'====================================================================================================
Наверное, с формой, тоже что-то похожее нужно делать…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Маска для пути к файлу может не сработать - не пробовал… Я бы, конечно, всё макросом делал на словарях
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
БМВ: У нас есть договоренность с котом , что к названию придираемся не слишком сильно
ай-яй-яй. В разрез с правилами пошли, однако, для упрощения своей работы
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
RAN, название моей ссылки можно считать нормальным названием темы
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Елена Шал: в названии файлов каждый раз меняется одна-две цифры
ВПР поддерживает маску, поэтому можно указать что-то типа =ВПР(A2;"шины*";1;2;0), но с путём
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Олег Новик: В общем, я тупой и не могу разобраться.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Select Case arr(n, 6)
Case "Бетонирование бетонной подготовки": v = 1: k = 22
Case "Бетонирование плиты днища": v = 1: k = 19
Case "Бетонирование стен": v = 1: k = 20
Case "Разработка грунта с уплотнением основания": v = 2: k = 17
Case Else: v = 0: k = 0
End Select
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Алексей Mаксименя, вы в курсе, что разместили вопрос в платной ветке? Какой бюджет?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
БМВ, ну не руками же)) я что думаю - пока затронуты посты конкретного пользователя, а именно картинки на файлообменннике img829.imageshack.us можно как-то поиском вычистить все ссылки на него в первую очередь, а уже потом браться за другие неродные ресурсы хранения отображаемой здесь информации
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
БМВ, сразу не уловил)) картинки хранятся не на планете — ок)) Может тогда удалить все такие и запретить так делать? Ведь можно дискредитировать сайт намного страшнее, чем сейчас…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Подтверждаю… Интересно, как это получилось… Отсутствие видимого редактирования первым делом говорит о том, что руку приложил кто-то с определёнными правами
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Алгоритмы. Поиск десятичного числа при известных границах поиска (мин/макс), Algorithms. Find the decimal number under certain boundaries of a search (min/max)
БМВ, в таком случае, можно расширить до "найти число с минимальной погрешностью за установленное время". Только я всё это упростил, потому что это не должно повлиять на алгоритм, а только раздуть код и увести его от сути.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Алгоритмы. Поиск десятичного числа при известных границах поиска (мин/макс), Algorithms. Find the decimal number under certain boundaries of a search (min/max)
БМВ, не пробовал менять масштаб. Считаем равным 100 и продолжаем искать высоту с точностью хотя бы до 10 знаков)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Алгоритмы. Поиск десятичного числа при известных границах поиска (мин/макс), Algorithms. Find the decimal number under certain boundaries of a search (min/max)
tolikt, видел, хорошая) Поясню ещё: есть некий триггер, при котором мы понимаем, что число найдено. Для аналога подбора параметра - результат функции, основанной на подбираемом параметре, равный требуемому с заданной точностью. Для высоты строки - значение, при котором она начинает считаться скрытой/видимой (тут тоже без заданной точности не обойтись). Пример из шапки, где "известное" число является лишь триггером, чтобы понять, что поиск окончен - только для упрощения задачи.
Может, так понятнее будет После праздников сделаю другой вариант, основанный на меняющемся шаге приращения.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Алгоритмы. Поиск десятичного числа при известных границах поиска (мин/макс), Algorithms. Find the decimal number under certain boundaries of a search (min/max)
БМВ: Поис, как правило осуществляется по известному множеству. В противном случае это скорее подбор
Возможно, тут больше про подбор (для примера с подбором высоты строки — точно), но, по-моему, сути это не меняет. Я ищу способ более быстрого поиска/подбора при постоянном приближении к результату. Чистить — не нужно, страна должна знать своих героев У нас полно тем с перепалками (в том числе, с твоим участием), так что пусть будет всё.
tolikt, ссылка не открывается) что с подбором высоты строки?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄