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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 409 След.
Разделить листы на отдельные файлы, Как разделить листы в файлы на отдельные файлы, чтобы каждый файл имел наименование листа .
 
Код
Sub CopySheets2Files()
  Dim shs, sh
  shs = Array("№1", "№2", "№3", "№4")
  For Each sh In shs
    Worksheets(sh).Copy
    ActiveWorkbook.SaveAs sh
    ActiveWorkbook.Close
  Next
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка существования даты, обучение с 0
 
Код
Sub homework029()
  Dim a As Integer, b As Integer, c As Integer
  Dim d As Boolean, m As Boolean, y As Boolean
  a = InputBox("День")
  Cells(1, 1) = a
  b = InputBox("Месяц")
  Cells(1, 2) = b
  c = InputBox("Год")
  Cells(1, 3) = c
   'прописываем год
   y = c >= 1 And c <= 9999
   'прописываем месяцы
   m = b >= 1 And b < 12
   'прописываем февраль (затык здесь)
   'прописываем дни
   d = a >= 1
   d = d And a < 32
   If b = 2 Then
     d = d And a < 30
     If c Mod 4 Then d = d And a < 29
   End If
   If d And m And y Then
     MsgBox "Ok"
   Else
     MsgBox "День: " & IIf(Not d, "not!  ", "") & "Ok" & vbLf & _
     "Месяц: " & IIf(Not m, "not!  ", "") & "Ok" & vbLf & _
     "Год: " & IIf(Not y, "not!  ", "") & "Ok"
   End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Форматирование значений, Исключение символа из значения ячейки для работы авт. подсчета суммы выделенных ячеек
 
у пробела код 32 у неразрывного пробела код 160
поэтому если вы пытаетесь найти и заменить пробелы - ничего не получится, их там действительно нет, как только попробуете заменить на пусто неразрывный пробел - получите желаемый результат
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
обозначить зеленым цветом если значение в ячейке больше значения левее и красным, если меньше
 
название темы:
обозначить зеленым цветом если значение в ячейке больше значения левее и красным, если меньше
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка существования даты, обучение с 0
 
название темы:
проверить задают-ли введенные пользователем день, месяц, год соответствующую дату
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вывод числа равного или больше заданного порога., Формула
 
и...
если нужно на лету исправлять то, что внес пользователь - нужен макрос, формула может только в соседней ячейки решить что показать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
обозначить зеленым цветом если значение в ячейке больше значения левее и красным, если меньше
 
стрелки не поддаются и не факт что с макросом получится одно правило
а просто обозначить цветом - достаточно написать 2 правила на диапазон и видно не хуже, чем стрелки))
Изменено: Ігор Гончаренко - 04.10.2022 12:31:34
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка существования даты, обучение с 0
 
Цитата
ZVI написал:
DateSerial допускает и месяц = 13
и день 33
но IsLegalDate напишет что такие даты плохие
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вывод числа равного или больше заданного порога., Формула
 
а если написали 1505 то что должно быть в ячейке?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка существования даты, обучение с 0
 
могу предложить вам функцию
Код
Function IsLegalDate(d, m, y) As Boolean
  IsLegalDate = Len("" & y) > 1 And d & "." & m & "." & y = _
  Format(DateSerial(y, m, d), "D.M." & String(Len("" & y), "Y"))
End Function

правда она не имеет никакого отношения к изучаемым вами if, elseif, else ...
в вашем случае после того, как получили от пользователя а, в, с
Msgbox IsLegalDate(a,b,c)
напишет вам прошли проверку а, в, с или нет
или так:
Код
Sub test()
  MsgBox IsLegalDate(29, 2, 2000)
  MsgBox IsLegalDate(29, 2, 2001)
End Sub
получите Истина а потом Ложь, т.е. 29 февраля в 2000 году было, а в 2001 - нет(((
Изменено: Ігор Гончаренко - 04.10.2022 10:43:57
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка существования даты, обучение с 0
 
Цитата
Georgetta Monson написал:
'Считать, что в феврале всегда 28 дней
а это с какого перепугу? если есть год, то понятно сколько дней в этом году было в феврале
Цитата
Georgetta Monson написал:
Сейчас изучаем условия If, Else, Elseif, End If.
судя по этому решение нужно в VBA но фраза
Цитата
Georgetta Monson написал:
Дана дата из трех чисел (день, месяц и год)
абсолютно не обьясняет где они даны?
1. лежат в ячейках? (каких)
2. нужно запросить у пользователя?
3. прочитать из файла? (какого)
4. взять с интернета? (адрес страницы, где они лежат)
этот перечень можно продолжать долго. продолжать? или вы сами обьясните "даны" - это как и где???
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
обозначить зеленым цветом если значение в ячейке больше значения левее и красным, если меньше
 
я их не считал, но в файле тысячи правил
обычно все происходит так: одна задача - одно правило (на весь диапазон, а не в каждой ячейке свое)
какой там макрос был - никто не знает, писать макрос который снова навесит тысячи правил - на любителя (я не стану)
для начала:
1. обьясните задачу, которую пытаетесь решить
2. при обьяснении определяйте термины, которыми пользуетесь, понимаете, что такое "предыдущая ячейка" очевидно только для вас, для остальных - загадка "предыдущая - это которая?" и пока нет простых и ОДНОЗНАЧНЫХ обьяснений условий задачи - никто ее не решит (несколько исключений: 1) любители погадать начнут наваливать сюда решения и рано или поздно кто-то его угадает, 2) любители ребусов - разгадают ваши слова, поймут о чем речь и решат задачу))
Изменено: Ігор Гончаренко - 04.10.2022 09:27:22
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула для вывода результата в зависимости от нескольких условий, Мне необходимо просчитать количество оставленных комментариев по следующей логике: Считать если это Москва, Ромашка и с момента прошлого обращения прошло более 30 дней.
 
совпали 0 и 1 с вашими
в Е2 формула массива
Код
=ЕСЛИ(СЧЁТЕСЛИМН($B$1:B2;B2;$C$1:C2;C2)=1;1;--(D2-МАКС(ЕСЛИ(($B$1:B1=B2)*($C$1:C1=C2);$D$1:D1))>=30))
Изменено: Ігор Гончаренко - 04.10.2022 02:38:57
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула для вывода результата в зависимости от нескольких условий, Мне необходимо просчитать количество оставленных комментариев по следующей логике: Считать если это Москва, Ромашка и с момента прошлого обращения прошло более 30 дней.
 
Цитата
Алёна П написал:
Мне надо в первой таблице понять как столбец кол-во заполнить единицами и нулями
хорошо
мне тоже нужно понимать по какому принципу там ставить 0 или 1, похоже, что вы их ставили по настроению
в Е2
Код
=--(сегодня()-30<D2)

и тянете вниз, так?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула для вывода результата в зависимости от нескольких условий, Мне необходимо просчитать количество оставленных комментариев по следующей логике: Считать если это Москва, Ромашка и с момента прошлого обращения прошло более 30 дней.
 
а что помешало дописать еще одно условие?
Код
=СУММЕСЛИМН($E$2:$E$15;$B$2:$B$15;H2;$C$2:$C$15;I2;D1:D14;">=" & СЕГОДНЯ()-$J$1)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
обозначить зеленым цветом если значение в ячейке больше значения левее и красным, если меньше
 
трудно увидеть код, если его там нет
обратите внимание на условное форматирование
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос на скрытие строк по условию
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("H11")) Is Nothing Then
    If Target = "нет" Then
      Rows("12").Hidden = True
      Range(Rows("12"), Rows("18")).Hidden = True
      Range(Rows("20"), Rows("21")).Hidden = True
    Else
      Rows("12:12").Hidden = False
    End If
   End If
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подстановка и счёт значений по нескольким условиям из разных таблиц., В заданных ячейках должны отображаться СУММы найденых значений соответствующих условию
 
Цитата
Сергей Торопов написал:
Не знаю как работать с кодом
это формулы) и МатросНаЗебре написал какие формулы в какие ячейки вставлять
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подстановка и счёт значений по нескольким условиям из разных таблиц., В заданных ячейках должны отображаться СУММы найденых значений соответствующих условию
 
в F3 формула массива:
Код
=СУММ(($C$3:$C$6*ТРАНСП($I$3:$I$5))*($A$3:$A$6=ТРАНСП($H$3:$H$5))*($B$3:$B$6=E3))

а потом потянуть вниз
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как поменять числа на дату.
 
а файл можжно посмотреть?
и пишите где не меняется (в какие ячейки смотреть)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как поменять числа на дату.
 
правая кнопка мыши
Формат ячеек
Дата
Ок
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Суммирование определённого столбца по двум критериям VBA
 
mission Impossible
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
ошибка в Replace
 
Код
Sub Replacer()
  Dim a, r
  a = Worksheets("список").[a1].CurrentRegion
  For r = 1 To UBound(a)
    Worksheets("Лист2").Cells.Replace a(r, 1), "", xlPart
  Next
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Суммирование определённого столбца по двум критериям VBA
 
сначала описание задачи - потом решение. построить дачу - это тоже задача, но начать строить вашу дачу строители могут только после ознакомления с чертежами дачи
(наоборот не получится)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
ошибка в Replace
 
что на что нужно заменить?
и где это делать?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
сихронизация данных с смартфона на сетевой ресурс
 
del
Изменено: Ігор Гончаренко - 03.10.2022 10:55:53
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
В выделить часть текста, если она есть в ячейке правее, Условное форматирование при совпадении значений
 
название темы:
в ячйках колонки В выделить красным цветом текст, если он есть в ячейке правее

Цитата
VBKomp написал:
макросы - terra incognita
тут нет ни одного человека с врожденными навыками написания макросов, даже если мама программист это не получится всосать с молоком матери. а научиться - легко. было бы желание и интерес - это даже довольно увлекательный процесс)
Код
Sub RedColor()
  Dim r&, p&, rg As Range
  Set rg = Intersect(ActiveSheet.UsedRange, [b:b])
  For r = 1 To rg.Rows.Count
    p = InStr(rg(r), rg(r).Offset(0, 1))
    If p Then rg(r).Characters(p, Len(rg(r).Offset(0, 1))).Font.Color = 255
  Next
End Sub
Изменено: Ігор Гончаренко - 03.10.2022 08:58:46
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
В выделить часть текста, если она есть в ячейке правее, Условное форматирование при совпадении значений
 
условным форматированием - никак
условное форматирование применяется к ячейки, а не к отдельным буквам в ней
ваша задача не имеет ни какого отношения к условному форматированию, и легко решается простым макросом
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Преобразование таблицы: перенос значений из столбцов в строки"
 
Цитата
jacksonville написал:
название темы поправлю, как только разберусь, как это сделать
не разберетесь такая возможность не предусмотрена ПО управляющим форумом
но можете предложить название обычным текстом в следующем сообщении, например: "как сделать пулю из ..."
а само название поправят модераторы на основании предложенного вами варианта(ов), могут исправить даже на основании моего предложения
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Преобразование таблицы: перенос значений из столбцов в строки"
 
jacksonville,
тем с такими преобразованиями сотни, если не тысячи на форуме, воспользуйтесь ИНДЕКС(...)
Изменено: Ігор Гончаренко - 02.10.2022 03:10:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 409 След.
Наверх