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

Вход

Регистрация

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

 

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

Результаты поиска
krosav4ig Дата: Суббота, 08.04.2017, 14:41 | Сообщение № 901 | Тема: Сумма за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у меня массивная 189


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеу меня массивная 189

Автор - krosav4ig
Дата добавления - 08.04.2017 в 14:41
krosav4ig Дата: Суббота, 08.04.2017, 08:26 | Сообщение № 902 | Тема: Сумма в зависимости от периодов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Leojse, почему
Декабрь=200,6/31*17
, если
с 03 марта 2016 по 15 декабря 2016

Хорошая задачка для МШ!

yes


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

Сообщение отредактировал krosav4ig - Суббота, 08.04.2017, 08:29
 
Ответить
СообщениеLeojse, почему
Декабрь=200,6/31*17
, если
с 03 марта 2016 по 15 декабря 2016

Хорошая задачка для МШ!

yes

Автор - krosav4ig
Дата добавления - 08.04.2017 в 08:26
krosav4ig Дата: Суббота, 08.04.2017, 04:13 | Сообщение № 903 | Тема: Выборка данных из базы данных по критериям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант с ODBC подключением
таблица автоматически обновляется при изменении ячейки М2, или ПКМ по таблице>Обновить
текст запроса[vba]
Код
SELECT top 10 Материал1 AS Наименование, Материал AS PLU, `Списание без НДС (Итог) (руб)` AS [Потери, руб],  cdbl(replace(0&`Списание  без НДС  (Итог) (%)`,' %',''))/100 AS [Потери от реализации, %] FROM `Лист1$` WHERE (Материал1<>'Результат') AND (Товиерур2=?) ORDER BY `Списание без НДС (Итог) (руб)` DESC
[/vba]
плюс макрос для обновления строки подключения
в модуле Лист [vba]
Код
Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.Connection = "ODBC;DSN=Excel Files;DriverId=1046;DBQ=" & ThisWorkbook.FullName
End Sub
[/vba]в ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub
[/vba]
К сообщению приложен файл: 6049255.xlsm (36.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант с ODBC подключением
таблица автоматически обновляется при изменении ячейки М2, или ПКМ по таблице>Обновить
текст запроса[vba]
Код
SELECT top 10 Материал1 AS Наименование, Материал AS PLU, `Списание без НДС (Итог) (руб)` AS [Потери, руб],  cdbl(replace(0&`Списание  без НДС  (Итог) (%)`,' %',''))/100 AS [Потери от реализации, %] FROM `Лист1$` WHERE (Материал1<>'Результат') AND (Товиерур2=?) ORDER BY `Списание без НДС (Итог) (руб)` DESC
[/vba]
плюс макрос для обновления строки подключения
в модуле Лист [vba]
Код
Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.Connection = "ODBC;DSN=Excel Files;DriverId=1046;DBQ=" & ThisWorkbook.FullName
End Sub
[/vba]в ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 08.04.2017 в 04:13
krosav4ig Дата: Четверг, 06.04.2017, 21:38 | Сообщение № 904 | Тема: Не получается создать макрос для сортировки информации
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант с OLEDB подключением
текст запроса [vba]
Код
select f1 as ID, max(iif(f2=2,f3,null)) as Имя, max(iif(f2=5,f3,null)) as Телефон, max(iif(f2=6,f3,null)) as Skype  FROM `Лист1$` where f1 is not null group by f1
[/vba]
плюс макрос для обновления строки подключения
в модуле Лист1[vba]
Код
Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.Connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended " & _
    "Properties=""excel 12.0 macro;HDR=no"";Data Source=" & ThisWorkbook.FullName
End Sub
[/vba]в ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub
[/vba]
К сообщению приложен файл: 3736334.xls (41.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант с OLEDB подключением
текст запроса [vba]
Код
select f1 as ID, max(iif(f2=2,f3,null)) as Имя, max(iif(f2=5,f3,null)) as Телефон, max(iif(f2=6,f3,null)) as Skype  FROM `Лист1$` where f1 is not null group by f1
[/vba]
плюс макрос для обновления строки подключения
в модуле Лист1[vba]
Код
Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.Connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Extended " & _
    "Properties=""excel 12.0 macro;HDR=no"";Data Source=" & ThisWorkbook.FullName
End Sub
[/vba]в ЭтаКнига[vba]
Код
Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 06.04.2017 в 21:38
krosav4ig Дата: Среда, 05.04.2017, 15:52 | Сообщение № 905 | Тема: Добавление формулы в ячейке с имеющимся значением в ней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. Как-то так. Ошибка была из-за десятичного разделителя. [vba]
Код
Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .FormulaLocal = "=" & CDbl(.Value) & "*src!A1"
        End With
    Next
End Sub
[/vba]или так[vba]
Код
Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .Formula = "=" & .Formula & "*src!A1"
        End With
    Next
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Среда, 05.04.2017, 16:00
 
Ответить
СообщениеЗдравствуйте. Как-то так. Ошибка была из-за десятичного разделителя. [vba]
Код
Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .FormulaLocal = "=" & CDbl(.Value) & "*src!A1"
        End With
    Next
End Sub
[/vba]или так[vba]
Код
Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .Formula = "=" & .Formula & "*src!A1"
        End With
    Next
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 05.04.2017 в 15:52
krosav4ig Дата: Вторник, 04.04.2017, 17:39 | Сообщение № 906 | Тема: Сравнение каждой с каждой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
И вам зарастите
объяснение


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеИ вам зарастите
объяснение

Автор - krosav4ig
Дата добавления - 04.04.2017 в 17:39
krosav4ig Дата: Вторник, 04.04.2017, 17:14 | Сообщение № 907 | Тема: Переход на первую строку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а вдруг?
[vba]
Код
Application.Goto ActiveSheet.UsedRange.Cells(1), 1
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа вдруг?
[vba]
Код
Application.Goto ActiveSheet.UsedRange.Cells(1), 1
[/vba]

Автор - krosav4ig
Дата добавления - 04.04.2017 в 17:14
krosav4ig Дата: Пятница, 31.03.2017, 16:59 | Сообщение № 908 | Тема: Заполнить индекс, соответствующий адресу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как Вы это сделали формулой?
Ekka, вот тут почитайте


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
как Вы это сделали формулой?
Ekka, вот тут почитайте

Автор - krosav4ig
Дата добавления - 31.03.2017 в 16:59
krosav4ig Дата: Пятница, 31.03.2017, 16:51 | Сообщение № 909 | Тема: Заполнить индекс, соответствующий адресу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Индекс Улица Дом
600000 Ленина 3
100000 Кирова 6
400000 Путина 7
? Кирова 6
? Путина 7
? Ленина 3

пожалуйста
К сообщению приложен файл: 6853251.png (28.0 Kb)


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

Сообщение отредактировал krosav4ig - Пятница, 31.03.2017, 16:57
 
Ответить
СообщениеИндекс Улица Дом
600000 Ленина 3
100000 Кирова 6
400000 Путина 7
? Кирова 6
? Путина 7
? Ленина 3

пожалуйста

Автор - krosav4ig
Дата добавления - 31.03.2017 в 16:51
krosav4ig Дата: Воскресенье, 26.03.2017, 14:34 | Сообщение № 910 | Тема: Стиль для заголовков с автонумерацией
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для автоматической нумерации заголовков достаточно выбрать соответствующий список многоуровневой нумерации


К сообщению приложен файл: 6148910.gif (19.3 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля автоматической нумерации заголовков достаточно выбрать соответствующий список многоуровневой нумерации



Автор - krosav4ig
Дата добавления - 26.03.2017 в 14:34
krosav4ig Дата: Суббота, 25.03.2017, 22:06 | Сообщение № 911 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Я, к сожалению, не столь продвинут в этой области

А вот не надо на себя наговаривать :)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Я, к сожалению, не столь продвинут в этой области

А вот не надо на себя наговаривать :)

Автор - krosav4ig
Дата добавления - 25.03.2017 в 22:06
krosav4ig Дата: Воскресенье, 12.03.2017, 17:55 | Сообщение № 912 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Спасибо вам огромное за поздравления! cake wine


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеСпасибо вам огромное за поздравления! cake wine

Автор - krosav4ig
Дата добавления - 12.03.2017 в 17:55
krosav4ig Дата: Пятница, 10.03.2017, 03:23 | Сообщение № 913 | Тема: Плавное увеличение автофигуры по щелчку.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. Как-то так можно
[vba]
Код
Sub ShapeUp()
    Dim i#, j#: j = 1
    With ActiveSheet.Shapes(1)
        .LockAspectRatio = 1
        For i = 1 To 2 Step 1 / 400
            .ScaleHeight i / j, 0, 0
            j = i: DoEvents
        Next
    End With
End Sub
Sub ShapeDown()
    Dim i#, j#: j = 1
    With ActiveSheet.Shapes(1)
        .LockAspectRatio = 1
        For i = 1 To 2 Step 1 / 400
            .ScaleHeight j / i, 0, 0
            j = i: DoEvents
        Next
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте. Как-то так можно
[vba]
Код
Sub ShapeUp()
    Dim i#, j#: j = 1
    With ActiveSheet.Shapes(1)
        .LockAspectRatio = 1
        For i = 1 To 2 Step 1 / 400
            .ScaleHeight i / j, 0, 0
            j = i: DoEvents
        Next
    End With
End Sub
Sub ShapeDown()
    Dim i#, j#: j = 1
    With ActiveSheet.Shapes(1)
        .LockAspectRatio = 1
        For i = 1 To 2 Step 1 / 400
            .ScaleHeight j / i, 0, 0
            j = i: DoEvents
        Next
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 10.03.2017 в 03:23
krosav4ig Дата: Вторник, 07.03.2017, 12:11 | Сообщение № 914 | Тема: С праздником 8-го марта!
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
С наступающим 8 марта милые дамы! От чистого сердца желаю вам счастья, любви, благополучия. Пусть пополнится ваш дом очередным букетом цветов. Пусть не хватает полочек для подарков
К сообщению приложен файл: 5980923.jpg (53.1 Kb)


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

Сообщение отредактировал krosav4ig - Вторник, 07.03.2017, 23:47
 
Ответить
СообщениеС наступающим 8 марта милые дамы! От чистого сердца желаю вам счастья, любви, благополучия. Пусть пополнится ваш дом очередным букетом цветов. Пусть не хватает полочек для подарков

Автор - krosav4ig
Дата добавления - 07.03.2017 в 12:11
krosav4ig Дата: Понедельник, 06.03.2017, 06:02 | Сообщение № 915 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
RAN, Попробуйте вот так[vba]
Код
// ==UserScript==
// @name New Script
// @namespace Violentmonkey Scripts
// @grant GM_addStyle
// @include http://www.excelworld.ru/*
// ==/UserScript==
window.addEventListener("load", function(){this.$('.uscl-slide-close').click();GM_addStyle(".uscl-slide-open{left:auto!important;right:2px;top:2px!important;}")},false)
[/vba]или так[vba]
Код
// ==UserScript==
// @name New Script
// @namespace Violentmonkey Scripts
// @require http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js
// @grant GM_addStyle
// @include http://www.excelworld.ru/*
// ==/UserScript==
window.addEventListener("load", function(){window.$('.uscl-slide-close').click();GM_addStyle(".uscl-slide-open{left:auto!important;right:2px;top:2px!important;}")},false)
[/vba]


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

Сообщение отредактировал krosav4ig - Понедельник, 06.03.2017, 06:26
 
Ответить
СообщениеRAN, Попробуйте вот так[vba]
Код
// ==UserScript==
// @name New Script
// @namespace Violentmonkey Scripts
// @grant GM_addStyle
// @include http://www.excelworld.ru/*
// ==/UserScript==
window.addEventListener("load", function(){this.$('.uscl-slide-close').click();GM_addStyle(".uscl-slide-open{left:auto!important;right:2px;top:2px!important;}")},false)
[/vba]или так[vba]
Код
// ==UserScript==
// @name New Script
// @namespace Violentmonkey Scripts
// @require http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js
// @grant GM_addStyle
// @include http://www.excelworld.ru/*
// ==/UserScript==
window.addEventListener("load", function(){window.$('.uscl-slide-close').click();GM_addStyle(".uscl-slide-open{left:auto!important;right:2px;top:2px!important;}")},false)
[/vba]

Автор - krosav4ig
Дата добавления - 06.03.2017 в 06:02
krosav4ig Дата: Суббота, 04.03.2017, 05:46 | Сообщение № 916 | Тема: Разъединение файла на n-е количество по столбцу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант [vba]
Код
Sub d()
    Dim sh As Worksheet, rng As Range
    ActiveSheet.Copy
    With ActiveWorkbook
        Set sh = .Sheets(1)
        On Error Resume Next
        Do Until Err
            Set rng = sh.[b2].Resize(sh.Rows.Count - 1).ColumnDifferences(sh.[b2])
            If Err = 0 Then Sheets.Add , sh
            sh.[1:1].Copy sh.Next.[1:1]: rng.EntireRow.Cut sh.Next.[A2]
            sh.[1:1].Copy: sh.Next.[1:1].PasteSpecial (xlPasteColumnWidths)
            sh.SaveAs "D:\папка\" & sh.[b2] & ".xlsx": Set sh = sh.Next
        Loop
        .Close False
    End With
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Суббота, 04.03.2017, 05:48
 
Ответить
Сообщениееще вариант [vba]
Код
Sub d()
    Dim sh As Worksheet, rng As Range
    ActiveSheet.Copy
    With ActiveWorkbook
        Set sh = .Sheets(1)
        On Error Resume Next
        Do Until Err
            Set rng = sh.[b2].Resize(sh.Rows.Count - 1).ColumnDifferences(sh.[b2])
            If Err = 0 Then Sheets.Add , sh
            sh.[1:1].Copy sh.Next.[1:1]: rng.EntireRow.Cut sh.Next.[A2]
            sh.[1:1].Copy: sh.Next.[1:1].PasteSpecial (xlPasteColumnWidths)
            sh.SaveAs "D:\папка\" & sh.[b2] & ".xlsx": Set sh = sh.Next
        Loop
        .Close False
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 04.03.2017 в 05:46
krosav4ig Дата: Пятница, 03.03.2017, 23:39 | Сообщение № 917 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а я себе ужо CusomJS для Firefox написал (для дополнения Custom Style Script)[vba]
Код
window.addEventListener("load", function() {$('.uscl-slide-close').click();$('.uscl-slide-open').css({'left':'auto','right':'2px','top':'2px'})}, false)
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа я себе ужо CusomJS для Firefox написал (для дополнения Custom Style Script)[vba]
Код
window.addEventListener("load", function() {$('.uscl-slide-close').click();$('.uscl-slide-open').css({'left':'auto','right':'2px','top':'2px'})}, false)
[/vba]

Автор - krosav4ig
Дата добавления - 03.03.2017 в 23:39
krosav4ig Дата: Пятница, 03.03.2017, 16:45 | Сообщение № 918 | Тема: неполадки с ячейками формата ДАТА
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
может быть проверка данных?
а вообще, чтоб долго не гадать, дайте файл
тыц, еси чо


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможет быть проверка данных?
а вообще, чтоб долго не гадать, дайте файл
тыц, еси чо

Автор - krosav4ig
Дата добавления - 03.03.2017 в 16:45
krosav4ig Дата: Пятница, 03.03.2017, 15:39 | Сообщение № 919 | Тема: Сводные таблицы с текстовым форматом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
там еще у вас неразрывный пробел, его туже нужно заменить
очистить поля Найти и Заменить на, в поле Найти нажать Alt+255, Заменить все
или макрос
[vba]
Код
Sub dd()
    For Each v In Array("-", chr(160)," ", "м."): Selection.Replace v, "", 2: Next
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Пятница, 03.03.2017, 16:15
 
Ответить
Сообщениетам еще у вас неразрывный пробел, его туже нужно заменить
очистить поля Найти и Заменить на, в поле Найти нажать Alt+255, Заменить все
или макрос
[vba]
Код
Sub dd()
    For Each v In Array("-", chr(160)," ", "м."): Selection.Replace v, "", 2: Next
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 03.03.2017 в 15:39
krosav4ig Дата: Пятница, 03.03.2017, 15:10 | Сообщение № 920 | Тема: Получить все комбинации из m по n
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вот тут было

ага, тама в самом конце есть ссылочка интересная, по ней есть формульные решения и для перестановок, и для пересечений, и для комбинаций


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

Сообщение отредактировал krosav4ig - Пятница, 03.03.2017, 15:11
 
Ответить
Сообщение
вот тут было

ага, тама в самом конце есть ссылочка интересная, по ней есть формульные решения и для перестановок, и для пересечений, и для комбинаций

Автор - krosav4ig
Дата добавления - 03.03.2017 в 15:10
Поиск:

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