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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 582 След.
Разделить текст по заглавным буквам
 
Светлый не работает! Беру файл из первого сообщения, вставляю  и ничего

По вопросам из тем форума, личку не читаю.
Промежуточный итог по медиане с изменяющимися данными (с помощью фильтра)
 
AnnaD543926, что-то мне кажется вы всех запутали и хотели получить медиану медиан в с1 - так?

Если да, то массивная
=MEDIAN(IF(SUBTOTAL(109;OFFSET(C1;ROWS(C4:C40)-1;))<>0;C4:C40))
По вопросам из тем форума, личку не читаю.
Как сделать форму в которой бы отображалось значение из ячейки?
 
Вариантов полно, от использования функции фотоаппарат, до линкования с ячейками конкретных объектов, но все при скроллинге уедут или их надо в области закрепленной размещать. Есть встроенный инструмент Watch Window . Может оно то что нужно.
По вопросам из тем форума, личку не читаю.
Обычная формула вместо формулы массива для сравнения чисел в 2 диапазонах
 
nbaengineer, а *1 это в качестве вишенки на торте? :-) да и как то условия немного перевраны. Что вдруг C12>=A12 перешло в A12>B12?

=(SUMPRODUCT((A2:A11>B2:B11)*(C12>A12))<>COUNT(A2:A11))+1
По вопросам из тем форума, личку не читаю.
Создание папки и файла, создать папку и файл при помощт Эксель
 
Логика проста, в том что нашли, выполнялось одно действие при выполнении условия и записывалось в одну строку, а вам надо не одно и тут уже нужно использовать конструкцию  If Then End if
Код
Sub folder()
On Error Resume Next
For Each oCell In Range([A1], [A65536].End(xlUp))
    If Not IsEmpty(oCell) Then 
          MkDir "C:\Users\Роман\Desktop\шаблон\" & oCell
          ActiveWorkbook.SaveCopyAs filename:=ThisWorkbook.Path & "\" & [A1].Value & ".xls"
End if
Next
End Sub
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
Цитата
Ибрагим Белхороев написал:
как это исправить?
выше подправил, случайно точку с запятой влепил  
По вопросам из тем форума, личку не читаю.
Макрос Excel неожиданно начал тормозить
 
Цитата
rasdmr написал:
По утверждению британа возня с Select в макросах менее 1000 строк для 32бит и 5-10 тыс строк для 64бит при обычном процессоре Celeron 1,1Ггц и минимальном кэше 1 Мб никакого влияние на скорость выполнения макроса не оказывает.
Ну в британии много чего не оказывает. Про SELECT я писал прежде всего по тому, что портянку бессмысленных операций смотреть даже трудно. а не по тому что вдруг все залетает. Я конечно грешил на данные, вдруг что поменялось иии. но всегда искать надо корневые изменения, которые могут влиять на приложения.
По вопросам из тем форума, личку не читаю.
Почему я считаю что Google Sheets лучше чем Excel?, Монопоиля Excel как на безальтернативый табличный редактор.
 
Тоже не слежу, но может кто ткнет в документацию по продукту хотя б близко приближенную к той что есть по Excel? Включая ненавистную мне локализацию.  
По вопросам из тем форума, личку не читаю.
Терминал сбора данных вводимых руками на планшете на базе Эксель, Терминал сбора данных вводимых руками на планшете на базе Эксель
 
Роман Л, вы ввели очень серьезное ограничение.
Цитата
Роман Л написал:
вводимых руками на планшете на базе Эксель,
Если это не Win10 планшет, то ограничения использования макросов не позволит использовать Excel полноценно. Ну и для полноты картины и привлечения потенциальных исполнителей, показали б примерно эти формы и озвучили б бюджет.
По вопросам из тем форума, личку не читаю.
Макрос Excel неожиданно начал тормозить
 
Цитата
rasdmr написал:
Потом в 11 утра обновилась винда и офис ежемесячным обновлением и все.
ну так откатите обновление и проверьте. Если работает, то виноваты они.
По вопросам из тем форума, личку не читаю.
Нужно извлечь число из текста по определенному критерию
 
массивная
=MAX(IF(ISERROR(--MID(SUBSTITUTE(SUBSTITUTE(A1;" ";"!")&"!";MID(1/2;2;1);"!");ROW($1:$256);{10\11}));IFERROR(MID(A1;ROW($1:$256);{9\10})/(COUNTIF(F:F;MID(A1;ROW($1:$256);2))>0);FALSE)))
По вопросам из тем форума, личку не читаю.
Генерация штрих-кодов с помощью VBA
 
veter9191, Уважаемый, я б на вашем месте не умничал, а разобрался б с тем что у Вас в файле. А в файле использован шрифт, который вы не приложили и в отличии от сложного варианта, этот файл без этого шрифта бесполезен.
По вопросам из тем форума, личку не читаю.
Поиск значений и расчёт
 
Цитата
msi2102 написал:
не Ашан
А, ну тогда =ОКРВВЕРХ(C2/(1-C3%);-2)   :D
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
a = Split(Replace(Replace(.Value, "(", " "),")"," ") " ")
Изменено: БМВ - 18.06.2021 10:45:35
По вопросам из тем форума, личку не читаю.
Поиск значений и расчёт
 
Цитата
veter9191 написал:
Тогда уж так
Ну для начала куда копейки дели? округлили до 10 коп.
а почему это вверх?
По вопросам из тем форума, личку не читаю.
Макрос Excel неожиданно начал тормозить
 
ну и в 2016 тоже не долго успел до 3 досчитать когда отключил события и обновления экрана. Комп перезагружали давно?
Изменено: БМВ - 17.06.2021 15:54:08
По вопросам из тем форума, личку не читаю.
Создания ведомость предметов, Создания ведомость предметов
 
кросс
По вопросам из тем форума, личку не читаю.
Макрос Excel неожиданно начал тормозить
 
ну русские комметарии не сильно помогут, а вот то что сразу в глаза бросается так это работа с выделенными (SELECT) областями. Все эти
Код
Range("A20:AI20").Select
   Selection.Clear

заменить на
Код
Range("A20:AI20").Clear
и
Код
Range("R90:R94").Replace What:=" (", Replacement:=";", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
ну а там  и видно будет что и как у вас.
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
RAN, Андрей, ну тогда можно  дойти до  вставить в нужных местах что-то невидимое и по нему делить, например сhr(28). Тут вопрос вкуса, простоты, наглядности .....
но тогда и дату сформированную где-то в другой ячейке тоже надо делить.....
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
в a = Split(Replace(.Value,",";" "), " ")  сперва заменить допустим запятую на пробел.
По вопросам из тем форума, личку не читаю.
создать макрос который бы при введение одного номера заполнял 4 строки
 
ай да Best , реально of the best  :D  
По вопросам из тем форума, личку не читаю.
Поиск значений и расчёт
 
Справочник уж больно справочный

=C2/(1-C3%)
По вопросам из тем форума, личку не читаю.
Объединить файлы csv в один
 
Цитата
JayBhagavan написал:
через функцию  Shell .
+
Цитата
Ливиан написал:
я его встрою в другие макросы, будет непрерывная операция...  
и получим синхронную работу с возможно не предсказуемым результатом

Shell да другой  
По вопросам из тем форума, личку не читаю.
Посчитать кол-во ячеек/столбцов с одинаковыми значениями до ячейки/столбца, где значение изменится
 
Зря Вы смещение приплели. Но дело Ваше, Ценно то что сделали сами, хоть и не оптимально, но сделали.
По вопросам из тем форума, личку не читаю.
Выполнение только одного условия из нескольких (VBA)
 
только немного не так
Код
If ДанныеМарка = ПланМарка Then
    If  ДанныеТонн - Точность <= ПланТонн And ДанныеТонн + Точность >= ПланТонн Then
         If  ДанныеВремяГода = ПланВремяГода Then
            If  ДанныеВремя = ПланВремя Then
            '  code 1
            end if
         '  code 2
         end if
     '  code 3
     end if
 '  code 4
 end if
По вопросам из тем форума, личку не читаю.
Нужна помощь с формулой =ЕСЛИ
 
=ЕСЛИ(A6="";"";ЕСЛИОШ(ПОИСК("пл?нка*";A6));"А";"П"))
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
я б на всякий случай сперва со всей ячейки снимал подчеркивание и курсив
По вопросам из тем форума, личку не читаю.
Посчитать кол-во ячеек/столбцов с одинаковыми значениями до ячейки/столбца, где значение изменится
 
массивная
=IF(B4<>"---";MIN(IF(C4:$EX$4="---";C3:$EX$3));B3)
обычная
=IF(B4<>"---";AGGREGATE(15;6;C3:$EX$3/(C4:$EX$4="---");1);B3)

Или даже
=MIN(IF(B4:$EX$4="---";B3:$EX$3))
=AGGREGATE(15;6;B3:$EX$3/(B4:$EX$4="---");1)
Изменено: БМВ - 17.06.2021 08:21:42
По вопросам из тем форума, личку не читаю.
Форматировать ячейку с формулой с помощью макроса
 
нет
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Range("A8")
    .Value = "за период с " & Format(DateSerial(Year(Now), Month(Now) + 0, 0) + 1, "[$-FC22]« D » MMMM 20 YY г.") & " по " & Format(DateSerial(Year(Now), Month(Now) + 0, 0) + 10, "[$-FC22]« D » MMMM 20 YY г.")
    a = Split(.Value, " ")
        For i = 0 To UBound(a)
            Select Case i
            Case 4, 6, 8, 12, 14, 16
                With .Characters(b + 1, Len(a(i))).Font
                    .Italic = True
                    .Underline = True
                End With
            End Select
            b = b + Len(a(i)) + 1
        Next
   End With
With Range("A19")
.FormulaR1C1 = "=""1.1. Обязательство Субагента перед Агентом по перечислению выручки," _
& " полученной от реализации перевозок по договору №13 – САГ от « 28 » августа 20 20 года," _
& " составляет""&"" ""&'[Реестр грузовых авианакладных копия1.xlsm]Итоговая декада'!R13C15&"" ""&'[Реестр грузовых авианакладных копия1.xlsm]Итоговая декада'!R14C15&"",""&"" без НДС."""
.Formula = .Value
a = Split(.Value, " ")
b=0                                             ' Вот тут
        For i = 0 To UBound(a)
            Select Case i
            Case 0
                With .Characters(b + 1, Len(a(i))).Font
                    .Italic = True
                    .Underline = True
                End With
            End Select
            b = b + Len(a(i)) + 1
        Next
   End With
End Sub
По вопросам из тем форума, личку не читаю.
создать макрос который бы при введение одного номера заполнял 4 строки
 
По вопросам из тем форума, личку не читаю.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 582 След.
Наверх