Результаты поиска
krosav4ig
Дата: Суббота, 24.11.2018, 04:25 |
Сообщение № 1701 | Тема: Добавление значения к содержимому ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте переименовал кнопки в Digit0 .. Digit9, удалил код, привязанный к кнопкам в модуле класса ClDigitalButtons [vba]Код
Private WithEvents cb As CommandButton Private cell As Range Public Sub Init(ctrl As CommandButton, r As Range) Set cb = ctrl Set cell = r End Sub Private Sub Class_Terminate() Set cb = Nothing Set cell = Nothing End Sub Private Sub cb_Click() cell = cell.Value & cb.Caption End Sub
[/vba]в стандартном модуле [vba]Код
Dim colButtons As Collection Sub hookButtons(ws As Object) Dim dBtn As ClDigitalButtons Dim obj As OLEObject Set colButtons = New Collection For Each obj In ws.OLEObjects If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then Set dBtn = New ClDigitalButtons dBtn.Init obj.Object, ws.[B1] colButtons.Add dBtn End If Next End Sub
[/vba]в модуле ЭтаКнига[vba]Код
Private Sub Workbook_Open() hookButtons ActiveSheet End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) hookButtons Sh End Sub
[/vba]
Здравствуйте переименовал кнопки в Digit0 .. Digit9, удалил код, привязанный к кнопкам в модуле класса ClDigitalButtons [vba]Код
Private WithEvents cb As CommandButton Private cell As Range Public Sub Init(ctrl As CommandButton, r As Range) Set cb = ctrl Set cell = r End Sub Private Sub Class_Terminate() Set cb = Nothing Set cell = Nothing End Sub Private Sub cb_Click() cell = cell.Value & cb.Caption End Sub
[/vba]в стандартном модуле [vba]Код
Dim colButtons As Collection Sub hookButtons(ws As Object) Dim dBtn As ClDigitalButtons Dim obj As OLEObject Set colButtons = New Collection For Each obj In ws.OLEObjects If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then Set dBtn = New ClDigitalButtons dBtn.Init obj.Object, ws.[B1] colButtons.Add dBtn End If Next End Sub
[/vba]в модуле ЭтаКнига[vba]Код
Private Sub Workbook_Open() hookButtons ActiveSheet End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) hookButtons Sh End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте переименовал кнопки в Digit0 .. Digit9, удалил код, привязанный к кнопкам в модуле класса ClDigitalButtons [vba]Код
Private WithEvents cb As CommandButton Private cell As Range Public Sub Init(ctrl As CommandButton, r As Range) Set cb = ctrl Set cell = r End Sub Private Sub Class_Terminate() Set cb = Nothing Set cell = Nothing End Sub Private Sub cb_Click() cell = cell.Value & cb.Caption End Sub
[/vba]в стандартном модуле [vba]Код
Dim colButtons As Collection Sub hookButtons(ws As Object) Dim dBtn As ClDigitalButtons Dim obj As OLEObject Set colButtons = New Collection For Each obj In ws.OLEObjects If TypeOf obj.Object Is CommandButton And Left(obj.Name, 5) = "Digit" Then Set dBtn = New ClDigitalButtons dBtn.Init obj.Object, ws.[B1] colButtons.Add dBtn End If Next End Sub
[/vba]в модуле ЭтаКнига[vba]Код
Private Sub Workbook_Open() hookButtons ActiveSheet End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) hookButtons Sh End Sub
[/vba] Автор - krosav4ig Дата добавления - 24.11.2018 в 04:25
krosav4ig
Дата: Суббота, 24.11.2018, 16:11 |
Сообщение № 1702 | Тема: Получение данных с ЦБР
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
почему, без нажатия кнопки "вставить функцию" не могу выбрать дату
потому, что вместо разделителя элементов списка вы пишете Разделитель целой и дробной части
почему, без нажатия кнопки "вставить функцию" не могу выбрать дату
потому, что вместо разделителя элементов списка вы пишете Разделитель целой и дробной части
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение почему, без нажатия кнопки "вставить функцию" не могу выбрать дату
потому, что вместо разделителя элементов списка вы пишете Разделитель целой и дробной части
Автор - krosav4ig Дата добавления - 24.11.2018 в 16:11
krosav4ig
Дата: Суббота, 24.11.2018, 22:03 |
Сообщение № 1703 | Тема: Перечисление значений из строки пропуская пустоты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ЗдравствуйтеКод
=ArrayFormula(join(", ";filter(unique(A1:I10);unique(A1:I10)>"")))
ЗдравствуйтеКод
=ArrayFormula(join(", ";filter(unique(A1:I10);unique(A1:I10)>"")))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ЗдравствуйтеКод
=ArrayFormula(join(", ";filter(unique(A1:I10);unique(A1:I10)>"")))
Автор - krosav4ig Дата добавления - 24.11.2018 в 22:03
krosav4ig
Дата: Воскресенье, 25.11.2018, 02:13 |
Сообщение № 1704 | Тема: Ссылка на формулу из ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
или пользуем именованные формулы (вкладка Формулы>Диспетчер имен)
или пользуем именованные формулы (вкладка Формулы>Диспетчер имен) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение или пользуем именованные формулы (вкладка Формулы>Диспетчер имен) Автор - krosav4ig Дата добавления - 25.11.2018 в 02:13
krosav4ig
Дата: Воскресенье, 25.11.2018, 17:10 |
Сообщение № 1705 | Тема: Перечисление значений из строки пропуская пустоты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
в смысле чтобы в массиве были построчно контактенированные значения? Если да, то, имхо, только писать udf
в смысле чтобы в массиве были построчно контактенированные значения? Если да, то, имхо, только писать udf krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение в смысле чтобы в массиве были построчно контактенированные значения? Если да, то, имхо, только писать udf Автор - krosav4ig Дата добавления - 25.11.2018 в 17:10
krosav4ig
Дата: Понедельник, 26.11.2018, 02:07 |
Сообщение № 1706 | Тема: Автоматически скрывать строки по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) With Me.Rows("10:50").Columns("B") If Intersect(Target, .Cells) Is Nothing Then Exit Sub .EntireRow.Hidden = 0 Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1 End With End Sub
[/vba]
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) With Me.Rows("10:50").Columns("B") If Intersect(Target, .Cells) Is Nothing Then Exit Sub .EntireRow.Hidden = 0 Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1 End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 26.11.2018, 02:08
Ответить
Сообщение [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) With Me.Rows("10:50").Columns("B") If Intersect(Target, .Cells) Is Nothing Then Exit Sub .EntireRow.Hidden = 0 Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1 End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 26.11.2018 в 02:07
krosav4ig
Дата: Вторник, 27.11.2018, 17:06 |
Сообщение № 1707 | Тема: Нахождение среднего значения суммы из диапазона значений??
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для E5 формула Код
=ЕСЛИОШИБКА(СРЗНАЧ(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)));"Н/Д")
для E110 Код
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
для E5 формула Код
=ЕСЛИОШИБКА(СРЗНАЧ(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)));"Н/Д")
для E110 Код
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение для E5 формула Код
=ЕСЛИОШИБКА(СРЗНАЧ(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)));"Н/Д")
для E110 Код
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Автор - krosav4ig Дата добавления - 27.11.2018 в 17:06
krosav4ig
Дата: Среда, 28.11.2018, 00:30 |
Сообщение № 1708 | Тема: Перечисление значений из строки пропуская пустоты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Однако, совсем забыл про textjoin [vba]Код
=ArrayFormula(REGEXREPLACE(TRANSPOSE(SPLIT(TEXTJOIN(", ";1;IF(COLUMN(A1:I10)=1;"|";"")&A1:I10);"|"));"^, |, $";))
[/vba]
Однако, совсем забыл про textjoin [vba]Код
=ArrayFormula(REGEXREPLACE(TRANSPOSE(SPLIT(TEXTJOIN(", ";1;IF(COLUMN(A1:I10)=1;"|";"")&A1:I10);"|"));"^, |, $";))
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 28.11.2018, 02:50
Ответить
Сообщение Однако, совсем забыл про textjoin [vba]Код
=ArrayFormula(REGEXREPLACE(TRANSPOSE(SPLIT(TEXTJOIN(", ";1;IF(COLUMN(A1:I10)=1;"|";"")&A1:I10);"|"));"^, |, $";))
[/vba] Автор - krosav4ig Дата добавления - 28.11.2018 в 00:30
krosav4ig
Дата: Среда, 28.11.2018, 01:23 |
Сообщение № 1709 | Тема: Отмена проверки правописания (макрос)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте. [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .Saved = True End With End Sub
[/vba] Вставляйте макрос в модуль в normal.dotm, добавляйте кнопку макроса на ленту или панель быстрого доступа
Здравствуйте. [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .Saved = True End With End Sub
[/vba] Вставляйте макрос в модуль в normal.dotm, добавляйте кнопку макроса на ленту или панель быстрого доступа krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 28.11.2018, 01:23
Ответить
Сообщение Здравствуйте. [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .Saved = True End With End Sub
[/vba] Вставляйте макрос в модуль в normal.dotm, добавляйте кнопку макроса на ленту или панель быстрого доступа Автор - krosav4ig Дата добавления - 28.11.2018 в 01:23
krosav4ig
Дата: Среда, 28.11.2018, 17:49 |
Сообщение № 1710 | Тема: Нахождение среднего значения суммы из диапазона значений??
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?
MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?Автор - krosav4ig Дата добавления - 28.11.2018 в 17:49
krosav4ig
Дата: Среда, 28.11.2018, 18:32 |
Сообщение № 1711 | Тема: Отмена проверки правописания (макрос)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba]
пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 28.11.2018 в 18:32
krosav4ig
Дата: Четверг, 29.11.2018, 15:06 |
Сообщение № 1712 | Тема: Нахождение среднего значения суммы из диапазона значений??
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 29.11.2018, 15:13
Ответить
Сообщение для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
Автор - krosav4ig Дата добавления - 29.11.2018 в 15:06
krosav4ig
Дата: Суббота, 01.12.2018, 00:20 |
Сообщение № 1713 | Тема: SpecialCells для одной ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена
StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и заменаkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и заменаАвтор - krosav4ig Дата добавления - 01.12.2018 в 00:20
krosav4ig
Дата: Воскресенье, 02.12.2018, 00:25 |
Сообщение № 1714 | Тема: Как добавить кнопку - в контекстное меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]
ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]Автор - krosav4ig Дата добавления - 02.12.2018 в 00:25
krosav4ig
Дата: Воскресенье, 02.12.2018, 00:36 |
Сообщение № 1715 | Тема: Объединение в выпадающем списке 2х ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.
Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.Автор - krosav4ig Дата добавления - 02.12.2018 в 00:36
krosav4ig
Дата: Понедельник, 03.12.2018, 00:27 |
Сообщение № 1716 | Тема: Суммирование повторяющихся значений в гугл таблице
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Вторник, 04.12.2018, 04:30 |
Сообщение № 1717 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba]
у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba] Автор - krosav4ig Дата добавления - 04.12.2018 в 04:30
krosav4ig
Дата: Вторник, 04.12.2018, 21:38 |
Сообщение № 1718 | Тема: Макрос по поиску и выделению найденных слов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться
MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получитьсяkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получитьсяАвтор - krosav4ig Дата добавления - 04.12.2018 в 21:38
krosav4ig
Дата: Вторник, 04.12.2018, 23:50 |
Сообщение № 1719 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.
Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 04.12.2018, 23:53
Ответить
Сообщение Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.Автор - krosav4ig Дата добавления - 04.12.2018 в 23:50
krosav4ig
Дата: Среда, 05.12.2018, 01:09 |
Сообщение № 1720 | Тема: Кошмар на улице вязов :)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение уж не tcpvpn ли это?Автор - krosav4ig Дата добавления - 05.12.2018 в 01:09