Записи участника (krosav4ig)

Страница 46 из 118
«
1
2
…
44
45
46
47
48
…
117
118
»

Результаты поиска

krosav4ig

Дата: Суббота, 08.04.2017, 14:41 | Сообщение № 901 | Тема: Сумма за период

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

у меня массивная 189

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

Ответить

krosav4ig

Дата: Суббота, 08.04.2017, 08:26 | Сообщение № 902 | Тема: Сумма в зависимости от периодов

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Leojse, почему

Цитата Leojse, 07.04.2017 в 23:25, в сообщении № 4 ()

Декабрь=200,6/31*17

, если

Цитата Leojse, 07.04.2017 в 23:25, в сообщении № 4 ()

с 03 марта 2016 по 15 декабря 2016

Цитата ZORRO2005, 08.04.2017 в 00:36, в сообщении № 6 ()

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

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

Сообщение отредактировал krosav4ig - Суббота, 08.04.2017, 08:29

Ответить

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

Ответить

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

Ответить

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

Ответить

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: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

Ответить

krosav4ig

Дата: Пятница, 31.03.2017, 16:59 | Сообщение № 908 | Тема: Заполнить индекс, соответствующий адресу

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Ekka, 31.03.2017 в 16:54, в сообщении № 4 ()

как Вы это сделали формулой?

Ekka, вот тут почитайте

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

Ответить

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

Ответить

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

Дата: Суббота, 25.03.2017, 22:06 | Сообщение № 911 | Тема: Иконы соцсетей ???

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Alex_ST, 07.03.2017 в 08:59, в сообщении № 21 ()

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

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

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

Ответить

krosav4ig

Дата: Воскресенье, 12.03.2017, 17:55 | Сообщение № 912 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Спасибо вам огромное за поздравления! cake

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

Ответить

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

Ответить

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

Ответить

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

Ответить

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

Ответить

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

Ответить

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, 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

Ответить

krosav4ig

Дата: Пятница, 03.03.2017, 15:10 | Сообщение № 920 | Тема: Получить все комбинации из m по n

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата buchlotnik, 03.03.2017 в 14:50, в сообщении № 5 ()

вот тут было

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

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

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

Ответить

Страница 46 из 118
«
1
2
…
44
45
46
47
48
…
117
118
»