Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 155 След.
Как правильно сослаться на переменную
 
Успехов!
Владимир
Имя элементов на английском, Как убрать кириллицу
 
Цитата
написал:
почему такие мелочи не зафиксили переменными на английском
Слишком много надо фиксить.  :)
Успехов!
Изменено: sokol92 - 18.03.2024 17:22:38
Владимир
Имя элементов на английском, Как убрать кириллицу
 
Изменил ответ выше. Попробуйте, пожалуйста.
Изменено: sokol92 - 18.03.2024 17:13:40
Владимир
Как правильно сослаться на переменную
 
Дополнение к ответу МатросНаЗебре (один из возможных вариантов):
Код
Option Explicit
Const myColumnName = "Moy_UID"
Sub test()
  Dim tbl As ListObject, rg1 As Range
  Set tbl = ActiveSheet.ListObjects("Таблица2")
  
  Set rg1 = tbl.ListColumns(myColumnName).Range
  rg1.Select           ' Range("Таблица2[Moy_UID]").Select
  rg1.Rows(1).Select   ' Range("Таблица2[[#Headers],[Moy_UID]]").Select
End Sub
Владимир
Имя элементов на английском, Как убрать кириллицу
 
Уже забыл, что это такое ( SlicerCache ).  :)
Скачал отличный пример у Николая Павлова.
Думаю, что имя можно поменять стандартным образом через Диспетчер имен (Ctrl+F3). Попробуйте на своем примере.
Изменено: sokol92 - 18.03.2024 17:09:37
Владимир
[ Закрыто] Сумма прописью
 
Если у Вас есть формула, выводящая сумму прописью в указанном Вами стандартном формате для суммы из ячейки A1, то сумму в требуемом формате можно получить так:
Код
=ЦЕЛОЕ(A1)  & " (" & ПОДСТАВИТЬ(вашаФормула; " руб"; ") руб")
Изменено: sokol92 - 11.03.2024 19:49:27
Владимир
Как обращаться к ячейкам разных листов из пользовательской формы?
 
Успехов!
Владимир
Как обращаться к ячейкам разных листов из пользовательской формы?
 
Внимательно просмотрите все строки своих макросов на предмет явного указания листа во всех констукциях.
Например (фрагмент):
Код
    With ThisWorkbook.Worksheets(i)
        lastRow = .Range("A" & Rows.Count).End(xlUp).Row
        Set Rng = Columns(1).Find(what:=strDi, LookIn:=xlValues, lookAt:=xlWhole)

В присвоении для Rng не указано, к какому листу относится Columns(1) (возможно, нужно добавить в начале точку).

Для модераторов тема: Как обращаться к ячейкам разных листов из пользовательской формы?
Изменено: sokol92 - 10.03.2024 15:43:10
Владимир
Как зафиксировать округлённое число?, Появились погрешности из-за округления
 
Введите в любую свободную ячейку формулу:
=A4=B4
Ее значение - ИСТИНА. То есть, значения ячеек A4 и B4 одинаковы.
В этих ячейках установлены разные числовые форматы (соответственно Общий и Числовой с 2 знаками после запятой), поэтому на экране они отображаются по-разному.
Изменено: sokol92 - 10.03.2024 15:23:18
Владимир
Редактирование формулы для вывода данных с обоих листов на третий, Вывод данных с двух листов на третий лист
 
Коллеги, спасибо за интересное обсуждение!
Владимир
Редактирование формулы для вывода данных с обоих листов на третий, Вывод данных с двух листов на третий лист
 
Цитата
Aleksa1984 написал:
Помогите недоучке, если возможно...
Ничего, лет через 20 и мы научимся (может быть) писать такие формулы...  :D
Владимир
Правила условного форматирования в сводной таблице, Пожалуйста, помогите прописать правила условного форматирования
 
Поставьте первым правилом условного форматирования: если значение факта и плана 0, то числовой формат ";;" и укажите для него флажок "Остановить, если Истина".
Изменено: sokol92 - 07.03.2024 15:29:10
Владимир
Правила условного форматирования в сводной таблице, Пожалуйста, помогите прописать правила условного форматирования
 
Можно так (с вычисляемым полем).
Владимир
VBA список переменных/процедур/функций/параметров
 
Проще поискать vba obfuscation.
Владимир
Работа с Excel из Outlook
 
В #8 описан вполне рабочий вариант, только нужно перехватить ошибку:

Код
Sub Test()
  Dim objXls2 As Object
  On Error Resume Next
  Set objXls2 = GetObject("D:\ForMacros\123.xlsx")
  On Error GoTo 0
  
  ' следующие операторы
  
End Sub
   

Если указанный файл ранее был открыт, то переменная objXls2 будет содержать ссылку на открытый файл (в этом экземпляре Excel или в ином).
Если указанный файл ранее не был открыт, то он будет открыт в скрытом окне данного экземпляра Excel и переменная objXls2 будет содержать ссылку на этот вновь открытый файл.

В случае возникновения ошибки (например, файл не существует), переменная objXls2 будет Nothing.
Владимир
Запрос подтверждения на удаление строк / блокировка удаления строк
 
Цитата
Sanja написал:
Файл с макросом для получения ID
Здравствуйте, Виталий!
Макрос в Вашем сообщении не всё показывает (в части вложенных меню).
Можно попробовать макрос во вложении.
Владимир
Excel 2016 - при вводе дробного числа значение меняется, При вводе дробного числа меняется значение
 
Все разработчики (включая Microsoft) стараются при отображении десятичных дробей всё же показывать, по возможности, в конце ноли, а не девятки. Это бесконечный процесс усовершенствования...
Возможно, разные подверсии Office 2021.

Всегда лучше при показе дробных чисел в Excel (и других электронных таблицах) выбирать числовой формат ячейки с необходимым количеством знаков после запятой. Тогда число вопросов от пользователей значительно уменьшится.  :)
Изменено: sokol92 - 28.02.2024 17:02:04
Владимир
Excel 2016 - при вводе дробного числа значение меняется, При вводе дробного числа меняется значение
 
Sanja, дополнил сообщение цитатой из авторитетного источника.  :)

Вы заносите число 54123,2463 , которое Excel записывает приближенно в формате double. При отображении этого числа в формате General Excel решает обратную задачу перевода числа из формата double в десятичную систему счисления. Отклонение в 16-м разряде никогда не может рассматриваться как ошибка.
Изменено: sokol92 - 28.02.2024 14:51:22
Владимир
Excel 2016 - при вводе дробного числа значение меняется, При вводе дробного числа меняется значение
 
Цитата
vynni написал:
Я так понимаю что сложно бороться с системной ошибкой программы
Нет ошибки, есть непонимание специфики приближенных вычислений. На нашем сайте есть много сообщений по теме "приближенные вычисления".

Вот еще одна цитата от Microsoft:
Цитата
При работе с числами с плавающей запятой (одинарные и двойные) следует помнить, что они хранятся в виде двоичных дробей. Это означает, что они не могут содержать точное представление количества, не представляющее двоичную дробь (формы k / (2 ^ n), где k и n являются целыми числами). Например, 0,5 (= 1/2) и 0,3125 (= 5/16) могут содержаться в виде точных значений, тогда как 0,2 (= 1/5) и 0,3 (= 3/10) могут быть только приближенными.

Из-за такой точности нельзя полагаться на точные результаты при работе со значениями с плавающей запятой. В частности, два теоретически равных значения могут иметь несколько разные представления.
Изменено: sokol92 - 28.02.2024 14:43:22
Владимир
Переход по гиперссылке по клавише enter, Помогите сделать переход по гиперссылке без мыши, ...
 
Еще посмотрите вот это сообщение на форуме.
Владимир
Перебрать все столбцы, сравнить ячейки в каждом столбце и закрасить не равные
 
Здравствуйте, коллеги!
Да, макрос не может быть простым:

Цитата
Происходит от др.-греч. μακρός «длинный; большой, обширный», далее из праиндоевр. *mak- «длинный».
Изменено: sokol92 - 11.02.2024 16:00:28
Владимир
VBA обновление запроса PQ с дальнейшим копированием полученных данных, Обновление запроса PQ с помощью макроса с дальнейшим копированием полученных данных
 
Альтернатива - обрабатывать событие Application.AfterCalculate.
Владимир
ПОИСКПОЗ() не ищет проценты
 
Цитата
Sanim написал:
Если посмотреть через PowerQuery то ваши значения выклядят так:
Можно посмотреть непосредственно в файле .xlsx, который является архивом.
Фрагмент \xl\worksheets\sheet1.xml :
Код
<row r="20" spans="1:7" x14ac:dyDescent="0.25">
<c r="A20" s="1">
<f t="shared" si="0"/>
<v>0.20000000000000004</v>
</c>

Когда мы пишем формулу в ячейке A2:
Код
=A1+1%

и протягиваем вниз, то должны понимать, что погрешность может накапливаться.
Изменено: sokol92 - 08.02.2024 15:21:29
Владимир
URLDownloadToFile не работает
 
Вызовите curl. Эта программа умеет всё.
Изменено: sokol92 - 06.02.2024 19:51:06
Владимир
Автоматическое закрытие файла Excel
 
Можно использовать подстановочные знаки, но при этом есть риск "зацепить" кого-то еще.
Или так:
Код
Dim oNet As Object
 Set oNet = CreateObject("wscript.network")
 If oNet.UserName = "sokol" And oNet.UserDomain = "COMEC" Then
   MsgBox "Ничего не трогай!"
 End If
Владимир
Автоматическое закрытие файла Excel
 
Цитата
kompilainenn написал:
Код из #2 сразу откроет только для чтения, а кто-то другой сможет при этом открыть для редактирования?
Добрый день!
Сможет.
Можно анализировать имя пользователя и(или) имя компьютера.
Можно также ограничить права пользователя (только чтение) по отношению к файлу или папке.
Изменено: sokol92 - 30.01.2024 17:53:01
Владимир
Вопрос по выпадающему списку
 
Цитата
alex_j написал:
Нашел часть кода которая ломает файл.
Не используйте для проверки данных "встроенные" списки, тем более, когда в списке есть тексты, содержащие запятую (как у Вас).
Правильно - ссылаться на именованный диапазон. Ссылка в виде адреса диапазона, который находится на другом листе (как в #45) может не работать в старых версиях Excel (если правильно помню).
Владимир
Получение списка свойств файлов папки и их обработка с выводом в Excel
 
Здесь есть обсуждение этой темы.

Вот код для вывода списка всех возможных свойств с локализованными наименованиями. Необходимо вызвать макрос ShowPropsNames.

Скрытый текст
Изменено: sokol92 - 24.01.2024 20:48:12
Владимир
Автоматическое сохранение документа Word после замены текста макросом из экселя
 
Так же, как в Excel - метод Document.Save.
Код
objDocument.Save
Владимир
Замена текста макросом из экселя в ворде, Потеря форматов и стилей Word-документа.
 
Вопрос не соответствует названию темы и профилю форума.

P.S. На форуме все знают, кто такой Михаил Первый.  :D
Владимир
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 155 След.
Наверх