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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 77 След.
Функция выделения жирным, Функция выделения жирным
 
Должно помочь :)
Помогите с заменой ячеек
 
файл нужен.
Цитата
Evhenii Che написал:
Например в колонке
написанно > Арбуз Дыня Яблоко Яблоко Дыня Абрикос  >
это не колонка
Изменено: _Igor_61 - 8 Июл 2020 19:05:46
Добавить столбцы с записями через одну в автоматическом режиме.
 
Цитата
yuraok написал:
Или я чегото недосмотрел...?
Невнимательно прочитал ответы от nastya2018 и от Mershik,
Поиск станции метро по адресу
 
Андрей VG, поддерживаю. Говорил об этом уже в #9 и #11, но ТС видимо хочет без собственных усилий ;) ему
Цитата
Toto_costa написал:
Очень надо
P.S. Toto_costa, ну попробуйте пожалуйста сами хоть что-то сделать хотя бы частично (слепое копирование кода - не в счет, лучше задайте вопрос что Вам непонятно в коде где "много букв") и тогда Вам помогут :)
Изменено: _Igor_61 - 25 Июн 2020 21:04:29
Почему макрос не копирует данные и не вставляет их из одной книги в другую?, Vba
 
Закомментируйте все "On Error Resume Next" и по каждой ошибке можно создавать отдельную тему. Так понемногу и заработает :)  
Поиск станции метро по адресу
 
Цитата
БМВ написал:
а разные выходы у станций?
Там стрелочки есть на какую улицу выходить :) Еще и у людей спросить можно, как лучше пройти :) Это я так, чисто практически, если бы мне в Москве пришлось развозить пиццу или документы :)  
Поиск станции метро по адресу
 
Ну не знаю... :) Я бы по рабоче-крестьянски потратил вечером час времени, спросил у яндекса и записал станции в Excel :) Тем более что Вы хотите
Цитата
Toto_costa написал:
макрос который бы работал с этим API
См.#3 и #5
Поиск станции метро по адресу
 
Цитата
Toto_costa написал:
яндекс сам подбирает ближайшую станцию с учетом ближайшего маршрута
Че-то я туплю наверное... Если этот поиск в яндексе уже есть, нафига самому в Excel-е что-то изобретать?
Mershik, добрый вечер! Я думал так: открываем карту, находим станцию метро и смотрим ближайший дом к этой станции, а потом координаты дома - в таблицу :) Работы много конечно, не знал что есть готовые сервисы для этого
Поиск станции метро по адресу
 
Цитата
БМВ написал:
в условии города может оказаться что до ближайшей станции надо обогнуть что-то или .... и проще добраться до второй а может и даже третьей
Не подумал об этом, в маленьком городе живу, можно считать что в поле :)
Поиск станции метро по адресу
 
Цитата
Toto_costa написал:
макрос который с помощью API яндекс карт определяет долготу и широту указанного адреса
Таким же образом найти долготу и ширину всех станций метро, свести координаты в таблицу и сравнивать :)
По тексту в фигурах определить, где расположен нужный стеллаж
 
Если правильно понял, то что-то такое нужно?
Код
Sub qqq()
     Dim fig As Shape, s$
     s = "Стеллаж " & InputBox("Введите номер стеллажа")
On Error GoTo Er1
        For Each fig In Worksheets("Лист1").Shapes
         If s = fig.TextFrame2.TextRange Then
            fig.Select
            Exit Sub
         End If
        Next fig
Er1:
   MsgBox "Такой стеллаж не найден"
End Sub
Изменено: _Igor_61 - 23 Июн 2020 18:57:24
[ Закрыто] ГРЛС макрос поиска
 
Цитата
Андрей VG написал:
А что мешает заключить контракт и получить нужные данные,
Жадность работодателя. Увы, сейчас это не редкость.
Цитата
Михаил Вершинин написал:
У жены на работе задание - собрать данные по лекарствам
Михаил Вершинин, это называется "парсинг сайта". Сами пытались что-то сделать? Или нужно готовое решение?
Если 1-я цифра числа отлична от 0, взять в расчет ее, иначе взять 2-ю цифру
 
MCH, для расчетов в Excel замечательно подойдет, а подойдет ли для нумерологии ТС-у решать :)
Если 1-я цифра числа отлична от 0, взять в расчет ее, иначе взять 2-ю цифру
 
Аааа, понятно! :) Тогда еще вариант:
Код
=A2-2*ЕСЛИ(ЛЕВСИМВ(A$1;1)="0";ПРАВСИМВ(A$1;1);ЛЕВСИМВ(A$1;1))
Нужно было сразу здесь посмотреть, и задача стала бы понятней :)
Изменено: _Igor_61 - 22 Июн 2020 16:31:52
Если 1-я цифра числа отлична от 0, взять в расчет ее, иначе взять 2-ю цифру
 
Возможно это потому, что я не большой знаток формул и поэтому не понял что обозначает "-2const". Это в последних версиях Excel что-то? (У меня 2007)  
Вставка следующей пустой строки
 
Чтобы руками не тянуть - там в одном столбце выпадающий список :)  
Найти ближайшую заполненную ячейку в столбце
 
Еще вариант - макрос
Скрытый текст
Изменено: _Igor_61 - 21 Июн 2020 23:48:26
Вставка следующей пустой строки
 
Код
Sub Ins_row()
    Dim r&
    r = Cells(Rows.Count, 1).End(xlUp).Row 'последняя заполненная ячейка в первом столбце
    Rows(r + 1).Insert Shift:=xlDown
End Sub
Из отчета 1С формировать другой отчет по любым позициям/категориям
 
Цитата
Boongalo написал:
Где условно в мини отчет я могу выбрать(вставить) 5 столбец или 45 из главного отчета.Как такое реализовать?
1.Выделить 5 или 45 столбец
2.CTRL+C
3.Перейти на чистый лист с названием "мини отчет"
4.CTRL+V
:)
Еще есть инструмент "Сводная таблица", формулы, макросы...
Цитата
Mershik написал (#4):
мы можем вам подсказывать 100500 раз куда смотреть: в душу, в глаза, перед собой..но без файла примера
Изменено: _Igor_61 - 21 Июн 2020 16:59:21
Может ли макрос экселя - создать пустой файл определенного типа, как в контекстном меню
 
Андрей VG, +++!!! :)
Но по-моему Вы в какой-то степени ошибаетесь насчет "некоторого текста" и произведений искусства :)
Навряд ли Леонардо думал что его произведения станут произведениями искусства - наверняка он к ним подходил чисто с технической (профессиональной) стороны, не будем уже говорить о незабвенном Бахе. На себе почувствовал: многие решения, которые бывают на сайте - для зрителей (ТС-ов) являются искусством (т.е. сочетанием знаний и творчества) - как картины для того, кто не умеет рисовать или музыка в концертном зале для того, кто не умеет ее делать :)
Поиск и замена текстовых значений: привести адресный перечень к единому виду
 
Цитата
2Sist написал:
Мне кажется, это не возможно
Элементарно, Ватсон! :)
Скрытый текст
Конечно на 100% исправить ситуацию не получится, т.к. бардак он и есть бардак, как его не автоматизируй, но в основной массе задача будет решена, остальное - ручками и через меню "Главная"-"Найти и заменить" :)
Изменено: _Igor_61 - 19 Июн 2020 21:09:08
Выгрузка итогов запроса из Power Query в обычную (не умную) таблицу
 
С PQ дел не имел, но если дело обстоит именно так как описано (что только умная таблица получается) , думаю что как вариант - после обновлений макросом переносить данные на другой лист, уже в виде обычного диапазона. Или сделать запросы SQL
Изменено: _Igor_61 - 19 Июн 2020 18:37:56
Возврат имени файла по значению в ячейке, Нужно вывести имя файла, в котором содержится искомое значение
 
Здравствуйте! Заархивируйте папку с текстовыми файлами до допустимых размеров, оговоренных в правилах форума (для этого если нужно урежьте данные в файлах) и покажите в файле Excel в каком столбце находятся серийные номера (покажите строк 5 - 20) и куда выводить названия файлов.  
Найти количество уникальных буквенных префиксов
 
Т.е. тех, которые встречаются всего один раз? Таких не нашел. Повторяющиеся есть
В столбец "С":  =СЧЁТЕСЛИ(A:A;ЛЕВСИМВ(A2;6)&"*")
В столбец "D": =ЕСЛИ(СЧЁТЕСЛИ(A$2:A2;ЛЕВСИМВ(A2;6)&"*")>1;"";1)
И отфильтровать по "1" столбец "D", все будет видно и наглядно  
Изменено: _Igor_61 - 19 Июн 2020 18:20:41
Как заполнить ячейки в столбце таблицы до конца таблицы с помощью VBA.
 
Можно и без цикла :)
Код
Sub qqq()
    Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).Value = "Слово"
End Sub
Не отображать нулевые значения
 
=ЕСЛИ(СУММЕСЛИ($A2:$A4;$A14;B2:B4)>0;СУММЕСЛИ($A2:$A4;$A14;B2:B4);"")
А вообще можно через меню файл-параметры excel-дополнительно-параметры листа и там снять галку "показывать нули"
Частичное совпадение значений в одной строке из одного столбца в другом
 
Если правильно понял, что нужно, то вариант макроса:
Код
Sub qqq()
    Dim arr1    'Строка в первом столбце
    Dim arr2    'Строка во втором столбце
    Dim r&, i&  'для прохода циклом
    Dim ls&     'сумма несовпадений
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    arr1 = Range("A" & r)
    arr2 = Range("B" & r)
    ls = 0
 For i = 1 To Len(arr1)
   If Mid(arr1, i, 1) <> Mid(arr2, i, 1) Then
      ls = ls + 1
   End If
 Next i
      Cells(r, 3).Value = ls
  If Len(arr1) <> Len(arr2) Then
     Cells(r, 3).Value = "Разное количество цифр (символов)"
  End If
Next r
End Sub
Только пообещайте, что в результате работы макроса не будут уволены работники, которые иногда ошибаются при наборе телефонных номеров :)
Расчет премии пропорционально процента выполнения по показателю
 
Цитата
NE OK написал:
Может кто-нибудь в excel решает маркетинговые или управленческие задачи.
Они решаемы, но очень часто бывает что руководство руководствуется своими соображениями, и тогда никакие формулы не помогают. А мотивация - либо материальная либо моральная (духовная и т.п.) - опять же на усмотрение руководства. То, что Вы описали в первом сообщении можно посчитать на обычном калькуляторе, в случае, если Вы сами знаете, что именно нужно посчитать. А так да, вы правы:
Цитата
NE OK написал:
Здесь много формул(наибольш, макс, впр, просмотр, еслимн, счетеслимн и т.д.).  
:)
Покажите, что и как Вы считали
Частичное совпадение значений в одной строке из одного столбца в другом
 
Цитата
Дмитрий написал:
подобрать функцию, которая отобразит хотя бы количество вот таких "несовпадений".
Здравствуйте, Дмитрий! Можно использовать например ВПР, ПОИСКПОЗ, ЕСЛИ и СЧЁТЕСЛИ и т.п. - проверяйте по ячейкам столбца , найдете несовпадения  и сможете их посчитать. А конкретней если хотите - см.#2
Перемещение курсора мыши макросом не воспринимается как действие
 
Здравствуйте! А "SetCursorPos" можно увидеть? И желательно в файле-примере
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 77 След.
Наверх