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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 394 След.
Поиск значений с символами
 
Код
=ВПР(ЛЕВБ(G2;4) & " " & ПРАВБ(G2;ДЛСТР(G2)-5);A:B;2;)
))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Поиск значений с символами
 
возможно
Код
=ВПР(ПОДСТАВИТЬ(G2;"-";" ");A:B;2;)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Создание файла txt с наименованием из ячейки и копирование в него данных по условию
 
невнятно обьясняете
после обьяснений масса пищи для домыслов
мне по барабану что будет в итоге, пишу как понял
а если вам интересно, то обяснять нужно так, чтобы не было двусмысленности
кстати я леплю пробел между Д и Е а нужен он вам или нет я не знаю
Изменено: Ігор Гончаренко - 09.08.2022 16:09:39
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Создание файла txt с наименованием из ячейки и копирование в него данных по условию
 
Код
Sub CreateTxtFile()
  Dim fs, txt, rg
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set txt = fs.CreateTextFile("d:\" & [c3], True)
  For Each rg In Range([d6], Cells(Rows.Count, 4).End(xlUp))
    If Len(rg) Then txt.WriteLine rg & " " & rg.Offset(0, 1)
  Next
  txt.Close
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Создание файла txt с наименованием из ячейки и копирование в него данных по условию
 
Код
Sub CreateTxtFile()
  Dim fs, txt, rg
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set txt = fs.CreateTextFile("d:\Test\" & [c3], True): Set rg = [d6]
  Do While Not IsEmpty(rg)
    txt.WriteLine rg & " " & rg.Offset(0, 1):   Set rg = rg.Offset(1)
  Loop
  txt.Close
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать кол-во символов в диапазоне, Посчитать кол-во символов в диапазоне
 
Цитата
RAN написал:
А как формула в Word'e считает?
отмечаем нужный фрагмент
лента Рецензирование
кнопка Статистика
там написано сколько страниц, слов, букв и пр.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать выборку из диапазона?
 
формула массива:
Код
=СУММЕСЛИМН(C:C;B:B;F2;A:A;МАКС(ЕСЛИ(B:B=F2;A:A)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
Цитата
Олег Большаков написал:
а как это сделать?)
нужно посмотреть в сообщение 4
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копирование данных из открытого файла при непостоянном имени, Как скопировать данные из определенного листа и определенных ячеек открытого файла в другой?
 
в d1 напишите имя файла
выполните
Код
Sub Macro1()
  Dim fn$
  fn = [d1]
  Range("BH6").FormulaR1C1 = "='[" & fn & "]Sales plan'!R34C4"
  Range("BI8").FormulaR1C1 = "=[" & fn & "]Summary!R13C4"
  Range("BI9").FormulaR1C1 = "=[" & fn & "]Summary!R21C3"
  Range("BI10").FormulaR1C1 = "=[" & fn & "]Summary!R30C3"
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать кол-во символов в диапазоне, Посчитать кол-во символов в диапазоне
 
Код
=СУММПРОИЗВ(ДЛСТР(B1:D2))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Несколько макросов на листе, на одном листе два три и четыре макроса
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("A5:A1000,M5:M1000,U5:U1000,AD5:AD1000")) Is Nothing Then
    With Target.Offset(0, 2)
      .Value = Time: .EntireColumn.AutoFit 
    End With
  End If
  If Not Intersect(Target, Range("U5:U1000")) Is Nothing Then Target.Offset(0,1) = Now
End Sub
Изменено: Ігор Гончаренко - 09.08.2022 13:13:52
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор нужного значения при вводе соответствующей ему цифры
 
открыл файл
попытался вникнуть в данные
начал плавиться мозг(
быстро закрыл файл
все нормализовалось)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Доработка макроса для переноса примечания к ячейке
 
пробуйте этот
Код
Sub PasteToVisible()
  Dim copyrng As Range, pasterng As Range, cell As Range, a&, c&
  'запрашиваем у пользователя по очереди диапазоны копирования и вставки
  Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
  Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
  If copyrng.Count <> pasterng.Count Then Exit Sub Else a = 1
  For Each cell In copyrng
    If pasterng.Areas(a).Cells.Count > c Then c = c + 1 Else a = a + 1: c = 1
    cell.Copy pasterng.Areas(a).Cells(c):   pasterng.Areas(a).Cells(c) = cell
  Next
End Sub

должно работать)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Доработка макроса для переноса примечания к ячейке
 
копируйте по одному столбцу все получится) ни для чего более макрос не предназначен

нужен другой макрос? нужно описание задачи, которую он будет решать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Несколько макросов на листе, на одном листе два три и четыре макроса
 
Владислав,
оформить нужно было первое сообщение, а не добавить новое
а вообще смотрите сообщение 4 и ничего уже больше оформлять, добавлять не нужно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
(VBA) Как получить имя (или индекс) "умной" таблицы на которой сейчас стоит курсор?
 
если активная ячейка в умной таблице
то вот она эта таблица: ActiveCell.ListObject
а для чего нужен индекс??? похоже, это загадка для всех тут (не исключая автора вопроса)
в Камеди было (в разговоре Сталина с Берией)
-- не посчитайте это прихотью, но я хочу мышью окна открывать и не смотря на советскую власть чтобы на столе были иконки... и хочу окна открывать мышью и закрывать!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Работа с файлами из папки
 
возможности Dir не совпадают с вашими желаниями
подключите \\192.168.0.1.... как диск  на локальном компьютере обращайтесь к этому диску по его имени: Х:\...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ошибка (Debug) при выполнении AppActivate Application, На одном компьютере при выполнении AppActivate Application появляется ошибка (Debug). Команда нужна для активации ячейки после нажатии на кнопку на форме
 
1. почитайте описание AppActivate
2. подумайте какую задачу вы решаете
3. сопоставьте как как прочитанное с помощью AppActivate Application может решить вашу задачу
лично я не понимаю чего вы добиваетесь выполнив AppActivate Application?
это все начало работать, когда вы нажали кнопку, кнопка на каком -то листе Excel, Excel и так активен в данным момент что даст AppActivate Application???
Изменено: Ігор Гончаренко - 09.08.2022 08:45:31
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сопоставить одинаковые строки
 
сопоставить - это как?
показать можете?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
(VBA) Как получить имя (или индекс) "умной" таблицы на которой сейчас стоит курсор?
 
Цитата
Pelik написал:
Так мне кажется очень сложно
покажите способ проще, буду знать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула внутри цикла
 
в этом нет проблем, проблема в том, что вы не в состоянии обьяснить задачу другому человеку, который не читает ваши мысли, а читает только то, что вы написали
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула внутри цикла
 
макрос выбросьте, задачу обьясняйте
Цитата
Анна Иванова написал:
По соседству с ними выбирается область
с точки зрения постановки задачи фраза "по соседству" абсолютно ничего не значит
ее можно заменить фразой "хрен его знает где-то совсем рядом". так стало понятнее где это?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Работа с временем и датами, Требуется рассчитать время на маршруте
 
если завтра выедете в 5:43
то послезавтра будете на месте в 9:00
с учетом, что в пути будете 27.27 часов
(работайте с датами и временем как с числами, каковыми они по сути и являются)
Изменено: Ігор Гончаренко - 08.08.2022 18:42:46
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Функция ЕСЛИ-И с несколькими условиями при определенном критерии, Значения из одной одной таблицы на листе должны сравниваться со значениями в другой, находящимися на разных строках
 
Код
=ЕСЛИ(ИНДЕКС(G:G;ПОИСКПОЗ(A3;F:F;))>=B3;"ок";"нет!")
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вывод заполненных позиций на другой лист, Вывести готовое КП на другой лист исходя из данных в ЗАЯВКЕ
 
на листе Заявка двойной клик по любой ячейке, где указано количество
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Линия тренда для части графика
 
поместите на диаграмму 2 графика, для последнего добавьте линию тренда
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пронумерованные строк с продолжением по столбцам от 0 до 4294967295
 
пишите:
в А1 1
в А2 2
в В1 1048577
в В2 1048578
отмечаете А1:В2 и тянете вправо до колонки FAN, а потом вниз до упора
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Доработка макроса для переноса примечания к ячейке
 
а так?
Код
Sub PasteToVisible()
  Dim copyrng As Range, pasterng As Range, cell As Range
  'запрашиваем у пользователя по очереди диапазоны копирования и вставки
  Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
  Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
  For Each cell in pasterng
    Cells(cell.Row, copyrng.Column).copy cell
    cell = Cells(cell.Row, copyrng.Column)
  Next
End Sub
Изменено: Ігор Гончаренко - 08.08.2022 09:54:18
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выборка данных формулой
 
Цитата
Александр Александр написал:
что бы рядовой пользователь мог открыть
лист и увидеть в колонке Д список обектов за период 5 дней до сегодня и 9 после
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать количество найденных значений
 
а как поиском пользоваться знаете? если знаете - пользуйтесь
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 394 След.
Наверх