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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
Wasilich, а сейчас открывается?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеWasilich, а сейчас открывается?
Автор - krosav4ig
Дата добавления - 25.03.2016 в 17:32
krosav4ig Дата: Пятница, 25.03.2016, 18:07 | Сообщение № 1022 | Тема: подбор списка по нескольким условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
наворотил монстра, аж самому страшно стало
Код
=ЕСЛИОШИБКА(ИНДЕКС('Расчет поставки'!$A:$A;НАИМЕНЬШИЙ(ЕСЛИ(('Расчет поставки'!$C$6:ИНДЕКС('Расчет поставки'!$6:$6;ПОИСКПОЗ(54;'Расчет поставки'!$6:$6))=$F$2)*'Расчет поставки'!$D$8:ИНДЕКС('Расчет поставки'!$1:$100000;ПОИСКПОЗ("яяя";'Расчет поставки'!$A:$A)-1;ПОИСКПОЗ("яяя";'Расчет поставки'!$7:$7));СТРОКА('Расчет поставки'!$A$8:ИНДЕКС('Расчет поставки'!$A:$A;ПОИСКПОЗ("яяя";'Расчет поставки'!$A:$A)-1));"");A6));"")
К сообщению приложен файл: 7039026.xlsx (20.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенаворотил монстра, аж самому страшно стало
Код
=ЕСЛИОШИБКА(ИНДЕКС('Расчет поставки'!$A:$A;НАИМЕНЬШИЙ(ЕСЛИ(('Расчет поставки'!$C$6:ИНДЕКС('Расчет поставки'!$6:$6;ПОИСКПОЗ(54;'Расчет поставки'!$6:$6))=$F$2)*'Расчет поставки'!$D$8:ИНДЕКС('Расчет поставки'!$1:$100000;ПОИСКПОЗ("яяя";'Расчет поставки'!$A:$A)-1;ПОИСКПОЗ("яяя";'Расчет поставки'!$7:$7));СТРОКА('Расчет поставки'!$A$8:ИНДЕКС('Расчет поставки'!$A:$A;ПОИСКПОЗ("яяя";'Расчет поставки'!$A:$A)-1));"");A6));"")
Автор - krosav4ig
Дата добавления - 25.03.2016 в 18:07
krosav4ig Дата: Воскресенье, 27.03.2016, 20:55 | Сообщение № 1023 | Тема: Разбивает текст по ячейкам сам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
выделяем любую непустую ячейку, жмем Alt+F11 Ctrl+G
вставляем [vba]
Код
ActiveCell.TextToColumns ,,,,0,0,0,0,0
[/vba] жмем Enter и еще раз Alt+F11

или данные>Текст по столбцам>С разделителями>Далее>снимаем все галки слева>Готово

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

Сообщение отредактировал krosav4ig - Воскресенье, 27.03.2016, 20:57
 
Ответить
Сообщениевыделяем любую непустую ячейку, жмем Alt+F11 Ctrl+G
вставляем [vba]
Код
ActiveCell.TextToColumns ,,,,0,0,0,0,0
[/vba] жмем Enter и еще раз Alt+F11

или данные>Текст по столбцам>С разделителями>Далее>снимаем все галки слева>Готово
Автор - krosav4ig
Дата добавления - 27.03.2016 в 20:55
krosav4ig Дата: Понедельник, 28.03.2016, 00:16 | Сообщение № 1024 | Тема: "парсинг" текста в Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
карандаш, а чем notepad++ не устраивает? там и встроенная подсветка синтаксиса для паскаля есть, и для других языков

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекарандаш, а чем notepad++ не устраивает? там и встроенная подсветка синтаксиса для паскаля есть, и для других языков
Автор - krosav4ig
Дата добавления - 28.03.2016 в 00:16
krosav4ig Дата: Понедельник, 28.03.2016, 16:01 | Сообщение № 1025 | Тема: Ранжирование времени (мин, сек) или (час, мин, сек)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а можно просто
Код
=СЧЁТЕСЛИ($G$6:$G$31;"<="&G6)

(если в столбце все значения одинакового формата, т.е. все числовые или все записаны текстом)

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

Сообщение отредактировал krosav4ig - Понедельник, 28.03.2016, 16:03
 
Ответить
Сообщениеа можно просто
Код
=СЧЁТЕСЛИ($G$6:$G$31;"<="&G6)

(если в столбце все значения одинакового формата, т.е. все числовые или все записаны текстом)
Автор - krosav4ig
Дата добавления - 28.03.2016 в 16:01
krosav4ig Дата: Понедельник, 28.03.2016, 16:07 | Сообщение № 1026 | Тема: Ранжирование времени (мин, сек) или (час, мин, сек)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата _Boroda_, 28.03.2016 в 16:03, в сообщении № 4
хитрый какой

этнияоносамо :)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата _Boroda_, 28.03.2016 в 16:03, в сообщении № 4
хитрый какой

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

Excel 2007,2010,2013
так нужно?
Код
=(2^ПОИСКПОЗ(I1;{0:31:61:91:121:151})/2*ПРОСМОТР(H1;{0:11:26:51:101};{1;1.5;1.6;1.7;1.8}))%

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

Сообщение отредактировал krosav4ig - Понедельник, 28.03.2016, 17:07
 
Ответить
Сообщениетак нужно?
Код
=(2^ПОИСКПОЗ(I1;{0:31:61:91:121:151})/2*ПРОСМОТР(H1;{0:11:26:51:101};{1;1.5;1.6;1.7;1.8}))%
Автор - krosav4ig
Дата добавления - 28.03.2016 в 16:41
krosav4ig Дата: Вторник, 29.03.2016, 03:16 | Сообщение № 1028 | Тема: "парсинг" текста в Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а качали с офсайта?
вирустотал ничего не нашел
проверка раз
проверка два

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа качали с офсайта?
вирустотал ничего не нашел
проверка раз
проверка два
Автор - krosav4ig
Дата добавления - 29.03.2016 в 03:16
krosav4ig Дата: Вторник, 29.03.2016, 16:45 | Сообщение № 1029 | Тема: Сводная таблица из нескольких диапазонов.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата welcom, 29.03.2016 в 14:23, в сообщении № 1
Как добавить опцию "пусто"?

зачем?
в чем собственно проблема? Страница 1 - это первый диапазон, Страница 2 - это второй, выбрали 1 - получили сводную только из первого, 2 - только из второго, все - оба диапазона в одной сводной. А зачем пусто не понятно ... Что вы ожидаете получить выбрав этот пункт (если бы он был)?
В поле Страница консолидированной сводной из нескольких диапазонов пункта пусто никогда не было и, имхо, никогда не будет

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата welcom, 29.03.2016 в 14:23, в сообщении № 1
Как добавить опцию "пусто"?

зачем?
в чем собственно проблема? Страница 1 - это первый диапазон, Страница 2 - это второй, выбрали 1 - получили сводную только из первого, 2 - только из второго, все - оба диапазона в одной сводной. А зачем пусто не понятно ... Что вы ожидаете получить выбрав этот пункт (если бы он был)?
В поле Страница консолидированной сводной из нескольких диапазонов пункта пусто никогда не было и, имхо, никогда не будет
Автор - krosav4ig
Дата добавления - 29.03.2016 в 16:45
krosav4ig Дата: Среда, 30.03.2016, 16:49 | Сообщение № 1030 | Тема: Расчет госпошлины для суда общей юрисдикции
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Bermut, 30.03.2016 в 16:39, в сообщении № 3
У меня же в таблице сумма исковых требований в колонке R

А у нас такой таблицы нету. :( И чего делать будем?
[p.s.]тык[/p.s.]

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

Сообщение отредактировал krosav4ig - Среда, 30.03.2016, 16:50
 
Ответить
Сообщение
Цитата Bermut, 30.03.2016 в 16:39, в сообщении № 3
У меня же в таблице сумма исковых требований в колонке R

А у нас такой таблицы нету. :( И чего делать будем?
[p.s.]тык[/p.s.]
Автор - krosav4ig
Дата добавления - 30.03.2016 в 16:49
krosav4ig Дата: Среда, 30.03.2016, 22:28 | Сообщение № 1031 | Тема: Макрос по отправке файла на почту
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Controler, попробуйте так [vba]
Код
Sub Перенос()
    Dim rng As Range, strFile$, OutApp As Object, bool As Boolean
    strFile$ = Environ("tmp") & "\последняя строка.xls"
    With ThisWorkbook.Sheets("Отчет за сутки")
        On Error Resume Next
        Set rng = .Range("A2:j" & Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)).SpecialCells(2)
        If rng Is Nothing Then
            MsgBox "Нет данных для переноса!"
            Exit Sub
        End If
        Application.DisplayAlerts = False
        rng.Copy Sheets("Отчет за 2016 г.").Range("A" & .Rows.Count).End(xlUp)(2)
        .Copy
        With ActiveWorkbook
            With .Sheets(1)
                .Rows(2).Resize(rng.Rows.Count - 1).Delete
                .Range(.Rows(3), .Rows(3).End(xlDown)).Delete
                .SaveAs strFile$, 56: .Parent.Close
            End With
        End With
        Set OutApp = GetObject(, "Outlook.Application")
        Err.Clear
        If OutApp Is Nothing Then
            Set OutApp = CreateObject("Outlook.Application")
            bool = True
        End If
        With OutApp.CreateItem(0)
            .To = Join(Array("пупкин@mail.ru", "васичкин@mail.ru"), ";")
            .Subject = "Статистика"
            .Body = "Во вложении отчет"
            .Attachments.Add strFile
            .Send
        End With
        Kill strFile
        If bool Then OutApp.Quit
        Set OutApp = Nothing
        rng.ClearContents: .Parent.Save
        MsgBox ("Внесено в отчет за 2016 год, отправлено Пупкину и Васичкину!")
    End With
    Application.DisplayAlerts = True
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Среда, 30.03.2016, 22:29
 
Ответить
СообщениеControler, попробуйте так [vba]
Код
Sub Перенос()
    Dim rng As Range, strFile$, OutApp As Object, bool As Boolean
    strFile$ = Environ("tmp") & "\последняя строка.xls"
    With ThisWorkbook.Sheets("Отчет за сутки")
        On Error Resume Next
        Set rng = .Range("A2:j" & Application.Max(.Cells(.Rows.Count, 1).End(xlUp).Row, 2)).SpecialCells(2)
        If rng Is Nothing Then
            MsgBox "Нет данных для переноса!"
            Exit Sub
        End If
        Application.DisplayAlerts = False
        rng.Copy Sheets("Отчет за 2016 г.").Range("A" & .Rows.Count).End(xlUp)(2)
        .Copy
        With ActiveWorkbook
            With .Sheets(1)
                .Rows(2).Resize(rng.Rows.Count - 1).Delete
                .Range(.Rows(3), .Rows(3).End(xlDown)).Delete
                .SaveAs strFile$, 56: .Parent.Close
            End With
        End With
        Set OutApp = GetObject(, "Outlook.Application")
        Err.Clear
        If OutApp Is Nothing Then
            Set OutApp = CreateObject("Outlook.Application")
            bool = True
        End If
        With OutApp.CreateItem(0)
            .To = Join(Array("пупкин@mail.ru", "васичкин@mail.ru"), ";")
            .Subject = "Статистика"
            .Body = "Во вложении отчет"
            .Attachments.Add strFile
            .Send
        End With
        Kill strFile
        If bool Then OutApp.Quit
        Set OutApp = Nothing
        rng.ClearContents: .Parent.Save
        MsgBox ("Внесено в отчет за 2016 год, отправлено Пупкину и Васичкину!")
    End With
    Application.DisplayAlerts = True
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 30.03.2016 в 22:28
krosav4ig Дата: Четверг, 31.03.2016, 03:47 | Сообщение № 1032 | Тема: Расчет госпошлины для суда общей юрисдикции
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант до кучи
Код
=МЕДИАНА(400;ВПР(A2;aa;2)+(A2-ВПР(A2;aa;1))*ВПР(A2;aa;3)%;60000)

aa - именованный массив (в диспетчере имен)
Код
={0;0;4:20000;800;3:100000;3200;2:200000;5200;1:1000000;13200;0,5}
К сообщению приложен файл: 6249189.xlsx (12.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант до кучи
Код
=МЕДИАНА(400;ВПР(A2;aa;2)+(A2-ВПР(A2;aa;1))*ВПР(A2;aa;3)%;60000)

aa - именованный массив (в диспетчере имен)
Код
={0;0;4:20000;800;3:100000;3200;2:200000;5200;1:1000000;13200;0,5}
Автор - krosav4ig
Дата добавления - 31.03.2016 в 03:47
krosav4ig Дата: Четверг, 31.03.2016, 15:04 | Сообщение № 1033 | Тема: Сводная таблица из нескольких диапазонов.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата welcom, 31.03.2016 в 12:41, в сообщении № 10
нельзя в Сводной выбрать данные только из одного диапазона.

да ладно
К сообщению приложен файл: 8250741.xls (32.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата welcom, 31.03.2016 в 12:41, в сообщении № 10
нельзя в Сводной выбрать данные только из одного диапазона.

да ладно
Автор - krosav4ig
Дата добавления - 31.03.2016 в 15:04
krosav4ig Дата: Суббота, 02.04.2016, 02:37 | Сообщение № 1034 | Тема: Автоматическое копирование значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата runagroup, 01.04.2016 в 22:59, в сообщении № 1
в листе "test"

вот бы его увидеть ...

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата runagroup, 01.04.2016 в 22:59, в сообщении № 1
в листе "test"

вот бы его увидеть ...
Автор - krosav4ig
Дата добавления - 02.04.2016 в 02:37
krosav4ig Дата: Четверг, 07.04.2016, 02:40 | Сообщение № 1035 | Тема: замена формул на значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
lordua, попробуйте так
[vba]
Код
Sub gg()
    Dim strPath$
    With ActiveWorkbook
        .Sheets(Array("Лист1", "Лист2")).Copy
        strPath = .Path
    End With
    Sheets().Select: Cells.Select:
    With Selection
        .Copy: .PasteSpecial xlPasteValues, xlNone
    End With
    ActiveCell.Select: ActiveSheet.Select
    Application.DisplayAlerts = 0
    With ActiveWorkbook
        .SaveAs strPath & "\xxx.xls", 56
        .Close
    End With
    Application.DisplayAlerts = 1
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеlordua, попробуйте так
[vba]
Код
Sub gg()
    Dim strPath$
    With ActiveWorkbook
        .Sheets(Array("Лист1", "Лист2")).Copy
        strPath = .Path
    End With
    Sheets().Select: Cells.Select:
    With Selection
        .Copy: .PasteSpecial xlPasteValues, xlNone
    End With
    ActiveCell.Select: ActiveSheet.Select
    Application.DisplayAlerts = 0
    With ActiveWorkbook
        .SaveAs strPath & "\xxx.xls", 56
        .Close
    End With
    Application.DisplayAlerts = 1
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 07.04.2016 в 02:40
krosav4ig Дата: Четверг, 07.04.2016, 03:48 | Сообщение № 1036 | Тема: замена формул на значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а если заменить на [vba]
Код
Sheets().Select: ActiveSheet.Cells.Select
[/vba]?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа если заменить на [vba]
Код
Sheets().Select: ActiveSheet.Cells.Select
[/vba]?
Автор - krosav4ig
Дата добавления - 07.04.2016 в 03:48
krosav4ig Дата: Воскресенье, 10.04.2016, 22:02 | Сообщение № 1037 | Тема: Макрос для элементов управления форм
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще в четверг сделал еще один вариант, но все ни как не времени не было выложить
К сообщению приложен файл: 5869476.xlsm (61.4 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще в четверг сделал еще один вариант, но все ни как не времени не было выложить
Автор - krosav4ig
Дата добавления - 10.04.2016 в 22:02
krosav4ig Дата: Воскресенье, 10.04.2016, 22:14 | Сообщение № 1038 | Тема: Открыть папку макросом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а можно проще ;) [vba]
Код
CreateObject("Wscript.Shell").Run "explorer " & путь
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа можно проще ;) [vba]
Код
CreateObject("Wscript.Shell").Run "explorer " & путь
[/vba]
Автор - krosav4ig
Дата добавления - 10.04.2016 в 22:14
krosav4ig Дата: Воскресенье, 10.04.2016, 22:25 | Сообщение № 1039 | Тема: замена символов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
anatoly2015, вот тут почитайте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеanatoly2015, вот тут почитайте
Автор - krosav4ig
Дата добавления - 10.04.2016 в 22:25
krosav4ig Дата: Понедельник, 11.04.2016, 03:39 | Сообщение № 1040 | Тема: Открыть папку макросом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а так :p [vba]
Код
Shell "explorer " & путь, 1
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа так :p [vba]
Код
Shell "explorer " & путь, 1
[/vba]
Автор - krosav4ig
Дата добавления - 11.04.2016 в 03:39
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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