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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 396 След.
Как сделать так, что бы при добавлении значения в соседнюю ячейку, формула так же сдвигалась.
 
к сожалению, решить вашу задачу (в рамках предоставленных вами данных) не возможно
Изменено: Ігор Гончаренко - 12.08.2022 23:05:50
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как корректно прописать формулу в VBA
 
Цитата
Анна Иванова написал:
получается эта часть позволяет перескакивать на одну ячейку?
это получается только у вас
у всех получается на r1_ - r0_ + 1 ячеек
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Условное форматирование динамического диапазона
 
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Прекращение всех процедур в модуле VBA
 
вместо
Код
Else
  MsgBox "Отсутствуют необходимые значения. Программа будет прекращена", vbExclamation, "Внимание!"
  Exit Sub
End If

используйте
Код
Else
  MsgBox "Отсутствуют необходимые значения. Программа будет прекращена", vbExclamation, "Внимание!"
  End
End If
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка наличия одноименного файла в папке, Перед созданием файла макросом, проверить нет ли уже в конечной папке файла с указанным названием
 
Dim fn$
и
Dim fn as String
это одно и то же (только букв меньше)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перейти на нужную строку без горизонтальной прокрутки
 
(((
я пока не прочитаю что делать - не понимаю (экстрасенсорика на нуле)
у меня и отец такой был и дед - нулячие экстрасенсы
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка наличия одноименного файла в папке, Перед созданием файла макросом, проверить нет ли уже в конечной папке файла с указанным названием
 
Код
Sub Создатькнигу ()
  Dim fn$
  fn = "\\Users\Общая\Еженедельное совещание\Выгрузки\Карта" & "_" & ThisWorkbook.Sheets("Сводная").Range("C1") & "_" & ThisWorkbook.Sheets("Вес").Range("F4") & ".xlsx"
  if Dir(fn) <> "" then exit sub
  New_Wb.SaveAs fn
  New_Wb.Close
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перейти на нужную строку без горизонтальной прокрутки
 
Цитата
tchack написал:
Перейти на нужную строку без горизонтальной прокрутки
тут же (следующая фраза)
Цитата
tchack написал:
Подскажите, пожалуйста, как перейти на нужную строку без вертикальной прокрутки?
куда переходить и без какой прокрутки - можно только угадать)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перейти на нужную строку без горизонтальной прокрутки
 
Цитата
Jack Famous написал:
Я, например, перехожу к ячейке с ошибкой при выводе сообщения
а переходить без скрола к ней зачем???
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перейти на нужную строку без горизонтальной прокрутки
 
tchack,
если вы пытаетесь перейти (Goto, Select) на ячейку, которой нет в зоне видимости - Excel сменит видимый диапазон и ее станет видно
а переходить-то вам зачем???
пока задача звучит так: как бы перейти, но так чтобы не переходить?
ответ:
не переходите
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Суммирование значений, условие по временным интервалам
 
cм. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос печати листов из книги по списку имен
 
Код
Sub PrintShts()
  Dim s$, r&
  r = Cells(Rows.Count, 3).End(xlUp).Row
  For r = 2 To r: s = s & " " & Cells(r, 3): Next
  s = Trim(s)
  Do While InStr(s, "  "): s = Replace(s, "  ", " "): Loop
  Sheets(Split(s)).PrintOut Preview:=True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как написать название дня недели по номеру дня в неделе?, Нужна помощь в VBA
 
Цитата
БМВ написал:
Лапы чешутся грохнуть
Баширов и Петров уже выехали по IP-адресу
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать отображение всегда определенного количества столбцов на листе?, Вопрос
 
есть такой способ: масштаб по указанному диапазону
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разделение текста в ячейке на 2 разные ячейки
 
однако....
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Оптимизация кода макроса
 
Сергей Верухин,
вы не мытарства свои описывайте в попытке найти решение, а описывайте задачу
написали ОДНУ! фразу: Шумоглушитель SHK 160/6
я написал как разделить ее и ей подобные фразы
я не знаю что там у вас еще быввает в данных на сколько частей и как его поделить
это-то понимаете? что я не могу угадать с написанием макроса не имея представления, а что там может быть в данных

покажите данные, покажите как они должны быть разделены, может тогда найдется способ как это сделать
(для того чтобы понимать очевидные вещи не обязательно что-то понимать в VBA)
и... правильно - все это в новой теме)
Изменено: Ігор Гончаренко - 11.08.2022 11:16:00
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как в найти значение в таблице, если 1 условие по строке, и 2 условия по столбцам:одно равно, другое меньше или равно
 
формула массива:
Код
=СУММПРОИЗВ($B$3:$U$9*($B$1:$U$1=МАКС(ЕСЛИ($B$1:$U$1<=B16;$B$1:$U$1)))*($A$3:$A$9=B17)*($B$2:$U$2=B18))

см. F16
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как написать название дня недели по номеру дня в неделе?, Нужна помощь в VBA
 
название темы:
как написать название дня недели по номеру дня в неделе?
формула:
Код
=ТЕКСТ(СЕГОДНЯ()-ДЕНЬНЕД(СЕГОДНЯ())+A2+1;"ДДДД")

пользовательскуя функция:
Код
Function DOfWeek(d)
  Dim i&
  For i = 0 To 6
    If Weekday(Date + i, 2) = 7 Then Exit For
  Next
  DOfWeek = Format(Date + i + d, "DDDD")
End Function
Изменено: Ігор Гончаренко - 11.08.2022 10:42:20
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Оптимизация кода макроса
 
в окне Immediate написаны пары (что на что заменит этот макрос):
SG 100 >>> DV-K100 VG
SG 125 >>> DV-K125 VG
SG 160 >>> DV-K160 VG
SG 200 >>> DV-K200 VG
SG 250 >>> DV-K250 VG
SG 315 >>> DV-K315 VG
....
чем 6 пар выше отличаются от  6-и пар ниже?
Код
'Гибкая вставка
Cells.Replace What:="SG 100", Replacement:="DV-K100 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SG 125", Replacement:="DV-K125 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SG 160", Replacement:="DV-K160 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SG 200", Replacement:="DV-K200 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SG 250", Replacement:="DV-K250 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="SG 315", Replacement:="DV-K315 VG", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

если работал первоначальный вариант, то точно так же сработает и предложенный мною
только вместо 40 строк кода -16
а с учетом предложения еще по 4-м позициям
вместо 80 строк кода будет 17, код компактнее в 4 раза!
Jack Famous, можно узнать что тут под какое правило не попало
Изменено: Ігор Гончаренко - 11.08.2022 09:48:32
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
(VBA) Как получить имя (или индекс) "умной" таблицы на которой сейчас стоит курсор?
 
Pelik, ???
на вопрос из заголовка этой темы :
Цитата
lcf2003 написал:
Как получить имя (или индекс) "умной" таблицы на которой сейчас стоит курсор?
ответ написан в сообщении 2:
Цитата
Пытливый написал:
ActiveCell.ListObject.Name
четкий короткий ответ на конкретный вопрос, все остальное к заявленной теме имеет мало отношения
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как написать название дня недели по номеру дня в неделе?, Нужна помощь в VBA
 
судя по тому, что ваши сообщения не отображаются на форуме - помощь нужна не только по VBA
Изменено: Ігор Гончаренко - 11.08.2022 08:35:56
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA- запуск кода в указанной дате
 
Код
Sub Wrokbook_open()
  If Worksheet.("Name").Range("B38") > DateValue("11/09/2022") Then
   Call MyCode
   Worksheet.("Name").Range("B38").Clearcontents
   Thisworkbook.Save
  End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
график с тремя переменными
 
нарисуйте с помощью фотошопа
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как в найти значение в таблице, если 1 условие по строке, и 2 условия по столбцам:одно равно, другое меньше или равно
 
Цитата
Галина Богат написал:
Что делать?
тщательно обьяснять задачу
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Оптимизация кода макроса
 
Цитата
Сергей Верухин написал:
А1 -  Шумоглушитель SHK 160/6
Код
Sub SplitNoLatino()
  Dim r&, re, ms, s$
  Set re = CreateObject("VBScript.RegExp")
  re.Pattern = "[А-Яа-яЁё ]+":  r = 1
  Do While Not IsEmpty(Cells(r, 1))
    s = Cells(r, 1)
    If re.test(s) Then
      Set ms = re.Execute(s)
      Cells(r, 3) = Trim(ms(0))
      Cells(r, 4) = Right(s, Len(s) - Len(ms(0)))
    End If
    r = r + 1
  Loop
End Sub
Изменено: Ігор Гончаренко - 10.08.2022 16:59:37
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Поле для ввода диапазона ячеек
 
Цитата
Александр Катаев написал:
каким инструментом можно добавить на форму поле для ввода диапазона ячеек
если именно через форму - то RefEditControl, см. вложение
Изменено: Ігор Гончаренко - 10.08.2022 16:36:44
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Условное форматирование динамического диапазона
 
нет описания задачи - нет формулы
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA- запуск кода в указанной дате
 
Цитата
ramin911 написал:
Так верно?
смотря чего вы добиваетесь (вы задачу не обьясняли)
так с 11.09.2022 будет срабатывать при КАЖДОМ! открытии файла (пожизненно)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подобрать формулу под задачу
 
см. вложение (Продажи в салонах в 2015)
Код
=ЕСЛИ(СЧЁТЕСЛИМН($J$15:$J$214;C$4;$K$15:$K$214;$B5;$L$15:$L$214;$B$1)*СЧЁТЕСЛИМН($J$15:$J$214;C$4;$K$15:$K$214;$B5;$L$15:$L$214;$B$2)*СЧЁТЕСЛИМН($J$15:$J$214;C$4;$K$15:$K$214;$B5;$L$15:$L$214;$B$3)=0;"!";"ок")
Изменено: Ігор Гончаренко - 10.08.2022 16:01:40
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA- запуск кода в указанной дате
 
сам себя он запустить не может
но его (файл) может запустить Windows из календаря своих задач
но тоже есть момент  - компьютер должен быть включен, Windows должен работать))
Изменено: Ігор Гончаренко - 10.08.2022 14:54:59
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 396 След.
Наверх