Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
Как перемещать фигуры по координатам в таблице
 
только сначала приведи в порядок имена шейпов
Код
Sub qwert()
    Dim r, m, i, o
    m = [j6..l26].Value
    On Error Resume Next
    For i = 1 To UBound(m)
        Set o = ActiveSheet.Shapes(m(i, 1))
        o.Left = m(i, 2)
        o.Top = m(i, 3)
    Next i
End Sub
Изменено: Александр Моторин - 28 Июл 2020 00:52:12
Применить вычисления к отфильтрованному списку
 
однозначно будет ошибка умножение на текст
Число в ячейке (2, 5)  
Заполнение значений ячеек в зависимости от заданной суммы
 
Цитата
И 15 показателей
может не хватить показателей
Для 0,384 надо 3 по 0,1, 8 по 0,01 и 4 по 0,001
(картинка не вставляется в тело)
Или наоборот разложить на 15 слагаемых? так тоже не всегда получится
если сумма цифр числа больше 15, то решения нет  
Изменено: Александр Моторин - 30 Июн 2020 02:00:27
Как открыть ссылку макросом НЕ через IE?, Как открыть ссылку браузером по умолчанию или MS Edge?
 
Код
Public Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal FileName As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long


'------------------------------------------------------------------------
' Open Webpage in default browser
'------------------------------------------------------------------------
Public Sub OpenUrl(strURL)
    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", strURL)
End Sub
Помогите, пожалуйста, расшифровать функцию "ТАБЛИЦА" в фигурных скобках, функциии
 
понял. разобрался
Изменено: Александр Моторин - 13 Июн 2020 19:16:08
Разбивка данных из одной ячейки по строкам
 
макросом можно сделать
Поиск в файле csv, не открывая его
 
csv это текстовой файл и работать с ним можно как с текстовым файлом
если файл огромный считывать блоками. Разбивать на массив строк
А дальше два варианта. Либо разбивать строку на элементы и потом проверять 12 колонку. Либо просто проверять наличие в строке
Ели нашлось дальше не обрабатывать. Сразу выводить строку
UDF для конвертации персидской даты в григорианскую
 
Восток дело тонкое!
Попробовал переводчиком перевести список месяцев
فروردین1апреля
اردیبهشت2может
خرداد3июнь
تیر4Стрелка
مرداد5августейший
شهریور6сентябрь
مهر7печать
آبان8ноябрь
آذر9декабрь
دی10январь
بهمن11лавина
اسفند12марш
тот же переводчик даёт перевод
январьژانویه
февральفوریه
мартراهپیمایی
апрельآپریل
майممکن است
июньژوئن
июльژوئیه
августاوت
сентябрьسپتامبر
октябрьاکتبر
ноябрьنوامبر
декабрьدسامبر
Изменено: Александр Моторин - 31 Мар 2020 06:54:53
Какой сделать ширину столбца, чтобы она была реально равна высоте строки?
 
Цитата
встал вопрос: какой сделать ширину столбца, чтобы она была реально равна высоте строки?
Реально почитать матчасть и вычислить:
Цитата
В отличие от Microsoft Word в Excel в обычном режиме работы нет линеек для выставления точной ширины, например, в сантиметрах. Excel оперирует «своими» величинами — пунктами, пикселями и символами. В этом легко убедиться, если попытаться изменить ширину столбца мышкой:

Экспериментальным путём удалось выяснить, что:
1 пункт = 1/72 дюйма = 1,33 пикселя = 0,35 мм;
1 пиксель = 0,75 пункта = 0,24 мм;
1 мм = 2,85 пункта = 3,8 пикселя.

Так как дробное количество пикселей на экране монитора отобразить невозможно, ширина столбца округляется до ближайшего целого значения (полученного в пикселях).

В чём измеряется ширина столбца?
Ширина столбцов в Excel задаётся числами в диапазоне от 0 до 255. Значение может быть дробным и оно равно количеству символов, написанных стандартным шрифтом, которые поместятся в ячейку. По умолчанию ширина столбца равна 8,43 символа (или 64 пикселя). Нулевое значение означает, что столбец скрыт.

В чём измеряется высота строки?
Высота строк в Excel также указывается в пунктах и может принимать значение от 0 (ноль) до 409. По умолчанию оно равно 12,75 точки (то есть примерно 4 миллиметра или 1/6 дюйма). Нулевое значение значение скрывает строку.
Поле, в котором бы отображался не текст, а значение какой-то ячейки
 
.
Изменено: Александр Моторин - 23 Мар 2020 21:15:26
Обработка множества txt-файлов. Удалить все после двоеточия в каждой строке
 
разбейте задачу на несколько частей
1. Обработка нескольких файлов. Перебор файлов
2. считать содержимое файла в массив
3. работа с массивами
4. работа со строками
5. выгрузка массива в файл
Из всех вариантов, которые располагаться в столбцах, сгенерировало полную комбинацию от 1-10
 
6  и 10 встречаются только по одному разу. Значит эти колонки обязательно должны присутствовать
1  ст. + 5 ст можно заменить на 2 ст + 3 ст

А вообще интересно что ТС хочет видеть вместо знаков вопроса?
А то формула-формула. Формула показывает результат вычислений. Что должна показать формула в колонке Q?
Собрать файлы с разными шапками в один друг под другом, Выбрать определенные столбцы и вставить один под другим.
 
макросом по очереди открывать файлы. В каждом файле искать столбцы с нужными заголовками  
Заполнение таблицы на листе данными из UserForm
 
вносятся не в 6 строку, а в 7. Как это исправить?
1. Выполнять своё задание самому
2. Даже не глядя в пример простой ответ: заменить 6 на 7
Цитата
2. Как сцепить текст из ComboBox1, ComboBox2, ComboBox3, ComboBox4, TextBox1?
смотри &
Цитата
ставить полученный результат в TextBox9Через кнопку CommandButton1
Вписать в событие  нажатия кнопки что-то типа назначения
TextBox9=
Вроде доступно и подробно ответил
Обработать ячейку с ценами и вывести данные поставщикам, по определенной цене.
 
макрос при вводе цены
без доп. колонок
Подсчет кол-ва дней, введенных в одной ячейке
 
UDF
Изменено: Александр Моторин - 13 Ноя 2019 10:36:45
Ексел не позволяет копипастить блок ячеек и автозаполнять, Где собака зарыта?
 
Дописал и изменил ссылку
Растягивать можно не только формулы но и значения
Нашел проблему: нет буквы в указателе диапазона в макросе
Всем спасибо
Изменено: Александр Моторин - 12 Ноя 2019 15:21:52
Ексел не позволяет копипастить блок ячеек и автозаполнять, Где собака зарыта?
 
Дочка прислала проблемный файл.
На листе 1 если выделить блок, например В72:В79 и скопировать его, то при попытке вставки екел показывает что должно получиться, но после выбора варианта пусто.
Так же невозможно растянуть вниз
Архив файла не цепляется. Доходит до 90% и останавливается
на гугле
https://drive.google.com/open?id=1Z_7amNN73cyeipq-r-wknzs0KHTtYtc5
изменил ссылку. Появилось после вставки макроса из "Приемов"
После сохранения без макросов всё восстанавливается.
Значит как-то макрос влияет?
Изменено: Александр Моторин - 12 Ноя 2019 15:17:22
Смещение значения ячейки выше по условию
 
можно. Макросом
Округление с повышенной точностью, 0,00049 - > 0,001
 
Цитата
округлять как человек,
Сколько будет дважды два?
- четыре
- не правильно!
- пять
- не правильно
- три
- не правильно
А сколько вам надо?
Люди разные бывают!
Ты давай дели в мою сторону!
Как найди дату через определенное количество дней?
 
не поверишь, но обыкновенный знак +
=A5+B5
Создать макрос: вывод данных по условию
 
Ну да! макросом  будет быстрей, как правило
Предлагаю использовать связку массив+словарь
Больше без файлов нечем помочь
Изменено: Александр Моторин - 13 Окт 2019 23:50:37
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Сначала добавить текст а потом форматировать по частям
Найти в тексте определенное значение и на основании данного значение ссылаться на таблицу и выводить оттуда необходимое значение
 
Я бы смотрел в сторону макроса или UDF
Из массива в диапазон.
 
Можно и так:
(формулу и диапазон свою подставьте)
Код
Sub Макрос1()
    [b2..d10].FormulaR1C1 = "=INT(RAND()*1000)"
    [b2..d10].Value = [b2..d10].Value
End Sub
Изменено: Александр Моторин - 22 Сен 2019 23:02:43
Анализ примерно 2 млн строк из ю.csv
 
Цитата
никак не отражается на сложности алгоритма
Не факт. Наступает момент когда считать файл полностью не представляется возможным и надо считывать построчно или блоками
Анализ примерно 2 млн строк из ю.csv
 
Цитата
популярные слова, фразы...
что под этим понимается? сколько раз встретилось?
тогда обрабатывать как текстовой файл макросом и собирать в словарь данные из нужной колонки
Анализ примерно 2 млн строк из ю.csv
 
Цитата
таблица, около 2 млн
таблица не в ексел?
или я отстал от жизни?
Да, вроде, нет

Общее количество строк и столбцов на листе

1 048 576 строк и 16 384 столбца

Заполнение полей на web-странице средствами vba
 
а что вы хотели поучить этим выражением?
Само по себе оно бессмысленно
Должно быть назначение или присвоение свойства
сделайте присвоение например:и смотрите в переменной что
Код
set q=IEexp.Document.getElementById("__field__Main_Engine_Load_2_kW")
Копирование вставка таблицы, сохраняя форматирование, Таблица при вставке в книгу Excel размазана в одном столбике
 
На ум приходит только макрос
Или парсер
Изменено: Александр Моторин - 27 Авг 2019 06:13:26
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
Наверх