Результаты поиска
krosav4ig
Дата: Четверг, 28.09.2017, 12:26 |
Сообщение № 881 | Тема: Навигация по контролам запраш. № семейства не существует.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте. [vba]Код
Sub Latkir() If Not Selection.Information(wdWithInTable) Then Exit Sub Select Case Selection.Rows(1).index Case 1 To 3, 8 To 11 ActivateKeyboardLayout kb_lay_ru, 0 Case 4 To 7 ActivateKeyboardLayout kb_lay_en, 0 End Select End Sub
[/vba]
Здравствуйте. [vba]Код
Sub Latkir() If Not Selection.Information(wdWithInTable) Then Exit Sub Select Case Selection.Rows(1).index Case 1 To 3, 8 To 11 ActivateKeyboardLayout kb_lay_ru, 0 Case 4 To 7 ActivateKeyboardLayout kb_lay_en, 0 End Select End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте. [vba]Код
Sub Latkir() If Not Selection.Information(wdWithInTable) Then Exit Sub Select Case Selection.Rows(1).index Case 1 To 3, 8 To 11 ActivateKeyboardLayout kb_lay_ru, 0 Case 4 To 7 ActivateKeyboardLayout kb_lay_en, 0 End Select End Sub
[/vba] Автор - krosav4ig Дата добавления - 28.09.2017 в 12:26
krosav4ig
Дата: Пятница, 28.04.2017, 15:30 |
Сообщение № 882 | Тема: Копирование число по середине текста
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще до кучи Код
=ТЕКСТ('расчет еу'!G5;"""Недостача составляет ""0_ ""долла"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ('расчет еу'!G5-11;100);9);10);"[<1]р;[>4]ров;ра")&""",_ 00_ ")&"цен"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(100*ОКРУГЛ(ОСТАТ('расчет еу'!G5;1);2)-11;100);9);10);"[<1]т;[>4]тов;та")
еще до кучи Код
=ТЕКСТ('расчет еу'!G5;"""Недостача составляет ""0_ ""долла"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ('расчет еу'!G5-11;100);9);10);"[<1]р;[>4]ров;ра")&""",_ 00_ ")&"цен"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(100*ОКРУГЛ(ОСТАТ('расчет еу'!G5;1);2)-11;100);9);10);"[<1]т;[>4]тов;та")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще до кучи Код
=ТЕКСТ('расчет еу'!G5;"""Недостача составляет ""0_ ""долла"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ('расчет еу'!G5-11;100);9);10);"[<1]р;[>4]ров;ра")&""",_ 00_ ")&"цен"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(100*ОКРУГЛ(ОСТАТ('расчет еу'!G5;1);2)-11;100);9);10);"[<1]т;[>4]тов;та")
Автор - krosav4ig Дата добавления - 28.04.2017 в 15:30
krosav4ig
Дата: Суббота, 22.04.2017, 03:58 |
Сообщение № 883 | Тема: Как перезапустить Microsoft Outlook макросом?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Outlook может попросить что-то с ними сделать.
а чтобы не просил, можно [vba]Код
CreateObject("Wscript.Shell").run "cmd /c taskkill /f /im outlook.exe & start outlook.exe", 0, false
[/vba]
Outlook может попросить что-то с ними сделать.
а чтобы не просил, можно [vba]Код
CreateObject("Wscript.Shell").run "cmd /c taskkill /f /im outlook.exe & start outlook.exe", 0, false
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Outlook может попросить что-то с ними сделать.
а чтобы не просил, можно [vba]Код
CreateObject("Wscript.Shell").run "cmd /c taskkill /f /im outlook.exe & start outlook.exe", 0, false
[/vba]Автор - krosav4ig Дата добавления - 22.04.2017 в 03:58
krosav4ig
Дата: Пятница, 21.04.2017, 12:15 |
Сообщение № 884 | Тема: Формула извлекающая кусок текста, работает с ошибкой.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как преобразовать формулу
вот так, напримерКод
=--ЗАМЕНИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(D8;ПОИСК(",";D8&",";ПОИСК("texturef";D8))-1);"texturef";ПОВТОР(" ";99));99));"-";ПОВТОР(" ";99));99;99))&0;2;;",")
как преобразовать формулу
вот так, напримерКод
=--ЗАМЕНИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(D8;ПОИСК(",";D8&",";ПОИСК("texturef";D8))-1);"texturef";ПОВТОР(" ";99));99));"-";ПОВТОР(" ";99));99;99))&0;2;;",")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как преобразовать формулу
вот так, напримерКод
=--ЗАМЕНИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(D8;ПОИСК(",";D8&",";ПОИСК("texturef";D8))-1);"texturef";ПОВТОР(" ";99));99));"-";ПОВТОР(" ";99));99;99))&0;2;;",")
Автор - krosav4ig Дата добавления - 21.04.2017 в 12:15
krosav4ig
Дата: Четверг, 20.04.2017, 02:12 |
Сообщение № 885 | Тема: Изменить адрес (URL) запроса.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте, посмотрите вот эту статейку (Способ 2)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте, посмотрите вот эту статейку (Способ 2) Автор - krosav4ig Дата добавления - 20.04.2017 в 02:12
krosav4ig
Дата: Пятница, 14.04.2017, 04:11 |
Сообщение № 886 | Тема: Диаграмма Ганта с учетом времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Ну, дык, чтобы воспринимала формат времени, должно быть время в H6:H9 значения разделил на 24, установил числовой формат [ч]:мм;@ в формате оси минимальное значение:авто, шаг основных делений 0,125 (3 часа), числовой формат ч:мм;@ в формате подписей данных (для обоих рядов) число>связь с источником
Здравствуйте Ну, дык, чтобы воспринимала формат времени, должно быть время в H6:H9 значения разделил на 24, установил числовой формат [ч]:мм;@ в формате оси минимальное значение:авто, шаг основных делений 0,125 (3 часа), числовой формат ч:мм;@ в формате подписей данных (для обоих рядов) число>связь с источником krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 14.04.2017, 05:52
Ответить
Сообщение Здравствуйте Ну, дык, чтобы воспринимала формат времени, должно быть время в H6:H9 значения разделил на 24, установил числовой формат [ч]:мм;@ в формате оси минимальное значение:авто, шаг основных делений 0,125 (3 часа), числовой формат ч:мм;@ в формате подписей данных (для обоих рядов) число>связь с источником Автор - krosav4ig Дата добавления - 14.04.2017 в 04:11
krosav4ig
Дата: Четверг, 13.04.2017, 20:20 |
Сообщение № 887 | Тема: Множественная связка msgbox в userform
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
до кучи [vba]Код
Private Sub CommandButton1_Click() If TextBox7 <> "" Then Select Case True Case TextBox1 & ComboBox3 = "" MsgBox "Заполните № заявки, либо выберите особую услугу" Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование" MsgBox "Заполните участок" Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _ ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс." MsgBox "Заполните все поля" Case Else dodav End Select Else MsgBox "Не указана дата" End If End Sub
[/vba]
до кучи [vba]Код
Private Sub CommandButton1_Click() If TextBox7 <> "" Then Select Case True Case TextBox1 & ComboBox3 = "" MsgBox "Заполните № заявки, либо выберите особую услугу" Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование" MsgBox "Заполните участок" Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _ ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс." MsgBox "Заполните все поля" Case Else dodav End Select Else MsgBox "Не указана дата" End If End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 20:22
Ответить
Сообщение до кучи [vba]Код
Private Sub CommandButton1_Click() If TextBox7 <> "" Then Select Case True Case TextBox1 & ComboBox3 = "" MsgBox "Заполните № заявки, либо выберите особую услугу" Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование" MsgBox "Заполните участок" Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _ ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс." MsgBox "Заполните все поля" Case Else dodav End Select Else MsgBox "Не указана дата" End If End Sub
[/vba] Автор - krosav4ig Дата добавления - 13.04.2017 в 20:20
krosav4ig
Дата: Четверг, 13.04.2017, 20:01 |
Сообщение № 888 | Тема: Подсчитать количество повторяющихся значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте, так нужно?Код
=СЧЁТЕСЛИ('2017'!$D$1:$D$27;A2)
Код
=СЧЁТЕСЛИ('2017'!$G$1:$G$27;A2)
Здравствуйте, так нужно?Код
=СЧЁТЕСЛИ('2017'!$D$1:$D$27;A2)
Код
=СЧЁТЕСЛИ('2017'!$G$1:$G$27;A2)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 20:03
Ответить
Сообщение Здравствуйте, так нужно?Код
=СЧЁТЕСЛИ('2017'!$D$1:$D$27;A2)
Код
=СЧЁТЕСЛИ('2017'!$G$1:$G$27;A2)
Автор - krosav4ig Дата добавления - 13.04.2017 в 20:01
krosav4ig
Дата: Четверг, 13.04.2017, 19:07 |
Сообщение № 889 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Ага, костылем по причинному месту для файла из 12 поста [vba]Код
Sub dd() Dim a As Variant With [Таблица1].ListObject .ListRows.Add 1 With .ListColumns("Столбец2").DataBodyRange .Cells(1).Clear .Formula = .Formula End With .ListRows(1).Delete End With End Sub
[/vba]
Ага, костылем по причинному месту для файла из 12 поста [vba]Код
Sub dd() Dim a As Variant With [Таблица1].ListObject .ListRows.Add 1 With .ListColumns("Столбец2").DataBodyRange .Cells(1).Clear .Formula = .Formula End With .ListRows(1).Delete End With End Sub
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 19:09
Ответить
Сообщение Ага, костылем по причинному месту для файла из 12 поста [vba]Код
Sub dd() Dim a As Variant With [Таблица1].ListObject .ListRows.Add 1 With .ListColumns("Столбец2").DataBodyRange .Cells(1).Clear .Formula = .Formula End With .ListRows(1).Delete End With End Sub
[/vba]Автор - krosav4ig Дата добавления - 13.04.2017 в 19:07
krosav4ig
Дата: Четверг, 13.04.2017, 18:01 |
Сообщение № 890 | Тема: Как Перенести ДАННЫЕ из Объединенных ячеек в Обычные ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант макроса выделяем таблицу, жмем на кнопку [vba]Код
Sub d() Dim r1 As Range Application.ScreenUpdating = 0: Application.EnableEvents = 0 With Selection .UnMerge On Error GoTo er Set r1 = .RowDifferences(.Find(Empty)) r1.EntireRow.Hidden = 1 .SpecialCells(12).EntireRow.Delete .EntireRow.Hidden = 0 r1.EntireColumn.Hidden = 1 .SpecialCells(12).EntireColumn.Delete .EntireColumn.Hidden = 0 End With er: Application.ScreenUpdating = 1: Application.EnableEvents = 1 End Sub
[/vba]
еще вариант макроса выделяем таблицу, жмем на кнопку [vba]Код
Sub d() Dim r1 As Range Application.ScreenUpdating = 0: Application.EnableEvents = 0 With Selection .UnMerge On Error GoTo er Set r1 = .RowDifferences(.Find(Empty)) r1.EntireRow.Hidden = 1 .SpecialCells(12).EntireRow.Delete .EntireRow.Hidden = 0 r1.EntireColumn.Hidden = 1 .SpecialCells(12).EntireColumn.Delete .EntireColumn.Hidden = 0 End With er: Application.ScreenUpdating = 1: Application.EnableEvents = 1 End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант макроса выделяем таблицу, жмем на кнопку [vba]Код
Sub d() Dim r1 As Range Application.ScreenUpdating = 0: Application.EnableEvents = 0 With Selection .UnMerge On Error GoTo er Set r1 = .RowDifferences(.Find(Empty)) r1.EntireRow.Hidden = 1 .SpecialCells(12).EntireRow.Delete .EntireRow.Hidden = 0 r1.EntireColumn.Hidden = 1 .SpecialCells(12).EntireColumn.Delete .EntireColumn.Hidden = 0 End With er: Application.ScreenUpdating = 1: Application.EnableEvents = 1 End Sub
[/vba] Автор - krosav4ig Дата добавления - 13.04.2017 в 18:01
krosav4ig
Дата: Четверг, 13.04.2017, 12:21 |
Сообщение № 891 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
где-то сохранятся - вопрос где?
\xl\tables\table1.xmlЦитата
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <table xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" id="1" name="Таблица1" displayName="Таблица1" ref="A1:B2" totalsRowShown="0"> <autoFilter ref="A1:B2" /> <tableColumns count="2"> <tableColumn id="1" name="Столбец1" /> <tableColumn id="2" name="Столбец2"> <calculatedColumnFormula>SMALL($G$8:$G$10,1)</calculatedColumnFormula> </tableColumn> </tableColumns> <tableStyleInfo name="TableStyleMedium2" showFirstColumn="0" showLastColumn="0" showRowStripes="1" showColumnStripes="0" /> </table>
где-то сохранятся - вопрос где?
\xl\tables\table1.xmlЦитата
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <table xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" id="1" name="Таблица1" displayName="Таблица1" ref="A1:B2" totalsRowShown="0"> <autoFilter ref="A1:B2" /> <tableColumns count="2"> <tableColumn id="1" name="Столбец1" /> <tableColumn id="2" name="Столбец2"> <calculatedColumnFormula>SMALL($G$8:$G$10,1)</calculatedColumnFormula> </tableColumn> </tableColumns> <tableStyleInfo name="TableStyleMedium2" showFirstColumn="0" showLastColumn="0" showRowStripes="1" showColumnStripes="0" /> </table>
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 12:23
Ответить
Сообщение где-то сохранятся - вопрос где?
\xl\tables\table1.xmlЦитата
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <table xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" id="1" name="Таблица1" displayName="Таблица1" ref="A1:B2" totalsRowShown="0"> <autoFilter ref="A1:B2" /> <tableColumns count="2"> <tableColumn id="1" name="Столбец1" /> <tableColumn id="2" name="Столбец2"> <calculatedColumnFormula>SMALL($G$8:$G$10,1)</calculatedColumnFormula> </tableColumn> </tableColumns> <tableStyleInfo name="TableStyleMedium2" showFirstColumn="0" showLastColumn="0" showRowStripes="1" showColumnStripes="0" /> </table>
Автор - krosav4ig Дата добавления - 13.04.2017 в 12:21
krosav4ig
Дата: Четверг, 13.04.2017, 12:16 |
Сообщение № 892 | Тема: Сумма за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
у мну вот такой монстр в 153 символаКод
=СУММ(ПРОСМОТР(("1."&A1)+СТРОКА($1:$366)-1;--(A$2:L$2&A1);A$3:L$3/ДЕНЬ(КОНМЕСЯЦА(A$2:L$2&A1;0)))*МУМНОЖ(-(("1."&A1)+СТРОКА($1:$366)-{0;1}<=B6:C6);{1:-1}))
у мну вот такой монстр в 153 символаКод
=СУММ(ПРОСМОТР(("1."&A1)+СТРОКА($1:$366)-1;--(A$2:L$2&A1);A$3:L$3/ДЕНЬ(КОНМЕСЯЦА(A$2:L$2&A1;0)))*МУМНОЖ(-(("1."&A1)+СТРОКА($1:$366)-{0;1}<=B6:C6);{1:-1}))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение у мну вот такой монстр в 153 символаКод
=СУММ(ПРОСМОТР(("1."&A1)+СТРОКА($1:$366)-1;--(A$2:L$2&A1);A$3:L$3/ДЕНЬ(КОНМЕСЯЦА(A$2:L$2&A1;0)))*МУМНОЖ(-(("1."&A1)+СТРОКА($1:$366)-{0;1}<=B6:C6);{1:-1}))
Автор - krosav4ig Дата добавления - 13.04.2017 в 12:16
krosav4ig
Дата: Четверг, 13.04.2017, 01:22 |
Сообщение № 893 | Тема: Сумма за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
тогда у мну 153 без = моск не хочет думать, как можно сократить
тогда у мну 153 без = моск не хочет думать, как можно сократить krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.04.2017, 01:23
Ответить
Сообщение тогда у мну 153 без = моск не хочет думать, как можно сократить Автор - krosav4ig Дата добавления - 13.04.2017 в 01:22
krosav4ig
Дата: Среда, 12.04.2017, 23:15 |
Сообщение № 894 | Тема: Как Перенести ДАННЫЕ из Объединенных ячеек в Обычные ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
vitareiki , Дайте нам пример таблицы пощупать
vitareiki , Дайте нам пример таблицы пощупатьkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение vitareiki , Дайте нам пример таблицы пощупатьАвтор - krosav4ig Дата добавления - 12.04.2017 в 23:15
krosav4ig
Дата: Среда, 12.04.2017, 22:46 |
Сообщение № 895 | Тема: Автоматическое определение суммы за заданный период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а вдруг ... ? в B1 кол-во месяцев с числовым форматом "Сумма за "0" месяцев на" в B2 расчетная дата (конец диапазона) в C2 формулаКод
=СУММЕСЛИМН(B7:B46;C7:C46;">="&B2-B1*30;C7:C46;"<="&B2)
а вдруг ... ? в B1 кол-во месяцев с числовым форматом "Сумма за "0" месяцев на" в B2 расчетная дата (конец диапазона) в C2 формулаКод
=СУММЕСЛИМН(B7:B46;C7:C46;">="&B2-B1*30;C7:C46;"<="&B2)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение а вдруг ... ? в B1 кол-во месяцев с числовым форматом "Сумма за "0" месяцев на" в B2 расчетная дата (конец диапазона) в C2 формулаКод
=СУММЕСЛИМН(B7:B46;C7:C46;">="&B2-B1*30;C7:C46;"<="&B2)
Автор - krosav4ig Дата добавления - 12.04.2017 в 22:46
krosav4ig
Дата: Вторник, 11.04.2017, 15:31 |
Сообщение № 896 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
нет никакого "выключателя"
ну он как бы есть, но в данном случае погоды не делает[vba]Код
Application.AutoCorrect.AutoFillFormulasInLists=False
[/vba]
нет никакого "выключателя"
ну он как бы есть, но в данном случае погоды не делает[vba]Код
Application.AutoCorrect.AutoFillFormulasInLists=False
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение нет никакого "выключателя"
ну он как бы есть, но в данном случае погоды не делает[vba]Код
Application.AutoCorrect.AutoFillFormulasInLists=False
[/vba]Автор - krosav4ig Дата добавления - 11.04.2017 в 15:31
krosav4ig
Дата: Вторник, 11.04.2017, 02:32 |
Сообщение № 897 | Тема: Некорректная выгрузка массива в ListObjects...DataBodyRange
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Доброй ночи если просто заполнить, то может быть просто[vba][/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]
Доброй ночи если просто заполнить, то может быть просто[vba][/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] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 11.04.2017, 03:17
Ответить
Сообщение Доброй ночи если просто заполнить, то может быть просто[vba][/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] Автор - krosav4ig Дата добавления - 11.04.2017 в 02:32
krosav4ig
Дата: Воскресенье, 09.04.2017, 04:14 |
Сообщение № 898 | Тема: Чего вам не хватает на форуме?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Воскресенье, 09.04.2017, 03:18 |
Сообщение № 899 | Тема: Сортировка по одинаковым значениям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
здравствуйте как отсортировать колонки
Вот тут можно почитать и вот тут
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 09.04.2017, 03:21
Ответить
Сообщение здравствуйте как отсортировать колонки
Вот тут можно почитать и вот тут Автор - krosav4ig Дата добавления - 09.04.2017 в 03:18
krosav4ig
Дата: Воскресенье, 09.04.2017, 02:31 |
Сообщение № 900 | Тема: Перенос данных в другую книгу (с "если")
Группа: Друзья
Ранг: Старожил
Сообщений: 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]
Вариант с 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] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 09.04.2017, 02:33
Ответить
Сообщение Вариант с 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] Автор - krosav4ig Дата добавления - 09.04.2017 в 02:31