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

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

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

Дата: Вторник, 11.04.2017, 15:31 | Сообщение № 881 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Цитата SLAVICK, 11.04.2017 в 11:58, в сообщении № 6 ()

нет никакого "выключателя"

ну он как бы есть, но в данном случае погоды не делает[vba]

Код

Application.AutoCorrect.AutoFillFormulasInLists=False

[/vba]

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

Ответить

krosav4ig

Дата: Вторник, 11.04.2017, 02:32 | Сообщение № 882 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Доброй ночи
если просто заполнить, то может быть просто[vba]

Код

[Откуда].Copy [Куда]

[/vba] или [vba]

Код

[Откуда].Copy: [Куда].PasteSpecial -4123

[/vba]?
или такой костыль [vba]

Код

Dim a(1) As Variant
    With [Откуда]
        a(0) = .Resize(1).Formula
        a(1) = Intersect(.Cells, .Offset(1)).Formula
    End With
    With [Куда]
        Intersect(.Cells, .Offset(1)).Formula = a(1)
        .Resize(1).Formula = a(0)
    End With

[/vba]

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

Сообщение отредактировал krosav4ig - Вторник, 11.04.2017, 03:17

Ответить

krosav4ig

Дата: Воскресенье, 09.04.2017, 04:14 | Сообщение № 883 | Тема: Чего вам не хватает на форуме?

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Имхо, было бы неплохо добавить bb-коды таблиц, все-таки сайт посвящен работе с электронными таблицами

Да и некоторые посты, оформленные с использованием таблиц, будут выглядеть покрасивше (имхо)
Вот, к примеру пара ссылок, где таблица вставлена копипастом из Excel
http://www.excelworld.ru/forum/2-33067-215239-16-1490966047
http://www.excelworld.ru/forum/2-32626-212086-16-1488546382

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

Ответить

krosav4ig

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

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

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

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

Ответить

krosav4ig

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

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

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

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

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

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

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

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

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

Сообщений: 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 | Сообщение № 888 | Тема: Выборка данных из базы данных по критериям

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

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

Сообщений: 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 | Сообщение № 889 | Тема: Не получается создать макрос для сортировки информации

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

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

Сообщений: 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 | Сообщение № 890 | Тема: Добавление формулы в ячейке с имеющимся значением в ней

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

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

Сообщений: 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 | Сообщение № 891 | Тема: Сравнение каждой с каждой

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

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

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

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

Сообщений: 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 | Сообщение № 893 | Тема: Заполнить индекс, соответствующий адресу

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

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

Сообщений: 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 | Сообщение № 894 | Тема: Заполнить индекс, соответствующий адресу

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

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

Сообщений: 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 | Сообщение № 895 | Тема: Стиль для заголовков с автонумерацией

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

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

Сообщений: 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 | Сообщение № 896 | Тема: Иконы соцсетей ???

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

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

Сообщений: 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 | Сообщение № 897 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

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

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

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

Сообщений: 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 | Сообщение № 899 | Тема: С праздником 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 | Сообщение № 900 | Тема: Иконы соцсетей ???

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

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

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

Ответить

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