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

Страница 72 из 117
«
1
2
…
70
71
72
73
74
…
116
117
»

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

krosav4ig

Дата: Пятница, 03.03.2017, 16:45 | Сообщение № 1421 | Тема: неполадки с ячейками формата ДАТА

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

Дата: Пятница, 03.03.2017, 23:39 | Сообщение № 1422 | Тема: Иконы соцсетей ???

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

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

Сообщений: 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

Дата: Суббота, 04.03.2017, 05:46 | Сообщение № 1423 | Тема: Разъединение файла на 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

Дата: Понедельник, 06.03.2017, 06:02 | Сообщение № 1424 | Тема: Иконы соцсетей ???

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

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

Сообщений: 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

Дата: Вторник, 07.03.2017, 12:11 | Сообщение № 1425 | Тема: С праздником 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

Дата: Пятница, 10.03.2017, 03:23 | Сообщение № 1426 | Тема: Плавное увеличение автофигуры по щелчку.

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

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

Сообщений: 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

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

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

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

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

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

Сообщений: 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

Дата: Воскресенье, 26.03.2017, 14:34 | Сообщение № 1429 | Тема: Стиль для заголовков с автонумерацией

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

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

Ответить

krosav4ig

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

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

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

Сообщений: 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

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

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

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

Сообщений: 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

Дата: Вторник, 04.04.2017, 17:14 | Сообщение № 1432 | Тема: Переход на первую строку

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

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

Сообщений: 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

Дата: Вторник, 04.04.2017, 17:39 | Сообщение № 1433 | Тема: Сравнение каждой с каждой

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

И вам зарастите
объяснение

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

Ответить

krosav4ig

Дата: Среда, 05.04.2017, 15:52 | Сообщение № 1434 | Тема: Добавление формулы в ячейке с имеющимся значением в ней

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

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

Сообщений: 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

Дата: Четверг, 06.04.2017, 21:38 | Сообщение № 1435 | Тема: Не получается создать макрос для сортировки информации

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

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

Сообщений: 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

Дата: Суббота, 08.04.2017, 04:13 | Сообщение № 1436 | Тема: Выборка данных из базы данных по критериям

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

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

Сообщений: 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

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

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

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

Сообщений: 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, 14:41 | Сообщение № 1438 | Тема: Сумма за период

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

Дата: Воскресенье, 09.04.2017, 02:31 | Сообщение № 1439 | Тема: Перенос данных в другую книгу (с "если")

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Вариант с ODBC подключением
таблица автоматически обновляется при изменении ячейки М2, или ПКМ по таблице>Обновить
Имя файла, из которого копируются данные вписано в диспетчере имен в файле "другая книга.xlsm"
текст запроса
[vba]

Код

select distinct * from (SELECT * from `Лист1$` in 'D:\папка\другая книга.xlsm' 'Excel 12.0 xml;hdr=no;' union all select * from`Лист1$` in 'D:\папка\2963331.xlsx' 'Excel 12.0 xml;hdr=no;' where F2 is not null)

[/vba]
плюс макрос для обновления текста запроса
в модуле Лист [vba]

Код

Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.CommandText = "select distinct * from (SELECT * from `Лист1$` in '" & _
        ThisWorkbook.FullName & "' 'Excel 12.0 xml;hdr=no;'  union all select" & _
        " * from`Лист1$` in '" & ThisWorkbook.Path & "\" & [ИмяФайла] & "' " & _
        "'Excel 12.0 xml;hdr=no;' where F2 is not null)"
End Sub

[/vba]
в ЭтаКнига[vba]

Код

Private Sub Workbook_Open()
Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub

[/vba]

К сообщению приложен файл: 3288213.zip (21.8 Kb)

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

Сообщение отредактировал krosav4ig - Воскресенье, 09.04.2017, 02:33

Ответить

krosav4ig

Дата: Воскресенье, 09.04.2017, 03:18 | Сообщение № 1440 | Тема: Сортировка по одинаковым значениям

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

здравствуйте

Цитата saine, 08.04.2017 в 22:37, в сообщении № 1 ()

как отсортировать колонки

Вот тут можно почитать и вот тут

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

Сообщение отредактировал krosav4ig - Воскресенье, 09.04.2017, 03:21

Ответить

Страница 72 из 117
«
1
2
…
70
71
72
73
74
…
116
117
»