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

Страницы: 1 2 3 След.
Суммпроизв по столбцу А со всех страниц книги, формула поиска артикла и вытягивание результата
 
Спасибо всем огромное
Суммпроизв по столбцу А со всех страниц книги, формула поиска артикла и вытягивание результата
 
Необходимо написать формулу поиска артикла в столбце "А" на всех существующих листах и вытягивание со столбца "Е" результат
Изменено: Николай Романишин - 15 фев 2016 23:42:20 (уточнение)
Менять все большие буквы на строчные, а не только первую
 
спасибо
Менять все большие буквы на строчные, а не только первую
 
=СТРОЧН(ПСТР(H18;1;1)) & ПРАВСИМВ(H18;ДЛСТР(A2)-1)
Как прописать формулой найти и заменить
 
получилось, спасибо
Как прописать формулой найти и заменить
 
Извините, прикрепляю
Как прописать формулой найти и заменить
 
=ПОДСТАВИТЬ(A7;" ";"-";1)

как в такой формуле:
1) как Номер_вхождения  написать все варианты при поиске а не только  один
2) как подставить не один вариант а несколько вариантов Стар_текст  
Изменено: Николай Романишин - 22 янв 2016 13:38:51 (нашел уточнение)
Как прописать формулой найти и заменить
 
Написать формулу в B1
В ячейке А1 найти символ " " и  символ "/"  после чего заменить его на "-" чтобы получился измененный результат.
Чтобы не через ctrl+f а чтобы формула была ?
Изменено: Николай Романишин - 22 янв 2016 13:30:26
Функция число прописью: ошибка Cant find projekt of library, в 97 работала, а в 2010 выдает ошибку
 
'

' Функция возвращает сумму прописью в долларах
'
Function СуммаПрописьюДоллары(Доллары)
' Вызов функции для получения числа прописью
Число = CStr(Fix(Доллары))
МужскойРод = Истина
СуммаПрописьюДоллары = ЧислоПрописью(Число, МужскойРод)
' Строку с заглавной буквы
СуммаПрописьюДоллары = UCase(Mid(СуммаПрописьюДоллары, 1, 1)) + _
                      Mid(СуммаПрописьюДоллары, 2)
' Вычислить длину исходного числа
Длина = Len(Число)
' Если число только из одной цифры, добавить
' до двух (для единообразия алгоритма)
If Длина = 1 Then
   Число = "0" & Число
   Длина = Длина + 1
End If
' Добавление нужного окончания строки
'
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "долларов"
If Mid(Число, Длина - 1, 1) = 1 Then
   СуммаПрописьюДоллары = СуммаПрописьюДоллары + "долларов"
' Для всех остальных случаев
Else
   Select Case Mid(Число, Длина)
' Для чисел, оканчивающихся на 1 добавляем "доллар"
   Case 1
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "доллар"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "доллара"
   Case 2, 3, 4
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "доллара"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "долларов"
   Case Else
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "долларов"
   End Select
End If
' Считаем центы
Переменная = (Доллары - Fix(Доллары)) * 100
If (Переменная - Fix(Переменная)) > 0.5 Then
   Переменная = Fix(Переменная) + 1
Else
   Переменная = Fix(Переменная)
End If
Центы = CStr(Переменная)
' Окончательно формируем результат, добавляя центы
If Len(Центы) = 1 Then
   Центы = "0" + Центы
End If
СуммаПрописьюДоллары = СуммаПрописьюДоллары + " " + Центы + " "
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "центов"
If Mid(Центы, 1, 1) = 1 Then
   СуммаПрописьюДоллары = СуммаПрописьюДоллары + "центов"
' Для всех остальных случаев
Else
   Select Case Mid(Центы, 2)
' Для чисел, оканчивающихся на 1 добавляем "цент"
   Case 1
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "цент"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "цента"
   Case 2, 3, 4
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "цента"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "центов"
   Case Else
       СуммаПрописьюДоллары = СуммаПрописьюДоллары + "центов"
   End Select
End If
End Function
'
' Функция возвращает сумму прописью в гривнах
'
Function СуммаПрописьюГривны(Гривны)
' Вызов функции для получения числа прописью
Число = CStr(Fix(Гривны))
МужскойРод = Ложь
СуммаПрописьюГривны = ЧислоПрописью(Число, МужскойРод)
' Строку с заглавной буквы
СуммаПрописьюГривны = UCase(Mid(СуммаПрописьюГривны, 1, 1)) + _
                      Mid(СуммаПрописьюГривны, 2)
' Вычислить длину исходного числа
Длина = Len(Число)
' Если число только из одной цифры, добавить
' до двух (для единообразия алгоритма)
If Длина = 1 Then
   Число = "0" & Число
   Длина = Длина + 1
End If
' Добавление нужного окончания строки
'
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "гривен"
If Mid(Число, Длина - 1, 1) = 1 Then
   СуммаПрописьюГривны = СуммаПрописьюГривны + "гривен"
' Для всех остальных случаев
Else
   Select Case Mid(Число, Длина)
' Для чисел, оканчивающихся на 1 добавляем "гривна"
   Case 1
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривна"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "гривны"
   Case 2, 3, 4
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривны"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "гривен"
   Case Else
       СуммаПрописьюГривны = СуммаПрописьюГривны + "гривен"
   End Select
End If
' Считаем копейки
Переменная = (Гривны - Fix(Гривны)) * 100
If (Переменная - Fix(Переменная)) > 0.5 Then
   Переменная = Fix(Переменная) + 1
Else
   Переменная = Fix(Переменная)
End If
Копейки = CStr(Переменная)
' Окончательно формируем результат, добавляя копейки
If Len(Копейки) = 1 Then
   Копейки = "0" + Копейки
End If
СуммаПрописьюГривны = СуммаПрописьюГривны + " " + Копейки + " "
' Для чисел, оканчивающихся на 10, 11, 12, 13,
' 14, 15, 16, 17, 18, 19 добавляем "копеек"
If Mid(Копейки, 1, 1) = 1 Then
   СуммаПрописьюГривны = СуммаПрописьюГривны + "копеек"
' Для всех остальных случаев
Else
   Select Case Mid(Копейки, 2)
' Для чисел, оканчивающихся на 1 добавляем "копейка"
   Case 1
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копейка"
' Для чисел, оканчивающихся на 2, 3, 4
' добавляем "копеек"
   Case 2, 3, 4
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копейки"
' Для чисел, оканчивающихся на 5, 6, 7, 8,
' 9, 0 добавляем "копеек"
   Case Else
       СуммаПрописьюГривны = СуммаПрописьюГривны + "копеек"
   End Select
End If
End Function
'
' функция возвращает число прописью
'
Function ЧислоПрописью(Число, Optional МужскойРод = Истина)
' Присвоение значений массиву частей
Часть(1) = "оди":       Часть(2) = "два"
Часть(3) = "три":       Часть(4) = "четыр"
Часть(5) = "пят":       Часть(6) = "шест"
Часть(7) = "сем":       Часть(8) = "восем"
Часть(9) = "девят":     Часть(10) = "н"
Часть(11) = "е":        Часть(12) = "ь"
Часть(13) = "надцать":  Часть(14) = "дцать"
Часть(15) = "сорок":    Часть(16) = "девяно"
Часть(17) = "сто":      Часть(18) = "две"
Часть(19) = "сти":      Часть(20) = "сот"
Часть(21) = "одна":     Часть(22) = "тысяч"
Часть(23) = "а":        Часть(24) = "и"
Часть(25) = "миллион":  Часть(26) = "ов"
Часть(27) = " ":        Часть(28) = "":
Часть(29) = "десят":    Часть(30) = "ста"
Часть(31) = "миллиард": Часть(32) = "ноль "
' Временные переменные вначале сбрасываются
Тысячи = Ложь:      Миллионы = Ложь
Миллиарды = Ложь:   ВторойДесяток = Ложь
' Отбрасываем дробную часть, если она есть
Число = Fix(Число)
' Определяем длину исходного числа
Длина = Len(Число)
' Цикл по всем цифрам числа, начиная с крайней
' левой до крайней правой
For Позиция = Длина To 1 Step -1
' Добавляются очередные слова, описывающие
' текущую цифру
  ЧислоПрописью = ЧислоПрописью + _
                  ЦифраСтрокой(Mid(Число, _
                  Длина - Позиция + 1, 1), _
                  Позиция, МужскойРод)
Next Позиция
' Алгоритм возвращает пустую строку при
' нулевом аргументе. Исправим это
If ЧислоПрописью = "" Then
  ЧислоПрописью = Часть(32)
End If
End Function
'
' Составление слов из частей по очередной
' цифре числа и по предистории работы
'
' Функция доступна только в текущем модуле
'
Private Function ЦифраСтрокой(Цифра, Место, Род) As String
' Если сотни или десятки миллиардов, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = 11) Or _
   (Место = 12)) Then
  Миллиарды = Истина
End If
' Если сотни или десятки миллионов, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = 8) Or _
   (Место = 9)) Then
  Миллионы = Истина
End If
' Если сотни или десятки тысяч, то
' запомнить об этом для будущего
If (Цифра <> 0) And ((Место = 5) Or _
   (Место = 6)) Then
  Тысячи = Истина
End If
' Если предыдущая цифра была единица
' в пеле десятков, то выбираем
If ВторойДесяток Then
  Select Case Цифра
' пишем "десять "
  Case 0
    ЦифраСтрокой = Часть(29) + Часть(12) + _
                   Часть(27)
' пишем "двенадцать "
  Case 2
    ЦифраСтрокой = Часть(18) + Часть(13) + _
                   Часть(27)
' в остальных случаях пишем название цифры
' плюс "надцать "
  Case Else
    ЦифраСтрокой = Часть(Цифра) + Часть(13) + _
                   Часть(27)
  End Select
' Добавляем название разрядов
  Select Case Место
  Case 4
' добавляем "тысяч "
    ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                   Часть(27)
' добавляем "миллионов "
  Case 7
    ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                   Часть(26) + Часть(27)
' добавляем "миллиардов "
  Case 10
    ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                   Часть(26) + Часть(27)
  End Select
' Сбрасываем значения, так как переходим к
' предыдущим разрядам
 ВторойДесяток = Ложь:    Миллионы = Ложь
 Миллиарды = Ложь:        Тысячи = Ложь
' Во всех остальных случаях, то есть
' не для описания чисел второго десятка
Else
' Определяем название десятков
  If (Место = 2) Or (Место = 5) Or _
       (Место = 8) Or (Место = 11) Then
    Select Case Цифра
' Запоминаем про второй десяток для
' подстановки при следующем входе
    Case 1
      ВторойДесяток = Истина
' пишем "двадцать" или "тридцать"
    Case 2, 3
      ЦифраСтрокой = Часть(Цифра) + Часть(14) + _
                     Часть(27)
' пишем "сорок "
    Case 4
      ЦифраСтрокой = Часть(15) + Часть(27)
' пишем "девяносто "
    Case 9
      ЦифраСтрокой = Часть(16) + Часть(17) + _
                     Часть(27)
' в остальных случаях пишем название цифры
' плюс "десят "
    Case 5, 6, 7, 8
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(29) + Часть(27)
    End Select
  End If
' Определяем названия сотен
  If (Место = 3) Or (Место = 6) Or _
       (Место = 9) Or (Место = 12) Then
    Select Case Цифра
' пишем "сто "
    Case 1
      ЦифраСтрокой = Часть(17) + Часть(27)
' пишем "двести "
    Case 2
      ЦифраСтрокой = Часть(18) + Часть(19) + _
                     Часть(27)
' пишем "триста "
    Case 3
      ЦифраСтрокой = Часть(3) + Часть(30) + _
                     Часть(27)
' пишем "четыреста "
    Case 4
      ЦифраСтрокой = Часть(4) + Часть(11) + _
                     Часть(30) + Часть(27)
' в остальных случаях пишем название цифры
' плюс "сот "
    Case 5, 6, 7, 8, 9
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(20) + Часть(27)
    End Select
  End If
' Определяем названия единиц
  If (Место = 1) Or (Место = 4) Or _
       (Место = 7) Or (Место = 10) Then
    Select Case Цифра
' пишем "один " или "одна "
    Case 1
      If (Род) Then
         ЦифраСтрокой = Часть(1) + Часть(10) + _
                     Часть(27)
      Else
         ЦифраСтрокой = Часть(21) + Часть(27)
      End If
' пишем "два " или "две "
    Case 2
      If (Род) Then
         ЦифраСтрокой = Часть(Цифра) + Часть(27)
      Else
         ЦифраСтрокой = Часть(18) + Часть(27)
      End If
' пишем "три "
    Case 3
      ЦифраСтрокой = Часть(Цифра) + Часть(27)
' пишем "четыре "
    Case 4
      ЦифраСтрокой = Часть(4) + Часть(11) + _
                     Часть(27)
' в остальных случаях пишем название цифры
    Case 5, 6, 7, 8, 9
      ЦифраСтрокой = Часть(Цифра) + Часть(12) + _
                     Часть(27)
    End Select
' Определяем названия тысяч
    If Место = 4 Then
      Select Case Цифра
' пишем "тысяч " только в том случае, если
' хотя бы в одном разряде тысяч есть не нулевое
' значение
      Case 0
        If Тысячи Then
          ЦифраСтрокой = Часть(22) + Часть(27)
        End If
' пишем "одна тысяча "
      Case 1
        ЦифраСтрокой = Часть(21) + Часть(27) + _
               Часть(22) + Часть(23) + Часть(27)
' пишем "две тысячи "
      Case 2
        ЦифраСтрокой = Часть(18) + Часть(27) + _
               Часть(22) + Часть(24) + Часть(27)
' добавляем "тысячи "
      Case 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                       Часть(24) + Часть(27)
' в остальных случаях добавляем "тысяч "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(22) + _
                       Часть(27)
      End Select
' Сбрасываем значения тысяч, так как
' переходим к предыдущим разрядам
      Тысячи = Ложь
    End If
' Определяем названия миллионов
    If Место = 7 Then
      Select Case Цифра
' пишем "миллионов " только в том случае,
' если хотя бы в одном разряде миллионов
' есть не нулевое значение
      Case 0
        If Миллионы Then
          ЦифраСтрокой = Часть(25) + Часть(26) + _
                         Часть(27)
        End If
' добавляем "миллион "
      Case 1
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(27)
' добавляем "миллиона "
      Case 2, 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(23) + Часть(27)
' добавляем "миллионов "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(25) + _
                       Часть(26) + Часть(27)
      End Select
' Сбрасываем значения миллионов, так как
' переходим к предыдущим разрядам
      Миллионы = Ложь
    End If
' Определяем названия миллиардов
    If Место = 10 Then
      Select Case Цифра
' пишем "миллиардов " только в том случае,
' если хотя бы в одном разряде миллиардов
' есть не нулевое значение
      Case 0
        If Миллиарды Then
          ЦифраСтрокой = Часть(31) + Часть(26) + _
                         Часть(27)
        End If
' добавляем "миллиард "
      Case 1
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(27)
' добавляем "миллиарда "
      Case 2, 3, 4
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(23) + Часть(27)
' добавляем "миллиардов "
      Case 5, 6, 7, 8, 9
        ЦифраСтрокой = ЦифраСтрокой + Часть(31) + _
                       Часть(26) + Часть(27)
      End Select
' Сбрасываем значения миллиардов, так как
' переходим к предыдущим разрядам
      Миллиарды = Ложь
    End If
  End If
End If
End Function
Не обновляются автоматически данные при стандартной формуле Эксель 2003, Проблема в следующем
 
спасибо помогло
Не обновляются автоматически данные при стандартной формуле Эксель 2003, Проблема в следующем
 
Когда открываю два файла  все работает, а можно ли сделать так чтобы файл 1 брал информацию с закрытого файла 2 или только когда они открыты?
Не обновляются автоматически данные при стандартной формуле Эксель 2003, Проблема в следующем
 
Нажимаю F9 не помогает
Не обновляются автоматически данные при стандартной формуле Эксель 2003, Проблема в следующем
 
Значение ячейки А1 в файле 1  зависит от значения ячейки В2 в файле 2 с помощью такой формулы
(=СУММПРОИЗВ((I18='\\Rezerv\D\Прайс\[Общий прайс.xls]Профнастил'!$B$206:$B$343)*'\\Rezerv\D\Прайс\[Общий прайс.xls]Профнастил'!$L$206:$L$343),
когда  кликнуть 2 раза по ячейке А1 и нажать на Enter оно обновляется на новое значение, а без ручного клацания не могу решить проблему.

Примечание:
Сервис - Параметры - Вычисления - стоит Автоматически (Но все равно не работает).
Может можно включить где то автоматические обновление всех формул на листе. Подскажите, как можно решить данную проблему.
Текст со столбца в строку
 
Специальная вставка - транспонировать
Нашел
Текст со столбца в строку
 
Надо перекинуть большой кусок текста со столбца в строку, киньте пож. формулу. Спасибо
Условное форматирование
 
то что надо. СПАСИБО. дальше сам
Условное форматирование
 
Если курс от заданого уменьшается на 2% или увеличивается на 2% тогда необходимо чтобы появлялась надпись красным "ПОМЕНЯТЬ КУРС"
Привязать диапазон к странице. Макрос.
 
У меня постоянно выдает ошибку в макросе WWW в строчке  
.Range("d5", [d106].End(xlUp)).AutoFilter 1, "<>0", xlAnd, "<>", 0
посмотрите пожалуйста
Привязать диапазон к странице. Макрос.
 
Спасибо
Привязать диапазон к странице. Макрос.
 
Sub www()  
ActiveSheet.AutoFilterMode = 0  
Range("d4", [d106].End(xlUp)).AutoFilter 1, "<>0", xlAnd, "<>", 0
End Sub  
 
как диапазон "d4", [d106] привязать к странице Бланк заказа ?
ДВССЫЛ(G$15&"_2") в формуле раскрывающегося списка?
 
смотрите вложение
Поиск позиции значения
 
{quote}{login=V}{date=07.02.2012 01:54}{thema=}{post}"ПЕРВАЯ ФОРМУЛА ВЫДАЕТ ОШИБКУ" - работает!!!  
там же написано формула массива для ввода ctrl+shift+enter{/post}{/quote}  
 
ССОРИ. Спасибо большое
Поиск позиции значения
 
{quote}{login=vikttur}{date=07.02.2012 01:43}{thema=}{post}Формула массива:  
=ИНДЕКС(B2:B7;МАКС(ЕСЛИ(D2:I7=D12;СТРОКА(2:7)-1)))  
 
Можно в доп. столбце определять строку с искомым числом, например  
=СЧЁТЕСЛИ(D2:I2;$D$12)  
Тогда формула проще:  
=ВПР(1;A2:B7;2;0){/post}{/quote}  
 
ПЕРВАЯ ФОРМУЛА ВЫДАЕТ ОШИБКУ, а вторая как вариант не плохо!
Поиск позиции значения
 
смотрите вложение
выбор максимального результата по двум критериям
 
да спасибо
выбор максимального результата по двум критериям
 
{quote}{login=ikki}{date=01.02.2012 06:37}{thema=}{post}формула массива  
но для 50000 дает ошибку.  
а кстати, что должно получиться для 50000?{/post}{/quote}  
 
там максимум 20000
выбор максимального результата по двум критериям
 
пытался через надстройку - поиск решений, не получилось
выбор максимального результата по двум критериям
 
если вбиваю В4 - вбиваю 2500 и меньше или В14 - вбиваю меньше 4 то выбивает #Н/Д есть ли другой вариант?
выбор максимального результата по двум критериям
 
Выбор по двум критериям - количество палет и вес,    
чего больше такая цена и определяется.  
не могу найти ответа, смотрите вложение
Как преобразовать в excel число вида -1.43602E+03 в -1436.02? То есть убрать E+ или E-
 
{quote}{login=Andrusha}{date=31.01.2012 06:30}{thema=Как преобразовать в excel число вида  -1.43602E+03 в -1436.02? То есть убрать E+ или E-}{post}Как преобразовать в excel число вида  -1.43602E+03 в -1436.02? То есть убрать E+ или E-{/post}{/quote}  
 
правой кнопкой мыши по ячейке - формат ячейки - выбираете числовой формат - ок.  
все готово
Страницы: 1 2 3 След.
Наверх