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

Страницы: 1 2 След.
Суммирование до следующей пустой ячейки (с подвыпертом)
 
#
16.09.2020 15:24:06
Владимир Иванов, если в ячейку С2 вставляете, то в формуле С2 на С3 поменяйте, чтобы не было циклической ссылки.
 
Перейти    
Снятие цифровой подписи (макрос)
 
#
16.09.2020 14:10:39
Evgeny-E, попробуйте открыть так:
Код
Application.DisplayAlerts = False

Workbooks.Open Filename:= sFileName, CorruptLoad:=True
На моем компьютере файл с ЦП открылся
Изменено: AlbertSF - 16.09.2020 14:11:02
 
Перейти    
Посчитать наценку с учетом бонуса
 
#
16.09.2020 10:22:03
Лина Камалитдинова, Добрый день!

Такая формула получилась:
Код
=F3-K3-1,25*H3
вставьте ее в ячейку J3 и протяните.

На отрицательность бонуса проверка не делается.
 
Перейти    
Как брать диапазон для графика из заданных ячеек
 
#
16.09.2020 08:29:43
oleg9911, у меня не получалось без имени файла. Поэтому, думаю, что указание имени файла обязательно.
 
Перейти    
Как брать диапазон для графика из заданных ячеек
 
#
15.09.2020 17:31:09
oleg9911, В файле смотрите Формулы - Диспетчер имен.
Там создал два именованных диапазона с помощью формул ДВССЫЛ и СЦЕПИТЬ, которые в свою очередь ссылаются на подсвеченные желтым на листе ячейки. При изменении данных в этих ячейках, изменяется и именованный диапазон.
 
Перейти    
Как брать диапазон для графика из заданных ячеек
 
#
15.09.2020 15:17:26
oleg9911, Добрый день!

Решение через динамические имена.
 
Перейти    
Расчет потребности исходя из расхода
 
#
15.09.2020 14:48:19
Yeti_magic, добрый день!

Решил через дополнительное поле "остаток"
 
Перейти    
Проверка данных с поиском как в Google Sheets
 
#
15.09.2020 14:20:22
mike31, Может быть "автофильтр" вам нужен?
Выделяете таблицу и далее Вкладка "Главная" - раздел "Редактирование" - "Сортировка и фильтр" - "Фильтр"
 
Перейти    
Разделитель десятичных знаков. Баг или так и должно быть?, Откуда берется символ разделителя десятичных знаков
 
#
21.11.2019 15:49:59
sokol92,
Цитата
Идея менять макросом свойства Application может сильно не понравиться владельцу компьютера
Тоже такие соображения были.

Рабоче-крестьянский метод проверил. Корректно отрабатывает. Спасибо за идею!
 
Перейти    
Разделитель десятичных знаков. Баг или так и должно быть?, Откуда берется символ разделителя десятичных знаков
 
#
21.11.2019 15:36:03
Jack Famous, у нас на работе на большинстве компьютеров по умолчанию следующие настройки: стоит галочка использовать системный разделитель, а в "сереньком окошке" разделитель целой и дробной части "." (точка).

В коде есть кусок, который получает данные с интернета (координаты) вида "50.000000". Мне необходимо их обрабатывать. Для этого создал переменную типа Double и присваиваю ей значение через:
Код
Переменная = replace(Координата, ".", Application.DecimalSeparator)

Так как Application.DecimalSeparator определяется как точка (см. первый пост), то возникает ошибка типа данных. Система не обрабатывает тип Double с разделителем точкой, так как в системных настройках установлена запятая.

Вопрос, в целом, в том, что невозможно полноценно (в моем понимании) использовать конструкцию "Application.DecimalSeparator", так как при включенном флажке системных настроек, Application.DecimalSeparator не равно системным настройкам.
 
Перейти    
Разделитель десятичных знаков. Баг или так и должно быть?, Откуда берется символ разделителя десятичных знаков
 
#
21.11.2019 15:05:08
Jack Famous, не сразу разобрался как это сделать. В превью нормальные картинки отображались.
 
Перейти    
Разделитель десятичных знаков. Баг или так и должно быть?, Откуда берется символ разделителя десятичных знаков
 
#
21.11.2019 14:54:44
Форумчане, добрый день.


Столкнулся с проблемой при попытке сделать макрос невосприимчивым к системному разделителю десятичных знаков.
Заметил, что результат выражения "Application.DecimalSeparator" и системные настройки разделителя десятичных знаков различаются (при этом "Application.UseSystemSeparators = True").

Немного попереключал флажки и получил следующие результаты в окне Immediate (системные настройки разделителя всегда ","):
1.
Код
? Application.DecimalSeparator 
,
При




2.
Код
? application.DecimalSeparator
.

При




3. При выключенном флажке "использовать системные разделители", принимаются значения указанные в "Разделитель целой и дробной части".

То есть получается, что разделитель дробной части игнорирует значения флажка "Использовать системные разделите" и использует значение из "серенького окошка" (разделитель  целой и дробной части). Так должно быть? Или неправильные запросы делаю?

И другой вопрос: как в коде лучше прописать, чтобы код работал вне зависимости от системных настроек:
так?
Код
Application.UseSystemSeparators = False
Application.DecimalSeparator = ","
Изменено: AlbertSF - 21.11.2019 15:04:09
 
Перейти    
Настройка динамической диаграммы с последующими днями =Сегодня()
 
#
27.09.2019 11:10:28
NV.Telegin, через именованные динамические диапазоны получилось.
 
Перейти    
Обращение к ячейкам объединенных диапазонов
 
#
06.09.2019 00:11:19
Sceptic, Спасибо, то что нужно!
 
Перейти    
Обращение к ячейкам объединенных диапазонов
 
#
05.09.2019 23:52:12
Доброго времени суток, форумчане!

Столкнулся с проблемой обращения к ячейкам в объединенных диапазонах. Ниже кусок кода:
Код
Dim rr As Range
Set rr = Union(Range("A1:A3"), Range("B1:D1"))

Debug.Print rr.Cells.Count          'значение 6 - всё верно
Debug.Print rr.Cells(1).Address     'значение $A$1 - всё верно
Debug.Print rr.Cells(2).Address     'значение $A$2 - всё верно
Debug.Print rr.Cells(4).Address     'значение $A$4 - хотелось бы получить значение $B$1 - четвертой ячейки объединенного диапазона rr

Имеется диапазон ячеек, объединенных из двух диапазонов "A1:A3" и "B1:D1".
Хотел обращаться к ячейкам по их индексу в объединенном диапазоне "rr" , то есть всего ячеек 6, первая - это А1, вторая А2 ... шестая D1
Не понимаю логику обращения. До А3 идет как мне представляется, далее просто вниз продолжается.

Кто-нибудь сталкивался с такой проблемой? Можете подсказать пути решения? или лучше в словарь/массив нужные ячейки загонять?
 
Перейти    
Изменяемая длинна выпадающего списка
 
#
11.12.2018 15:27:46
Такое решение могу предложить.
 
Перейти    
Ошибка Ошибка при загрузке сайта с помощью объекта InternetExplorer.Application, работа с InternetExplorer.Application
 
#
11.12.2017 09:28:29
Игорь, у Вас оба сайта открываются без ошибок? настройки безопасности поменять или какие?
Как такое может быть, что с одними и теми же настройками один сайт открывается, а другой нет? Может быть, что это особенности сайтов?

Потестил еще несколько сайтов. Открываются без ошибок:
http://www.planetaexcel.ru
https://ruads.org/

Возникает такая же ошибка:
https://rosreestr.ru/

Прикрепил файл с макросом. Если у кого есть возможность, прошу проверить.
 
Перейти    
Ошибка Ошибка при загрузке сайта с помощью объекта InternetExplorer.Application, работа с InternetExplorer.Application
 
#
08.12.2017 10:45:17
Добрый день, форумчане!

Не могу разобраться с проблемой возникновения ошибки.
Код следующий:
Код
Sub check()
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate "https://ya.ru/"
objIE.Navigate "https://www.reestr-zalogov.ru/search/index"

While objIE.Busy Or (objIE.ReadyState <> 4)
DoEvents
Wend

objIE.Visible = 1
MsgBox objIE.LocationURL
objIE.Quit
Set objIE = Nothing
End Sub
При выполнении кода возникают разные ошибки на строке
Код
While objIE.Busy Or (objIE.ReadyState <> 4)
Ошибка:
Run-time error -2147023179 (800706b5)
Automation error
the interface is unknown

Ошибка:
Run-time error -2147467259
Automation error
Unspecified error

Ошибка:
Method "Busy" of object 'IWebBrowser2" failed

Причем на строке
Код
objIE.Navigate "https://www.reestr-zalogov.ru/search/index"
объект "objIE" принимает значение Visible (хотя до этой строки код еще не дошел)

Этот же код при замене URL адреса на "https://ya.ru/" отрабатывает без проблем.
В чем может быть причина ошибок? Сам сайт блокирует корректное выполнение макроса?
 
Перейти    
Поиск части фразы, расположенной на листе, ошибка при использовании функции Application.WorksheetFunction.Match
 
#
31.05.2017 15:36:51
kuklp, Юрий М,хоть и результат typename(arr) является string. Функция InStr не хочет работать с моей переменной arr. Выдает ошибку 13 (Type mismatch).
Код
instr(1,arr,"искомое значение",vbTextCompare)

Возможно дело в том, как эта переменная образуется:
Код
arr = Split(xmlHttpRequest.responseText, vbLf)
 
Перейти    
Поиск части фразы, расположенной на листе, ошибка при использовании функции Application.WorksheetFunction.Match
 
#
31.05.2017 15:02:41
kuklp, Спасибо большое!
По поводу логики: эта строка является частью достаточно большого кода, в котором загружается информация с сайта. Загружаю ее так:
Код
Set xmlHttpRequest = CreateObject("MSXML2.XMLHTTP")
xmlHttpRequest.Open "GET", myUrl, False
xmlHttpRequest.send Null
arr = Split(Trim(xmlHttpRequest.responseText), vbLf)

Далее функцией Application.WorksheetFunction.Match искал местоположение искомых значений в переменной "arr" и "выдергивал" содержание всей строки, в котором содержались искомые значения. Вот так:
Код
txt = arr(Application.WorksheetFunction.Match("*искомое значение*", arr, 0))

Можно ли с помощью ".find" искать в переменной "arr" и "выдергивать" необходимые значения?

Пробовал arr.find( ), выдает ошибку.

Изменено: AlbertSF - 31.05.2017 15:04:39
 
Перейти    
Поиск части фразы, расположенной на листе, ошибка при использовании функции Application.WorksheetFunction.Match
 
#
31.05.2017 14:19:32
Добрый день, Форумчане!

При попытке найти часть фразы, расположенной на листе, некоторые фразы ищутся без проблем, а на некоторых выдает ошибку. Пожалуйста, помогите разобраться. Файл пример прикладываю.
 
Перейти    
Статистика использования (запуска) макроса, Получение информации о пользователях, запускающих макрос.
 
#
16.03.2017 15:09:26
Hugo, The_Prist,спасибо, буду пробовать.
 
Перейти    
Статистика использования (запуска) макроса, Получение информации о пользователях, запускающих макрос.
 
#
16.03.2017 14:51:11
Добрый день, форумчане!

В ходе работы приходится пользоваться макросами, значительно упрощающими выполнение поставленных задач. Некоторые из подобных макросов написаны мною и используются коллегами в разных городах и субъектах РФ. Поэтому, любопытно (а может иногда и полезно) было бы получать информацию об использовании макросов: кем запускался (имя пользователя Excel, учетная запись Windows, ip-адрес), когда запускался (дата).

Может кто уже сталкивался с подобными задачами? Какими способами можно получать такую статистику? Единственное до чего пока додумался, при каждом использовании макроса отсылать письмо со статистикой на мой электронный адрес. Или можно проще всё сделать? Подскажите пожалуйста в каком направлении работать.  
 
Перейти    
Пустая ячейка воспринимается Excel'ем как 0. Как исправить?, Функция СУММ(A1<5;A3<5; и т.д.)
 
#
20.02.2017 12:02:35
Eugen_excel, ваша формула в файле примере посчитала все верно.
Код
=СУММ(A1<5;C1<5;E1<5;G1<5;I1<5;K1<5;L1<5;N1<5)

Условие у вас "Нужно посчитать количество ячеек...", а формулу пишете "Сумм".

Например, у меня формула

Код
=СЧЁТЕСЛИ(A1:N1;"<5")

дает результат 3. Что верно. Пустые ячейки не считает. Если добавить в этот диапазон 0. то результат станет 4.

Какой результат хотите получить в итоге?
 
Перейти    
[ Закрыто] Формулы, Связи в формуле
 
#
20.02.2017 09:39:02
Добрый день!
Есть встроенная функция в Excel "Вычислить формулу". Вкладка Формулы - Раздел Зависимости Формул - Вычислить формулу.
Поиграйтесь с  кнопками "Шаг с заходом" и "Вычислить". Может быть это то, что вам нужно?
 
Перейти    
Подтянуть ростовочные размеры одежды, Автоматическое подтягивание рамеров с выпадающимся списком
 
#
13.02.2017 10:29:53
Пожалуйста!
 
Перейти    
Подтянуть ростовочные размеры одежды, Автоматическое подтягивание рамеров с выпадающимся списком
 
#
13.02.2017 09:49:06
Цитата
ШАГ написал:
Показывает в ячейки ЛОЖЬ
Заполните на листе Примечание значение размеров, тогда будет отображать размер.
Или другой результат должен был получиться?
 
Перейти    
Подтянуть ростовочные размеры одежды, Автоматическое подтягивание рамеров с выпадающимся списком
 
#
13.02.2017 08:56:41
ШАГ, На каком листе выбираете материал в Ячейке В2? Ощущение что всё смещено на 1 столбец.

Если правильно понимаю, то попробуйте так:
Код
=ЕСЛИОШИБКА(ИНДЕКС(Примечание!G2:G5;ПОИСКПОЗ(A2;Наименование_продукции;0));"")
 
Перейти    
Копирование данных из одного диапазона в другой по произвольному №.
 
#
08.02.2017 16:03:28
al_geor,Как вариант можно ввести формулу:
Код
=СМЕЩ(C3;5*$A$3;0)
в ячейку С3 и растянуть на всю закрашенную область.
Есть существенные требования для обеспечения работоспособности:
1. Номера вариантов располагать строго по порядку.
2. Должна строго соблюдаться структура данных (два столбца, четыре строки, каждый вариант должна разделять одна пустая строка).

Или нужно решение макросами?
 
Перейти    
Многоуровневая формула с условиями, ЕСЛИ для нескольких значений
 
#
08.02.2017 15:51:25
Gena85, значение в желтой ячейке всегда целое число? Границы 17 и 18 включительно?
 
Перейти    
Страницы: 1 2 След.
Наверх