Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Пытливый
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 142 След.
Как перенести данные одной группы по двум и более критериям
 
#
29.12.2021 15:28:06
Доброго.
Сразу вопросы:
1. Откуда копируем? С какого листа файла?
2. Что есть в вашем понимании "подгруппа"? Где она на листе с которого копируем?

Может расширите пояснение на пальцах? Вот есть исходные данные - тут и там. В этих исходных данных есть 1...2...3... и т.д. Надо - при совпадении.... скопировать (что? куда?)
А то вы пытаетесь выспросить может ли работать шаг алгоритма, который вы у себя в голове придумали, но нам не показываете. :) Вы задачу опишите и желаемый результат. А в алгоритмы мы и сами можем. :)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Разделить по столбцам данные, внесенные в ячейку Alt+Enter, с разными знаками табуляции и длиной символов
 
#
10.12.2021 16:39:26
Добрый.
На мой взгляд формулой - если только пользовательской функцией какой (т.е. код все равно писать).
Нужно решение через код?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Изменить(отключить) условия запуска макроса(часть кода макроса) при помощи кнопки(радиокнопки, другого макроса)
 
#
09.12.2021 10:25:29
"Обернуть" отключаемый блок в If.... End If
Условием поставить, например, наличие 1 в определенной ячейке
типа:
Код
If Range("A1")=1 Then 
... код исполняемый по условию.... 
End If
Изменено: Пытливый - 09.12.2021 12:40:48
Кому решение нужно - тот пример и рисует.
 
Перейти    
Ошибка макроса при вставке сводной таблицы в определенное место
 
#
08.12.2021 16:05:47
Код
'неправильно:
Set MyRange = "Range(A1)"
Кому решение нужно - тот пример и рисует.
 
Перейти    
Ошибка макроса при вставке сводной таблицы в определенное место
 
#
08.12.2021 16:04:57
Ну вы пытаетесь впихнуть в переменную, объявленную как Range строку (все, что в кавычках  - для программы строка)
Код
'присвоение переменной диапазона:
'правильно
Set MyRange = Range("A1")
Set MyRange = Worksheets("Лист1").Range("A1")
Изменено: Пытливый - 08.12.2021 16:06:35
Кому решение нужно - тот пример и рисует.
 
Перейти    
Ошибка макроса при вставке сводной таблицы в определенное место
 
#
08.12.2021 15:46:20
Код
FinalRow1

чему равно при выполнении этой инструкции?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Ошибка макроса при вставке сводной таблицы в определенное место
 
#
08.12.2021 15:33:44
Доброго.
Почему
Код
Dim DestLoc As String
?
Должен же быть Range?
и далее по коду:
Код
DestLoc = "_Общая информация!R" & FinalRow & "C1"
'а надо 
Set DestLoc = "_Общая информация!R" & FinalRow & "C1"

А то вы в параметры формирования таблицы пихаете строку, а надо ссылку на диапазон (ячейку)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Отладка кода VBA программы для дистанционного снятия показаний тепловычислителей Multical
 
#
26.10.2021 17:30:30
john22255, может и не то, но заметил, что все переменные числовые объявлены как Integer. Не может возникнуть ситуации, когда какое-либо значение переменной превышает допустимое значение для типа Integer?

(это я так, в качестве выстрела наугад) :)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Выделение строки с ошибкой #Н/Д в ячейке этой строки
 
#
22.10.2021 15:11:20
Если в одном, то можно через УФ решить. Например, у вас диапазон, строки которого должны выделяться А1:Е6. А ошибки #Н/Д появляются в столбце В.
1. Выделить диапазон А1:Е6
2. Главная-условное форматирование-создать правило- использовать формулу
3. Забить формулу =ЕОШИБКА($B1)
4. По кнопке формат выбрать, каким цветом заливать строки
5. 2 раза ОК. (или сколько там)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Выделение строки с ошибкой #Н/Д в ячейке этой строки
 
#
22.10.2021 14:43:06
#Н/Д в одном столбце, или в разных столбцах строк могут быть?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Какую формулу написать, чтобы найти ячейку по 2м условиям?
 
#
21.10.2021 11:15:39
Можно написать формулу массива (для данных из примера):
Код
=ИНДЕКС($A$1:$C$3;СУММ(СТРОКА($A$1:$A$3)*($A$1:$A$3="контрагент 1")*($B$1:$B$3="товар 2"));3)


Ввод формулы массива надо завершать Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
 
Перейти    
Умножить на 20% значения ячеек
 
#
20.10.2021 17:19:16
А можно сразу добавить 32% ? :)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Несколько значений, которые перебирает цикл For. Vba
 
#
20.10.2021 17:09:22
Эмнэ... а чего тогда последовательно 2 цикла - не подойдут? в первом перебираете от 1 до номера столбца, во втором от 10 до 20.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Несколько значений, которые перебирает цикл For. Vba
 
#
20.10.2021 16:57:58
Здравствуйте. Можно вложенные циклы (я, честно говоря, не очень понимаю задачу)
Код
For Stolb = 1 to name.Column
    For J = 1 to 10
     ...'тут код и нужные инструкции
    next J
Next Stolb
Кому решение нужно - тот пример и рисует.
 
Перейти    
Почему дата некорректно воспринимается формулами?
 
#
20.10.2021 11:14:38
Дмитрий(The_Prist) Щербаков, тоже вариант, да. И проще.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Почему дата некорректно воспринимается формулами?
 
#
20.10.2021 11:10:08
Как вариант для превращения "текста" в даты:
1. Где-нибудь на листе в любой ячейке ввести 1
2. Скопировать эту ячейку
3. Выделить диапазон с "неправильными датами"
4. Правый клик мыши - специальная вставка- умножить.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Увеличить значения выделенного диапазона на 1
 
#
19.10.2021 16:43:45
Добрый день. Можно еще через спец.вставку, без перебора значений в выделении, типа такого (выделить диапазон, запустить макрос):
Код
Sub AddByPasteSpecial()
    Application.ScreenUpdating = False
    With Cells(Selection.Cells(1).Row, Selection.Cells(1).Column + Selection.Columns.Count).Offset(0, 3)
        .Formula = "1"
        .Copy
    End With
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Cells(Selection.Cells(1).Row, Selection.Cells(1).Column + Selection.Columns.Count).Offset(0, 3).Clear
    Application.CutCopyMode = False
    Selection.Cells(1).Select
    Application.ScreenUpdating = True
End Sub
Изменено: Пытливый - 19.10.2021 16:44:40
Кому решение нужно - тот пример и рисует.
 
Перейти    
Создание сводной таблицы определенного формата
 
#
19.10.2021 14:16:45
Это откуда такой вывод, позвольте вмешаться? Вы в сводную тыкали? Источник данных для нее смотрели?
Изменено: vikttur - 19.10.2021 16:16:50
Кому решение нужно - тот пример и рисует.
 
Перейти    
Слияние двух динамических массивов
 
#
15.10.2021 12:33:05
Можно через Power Query сделать, можно формулами попробовать (зависит от расположения данных), можно макросом.
Без файла примера - только умозрительные рассуждения.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Вывести в MsgBox строки, у которых срок диагностических карт истекает
 
#
15.10.2021 12:29:47
Добрый. Такое возможно, но зачем? Ну вот представьте, срабатываем макрос и у вас перед глазами на экране появляется окошко с перечислением строк, где истекает срок диагностической карты. Ни перейти на них, ни скопировать - MsgBox покажет инфу и все, хоть на бумажку переписывай. Может быть удобнее будет настроить условное форматирование (УФ), чтобы в файле отслеживался остаток дней по каждой карте до контрольного срока и как только он стал меньше заданной величины необходимая ячейка по конкретной записи выделялась как-нибудь (цветом заливки, цветом шрифта и т.д.)?

З.Ы. у вас это уже сделано, зачем вам еще строки в MSGBOX выводить?
Изменено: Пытливый - 15.10.2021 12:31:00
Кому решение нужно - тот пример и рисует.
 
Перейти    
Outlook | VBA | папка с не отвеченными сообщениями, ОФФТОП, поиск сообщений которые были отправлены, но по ним не были получены ответы
 
#
15.10.2021 09:03:27
Добрый. :) Ну, тут от темперамента зависит. Я, например, люблю письмам категории назначать, флажки ставить и в конце дня/недели/месяца шерстить все папки входящие, исходящие и т.д. на предмет проверки. По категориям, кстати, шикарно отбираются письма.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Подсчет переменных (ячеек) в функции СУММ и вывод этих данных в ячейку
 
#
14.10.2021 16:01:14
Добрый. Можно формулой:
Код
=ДЛСТР(Ф.ТЕКСТ(E4))-ДЛСТР(ПОДСТАВИТЬ(Ф.ТЕКСТ(E4);";";""))+1

где в Е4 - формула суммирования.
Сработает, если аргументы в сумм будут через ";", если будет задан непрерывный диапазон через ":", например =СУММ(А1:А3;В4;С7), то формула выдаст неверное значение. По тем данным, которые у вас на картинке, должно сработать нормально.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Последовательное подстановка, с последующим сохранением в отдельный файл
 
#
13.10.2021 15:35:33
Добрый день.
С чем помочь, что конкретно не получается?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Как выдернуть записи по ключевому полю из одной ячейки
 
#
13.10.2021 13:41:33
Как есть пример - это хорошо. Еще бы показали - как надо. А то в столбце Доп.Поле стоят 3 адреса E-mail. Их, насколько я понял, надо разнести по разным столбцам. Каким? Их надо добавить? Куда? В начало/конец/середину?
А если в других полях тоже будут строки, которые надо разнести, то по каким столбцам это делать? Есть ли ограничение на максимальное количество доп.столбцов?
Ну и прочие мелочи... :)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Условное форматирование соседних ячеек в строке
 
#
13.10.2021 13:11:47
Действительно, приложенный файл-пример очень слабо кореллирует с вопросом. В вопросе речь идет о выделении при помощи УФ значений по строкам, в файле данные в которых хрен пойми по какому признаку выделены данные в столбцах G и L, без всяких пояснений почему так.
Вы правда хотите найти решение вашего вопроса?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Конвертация информации в ячейке в другой вид (временные значения)
 
#
12.10.2021 10:51:17
Или еще так (тоже пользовательская функция) - см.файл.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Растянуть столбец, не выходя за границы страницы
 
#
12.10.2021 09:25:32
Ну, видимо сначала определять сумму значений "ширин" столбцов с В по Е, затем брать ширину листа до пунктирной линии и отнимать от этого значения сумму "ширин" В:Е.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Конвертация информации в ячейке в другой вид (временные значения)
 
#
12.10.2021 09:21:18
Доброго. До вашей ручной замены в ячейке что? Текст? После вашей ручной замены - в ячейке появляется что? Число в нужном формате, текст? Покажите в файле примере - вот исходные, вот надо чтобы стало так.
З.Ы. Мы по фотографии не работаем, мы люди серьезные, не то что шарлатаны с Рен-ТВ.
Только файл Excel, только хардкор!
Изменено: Пытливый - 12.10.2021 09:22:59
Кому решение нужно - тот пример и рисует.
 
Перейти    
Обработка и импорт данных из *.txt файла, Проблема с импортом данных из текстового файла
 
#
11.10.2021 17:11:39
Stan, добрый день.
1. Зачем используете Val()? Эта функция определяет ПЕРВОЕ число из строки, остальные нафиг и в результате у вас только 1 число из трех в txtLine
2. Почему Split по пробелам, когда у вас там разделители между данными - табуляция?
Поэтому в цикле предлагаю как-то так:
Код
    While Not EOF(1)
        Line Input #1, txtLine 'считали первую строку
'затем проверили, содержит ли строка символ табуляции
'chr(9) - символ табуляции код 9, если в полученной строке он есть, значит
'пошли уже данные, шапки нет
If instr(1,txtLine,chr(9))>0 
            i = i + 1 'увеличиваем счетчик
            Cells(i, 1).Resize(1, 3) = Split(txtLine, chr(9)) 'строку разбиваем по знаку табуляции
            'получим данные из текстового файла, но в виде текста, с разделителем точка
            'тут надо покумекать, как заняться преобразованием. То ли в заполненной области поменять точку на запятую
            'и потом перевычислить область, то ли забрать в массив область, к каждому элементу применить Val() и потом 
            'результат выгрузить обратно - это уж сами, ага? :)
End If

    Wend
Изменено: Пытливый - 11.10.2021 17:12:30
Кому решение нужно - тот пример и рисует.
 
Перейти    
Макрос для подстановки значений в формулу и вывода полученного результата, Макрос для подстановки значений в формулу через ячейку и последующего вывода полученного результата
 
#
11.10.2021 14:55:14
Добрый день.
Что конкретно с макросом у вас не получается?
Если ничего не получается, а хочется, чтоб было - может быть быстрее будет через раздел РАБОТА?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 142 След.
Наверх