Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Четверг, 27.02.2020, 19:07 | Сообщение № 121 | Тема: Макрос вставки изображения по условию, изменения его размера
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
на ленте Разработчик->Режим конструктора
ПКМ по activex контролу -> Свойства
установить необходимые свойства, убедиться что имя контрола в свойствах совпадает с именем, прописанном в макросе, добавить имя в диспетчер имен и использовать его в проверке данных


UPD.
Если объект невидим, то его можно выделить через Alt+F10
К сообщению приложен файл: 2946716.png (127.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 27.02.2020, 19:38
 
Ответить
Сообщениена ленте Разработчик->Режим конструктора
ПКМ по activex контролу -> Свойства
установить необходимые свойства, убедиться что имя контрола в свойствах совпадает с именем, прописанном в макросе, добавить имя в диспетчер имен и использовать его в проверке данных


UPD.
Если объект невидим, то его можно выделить через Alt+F10
Автор - krosav4ig
Дата добавления - 27.02.2020 в 19:07
krosav4ig Дата: Четверг, 27.02.2020, 13:14 | Сообщение № 122 | Тема: Макрос вставки изображения по условию, изменения его размера
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
да, забыл свойства контрола поменять
установил BackStyle = Transparent
BorderStyle = None
PictureAlignment = TopLeft
PictureSizimgMode = zoom

перезалил файл

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеда, забыл свойства контрола поменять
установил BackStyle = Transparent
BorderStyle = None
PictureAlignment = TopLeft
PictureSizimgMode = zoom

перезалил файл
Автор - krosav4ig
Дата добавления - 27.02.2020 в 13:14
krosav4ig Дата: Четверг, 27.02.2020, 12:35 | Сообщение № 123 | Тема: Объединение одинаковых строк с сохранением текста столбца
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант через Power Query
[vba]
Код
let
    Source =
        Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Grouped =
        Table.Group(
            Source,
            List.RemoveMatchingItems(
                Table.ColumnNames(Source),
                {"picture"}
            ),
            {
                {
                 "picture",
                 each Text.Combine(_[picture],", "),
                 type text
                }
            }
        )
in
    Grouped
[/vba]
К сообщению приложен файл: 3901639.xlsx (26.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант через Power Query
[vba]
Код
let
    Source =
        Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Grouped =
        Table.Group(
            Source,
            List.RemoveMatchingItems(
                Table.ColumnNames(Source),
                {"picture"}
            ),
            {
                {
                 "picture",
                 each Text.Combine(_[picture],", "),
                 type text
                }
            }
        )
in
    Grouped
[/vba]
Автор - krosav4ig
Дата добавления - 27.02.2020 в 12:35
krosav4ig Дата: Четверг, 27.02.2020, 12:13 | Сообщение № 124 | Тема: Макрос вставки изображения по условию, изменения его размера
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант с ActiveX image и UDF для проверки данных
[vba]
Код
Function xx() As Range
    With [Z2].Resize(9)
        .Value = [transpose(transpose(Text(Row(R1:R9),"ТО 000")))]
        Set xx = .Cells
    End With
    On Error Resume Next
    Dim sFolder: sFolder = ThisWorkbook.Path & "\Photo\"
    With Application.Caller
        .Parent.OLEObjects("Image1").Object.Picture = LoadPicture(sFolder & .Value & ".jpg")
    End With
End Function
[/vba]
К сообщению приложен файл: 4462230.xlsm (23.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 27.02.2020, 13:14
 
Ответить
СообщениеВариант с ActiveX image и UDF для проверки данных
[vba]
Код
Function xx() As Range
    With [Z2].Resize(9)
        .Value = [transpose(transpose(Text(Row(R1:R9),"ТО 000")))]
        Set xx = .Cells
    End With
    On Error Resume Next
    Dim sFolder: sFolder = ThisWorkbook.Path & "\Photo\"
    With Application.Caller
        .Parent.OLEObjects("Image1").Object.Picture = LoadPicture(sFolder & .Value & ".jpg")
    End With
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 27.02.2020 в 12:13
krosav4ig Дата: Четверг, 27.02.2020, 01:37 | Сообщение № 125 | Тема: Копирование на другой лист без переключения листов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как-то так [vba]
Код
Sub zzzz()
    Dim OldWeek As Worksheet, NewWeek As Worksheet
    Dim i As Long, Rng1 As Range, Rng2 As Range

    Set NewWeek = Sheets("New")
    Set OldWeek = Sheets("Old")

    ks = 2 ' интервал
    k1 = 1 ' столбец старта, откуда начинаем
    k2 = 5 ' кол-во вставок
    k3 = ks * k2 + k1
    y = 0
    
    For i = k1 + ks - 1 To k3 Step ks
        With NewWeek
            With .Range(.Cells(1, i - 1), .Cells(43, i - 1))
                .Copy
                OldWeek.Range(.Address).Offset(, 1).PasteSpecial
            End With
        End With
    Next i
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак-то так [vba]
Код
Sub zzzz()
    Dim OldWeek As Worksheet, NewWeek As Worksheet
    Dim i As Long, Rng1 As Range, Rng2 As Range

    Set NewWeek = Sheets("New")
    Set OldWeek = Sheets("Old")

    ks = 2 ' интервал
    k1 = 1 ' столбец старта, откуда начинаем
    k2 = 5 ' кол-во вставок
    k3 = ks * k2 + k1
    y = 0
    
    For i = k1 + ks - 1 To k3 Step ks
        With NewWeek
            With .Range(.Cells(1, i - 1), .Cells(43, i - 1))
                .Copy
                OldWeek.Range(.Address).Offset(, 1).PasteSpecial
            End With
        End With
    Next i
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 27.02.2020 в 01:37
krosav4ig Дата: Среда, 26.02.2020, 17:54 | Сообщение № 126 | Тема: Подсчёт уникальных значений из разных диапазонов по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
массивная формула
Код
=СУММ(ЕСЛИОШИБКА(1/МУМНОЖ(--(ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0)))=ТРАНСП(Т(+ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0))))));СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))^0);))
К сообщению приложен файл: 2091223.zip (47.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениемассивная формула
Код
=СУММ(ЕСЛИОШИБКА(1/МУМНОЖ(--(ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0)))=ТРАНСП(Т(+ИНДЕКС(ЕСЛИ(Лист1!$M$2:$M$25=O2;Лист1!$A$2:$L$25;);Ч(ИНДЕКС(ОСТАТ((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1);ЧСТРОК(Лист1!$A$2:$M$25))+1;0));Ч(ИНДЕКС(ОТБР((СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))-1)/ЧСТРОК(Лист1!$A$2:$M$25))+1;0))))));СТРОКА($A$1:ИНДЕКС(A:A;ЧСТРОК(Лист1!$A$2:$M$25)*(ЧИСЛСТОЛБ(Лист1!$A$2:$M$25)-1)))^0);))
Автор - krosav4ig
Дата добавления - 26.02.2020 в 17:54
krosav4ig Дата: Среда, 26.02.2020, 17:08 | Сообщение № 127 | Тема: Подсчёт уникальных значений из разных диапазонов по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант через Power Query + сводная таблица
[vba]
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Цвет1", type text}, {"Цвет2", type text}, {"Цвет3", type text}, {"Цвет4", type text}, {"Цвет5", type text}, {"Цвет6", type text}, {"Цвет7", type text}, {"Цвет8", type any}, {"Цвет9", type any}, {"Цвет10", type any}, {"Цвет11", type any}, {"Цвет12", type any}, {"Параметр1", Int64.Type}}),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Измененный тип", {"Параметр1"}, "Атрибут", "Значение")
in
    #"Другие столбцы с отмененным свертыванием"
[/vba]
К сообщению приложен файл: 4834178.zip (43.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант через Power Query + сводная таблица
[vba]
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Цвет1", type text}, {"Цвет2", type text}, {"Цвет3", type text}, {"Цвет4", type text}, {"Цвет5", type text}, {"Цвет6", type text}, {"Цвет7", type text}, {"Цвет8", type any}, {"Цвет9", type any}, {"Цвет10", type any}, {"Цвет11", type any}, {"Цвет12", type any}, {"Параметр1", Int64.Type}}),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Измененный тип", {"Параметр1"}, "Атрибут", "Значение")
in
    #"Другие столбцы с отмененным свертыванием"
[/vba]
Автор - krosav4ig
Дата добавления - 26.02.2020 в 17:08
krosav4ig Дата: Суббота, 15.02.2020, 15:48 | Сообщение № 128 | Тема: СУММА ПРОПИСЬЮ на русском языкe доллар США
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
формула массивная, вводится комбинацией Ctrl+Shift+Enter

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеформула массивная, вводится комбинацией Ctrl+Shift+Enter
Автор - krosav4ig
Дата добавления - 15.02.2020 в 15:48
krosav4ig Дата: Суббота, 15.02.2020, 15:22 | Сообщение № 129 | Тема: СУММА ПРОПИСЬЮ на русском языкe доллар США
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый день
Суммы и числа прописью
Код
=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"однаz";"двеz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;3);ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)-1);{0;"тысячz":1;"тысячаz":2;"тысячиz":5;"тысячz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");10;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00"));"";"Ноль ")&"доллар"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;2)-11;100);9);10);{0;" ":1;"а ":4;"ов "};2)&ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)&" цент"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)-11;100);9);10);{0;"":1;"а":4;"ов"};2)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 15.02.2020, 15:24
 
Ответить
СообщениеДобрый день
Суммы и числа прописью
Код
=ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"однаz";"двеz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;3);ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)-1);{0;"тысячz":1;"тысячаz":2;"тысячиz":5;"тысячz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");10;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00"));"";"Ноль ")&"доллар"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;2)-11;100);9);10);{0;" ":1;"а ":4;"ов "};2)&ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)&" цент"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)-11;100);9);10);{0;"":1;"а":4;"ов"};2)
Автор - krosav4ig
Дата добавления - 15.02.2020 в 15:22
krosav4ig Дата: Суббота, 18.01.2020, 07:50 | Сообщение № 130 | Тема: Excel самостоятельно генерирует разрывы страниц при экспорте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата sentinel113, 16.01.2020 в 15:43, в сообщении № 1 ()
Одна таблица на один лист.

Печатный или лист Excel?
Может проще будет разбросать таблицы по 1 на лист Excel и для каждого задать [vba]
Код
<x:FitHeight>1</x:FitHeight>
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата sentinel113, 16.01.2020 в 15:43, в сообщении № 1 ()
Одна таблица на один лист.

Печатный или лист Excel?
Может проще будет разбросать таблицы по 1 на лист Excel и для каждого задать [vba]
Код
<x:FitHeight>1</x:FitHeight>
[/vba]
Автор - krosav4ig
Дата добавления - 18.01.2020 в 07:50
krosav4ig Дата: Воскресенье, 12.01.2020, 23:52 | Сообщение № 131 | Тема: Сравнение двух массивов с подсчетом совпадений построчно
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый вечер
Для N8 массивная формула
Код
=СУММ(СЧЁТЕСЛИ(B8:G8;H8:M8))
К сообщению приложен файл: 14-14_.xlsx (11.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый вечер
Для N8 массивная формула
Код
=СУММ(СЧЁТЕСЛИ(B8:G8;H8:M8))
Автор - krosav4ig
Дата добавления - 12.01.2020 в 23:52
krosav4ig Дата: Среда, 01.01.2020, 13:55 | Сообщение № 132 | Тема: С Новым Годом!
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
С Новым Годом! Здоровья, счастья, успеха, благополучия!
К сообщению приложен файл: 3666607.jpg (91.7 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 01.01.2020, 13:56
 
Ответить
СообщениеС Новым Годом! Здоровья, счастья, успеха, благополучия!
Автор - krosav4ig
Дата добавления - 01.01.2020 в 13:55
krosav4ig Дата: Среда, 01.01.2020, 01:10 | Сообщение № 133 | Тема: Вычислить "математический" текст
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
хоть к excel это не имеет отношения, но, все же, если еще актуально
Nic70y, есть встроенная функция eval()
https://www.geeksforgeeks.org/eval-in-python/
https://towardsdatascience.com/python-....87db191
реализации алгоритма сортировочной станции
ну и https://habr.com/ru/post/273253/

С Новым Годом!

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениехоть к excel это не имеет отношения, но, все же, если еще актуально
Nic70y, есть встроенная функция eval()
https://www.geeksforgeeks.org/eval-in-python/
https://towardsdatascience.com/python-....87db191
реализации алгоритма сортировочной станции
ну и https://habr.com/ru/post/273253/

С Новым Годом!
Автор - krosav4ig
Дата добавления - 01.01.2020 в 01:10
krosav4ig Дата: Четверг, 12.12.2019, 22:32 | Сообщение № 134 | Тема: Генерация QR кода по данным из таблицы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Найти API, в котором это реализовано
Документация
Пример

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеНайти API, в котором это реализовано
Документация
Пример
Автор - krosav4ig
Дата добавления - 12.12.2019 в 22:32
krosav4ig Дата: Четверг, 12.12.2019, 20:54 | Сообщение № 135 | Тема: Доступ к сглаженному графику по точкам.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Игра "Угадай степень" :)
К сообщению приложен файл: 9626764.png (68.7 Kb) · 8366840.xlsm (78.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 12.12.2019, 21:05
 
Ответить
СообщениеИгра "Угадай степень" :)
Автор - krosav4ig
Дата добавления - 12.12.2019 в 20:54
krosav4ig Дата: Суббота, 07.12.2019, 23:25 | Сообщение № 136 | Тема: Создание ссылки на диаграмму
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще два варианта
  • VBA Rollover отрабатывает при наведении мыши на ячейку с гиперссылкой


  • именованные диапазоны в качестве источника для диаграммы, отрабатывает при выделении ячейки в соответствующей строки


    Цитата gling, 07.12.2019 в 22:04, в сообщении № 2 ()
    Если листа, против которого стоит выбор, нет, то диаграмма остается та, которую смотрели последней.

    можно это как-то так обойти
    Код
    =ДВССЫЛ(ЕСЛИОШИБКА(Т(Ч(ДВССЫЛ("'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!A1")))&"'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!$F$3:$M$17";"A1"))
    и скрыть 1 строку или столбец A
    • К сообщению приложен файл: 0984464.xlsm (62.7 Kb)

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

    Сообщение отредактировал krosav4ig - Воскресенье, 08.12.2019, 02:07
     
    Ответить
    Сообщениееще два варианта
  • VBA Rollover отрабатывает при наведении мыши на ячейку с гиперссылкой


  • именованные диапазоны в качестве источника для диаграммы, отрабатывает при выделении ячейки в соответствующей строки


    Цитата gling, 07.12.2019 в 22:04, в сообщении № 2 ()
    Если листа, против которого стоит выбор, нет, то диаграмма остается та, которую смотрели последней.

    можно это как-то так обойти
    Код
    =ДВССЫЛ(ЕСЛИОШИБКА(Т(Ч(ДВССЫЛ("'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!A1")))&"'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!$F$3:$M$17";"A1"))
    и скрыть 1 строку или столбец A
    • Автор - krosav4ig
    Дата добавления - 07.12.2019 в 23:25
    krosav4ig Дата: Суббота, 07.12.2019, 14:33 | Сообщение № 137 | Тема: Power Query - Formula.Firewall
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2348
    Репутация: 997 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    кросс

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщениекросс
    Автор - krosav4ig
    Дата добавления - 07.12.2019 в 14:33
    krosav4ig Дата: Четверг, 05.12.2019, 23:00 | Сообщение № 138 | Тема: Подсчет остатков склада и средней цены
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2348
    Репутация: 997 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    у меня как-то так получилось
    средняя по остаткам
    Код
    =ОКРУГЛВВЕРХ(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$2:D2)):ИНДЕКС(A:A;СУММ($A$1:A2)))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));2)

    средняя по продаже
    Код
    =ОКРУГЛВВЕРХ(ОТБР(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$1:D1)+1):ИНДЕКС(A:A;СУММ($D$1:D1)+D2))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));4);2)
    К сообщению приложен файл: 0581693.xls (30.5 Kb)

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщениеу меня как-то так получилось
    средняя по остаткам
    Код
    =ОКРУГЛВВЕРХ(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$2:D2)):ИНДЕКС(A:A;СУММ($A$1:A2)))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));2)

    средняя по продаже
    Код
    =ОКРУГЛВВЕРХ(ОТБР(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$1:D1)+1):ИНДЕКС(A:A;СУММ($D$1:D1)+D2))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));4);2)
    Автор - krosav4ig
    Дата добавления - 05.12.2019 в 23:00
    krosav4ig Дата: Понедельник, 02.12.2019, 12:16 | Сообщение № 139 | Тема: Габариты двух ящиков
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2348
    Репутация: 997 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Мои не до конца вычищенные формулы, все искал решение короче, а эти до ума не довел
    Код
    =ЛЕВБ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:8:4:0};{1;4:1;6:7;8}))-2;ПОВТОР("0000x";3));14)

    Код
    =ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:10:5:0};{1;4:1;6:7;8}))-2;ПОВТОР("x00000";3));"x000";"x");"x00";"x");"x0";"x");2;20)

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    СообщениеМои не до конца вычищенные формулы, все искал решение короче, а эти до ума не довел
    Код
    =ЛЕВБ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:8:4:0};{1;4:1;6:7;8}))-2;ПОВТОР("0000x";3));14)

    Код
    =ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:10:5:0};{1;4:1;6:7;8}))-2;ПОВТОР("x00000";3));"x000";"x");"x00";"x");"x0";"x");2;20)
    Автор - krosav4ig
    Дата добавления - 02.12.2019 в 12:16
    krosav4ig Дата: Суббота, 30.11.2019, 11:53 | Сообщение № 140 | Тема: Габариты двух ящиков
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2348
    Репутация: 997 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    однако, можно эту формулу в 3092 символа впихнуть

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщениеоднако, можно эту формулу в 3092 символа впихнуть
    Автор - krosav4ig
    Дата добавления - 30.11.2019 в 11:53
    Мир MS Excel » Записи участника » krosav4ig [2343]
    Поиск:

    Яндекс.Метрика Яндекс цитирования
    © 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!