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

Вход

Регистрация

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

 

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

Результаты поиска
krosav4ig Дата: Пятница, 08.07.2016, 14:36 | Сообщение № 1121 | Тема: При очистке "умной таблицы"макросом слетают формулы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а я пишу [vba]
Код
ActiveSheet.ListObjects(1).DataBodyRange.Clear
[/vba] и у мну ничего не слетает

UPD.
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Пятница, 08.07.2016, 15:01
 
Ответить
Сообщениеа я пишу [vba]
Код
ActiveSheet.ListObjects(1).DataBodyRange.Clear
[/vba] и у мну ничего не слетает

UPD.
[vba]
Код
Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 08.07.2016 в 14:36
krosav4ig Дата: Суббота, 09.07.2016, 00:03 | Сообщение № 1122 | Тема: выбор значения по 2-м параметрами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
Код
=ИНДЕКС({100;200;300;0:150;250;350;0:0;250;300;0:0;300;400;0:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетак нужно?
Код
=ИНДЕКС({100;200;300;0:150;250;350;0:0;250;300;0:0;300;400;0:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

Автор - krosav4ig
Дата добавления - 09.07.2016 в 00:03
krosav4ig Дата: Суббота, 09.07.2016, 05:17 | Сообщение № 1123 | Тема: выбор значения по 2-м параметрами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
упс, проглядел
Код
=ИНДЕКС({100;200;300;300:150;250;350;350:250;250;300;300:300;300;400;400:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

или с доп. таблицей
Код
=ИНДЕКС(K2:N6;ПОИСКПОЗ(A7;J2:J6);ПОИСКПОЗ(C7;K1:N1))
К сообщению приложен файл: -4-.xlsx (12.3 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеупс, проглядел
Код
=ИНДЕКС({100;200;300;300:150;250;350;350:250;250;300;300:300;300;400;400:0;0;0;500};ПОИСКПОЗ(A7;{1:6:21:51:201});ПОИСКПОЗ(C7;{0;10000;20000;20001}))

или с доп. таблицей
Код
=ИНДЕКС(K2:N6;ПОИСКПОЗ(A7;J2:J6);ПОИСКПОЗ(C7;K1:N1))

Автор - krosav4ig
Дата добавления - 09.07.2016 в 05:17
krosav4ig Дата: Воскресенье, 10.07.2016, 06:49 | Сообщение № 1124 | Тема: Удалить строки, если в ячейке есть слеши - как?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
wwizard, а вы уверены, что эти строки нужно удалить?
а если их преобразовать в читабельный вид?
[vba]
Код
Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
[/vba]


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

Сообщение отредактировал krosav4ig - Воскресенье, 10.07.2016, 06:50
 
Ответить
Сообщениеwwizard, а вы уверены, что эти строки нужно удалить?
а если их преобразовать в читабельный вид?
[vba]
Код
Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 10.07.2016 в 06:49
krosav4ig Дата: Воскресенье, 10.07.2016, 17:05 | Сообщение № 1125 | Тема: Удалить строки, если в ячейке есть слеши - как?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
добавил на всякий случай 2 кнопки 1я - для читабельности, 2я для удаления
[vba]
Код
Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
Sub ggg()
    Dim cell As Range, rng As Range, addr$
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        addr = cell.Address
        Do
            If rng Is Nothing Then Set rng = cell _
                Else Set rng = Union(rng, cell)
            Set cell = Columns(10).FindNext(cell)
        Loop While cell.Address <> addr
        If Not rng Is Nothing Then rng.EntireRow.Delete
    End If
End Sub
[/vba]
К сообщению приложен файл: 8258012-1-.xlsm (20.9 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедобавил на всякий случай 2 кнопки 1я - для читабельности, 2я для удаления
[vba]
Код
Sub gg()
    Dim cell As Range
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        With CreateObject("scriptcontrol")
            .Language = "JScript"
            Do While Not cell Is Nothing
                cell.Value = .Eval("unescape(""" & cell & """)")
                Set cell = Columns(10).FindNext(cell)
            Loop
        End With
    End If
End Sub
Sub ggg()
    Dim cell As Range, rng As Range, addr$
    Set cell = Columns(10).Find("\u", , xlValues, xlPart)
    If Not cell Is Nothing Then
        addr = cell.Address
        Do
            If rng Is Nothing Then Set rng = cell _
                Else Set rng = Union(rng, cell)
            Set cell = Columns(10).FindNext(cell)
        Loop While cell.Address <> addr
        If Not rng Is Nothing Then rng.EntireRow.Delete
    End If
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 10.07.2016 в 17:05
krosav4ig Дата: Понедельник, 11.07.2016, 02:27 | Сообщение № 1126 | Тема: перенести значения из списка значений в таблицу(шахматку)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ЕСЛИОШИБКА(ИНДЕКС(Лист1!$C:$D;ПОИСКПОЗ(1;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2)^0;);НОД(ПРОСМОТР(2;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2))+ЕНЕЧЁТ(СТОЛБЕЦ());2));"###")
К сообщению приложен файл: 0687597.xlsx (10.0 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант
Код
=ЕСЛИОШИБКА(ИНДЕКС(Лист1!$C:$D;ПОИСКПОЗ(1;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2)^0;);НОД(ПРОСМОТР(2;ПОИСК(Лист1!$A$1:$A$6&Лист1!$B$1:$B$6;$A2&B$1&$A2))+ЕНЕЧЁТ(СТОЛБЕЦ());2));"###")

Автор - krosav4ig
Дата добавления - 11.07.2016 в 02:27
krosav4ig Дата: Вторник, 12.07.2016, 18:30 | Сообщение № 1127 | Тема: вставка текста в заданное место
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        .Copy
        .Collapse wdCollapseEnd
        .Paste
    End With
    GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").Clear
End Sub
[/vba]или[vba]
Код
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object, R As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        Set R = objWrdDoc.Range(.Start, .End - 1)
        .InsertParagraphAfter
        .InsertAfter R
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        .Copy
        .Collapse wdCollapseEnd
        .Paste
    End With
    GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}").Clear
End Sub
[/vba]или[vba]
Код
Sub OpenWord()
    Dim objWrdApp As Object, objWrdDoc As Object, R As Object
  
    Sret objWdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("\\sten.local\central\UserData\Морозов\Мои документы\ммм1.docx")
    With objWrdDoc.Range
        Set R = objWrdDoc.Range(.Start, .End - 1)
        .InsertParagraphAfter
        .InsertAfter R
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 12.07.2016 в 18:30
krosav4ig Дата: Вторник, 12.07.2016, 19:14 | Сообщение № 1128 | Тема: Убрать мерцание экрана при выполнении кода
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
SGerman, ну вы хотя бы код покажите


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеSGerman, ну вы хотя бы код покажите

Автор - krosav4ig
Дата добавления - 12.07.2016 в 19:14
krosav4ig Дата: Вторник, 12.07.2016, 19:37 | Сообщение № 1129 | Тема: Если в столбце находим 1, то в другой (но другу строку)стави
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
Так нужно?
Код
=ЕСЛИ(Q2;"";Ч(МУМНОЖ(ПОИСКПОЗ({0;1};--Q3:Q$23;);{1:-1})>0))
К сообщению приложен файл: 0695890.xlsx (20.6 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте.
Так нужно?
Код
=ЕСЛИ(Q2;"";Ч(МУМНОЖ(ПОИСКПОЗ({0;1};--Q3:Q$23;);{1:-1})>0))

Автор - krosav4ig
Дата добавления - 12.07.2016 в 19:37
krosav4ig Дата: Среда, 13.07.2016, 02:19 | Сообщение № 1130 | Тема: Если в столбце находим 1, то в другой (но другу строку)стави
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
классная формула

пасяба :)
поставь в Q20 не единицу

ну тогда
Код
=ЕСЛИ(Q2;"";СЧЁТ((СУММ(ПОИСКПОЗ({0;1};--Q3:Q$23;)*{1;-1})>0)^0))


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
классная формула

пасяба :)
поставь в Q20 не единицу

ну тогда
Код
=ЕСЛИ(Q2;"";СЧЁТ((СУММ(ПОИСКПОЗ({0;1};--Q3:Q$23;)*{1;-1})>0)^0))

Автор - krosav4ig
Дата добавления - 13.07.2016 в 02:19
krosav4ig Дата: Четверг, 14.07.2016, 02:26 | Сообщение № 1131 | Тема: узнать название столбика с наибольшим значением
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
Код
=ГПР(МАКС(B3:E3);ЕСЛИ({1:0};B3:E3;B$2:E$2);2;)
К сообщению приложен файл: 3230104.xlsx (8.8 Kb)


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

Сообщение отредактировал krosav4ig - Четверг, 14.07.2016, 02:33
 
Ответить
Сообщениетак нужно?
Код
=ГПР(МАКС(B3:E3);ЕСЛИ({1:0};B3:E3;B$2:E$2);2;)

Автор - krosav4ig
Дата добавления - 14.07.2016 в 02:26
krosav4ig Дата: Пятница, 15.07.2016, 03:03 | Сообщение № 1132 | Тема: Выборка данных по 3-ем заданным значениям из базы данных
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у мну формулы (немассивные), вроде не должны сильно тормозить на больших таблицах, начальная и конечная даты отбора в H1:I1
доп. столбец
Код
=МУМНОЖ((СЧЁТЕСЛИМН($I$3:$I$9;B3;$J$3:$J$9;C3;$K$3:$K$9;D3)>0)*СЧЁТЕСЛИМН($B$3:B3;B3;$C$3:C3;C3;$D$3:D3;D3)*(A3>$H$1:$I$1);{1:-1})

формула
Код
=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(($B$3:$B$22=$I3)*($C$3:$C$22=$J3)*($D$3:$D$22=$K3)*$F$3:$F$22=СТОЛБЕЦ(A3));$E$3:$E$22);"")
К сообщению приложен файл: 2169923.xlsx (13.2 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа у мну формулы (немассивные), вроде не должны сильно тормозить на больших таблицах, начальная и конечная даты отбора в H1:I1
доп. столбец
Код
=МУМНОЖ((СЧЁТЕСЛИМН($I$3:$I$9;B3;$J$3:$J$9;C3;$K$3:$K$9;D3)>0)*СЧЁТЕСЛИМН($B$3:B3;B3;$C$3:C3;C3;$D$3:D3;D3)*(A3>$H$1:$I$1);{1:-1})

формула
Код
=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(($B$3:$B$22=$I3)*($C$3:$C$22=$J3)*($D$3:$D$22=$K3)*$F$3:$F$22=СТОЛБЕЦ(A3));$E$3:$E$22);"")

Автор - krosav4ig
Дата добавления - 15.07.2016 в 03:03
krosav4ig Дата: Пятница, 15.07.2016, 03:28 | Сообщение № 1133 | Тема: Посчитать количество ячеек с датами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
так нужно?
Код
=ЕСЛИ(ЕЧЁТН(СТРОКА());МИН($B:$B)-1+ОТБР(СТРОКА(F1)/2)*5+СТОЛБЕЦ(A4);СЧЁТЕСЛИ($B:$B;F3))
К сообщению приложен файл: 8319672.xlsx (12.1 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетак нужно?
Код
=ЕСЛИ(ЕЧЁТН(СТРОКА());МИН($B:$B)-1+ОТБР(СТРОКА(F1)/2)*5+СТОЛБЕЦ(A4);СЧЁТЕСЛИ($B:$B;F3))

Автор - krosav4ig
Дата добавления - 15.07.2016 в 03:28
krosav4ig Дата: Суббота, 16.07.2016, 19:14 | Сообщение № 1134 | Тема: Преобразовать дату/время в формат Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исчо вариант [vba]
Код
Function GetDate(s$) As Date
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "((\d+)|(\W{3})\W*)([  :])+|\W"
        GetDate = .Replace(s, "$2$3$4")
    End With
End Function
[/vba]
К сообщению приложен файл: 6980915.xlsm (17.3 Kb)


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

Сообщение отредактировал krosav4ig - Воскресенье, 17.07.2016, 14:42
 
Ответить
Сообщениеисчо вариант [vba]
Код
Function GetDate(s$) As Date
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "((\d+)|(\W{3})\W*)([  :])+|\W"
        GetDate = .Replace(s, "$2$3$4")
    End With
End Function
[/vba]

Автор - krosav4ig
Дата добавления - 16.07.2016 в 19:14
krosav4ig Дата: Воскресенье, 17.07.2016, 14:19 | Сообщение № 1135 | Тема: Exel на андроид
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Имхо, лучший вариант для андроида - PlanMaker HD


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеИмхо, лучший вариант для андроида - PlanMaker HD

Автор - krosav4ig
Дата добавления - 17.07.2016 в 14:19
krosav4ig Дата: Воскресенье, 17.07.2016, 20:46 | Сообщение № 1136 | Тема: обратная транслятизация фамилий(с латиницы на кирилицу)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Goblinax, дело в том, что в нет мягкого знака, чтобы он там был, должно быть Mal'cev


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеGoblinax, дело в том, что в нет мягкого знака, чтобы он там был, должно быть Mal'cev

Автор - krosav4ig
Дата добавления - 17.07.2016 в 20:46
krosav4ig Дата: Понедельник, 18.07.2016, 19:13 | Сообщение № 1137 | Тема: Формула подсчета очков для хоккейного турнира.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исчо вариант
плюс формула для очков (формула массива) без промежуточных вычислений
Код
=СУММ(ВЫБОР(СТОЛБЕЦ(A2:I2);И(A2>B2;C2>D2);И(A2=B2;C2=D2);И(A2<B2;C2<D2);(A2-B2=C2-D2);(A2-B2<>C2-D2)*ABS(A2-B2-C2+D2);(A2=C2);ЕСЛИ(A2=C2;C2;(C2-A2));(B2=D2);ЕСЛИ(B2=D2;B2;(D2-B2)))*Q$2:Y$2)
К сообщению приложен файл: 3335183.xlsx (11.4 Kb)


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

Сообщение отредактировал krosav4ig - Понедельник, 18.07.2016, 20:33
 
Ответить
Сообщениеисчо вариант
плюс формула для очков (формула массива) без промежуточных вычислений
Код
=СУММ(ВЫБОР(СТОЛБЕЦ(A2:I2);И(A2>B2;C2>D2);И(A2=B2;C2=D2);И(A2<B2;C2<D2);(A2-B2=C2-D2);(A2-B2<>C2-D2)*ABS(A2-B2-C2+D2);(A2=C2);ЕСЛИ(A2=C2;C2;(C2-A2));(B2=D2);ЕСЛИ(B2=D2;B2;(D2-B2)))*Q$2:Y$2)

Автор - krosav4ig
Дата добавления - 18.07.2016 в 19:13
krosav4ig Дата: Вторник, 19.07.2016, 05:49 | Сообщение № 1138 | Тема: Сохранение листа в виде рисунка в формате .jpg
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно как-то так

в модуле ЭтаКнига
[vba]
Код
Sub SaveSheets()
    Dim sh As Worksheet
    For Each sh In Sheets
        SaveSheetAsImage sh
    Next
End Sub
[/vba]
[p.s.]правда, наверно, это не совсем то, что нужно, думаю вам поможет виртуальный принтер (например BullZip)
К сообщению приложен файл: 9906346.xls (62.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно как-то так

в модуле ЭтаКнига
[vba]
Код
Sub SaveSheets()
    Dim sh As Worksheet
    For Each sh In Sheets
        SaveSheetAsImage sh
    Next
End Sub
[/vba]
[p.s.]правда, наверно, это не совсем то, что нужно, думаю вам поможет виртуальный принтер (например BullZip)

Автор - krosav4ig
Дата добавления - 19.07.2016 в 05:49
krosav4ig Дата: Среда, 20.07.2016, 06:21 | Сообщение № 1139 | Тема: Формула подсчета очков для хоккейного турнира.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
foliant, так нужно?
К сообщению приложен файл: 5682348.xlsx (11.9 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеfoliant, так нужно?

Автор - krosav4ig
Дата добавления - 20.07.2016 в 06:21
krosav4ig Дата: Пятница, 22.07.2016, 03:55 | Сообщение № 1140 | Тема: PowerQuery. Загрузка данных из интернета
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Например, используя PowerQuery.

Цитата Текст запроса PQ
let
aa = Web.Page(Web.Contents("http://minfin.com.ua/currency/nbu/"&DateTime.ToText(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]{0}[Column1],"yyyy-MM-dd")&"/")),
bb = Table.RemoveRowsWithErrors(Table.AddColumn(aa, "Custom", each [Data][Дата]), {"Custom"}),
cc = Table.AddColumn(Table.RemoveColumns(bb,{"Custom"}), "Custom", each Table.ColumnNames([Data])){0}[Custom],
dd = Table.SelectColumns(Table.ExpandTableColumn(bb, "Data", cc),cc),
ee = Table.ReplaceValue(Table.ReplaceValue(dd,".",Text.Range(Text.From(1/2),1,1),Replacer.ReplaceText,cc),"+ ","+",Replacer.ReplaceText,cc),
ff = List.Range(cc,1,1){0},
gg = Table.RenameColumns(Table.TransformColumns(Table.SplitColumn(ee,ff,Splitter.SplitTextByDelimiter("#(lf)"),{ff,"Динамика"}),{},Text.Trim),{{ff, "Курс НБУ"}}),
hh = Table.TransformColumnTypes(gg,{{"Курс НБУ", type number}, {"Динамика", type number}, {"За неделю", type number}, {"Дата", type date}, {"Обновляется", type text}, {"КУРС К ГРИВНЕ", type text}})
in
hh
К сообщению приложен файл: PQ.xlsx (68.3 Kb)


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

Сообщение отредактировал krosav4ig - Пятница, 22.07.2016, 19:16
 
Ответить
Сообщение
Например, используя PowerQuery.

Цитата Текст запроса PQ
let
aa = Web.Page(Web.Contents("http://minfin.com.ua/currency/nbu/"&DateTime.ToText(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]{0}[Column1],"yyyy-MM-dd")&"/")),
bb = Table.RemoveRowsWithErrors(Table.AddColumn(aa, "Custom", each [Data][Дата]), {"Custom"}),
cc = Table.AddColumn(Table.RemoveColumns(bb,{"Custom"}), "Custom", each Table.ColumnNames([Data])){0}[Custom],
dd = Table.SelectColumns(Table.ExpandTableColumn(bb, "Data", cc),cc),
ee = Table.ReplaceValue(Table.ReplaceValue(dd,".",Text.Range(Text.From(1/2),1,1),Replacer.ReplaceText,cc),"+ ","+",Replacer.ReplaceText,cc),
ff = List.Range(cc,1,1){0},
gg = Table.RenameColumns(Table.TransformColumns(Table.SplitColumn(ee,ff,Splitter.SplitTextByDelimiter("#(lf)"),{ff,"Динамика"}),{},Text.Trim),{{ff, "Курс НБУ"}}),
hh = Table.TransformColumnTypes(gg,{{"Курс НБУ", type number}, {"Динамика", type number}, {"За неделю", type number}, {"Дата", type date}, {"Обновляется", type text}, {"КУРС К ГРИВНЕ", type text}})
in
hh

Автор - krosav4ig
Дата добавления - 22.07.2016 в 03:55
Поиск:

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