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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
Попробуйте перед копированием выделить только видимые ячейки (F5>Alt+ВЫ>enter)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеПопробуйте перед копированием выделить только видимые ячейки (F5>Alt+ВЫ>enter)
Автор - krosav4ig
Дата добавления - 01.03.2017 в 01:10
krosav4ig Дата: Среда, 01.03.2017, 16:33 | Сообщение № 1422 | Тема: Как вставить скопированные по фильтру строки?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата RMMMM, 01.03.2017 в 01:27, в сообщении № 3 ()
А что такое Alt-ВЫ?

Вы нажмите F5 и посмотрите, какие буковки Alt при нажатом подчеркнуты, вот их и нужно жать при зажатом Alt
Выделить > Видимые

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

Сообщение отредактировал krosav4ig - Среда, 01.03.2017, 16:34
 
Ответить
Сообщение
Цитата RMMMM, 01.03.2017 в 01:27, в сообщении № 3 ()
А что такое Alt-ВЫ?

Вы нажмите F5 и посмотрите, какие буковки Alt при нажатом подчеркнуты, вот их и нужно жать при зажатом Alt
Выделить > Видимые
Автор - krosav4ig
Дата добавления - 01.03.2017 в 16:33
krosav4ig Дата: Пятница, 03.03.2017, 02:39 | Сообщение № 1423 | Тема: смещение столбца по заданному интервалу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. Вдруг правильно понял
Код
=ИНДЕКС(Лист2!$A:$IU;2+2*(СТРОКА()-1);ПРОСМОТР(9^9;ПОИСКПОЗ($A1:F1;ИНДЕКС(Лист2!$A:$IU;2+2*(СТРОКА()-1);0);))+1)
К сообщению приложен файл: 6651474.xlsx (11.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте. Вдруг правильно понял
Код
=ИНДЕКС(Лист2!$A:$IU;2+2*(СТРОКА()-1);ПРОСМОТР(9^9;ПОИСКПОЗ($A1:F1;ИНДЕКС(Лист2!$A:$IU;2+2*(СТРОКА()-1);0);))+1)
Автор - krosav4ig
Дата добавления - 03.03.2017 в 02:39
krosav4ig Дата: Пятница, 03.03.2017, 15:10 | Сообщение № 1424 | Тема: Получить все комбинации из 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
 
Ответить
Сообщение
Цитата buchlotnik, 03.03.2017 в 14:50, в сообщении № 5 ()
вот тут было

ага, тама в самом конце есть ссылочка интересная, по ней есть формульные решения и для перестановок, и для пересечений, и для комбинаций
Автор - krosav4ig
Дата добавления - 03.03.2017 в 15:10
krosav4ig Дата: Пятница, 03.03.2017, 15:39 | Сообщение № 1425 | Тема: Сводные таблицы с текстовым форматом
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 16:45 | Сообщение № 1426 | Тема: неполадки с ячейками формата ДАТА
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 23:39 | Сообщение № 1427 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Суббота, 04.03.2017, 05:46 | Сообщение № 1428 | Тема: Разъединение файла на 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 Дата: Понедельник, 06.03.2017, 06:02 | Сообщение № 1429 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Вторник, 07.03.2017, 12:11 | Сообщение № 1430 | Тема: С праздником 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 Дата: Пятница, 10.03.2017, 03:23 | Сообщение № 1431 | Тема: Плавное увеличение автофигуры по щелчку.
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Воскресенье, 12.03.2017, 17:55 | Сообщение № 1432 | Тема: ПОЗДРАВЛЯЕМ СЕГОДНЯШНИХ ИМЕНИННИКОВ
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Суббота, 25.03.2017, 22:06 | Сообщение № 1433 | Тема: Иконы соцсетей ???
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Alex_ST, 07.03.2017 в 08:59, в сообщении № 21 ()
Я, к сожалению, не столь продвинут в этой области

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

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

А вот не надо на себя наговаривать :)
Автор - krosav4ig
Дата добавления - 25.03.2017 в 22:06
krosav4ig Дата: Воскресенье, 26.03.2017, 14:34 | Сообщение № 1434 | Тема: Стиль для заголовков с автонумерацией
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Пятница, 31.03.2017, 16:51 | Сообщение № 1435 | Тема: Заполнить индекс, соответствующий адресу
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Пятница, 31.03.2017, 16:59 | Сообщение № 1436 | Тема: Заполнить индекс, соответствующий адресу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Ekka, 31.03.2017 в 16:54, в сообщении № 4 ()
как Вы это сделали формулой?
Ekka, вот тут почитайте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Ekka, 31.03.2017 в 16:54, в сообщении № 4 ()
как Вы это сделали формулой?
Ekka, вот тут почитайте
Автор - krosav4ig
Дата добавления - 31.03.2017 в 16:59
krosav4ig Дата: Вторник, 04.04.2017, 17:14 | Сообщение № 1437 | Тема: Переход на первую строку
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Вторник, 04.04.2017, 17:39 | Сообщение № 1438 | Тема: Сравнение каждой с каждой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеИ вам зарастите
объяснение
Автор - krosav4ig
Дата добавления - 04.04.2017 в 17:39
krosav4ig Дата: Среда, 05.04.2017, 15:52 | Сообщение № 1439 | Тема: Добавление формулы в ячейке с имеющимся значением в ней
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Четверг, 06.04.2017, 21:38 | Сообщение № 1440 | Тема: Не получается создать макрос для сортировки информации
Группа: Друзья
Ранг: Старожил
Сообщений: 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
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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