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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
[offtop]
Цитата anvg, 21.01.2017 в 10:57, в сообщении № 3 ()
а смысл в группировке?
Без понятия, видимо мой моск уже спал в это время :) [/offtop]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop]
Цитата anvg, 21.01.2017 в 10:57, в сообщении № 3 ()
а смысл в группировке?
Без понятия, видимо мой моск уже спал в это время :) [/offtop]
Автор - krosav4ig
Дата добавления - 21.01.2017 в 16:42
krosav4ig Дата: Суббота, 21.01.2017, 19:53 | Сообщение № 1402 | Тема: Макрос на вычитание рандомного числа из диапазона
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
Цитата falco, 21.01.2017 в 16:48, в сообщении № 1 ()
Подскажите, как решить такую задачу

1 Вставить кнопку
2 В обработчик нажатия кнопки написать макрос, который будет из показателя 1 вычитать рандомное число от 1 до 10 и прибавлять рандомное число от 1 до 10 к показателю 2 с учетом максимального значения показателей
[p.s.]Тыц

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

Сообщение отредактировал krosav4ig - Суббота, 21.01.2017, 20:04
 
Ответить
СообщениеЗдравствуйте
Цитата falco, 21.01.2017 в 16:48, в сообщении № 1 ()
Подскажите, как решить такую задачу

1 Вставить кнопку
2 В обработчик нажатия кнопки написать макрос, который будет из показателя 1 вычитать рандомное число от 1 до 10 и прибавлять рандомное число от 1 до 10 к показателю 2 с учетом максимального значения показателей
[p.s.]Тыц
Автор - krosav4ig
Дата добавления - 21.01.2017 в 19:53
krosav4ig Дата: Вторник, 24.01.2017, 03:03 | Сообщение № 1403 | Тема: Операции с видео таймкодом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для разнобразия
сложение
Код
=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2))/25^{1;1;1;0})/60^{2;1;0;0};60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")

вычитание
Код
=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2);{-1;1})/25^{1;1;1;0})/60^{2;1;0;0};9^9^{0;0;0;1}*60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")
К сообщению приложен файл: 0233677.xlsx (12.1 Kb)

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

Сообщение отредактировал krosav4ig - Вторник, 24.01.2017, 03:09
 
Ответить
Сообщениедля разнобразия
сложение
Код
=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2))/25^{1;1;1;0})/60^{2;1;0;0};60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")

вычитание
Код
=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2);{-1;1})/25^{1;1;1;0})/60^{2;1;0;0};9^9^{0;0;0;1}*60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")
Автор - krosav4ig
Дата добавления - 24.01.2017 в 03:03
krosav4ig Дата: Четверг, 26.01.2017, 19:51 | Сообщение № 1404 | Тема: Выбор из списка со ссылкой на другой лист
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Можно посредством VBA, В модуль листа пишем
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.[B:B]) Is Nothing Then Exit Sub
    If IsError(Application.Match(Target, Лист2.Range( _
        Target.Offset(, -1)), 0)) Then Exit Sub
    Dim sh As Worksheet, Name As String * 31
    Name = Application.Trim(Target.Offset(, -1) & ", " & Target)
    On Error Resume Next
    With Worksheets
        .Item(Name).Activate
        If Err = 0 Then Exit Sub
        .Add(, .Item(.Count)).Name = Name
    End With
End Sub
[/vba]
К сообщению приложен файл: 8959635.xls (54.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеМожно посредством VBA, В модуль листа пишем
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.[B:B]) Is Nothing Then Exit Sub
    If IsError(Application.Match(Target, Лист2.Range( _
        Target.Offset(, -1)), 0)) Then Exit Sub
    Dim sh As Worksheet, Name As String * 31
    Name = Application.Trim(Target.Offset(, -1) & ", " & Target)
    On Error Resume Next
    With Worksheets
        .Item(Name).Activate
        If Err = 0 Then Exit Sub
        .Add(, .Item(.Count)).Name = Name
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 26.01.2017 в 19:51
krosav4ig Дата: Воскресенье, 29.01.2017, 04:23 | Сообщение № 1405 | Тема: Замена закладок (bookmarks) по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
Слияние данных MS Excel и MS Word
Цитата PATRI0T, 29.01.2017 в 00:56, в сообщении № 1 ()
дату с закладкой "Инф_Дата_Монтажа" нужно поставить только в том случае, если закладка "Инф_Тип_ГБО" = "СНГ", иначе оставить пустое место.

подобное условие при слиянии можно сделать 2-мя способами
1 пишем
IF MERGEFIELD Инф_Тип_ГБО = "СНГ" MERGEFIELD Инф_Дата_Монтажа ""
выделяем этот текст, жмем Ctrl+F9, выделяем MERGEFIELD Инф_Тип_ГБО, жмем Ctrl+F9,выделяем MERGEFIELD Инф_Дата_Монтажа, жмем Ctrl+F9

2 Рассылка>Составление документа и вставка полей>Правила> if...then...else
Выбираем поле, оператор:равно, значение:СНГ, Вставить следующий текст:пишем любой текст (например !@#), OK
В режиме просмотра кодов полей выделяем "!@#", жмем Рассылка>Составление документа и вставка полей>Вставить поле слияния>Инф_Дата_Монтажа

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
Слияние данных MS Excel и MS Word
Цитата PATRI0T, 29.01.2017 в 00:56, в сообщении № 1 ()
дату с закладкой "Инф_Дата_Монтажа" нужно поставить только в том случае, если закладка "Инф_Тип_ГБО" = "СНГ", иначе оставить пустое место.

подобное условие при слиянии можно сделать 2-мя способами
1 пишем
IF MERGEFIELD Инф_Тип_ГБО = "СНГ" MERGEFIELD Инф_Дата_Монтажа ""
выделяем этот текст, жмем Ctrl+F9, выделяем MERGEFIELD Инф_Тип_ГБО, жмем Ctrl+F9,выделяем MERGEFIELD Инф_Дата_Монтажа, жмем Ctrl+F9

2 Рассылка>Составление документа и вставка полей>Правила> if...then...else
Выбираем поле, оператор:равно, значение:СНГ, Вставить следующий текст:пишем любой текст (например !@#), OK
В режиме просмотра кодов полей выделяем "!@#", жмем Рассылка>Составление документа и вставка полей>Вставить поле слияния>Инф_Дата_Монтажа
Автор - krosav4ig
Дата добавления - 29.01.2017 в 04:23
krosav4ig Дата: Понедельник, 30.01.2017, 15:32 | Сообщение № 1406 | Тема: Access2010 запрос на выборку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
vole1977, ну дык в VBE нужно тыкнуть галочку tools>references>microsoft activex data objects 2.8 library
или в коде заменить
[vba]
Код
Private FSel As ADODB.Recordset
[/vba] на [vba]
Код
Private FSel As object
[/vba] и[vba]
Код
If FSel Is Nothing Then Set FSel = New ADODB.Recordset: FSel.CursorLocation = adUseClient
[/vba] на [vba]
Код
If FSel Is Nothing Then Set FSel = createobject("ADODB.Recordset"): FSel.CursorLocation = 3
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеvole1977, ну дык в VBE нужно тыкнуть галочку tools>references>microsoft activex data objects 2.8 library
или в коде заменить
[vba]
Код
Private FSel As ADODB.Recordset
[/vba] на [vba]
Код
Private FSel As object
[/vba] и[vba]
Код
If FSel Is Nothing Then Set FSel = New ADODB.Recordset: FSel.CursorLocation = adUseClient
[/vba] на [vba]
Код
If FSel Is Nothing Then Set FSel = createobject("ADODB.Recordset"): FSel.CursorLocation = 3
[/vba]
Автор - krosav4ig
Дата добавления - 30.01.2017 в 15:32
krosav4ig Дата: Среда, 01.02.2017, 22:08 | Сообщение № 1407 | Тема: Сумма комбинаций ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи, формульный вариант
Код
=ЕСЛИ(СТРОКА(A1)>ЧИСЛСТОЛБ(Таблица1)^ЧСТРОК(Таблица1);НД();МУМНОЖ(Ч(СМЕЩ(Таблица1;ОСТАТ(ЦЕЛОЕ((СТРОКА()-1)/ЧСТРОК(Таблица1)^(СТОЛБЕЦ(Таблица1)-1));ЧСТРОК(Таблица1));СТОЛБЕЦ(Таблица1)-1));ТРАНСП(СТОЛБЕЦ(Таблица1))^0))
К сообщению приложен файл: 6922062.xlsx (16.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедо кучи, формульный вариант
Код
=ЕСЛИ(СТРОКА(A1)>ЧИСЛСТОЛБ(Таблица1)^ЧСТРОК(Таблица1);НД();МУМНОЖ(Ч(СМЕЩ(Таблица1;ОСТАТ(ЦЕЛОЕ((СТРОКА()-1)/ЧСТРОК(Таблица1)^(СТОЛБЕЦ(Таблица1)-1));ЧСТРОК(Таблица1));СТОЛБЕЦ(Таблица1)-1));ТРАНСП(СТОЛБЕЦ(Таблица1))^0))
Автор - krosav4ig
Дата добавления - 01.02.2017 в 22:08
krosav4ig Дата: Понедельник, 13.02.2017, 17:00 | Сообщение № 1408 | Тема: Шаг формулы автосумма 7 ячеек - как сделать?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый день
Вариант с группировкой по полю сводной таблицы
К сообщению приложен файл: 2699780.gif (10.9 Kb) · 8520235.xlsx (17.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДобрый день
Вариант с группировкой по полю сводной таблицы
Автор - krosav4ig
Дата добавления - 13.02.2017 в 17:00
krosav4ig Дата: Вторник, 14.02.2017, 00:32 | Сообщение № 1409 | Тема: Как задать параметр Fit to 1 page wide by 1 tall для печати
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у мну вот так работает
[vba]
Код
    With ActiveSheet.PageSetup        
        .Zoom = False        
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
[/vba]
из справки
Цитата
PageSetup.Zoom Property
...
If this property is False, the FitToPagesWide and FitToPagesTall properties control how the worksheet is scaled.

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа у мну вот так работает
[vba]
Код
    With ActiveSheet.PageSetup        
        .Zoom = False        
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
[/vba]
из справки
Цитата
PageSetup.Zoom Property
...
If this property is False, the FitToPagesWide and FitToPagesTall properties control how the worksheet is scaled.
Автор - krosav4ig
Дата добавления - 14.02.2017 в 00:32
krosav4ig Дата: Вторник, 14.02.2017, 17:11 | Сообщение № 1410 | Тема: определить часовой интервал для заданного времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для B3 формула
Код
=ТЕКСТ(СУММ(ТЕКСТ(ЧАС(A3+{0;"1:"});"[=0]24")*10^{6;2});"00\:00-00\:00")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля B3 формула
Код
=ТЕКСТ(СУММ(ТЕКСТ(ЧАС(A3+{0;"1:"});"[=0]24")*10^{6;2});"00\:00-00\:00")
Автор - krosav4ig
Дата добавления - 14.02.2017 в 17:11
krosav4ig Дата: Понедельник, 20.02.2017, 23:35 | Сообщение № 1411 | Тема: Запрос на продолжение при закрытии книги
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
Если правильно понял
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("G9,G11,G13,G15,G17,G19,G21,G23,G27,G33,G35,G37,G39,G41,G43,G45,G47,G49,G51,G53,G55,G57").Locked = True
    Range("G59,G61,G63,G65,G67,G69,G73,G75,G77,G79,G81,G83,G85,G87,G89,G90,G92,G94,G96,G98,G100,G102,G104").Locked = True
    Range("G108,G110,G112,G114,G116,G118,G120,G122,G124,G126,G128,G130,G132,G134,G136,G138,G140,G142,G145,G147,G149,G151,G153").Locked = True
    Dim reply As Integer
    reply = MsgBox("Вы указали план на следующую неделю?", vbYesNo, "Запрос на продолжение")
    If reply = vbNo Then
        MsgBox "Укажите плановые задания на следующую неделю"
        Cancel = True
        Application.Goto [K9], True 'пользователь оказывается в ячейке K9
    ElseIf reply = vbYes Then Exit Sub
    End If
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Понедельник, 20.02.2017, 23:36
 
Ответить
СообщениеЗдравствуйте.
Если правильно понял
[vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("G9,G11,G13,G15,G17,G19,G21,G23,G27,G33,G35,G37,G39,G41,G43,G45,G47,G49,G51,G53,G55,G57").Locked = True
    Range("G59,G61,G63,G65,G67,G69,G73,G75,G77,G79,G81,G83,G85,G87,G89,G90,G92,G94,G96,G98,G100,G102,G104").Locked = True
    Range("G108,G110,G112,G114,G116,G118,G120,G122,G124,G126,G128,G130,G132,G134,G136,G138,G140,G142,G145,G147,G149,G151,G153").Locked = True
    Dim reply As Integer
    reply = MsgBox("Вы указали план на следующую неделю?", vbYesNo, "Запрос на продолжение")
    If reply = vbNo Then
        MsgBox "Укажите плановые задания на следующую неделю"
        Cancel = True
        Application.Goto [K9], True 'пользователь оказывается в ячейке K9
    ElseIf reply = vbYes Then Exit Sub
    End If
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 20.02.2017 в 23:35
krosav4ig Дата: Вторник, 21.02.2017, 18:53 | Сообщение № 1412 | Тема: Печать кучи файлов разом
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениездравствуйте
как вариант, открыть очередь печати нужного принтера и перетянуть труда все ваши файлы
Автор - krosav4ig
Дата добавления - 21.02.2017 в 18:53
krosav4ig Дата: Суббота, 25.02.2017, 05:33 | Сообщение № 1413 | Тема: В режиме совместимости не работают кнопки Влияющие ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
А снять защиту листа не пробовали? ;)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеА снять защиту листа не пробовали? ;)
Автор - krosav4ig
Дата добавления - 25.02.2017 в 05:33
krosav4ig Дата: Понедельник, 27.02.2017, 02:32 | Сообщение № 1414 | Тема: Некорректные результаты обработки чисел в теле цикла For
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата dude, 27.02.2017 в 00:18, в сообщении № 10 ()
в VBA нет функции ЦЕЛОЕ

хто это вам такое сказал? :o Int() это есть ЦЕЛОЕ()

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата dude, 27.02.2017 в 00:18, в сообщении № 10 ()
в VBA нет функции ЦЕЛОЕ

хто это вам такое сказал? :o Int() это есть ЦЕЛОЕ()
Автор - krosav4ig
Дата добавления - 27.02.2017 в 02:32
krosav4ig Дата: Вторник, 28.02.2017, 18:00 | Сообщение № 1415 | Тема: Определение дня рождения (истина за 1-30 дней до ДР)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи
формула для диапазона -30 +30 дней от ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{-30;0;30}-I7);{1:1:1})<=90)

для 30 дней до ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)-{30;0}-I7);{1:1})=30)
для 30 дней после ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{30;0}-I7);{1:1})=30)

Добавил формулы в диспетчер имен и по ним сделал УФ
К сообщению приложен файл: 7147855.xlsx (17.2 Kb)

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

Сообщение отредактировал krosav4ig - Вторник, 28.02.2017, 18:02
 
Ответить
Сообщениедо кучи
формула для диапазона -30 +30 дней от ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{-30;0;30}-I7);{1:1:1})<=90)

для 30 дней до ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)-{30;0}-I7);{1:1})=30)
для 30 дней после ДР
Код
=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{30;0}-I7);{1:1})=30)

Добавил формулы в диспетчер имен и по ним сделал УФ
Автор - krosav4ig
Дата добавления - 28.02.2017 в 18:00
krosav4ig Дата: Среда, 01.03.2017, 01:10 | Сообщение № 1416 | Тема: Как вставить скопированные по фильтру строки?
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 1417 | Тема: Как вставить скопированные по фильтру строки?
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 1418 | Тема: смещение столбца по заданному интервалу
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 1419 | Тема: Получить все комбинации из 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 | Сообщение № 1420 | Тема: Сводные таблицы с текстовым форматом
Группа: Друзья
Ранг: Старожил
Сообщений: 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
Мир MS Excel » Записи участника » krosav4ig [2323]
Поиск:

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