Результаты поиска
krosav4ig
Дата: Воскресенье, 15.09.2019, 20:47 |
Сообщение № 2161 | Тема: Сортировка до пустой строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте [vba]Код
Sub SortNak() Dim r As Range: Set r = [g9] With r.CurrentRegion With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells) .Sort r, xlAscending, , , , , , xlYes End With End With End Sub
[/vba]
Здравствуйте [vba]Код
Sub SortNak() Dim r As Range: Set r = [g9] With r.CurrentRegion With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells) .Sort r, xlAscending, , , , , , xlYes End With End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте [vba]Код
Sub SortNak() Dim r As Range: Set r = [g9] With r.CurrentRegion With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells) .Sort r, xlAscending, , , , , , xlYes End With End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 15.09.2019 в 20:47
krosav4ig
Дата: Понедельник, 16.09.2019, 17:11 |
Сообщение № 2162 | Тема: Выборка данных из другой книги
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый деньКод
=ВПР(B2;'D:\TMP\[5045243.xls]TDSheet'!$B$9:$G$9999;6;)
у себя в формуле поменяйте путь к файлу и его имя
Добрый деньКод
=ВПР(B2;'D:\TMP\[5045243.xls]TDSheet'!$B$9:$G$9999;6;)
у себя в формуле поменяйте путь к файлу и его имя krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый деньКод
=ВПР(B2;'D:\TMP\[5045243.xls]TDSheet'!$B$9:$G$9999;6;)
у себя в формуле поменяйте путь к файлу и его имя Автор - krosav4ig Дата добавления - 16.09.2019 в 17:11
krosav4ig
Дата: Среда, 18.09.2019, 21:30 |
Сообщение № 2163 | Тема: ABC анализ - кличество по категориям формулой без доп.столбц
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
вариант без доп. столбцовКод
=ПОИСКПОЗ(СУММ($A$3:A3);МУМНОЖ(ЕСЛИ((СТРОКА(B$9:B$52)>=ТРАНСП(СТРОКА(B$9:B$52)));НАИБОЛЬШИЙ(B$9:B$52;ЕСЛИ(СТРОКА(B$9:B$52);ТРАНСП(СТРОКА(B$9:B$52)-8))););СТРОКА(B$9:B$52)^0))-СУММ($D$2:D2)
вариант без доп. столбцовКод
=ПОИСКПОЗ(СУММ($A$3:A3);МУМНОЖ(ЕСЛИ((СТРОКА(B$9:B$52)>=ТРАНСП(СТРОКА(B$9:B$52)));НАИБОЛЬШИЙ(B$9:B$52;ЕСЛИ(СТРОКА(B$9:B$52);ТРАНСП(СТРОКА(B$9:B$52)-8))););СТРОКА(B$9:B$52)^0))-СУММ($D$2:D2)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение вариант без доп. столбцовКод
=ПОИСКПОЗ(СУММ($A$3:A3);МУМНОЖ(ЕСЛИ((СТРОКА(B$9:B$52)>=ТРАНСП(СТРОКА(B$9:B$52)));НАИБОЛЬШИЙ(B$9:B$52;ЕСЛИ(СТРОКА(B$9:B$52);ТРАНСП(СТРОКА(B$9:B$52)-8))););СТРОКА(B$9:B$52)^0))-СУММ($D$2:D2)
Автор - krosav4ig Дата добавления - 18.09.2019 в 21:30
krosav4ig
Дата: Суббота, 21.09.2019, 23:31 |
Сообщение № 2164 | Тема: построение прямой на графике (вариант)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Gold_Barsik , если стоит Microsoft Office Compatibility Pack, попробуйте сохранить в xlsb (в поле тип файла обычно 5 строчка снизу)
Gold_Barsik , если стоит Microsoft Office Compatibility Pack, попробуйте сохранить в xlsb (в поле тип файла обычно 5 строчка снизу)krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Gold_Barsik , если стоит Microsoft Office Compatibility Pack, попробуйте сохранить в xlsb (в поле тип файла обычно 5 строчка снизу)Автор - krosav4ig Дата добавления - 21.09.2019 в 23:31
krosav4ig
Дата: Среда, 25.09.2019, 02:17 |
Сообщение № 2165 | Тема: Как посчитать в массиве суммы и поставить не на каждой строк
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Код
=ЕСЛИ(СУММ(СЧЁТЕСЛИ(H3;{"*Ардели*0,5*";"*Георгиевс*0,5*"}));;СУММ(СУММЕСЛИМН(I$3:I$23;C$3:C$23;C3;E$3:E$23;E3;H$3:H$23;{"*Ардели*0,5*";"*Георгиевс*0,5*"})))
Код
=ЕСЛИ(СУММ(СЧЁТЕСЛИ(H3;{"*Ардели*0,5*";"*Георгиевс*0,5*"}));;СУММ(СУММЕСЛИМН(I$3:I$23;C$3:C$23;C3;E$3:E$23;E3;H$3:H$23;{"*Ардели*0,5*";"*Георгиевс*0,5*"})))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Код
=ЕСЛИ(СУММ(СЧЁТЕСЛИ(H3;{"*Ардели*0,5*";"*Георгиевс*0,5*"}));;СУММ(СУММЕСЛИМН(I$3:I$23;C$3:C$23;C3;E$3:E$23;E3;H$3:H$23;{"*Ардели*0,5*";"*Георгиевс*0,5*"})))
Автор - krosav4ig Дата добавления - 25.09.2019 в 02:17
krosav4ig
Дата: Пятница, 27.09.2019, 22:32 |
Сообщение № 2166 | Тема: Пронумеровать условные группы последовательности чисел
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение можно еще немного проще Автор - krosav4ig Дата добавления - 27.09.2019 в 22:32
krosav4ig
Дата: Воскресенье, 29.09.2019, 15:46 |
Сообщение № 2167 | Тема: Числа отображаются текстом, как исправить
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
Option Explicit Private Sub CommandButton1_Click() Call sheetform Unload Me End Sub Sub test(ByRef arrtest#()) 'Заполняем массив случайными числами из текстбокса ReDim arrtest(1 To Val(Tb1.Text), 1 To 2) For i = 1 To UBound(arrtest, 1) j = 1 arrtest(i, j) = i ' номер итерации arrtest(i, j + 1) = Round(Tb1.Value * 99 * Rnd, 2) ' случайное число полученное умножением числа введенного в текстбоксе на генератор Next i End Sub ' Выводим данные массива arrtest на новый лист после нажатия кнопки exit Sub sheetform() Application.ScreenUpdating = False 'Создаем новый лист с помощью объектной переменной (в этом случае новый лист создается строго перед активным листом и нигде больше) Dim SheetTest As Worksheet Dim Celltest As Range Dim currow As Integer ' переменная для счетчика строк Dim arrtest#() 'массива случайных чисел currow = 1 Set SheetTest = Worksheets.Add SheetTest.Name = "test" & Sheets.Count Windows.Item(SheetTest.Parent.Name).DisplayGridlines = False ' убираем сетку 'вставляем названия ячеек на созданный лист ' Заголовки столбцов SheetTest.Cells(currow, 1) = "№ Периода" SheetTest.Cells(currow, 2) = "Тестовое случайное значение" test arrtest ' вызываем процедуру заполнения массива arrtest случайными числами ' Заполняем лист данными из массива arrtest, куда мы предварительно внесли все расчетные значения ,ячейки таблицы With SheetTest.Cells(currow + 1, 1).Resize(UBound(arrtest, 1), UBound(arrtest, 2)) .Columns(2).NumberFormat = "#,##0.00" .Value = arrtest End With End Sub
[/vba]
[vba]Код
Option Explicit Private Sub CommandButton1_Click() Call sheetform Unload Me End Sub Sub test(ByRef arrtest#()) 'Заполняем массив случайными числами из текстбокса ReDim arrtest(1 To Val(Tb1.Text), 1 To 2) For i = 1 To UBound(arrtest, 1) j = 1 arrtest(i, j) = i ' номер итерации arrtest(i, j + 1) = Round(Tb1.Value * 99 * Rnd, 2) ' случайное число полученное умножением числа введенного в текстбоксе на генератор Next i End Sub ' Выводим данные массива arrtest на новый лист после нажатия кнопки exit Sub sheetform() Application.ScreenUpdating = False 'Создаем новый лист с помощью объектной переменной (в этом случае новый лист создается строго перед активным листом и нигде больше) Dim SheetTest As Worksheet Dim Celltest As Range Dim currow As Integer ' переменная для счетчика строк Dim arrtest#() 'массива случайных чисел currow = 1 Set SheetTest = Worksheets.Add SheetTest.Name = "test" & Sheets.Count Windows.Item(SheetTest.Parent.Name).DisplayGridlines = False ' убираем сетку 'вставляем названия ячеек на созданный лист ' Заголовки столбцов SheetTest.Cells(currow, 1) = "№ Периода" SheetTest.Cells(currow, 2) = "Тестовое случайное значение" test arrtest ' вызываем процедуру заполнения массива arrtest случайными числами ' Заполняем лист данными из массива arrtest, куда мы предварительно внесли все расчетные значения ,ячейки таблицы With SheetTest.Cells(currow + 1, 1).Resize(UBound(arrtest, 1), UBound(arrtest, 2)) .Columns(2).NumberFormat = "#,##0.00" .Value = arrtest End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [vba]Код
Option Explicit Private Sub CommandButton1_Click() Call sheetform Unload Me End Sub Sub test(ByRef arrtest#()) 'Заполняем массив случайными числами из текстбокса ReDim arrtest(1 To Val(Tb1.Text), 1 To 2) For i = 1 To UBound(arrtest, 1) j = 1 arrtest(i, j) = i ' номер итерации arrtest(i, j + 1) = Round(Tb1.Value * 99 * Rnd, 2) ' случайное число полученное умножением числа введенного в текстбоксе на генератор Next i End Sub ' Выводим данные массива arrtest на новый лист после нажатия кнопки exit Sub sheetform() Application.ScreenUpdating = False 'Создаем новый лист с помощью объектной переменной (в этом случае новый лист создается строго перед активным листом и нигде больше) Dim SheetTest As Worksheet Dim Celltest As Range Dim currow As Integer ' переменная для счетчика строк Dim arrtest#() 'массива случайных чисел currow = 1 Set SheetTest = Worksheets.Add SheetTest.Name = "test" & Sheets.Count Windows.Item(SheetTest.Parent.Name).DisplayGridlines = False ' убираем сетку 'вставляем названия ячеек на созданный лист ' Заголовки столбцов SheetTest.Cells(currow, 1) = "№ Периода" SheetTest.Cells(currow, 2) = "Тестовое случайное значение" test arrtest ' вызываем процедуру заполнения массива arrtest случайными числами ' Заполняем лист данными из массива arrtest, куда мы предварительно внесли все расчетные значения ,ячейки таблицы With SheetTest.Cells(currow + 1, 1).Resize(UBound(arrtest, 1), UBound(arrtest, 2)) .Columns(2).NumberFormat = "#,##0.00" .Value = arrtest End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 29.09.2019 в 15:46
krosav4ig
Дата: Воскресенье, 29.09.2019, 16:32 |
Сообщение № 2168 | Тема: Подсчет уникальных значений по нескольким критериям
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
UDF [vba]Код
Function UsedRng() As Range Set UsedRng = Application.Caller.Parent.UsedRange End Function
[/vba]в диспетчере имен создаем именованный диапазон ВсеСтроки в ячейке формула Код
=СУММ(ЧАСТОТА(ЕСЛИ((ВсеСтроки I:I=I2)*(ВсеСтроки A:A<>"")*(ВсеСтроки D:D>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки K:K=K2);ПОИСКПОЗ(ВсеСтроки A:A;A:A;0));СТРОКА(ВсеСтроки)-СТРОКА(K2)+1))
или использовать умные таблицы (Лист2) Код
=СУММ(ЧАСТОТА(ЕСЛИ((Таблица1[Client]=Таблица1[@Client])*(Таблица1[AGR]<>"")*(Таблица1[Дата поступления]>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки Таблица1[результат]=K2);ПОИСКПОЗ(Таблица1[AGR];Таблица1[AGR];0));СТРОКА(Таблица1)-СТРОКА(K2)+1))
UDF [vba]Код
Function UsedRng() As Range Set UsedRng = Application.Caller.Parent.UsedRange End Function
[/vba]в диспетчере имен создаем именованный диапазон ВсеСтроки в ячейке формула Код
=СУММ(ЧАСТОТА(ЕСЛИ((ВсеСтроки I:I=I2)*(ВсеСтроки A:A<>"")*(ВсеСтроки D:D>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки K:K=K2);ПОИСКПОЗ(ВсеСтроки A:A;A:A;0));СТРОКА(ВсеСтроки)-СТРОКА(K2)+1))
или использовать умные таблицы (Лист2) Код
=СУММ(ЧАСТОТА(ЕСЛИ((Таблица1[Client]=Таблица1[@Client])*(Таблица1[AGR]<>"")*(Таблица1[Дата поступления]>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки Таблица1[результат]=K2);ПОИСКПОЗ(Таблица1[AGR];Таблица1[AGR];0));СТРОКА(Таблица1)-СТРОКА(K2)+1))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение UDF [vba]Код
Function UsedRng() As Range Set UsedRng = Application.Caller.Parent.UsedRange End Function
[/vba]в диспетчере имен создаем именованный диапазон ВсеСтроки в ячейке формула Код
=СУММ(ЧАСТОТА(ЕСЛИ((ВсеСтроки I:I=I2)*(ВсеСтроки A:A<>"")*(ВсеСтроки D:D>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки K:K=K2);ПОИСКПОЗ(ВсеСтроки A:A;A:A;0));СТРОКА(ВсеСтроки)-СТРОКА(K2)+1))
или использовать умные таблицы (Лист2) Код
=СУММ(ЧАСТОТА(ЕСЛИ((Таблица1[Client]=Таблица1[@Client])*(Таблица1[AGR]<>"")*(Таблица1[Дата поступления]>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки Таблица1[результат]=K2);ПОИСКПОЗ(Таблица1[AGR];Таблица1[AGR];0));СТРОКА(Таблица1)-СТРОКА(K2)+1))
Автор - krosav4ig Дата добавления - 29.09.2019 в 16:32
krosav4ig
Дата: Понедельник, 30.09.2019, 17:20 |
Сообщение № 2169 | Тема: Как в шаблоне изменить имя?
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Понедельник, 30.09.2019, 17:51 |
Сообщение № 2170 | Тема: Подсчет уникальных значений по нескольким критериям
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
заменил UDF [vba]Код
Function UsedRng(Optional ByRef r As Range) As Range Set UsedRng = IIf(r Is Nothing, Application.Caller, r).Parent.UsedRange End Function
[/vba] Определение имени ВсеСтроки заменил на Ошибка была из-за того, что функция UsedRng возвращала использованный диапазон листа, на котором находится ячейка, из которой эта функция вызывается, т.е. ВсеСтроки - диапазон с Лист2, а столбцы с Лист1, а пробел между диапазонами в формуле - оператор пересечения.
заменил UDF [vba]Код
Function UsedRng(Optional ByRef r As Range) As Range Set UsedRng = IIf(r Is Nothing, Application.Caller, r).Parent.UsedRange End Function
[/vba] Определение имени ВсеСтроки заменил на Ошибка была из-за того, что функция UsedRng возвращала использованный диапазон листа, на котором находится ячейка, из которой эта функция вызывается, т.е. ВсеСтроки - диапазон с Лист2, а столбцы с Лист1, а пробел между диапазонами в формуле - оператор пересечения. krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 30.09.2019, 17:52
Ответить
Сообщение заменил UDF [vba]Код
Function UsedRng(Optional ByRef r As Range) As Range Set UsedRng = IIf(r Is Nothing, Application.Caller, r).Parent.UsedRange End Function
[/vba] Определение имени ВсеСтроки заменил на Ошибка была из-за того, что функция UsedRng возвращала использованный диапазон листа, на котором находится ячейка, из которой эта функция вызывается, т.е. ВсеСтроки - диапазон с Лист2, а столбцы с Лист1, а пробел между диапазонами в формуле - оператор пересечения. Автор - krosav4ig Дата добавления - 30.09.2019 в 17:51
krosav4ig
Дата: Вторник, 01.10.2019, 13:25 |
Сообщение № 2171 | Тема: Настройка переодического сохранения/экспорта файла в Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый день Функция отправки Xlsx тут функция для создания триггера [vba]Код
function createTimeDrivenTrigger() { // Trigger every day at 09:00. ScriptApp.newTrigger('send_report_email') .timeBased() .everyDays(1) .atHour(9) .create(); }
[/vba]
Добрый день Функция отправки Xlsx тут функция для создания триггера [vba]Код
function createTimeDrivenTrigger() { // Trigger every day at 09:00. ScriptApp.newTrigger('send_report_email') .timeBased() .everyDays(1) .atHour(9) .create(); }
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Добрый день Функция отправки Xlsx тут функция для создания триггера [vba]Код
function createTimeDrivenTrigger() { // Trigger every day at 09:00. ScriptApp.newTrigger('send_report_email') .timeBased() .everyDays(1) .atHour(9) .create(); }
[/vba] Автор - krosav4ig Дата добавления - 01.10.2019 в 13:25
krosav4ig
Дата: Среда, 02.10.2019, 22:04 |
Сообщение № 2172 | Тема: Как в word вытащить таблицу из файла xls в разрезе компании
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Файлы для примера приложила.
Неа. Проверьте размер файлов, должен быть до 100кб.
Файлы для примера приложила.
Неа. Проверьте размер файлов, должен быть до 100кб.krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Файлы для примера приложила.
Неа. Проверьте размер файлов, должен быть до 100кб.Автор - krosav4ig Дата добавления - 02.10.2019 в 22:04
krosav4ig
Дата: Четверг, 03.10.2019, 05:08 |
Сообщение № 2173 | Тема: выбор значений по критериям
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте МожноТут читайте
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте МожноТут читайте Автор - krosav4ig Дата добавления - 03.10.2019 в 05:08
krosav4ig
Дата: Четверг, 03.10.2019, 05:35 |
Сообщение № 2174 | Тема: Удаление символов внутри текста
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте выделить B2 Данные>Мгновенное заполнение или использовать формулуКод
=ЗАМЕНИТЬ(ЛЕВБ(A2;ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{8}))-1);ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5}));СУММ(ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5;6}))*{-1;1});)
Здравствуйте выделить B2 Данные>Мгновенное заполнение или использовать формулуКод
=ЗАМЕНИТЬ(ЛЕВБ(A2;ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{8}))-1);ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5}));СУММ(ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5;6}))*{-1;1});)
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 03.10.2019, 07:32
Ответить
Сообщение Здравствуйте выделить B2 Данные>Мгновенное заполнение или использовать формулуКод
=ЗАМЕНИТЬ(ЛЕВБ(A2;ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{8}))-1);ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5}));СУММ(ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5;6}))*{-1;1});)
Автор - krosav4ig Дата добавления - 03.10.2019 в 05:35
krosav4ig
Дата: Пятница, 04.10.2019, 13:41 |
Сообщение № 2175 | Тема: Изменение цвета шрифта
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
ЗдравствуйтеЧерез Заменить я так понял нельзя этого сделать.
Не праввильно поняли жмем F5 -> Alt+З -> если видим кнопку Больше>> жмем Alt+Ш жмем Alt+И -> Delete -> Alt+ЯФ -> Ш -> выбираем шрифт -> Enter жмем Alt+Ь -> Delete -> Alt+ЯФ -> Ш -> выбираем цвет шрифта -> Tab -> Enter Заменить все
ЗдравствуйтеЧерез Заменить я так понял нельзя этого сделать.
Не праввильно поняли жмем F5 -> Alt+З -> если видим кнопку Больше>> жмем Alt+Ш жмем Alt+И -> Delete -> Alt+ЯФ -> Ш -> выбираем шрифт -> Enter жмем Alt+Ь -> Delete -> Alt+ЯФ -> Ш -> выбираем цвет шрифта -> Tab -> Enter Заменить все krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ЗдравствуйтеЧерез Заменить я так понял нельзя этого сделать.
Не праввильно поняли жмем F5 -> Alt+З -> если видим кнопку Больше>> жмем Alt+Ш жмем Alt+И -> Delete -> Alt+ЯФ -> Ш -> выбираем шрифт -> Enter жмем Alt+Ь -> Delete -> Alt+ЯФ -> Ш -> выбираем цвет шрифта -> Tab -> Enter Заменить все Автор - krosav4ig Дата добавления - 04.10.2019 в 13:41
krosav4ig
Дата: Воскресенье, 06.10.2019, 22:07 |
Сообщение № 2176 | Тема: Перестали отправляться сообщения
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Добрый вечер. В течение последних 2 часов не отправляются сообщения на форумы, вываливается на главную ucoz.ru
Добрый вечер. В течение последних 2 часов не отправляются сообщения на форумы, вываливается на главную ucoz.ru krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 06.10.2019, 22:09
Ответить
Сообщение Добрый вечер. В течение последних 2 часов не отправляются сообщения на форумы, вываливается на главную ucoz.ru Автор - krosav4ig Дата добавления - 06.10.2019 в 22:07
krosav4ig
Дата: Воскресенье, 06.10.2019, 22:07 |
Сообщение № 2177 | Тема: Перестали отправляться сообщения
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Сюда добавилось, в Вопросы по Excel - фигвам
Сюда добавилось, в Вопросы по Excel - фигвам krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 06.10.2019, 22:09
Ответить
Сообщение Сюда добавилось, в Вопросы по Excel - фигвам Автор - krosav4ig Дата добавления - 06.10.2019 в 22:07
krosav4ig
Дата: Воскресенье, 06.10.2019, 23:27 |
Сообщение № 2178 | Тема: Поиск совпадающей последовательности ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
у меня 131 без = и дальше не двигается
у меня 131 без = и дальше не двигается krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение у меня 131 без = и дальше не двигается Автор - krosav4ig Дата добавления - 06.10.2019 в 23:27
krosav4ig
Дата: Воскресенье, 06.10.2019, 23:31 |
Сообщение № 2179 | Тема: Перестали отправляться сообщения
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Понедельник, 07.10.2019, 02:37 |
Сообщение № 2180 | Тема: поиск времени разных форматов (Excel 2003)
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте.Код
=ЕСЛИ(И(--ТЕКСТ(A8;"ч:м:с")>=--ПСТР(D3;1;5);--ТЕКСТ(A8;"ч:м:с")<=--ПСТР(D3;7;5));B8;"")
Код
=ЕСЛИ(ИЛИ((--ТЕКСТ(A14;"ч:м:с")>=--ПСТР(P14:P23;1;5))*(--ТЕКСТ(A14;"ч:м:с")<=--ПСТР(P14:P23;7;5)));B14;"")
Здравствуйте.Код
=ЕСЛИ(И(--ТЕКСТ(A8;"ч:м:с")>=--ПСТР(D3;1;5);--ТЕКСТ(A8;"ч:м:с")<=--ПСТР(D3;7;5));B8;"")
Код
=ЕСЛИ(ИЛИ((--ТЕКСТ(A14;"ч:м:с")>=--ПСТР(P14:P23;1;5))*(--ТЕКСТ(A14;"ч:м:с")<=--ПСТР(P14:P23;7;5)));B14;"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте.Код
=ЕСЛИ(И(--ТЕКСТ(A8;"ч:м:с")>=--ПСТР(D3;1;5);--ТЕКСТ(A8;"ч:м:с")<=--ПСТР(D3;7;5));B8;"")
Код
=ЕСЛИ(ИЛИ((--ТЕКСТ(A14;"ч:м:с")>=--ПСТР(P14:P23;1;5))*(--ТЕКСТ(A14;"ч:м:с")<=--ПСТР(P14:P23;7;5)));B14;"")
Автор - krosav4ig Дата добавления - 07.10.2019 в 02:37