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

Страницы: 1 2 3 4 5 6 7 След.
Как применить функцию ОКРВВЕРХ.ТОЧН в VBA?
 
#
26.04.2025 04:05:12
ИИ предложил следующий вариант:
Код
Function ОКРВВЕРХ_ТОЧН_РУЧНАЯ(число As Double, точность As Double) As Double
    If точность = 0 Then
        ОКРВВЕРХ_ТОЧН_РУЧНАЯ = Int(число) + IIf(число - Int(число) > 0, 1, 0)
    Else
        ОКРВВЕРХ_ТОЧН_РУЧНАЯ = Int((число + точность - 0.0000000000001) / точность) * точность
    End If
End Function

Проверил. Вроде работает как надо. Может кому когда пригодится
Всем ответившим СПАСИБО.
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Как применить функцию ОКРВВЕРХ.ТОЧН в VBA?
 
#
26.04.2025 03:30:25
DAB, Sanja, нет, это не то, к сожалению
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Как применить функцию ОКРВВЕРХ.ТОЧН в VBA?
 
#
25.04.2025 16:48:32
Здравствуйте!
Потребовалось из формул перейти на макрос и столкнулся с непониманием как в VBA использовать данную функцию.
Подскажите пожалуйста. Спасибо
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Заполнить таблицу определенными случайными числами с определенными условиями
 
#
08.03.2025 06:34:06
Цитата
МатросНаЗебре написал:
В этом варианте среднее будет постоянным
Вроде то что нужно. Спасибо!
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Заполнить таблицу определенными случайными числами с определенными условиями
 
#
07.03.2025 11:36:06
Увы, тогда это не подходит. Спасибо за попытку
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Заполнить таблицу определенными случайными числами с определенными условиями
 
#
07.03.2025 10:54:19
МатросНаЗебре, что такое распределение с горем пополам понимаю. но вот как воспользоваться формулами - не понятно.
В ячейку Е5 ввожу формулу =ЕСЛИ(J5>0;(K5-L5*(2*СЛЧИС()-1));""). Нажимаю Enter и потом мышкой протягиваю на нужный диапазон?! и так же для остальных ячеек? Тогда среднее значение не сходится. Может быть неправильно ввожу
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Заполнить таблицу определенными случайными числами с определенными условиями
 
#
07.03.2025 04:43:19
Здравствуйте!
Не знаю как правильно объяснить задачу. Попытаюсь)
В столбце С указываются исходные значения которые необходимы для дальнейшей работы - среднее значение, количество отсчётов и допустимый разброс значений
В столбце E необходима такая формула, чтобы при протягивании её вниз она заполнилась случайными значениями, но с ограничениями определенными в столбце С.
В столбце Н - контрольное значение, рассчитанное как среднее значение величин, заполненных в столбце Е

Пример что необходимо - в приложенном файле
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Получение данных из отчёта FastReport средствами VBA
 
#
04.10.2023 10:02:30
Нет, не забыл, а намеренно это не делал.
В архиве оба варианта отчетов pack.zip (21.28 КБ) Отчеты разные могут быть, это просто для примера
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Получение данных из отчёта FastReport средствами VBA
 
#
04.10.2023 07:19:57
Здравствуйте уважаемые форумчане!

Сторонней программой готовится отчёт в FastReport и сохраняется в файл ИмяФайла.fp3 (или .frx)
В соответствии с требованиями нашей организации необходимо дополнить этот отчёт определенной информацией. Т.к. редактирование отчёта в FastReport достаточно трудоёмко, хочу сделать это в Excel. В самом FastReport есть возможность экспортировать данные в формат Excel или Html.
Возможно ли средствами VBA осуществить импортирование данных из отчёта?
Если это невозможно, то можно ли средствами VBA автоматизировать экспорт данных из FastReport в Excel (или Html)?

Спасибо
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Всплывающее окно при запуске макроса, Динамичное сообщение при запуске макроса
 
#
31.08.2023 08:31:55
Код
If MsgBox("Рассчитать для " & Range("A13") & "?", vbYesNo) <> vbYes Then Exit Sub
Изменено: Artem1977 - 31.08.2023 08:32:09
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Практически пустой файл весит 22 мб.
 
#
28.08.2023 12:08:27
Здравствуйте. Там два скрытых листа + условное форматирование
После их удаления вес файла 26,1 кбайт
Изменено: Artem1977 - 28.08.2023 12:09:17
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Как сдвинуть ячейки по условию
 
#
15.08.2023 05:33:55
наверное надо смотреть в сторону использования функции СМЕЩ. Вот только в выходных данных получается какая-то ерунда: где-то у вас у вас просто смещение, а где-то сумма
Изменено: Artem1977 - 15.08.2023 05:34:19
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Синтаксис макроса по выставке формулы, Прошу помощи в написании макроса вставляющего формулу по склейке данных
 
#
07.08.2023 16:47:20
пробуйте:
ActiveCell.Formula = "=""Протокол №"" & AF29 &  "" дата калибровки "" & [РЗ.xlsx]Лист1!R" & (Page * 5 + 5) & " & [РЗ.xlsx]Лист1!R" & (Page * 5 + 10)
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Синтаксис макроса по выставке формулы, Прошу помощи в написании макроса вставляющего формулу по склейке данных
 
#
07.08.2023 15:52:45
Денис Акулов,
Цитата
Денис Акулов написал:
с вашим вариантом excel выдает ошибку #имя?
Мне неизвестно что вы хотите делать и какие значения принимает переменная page и когда.
Пытайтесь в режиме debug посмотреть
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Синтаксис макроса по выставке формулы, Прошу помощи в написании макроса вставляющего формулу по склейке данных
 
#
07.08.2023 13:04:59
ActiveCell.Formula = "= ""Протокол №"" &AF29 & "" дата калибровки "" & [РЗ.xlsx]Лист1!R & page * 5 + 5 & [РЗ.xlsx]Лист1!R" & page * 5 + 10
Изменено: Artem1977 - 07.08.2023 13:05:32
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Синтаксис макроса по выставке формулы, Прошу помощи в написании макроса вставляющего формулу по склейке данных
 
#
07.08.2023 12:45:49
Формула должна что-то считать, а вам наверное надо просто "склеить" текст?
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Удалить книгу, которая еще не сохранена, но обязательно будет сохранена. VBA Excel
 
#
31.07.2023 10:05:15
Вопрос вроде бы решил добавлением кода в процедуру Workbook_BeforeClose шаблона.
Проверяю
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Удалить книгу, которая еще не сохранена, но обязательно будет сохранена. VBA Excel
 
#
31.07.2023 08:45:46
Здравствуйте уважаемые форумчане!
Вопрос такой.
Сторонней программой через шаблон .xlt генерируются отчеты в формате Excel. Сохранением и нумерацией файлов управляет также сторонняя программа. Имена файлов имеют вид типа бла-бла-бла_1.xls, бла-бла-бла_2.xls, бла-бла-бла_3.xls, бла-бла-бла_4.xls. В данном конкретном случае 4 отчета. При генерации четвертого (последнего) отчета я из отчетов _1, _2, _3 копирую данные на лист 4 отчета, т.о. собираю все данные на один лист.
Могу сохранить данные в новую книгу, удалить отчеты с первого по третий так как они уже есть на диске.

А вот как сделать удаление 4 книги, которой еще нет на диске???
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
ListBox. Несоответствие выделенной строки значениям ListIndex и Text, Как корректно менять ListIndex при выборе строки пользователем
 
#
25.07.2023 11:24:40
Цитата
Дмитрий(The_Prist) Щербаков написал:
да, сработало

подтверждаю, сработало.
А почему при этом событие _Change происходит несколько раз?
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
ListBox. Несоответствие выделенной строки значениям ListIndex и Text, Как корректно менять ListIndex при выборе строки пользователем
 
#
25.07.2023 10:39:24
Код
Private Sub ListBox1_Change()
    If ListBox1.ListIndex > 3 Then ListBox1.ListIndex = 0
End Sub


может быть с этим связано?

Честно говоря, на несколько раз прочитал ваше сообщение но ничего не понял что хотите
Изменено: Artem1977 - 25.07.2023 10:42:24
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Воспроизвести звук при появлении определенного значения в ячейке
 
#
17.07.2023 10:55:07
Цитата
DimaS_123 написал:
Ппоробовал. Compile error: sub or function not defined

Приложите файл, пожалуйста
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Воспроизвести звук при появлении определенного значения в ячейке
 
#
17.07.2023 10:10:42
А если попробовать так?

В модуль листа:
Код
Private Sub Worksheet_Calculate()
  If [A3] <> "" And [A3] = [A4] Then
    mciExecute ("Play C:\tada.wav")
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.CalculateFull
End Sub
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Формат даты, Как сделать нужный формат даты
 
#
23.06.2023 12:20:03
LLIypuk, Формат->Все форматы->Д
Изменено: Artem1977 - 23.06.2023 12:20:57
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Как скролить текст в окне всплывающего списка, Прокрутка колесом мыши текста в окне всплывающего списка
 
#
16.03.2023 10:11:26
А то же самое сделать для ComboBox или ListBox расположенный на UserForm возможно?
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Расчет только целых чисел, В данном случае требуется формула (или две), которая будет перемножать только целые числа из других формул.
 
#
06.03.2023 16:20:51
а целое что это означает для вас. отбрасывать дробную часть, округлять в соответствии с неким правилом до целого??!
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Динамическая ссылка на название листа с пробелом
 
#
06.03.2023 08:02:53
Попробуйте так:
Код
=ГИПЕРССЫЛКА("#'"&A15&"'!A1";A15)

Одинарная кавычка ставится после #  перед !
Изменено: Artem1977 - 06.03.2023 08:21:17
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
VBA - ввод в TextBox только цифр
 
#
21.02.2023 14:27:20
SlA_pls, почитайте пожалуйста здесь
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Как передать в функцию текст в кавычках
 
#
21.02.2023 11:08:34
Код
MsgBox Chr(34) & "aaa" & Chr(34)
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Избавиться от предупреждения безопасности Windows
 
#
21.02.2023 08:09:21
Здравствуйте уважаемые форумчане!
Мой вопрос не относится непосредственно к Excel.

А вопрос такой. При открывании через проводник файлов MS Office Excel и Word расположенных на сетевых дисках лежащих вне локальной сети возникает сообщение-предупреждение от Windows (см. скриншот).

Что необходимо сделать чтобы оно не появлялось каждый раз. Сетевые диски подключены в системе и имеют букву диска. Логин/пароль сохранены.
Надоело каждый раз видеть его и нажимать на кнопку Ок.

Спасибо

Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Задать переменную при нажатии кнопки
 
#
19.02.2023 14:04:07
БМВ, ну конечно же. ведь что происходит после нажатия кнопки - начало выполнения процедуры. а там уже происходит объявления, присваивания и действия.
Microsoft Office 2010 64-bit, Windows 10 Professional 64-bit
 
Перейти    
Страницы: 1 2 3 4 5 6 7 След.
Наверх