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

Вход

Регистрация

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

 

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

Результаты поиска
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]
К сообщению приложен файл: 0429301.xls (65.5 Kb)


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
почему, без нажатия кнопки "вставить функцию" не могу выбрать дату

потому, что вместо разделителя элементов списка вы пишете
Разделитель целой и дробной части


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)>"")))


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
или пользуем именованные формулы (вкладка Формулы>Диспетчер имен)
К сообщению приложен файл: 1439824.xlsx (8.8 Kb)


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


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]


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))
К сообщению приложен файл: _27.11.18-1-.xlsx (23.9 Kb)


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]


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, добавляйте кнопку макроса на ленту или панель быстрого доступа


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 или н/д?


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]


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))

Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать :D - 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
К сообщению приложен файл: 9973296.xlsx (24.0 Kb)


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))

Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать :D - 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>Выделить, и как поиск и замена


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
Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()
не нашел такой.

ну дык ViewDocumentMap
[vba]
Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Апострофф, 01.12.2018 в 11:59, в сообщении № 2 ()
не нашел такой.

ну дык 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, нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.
К сообщению приложен файл: 9703709.xls (31.5 Kb)


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
Дата добавления - 03.12.2018 в 00:27
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]
К сообщению приложен файл: 2055851_3.docx (13.1 Kb)


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, не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться


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, вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок.

После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.
К сообщению приложен файл: 1915659.png (115.4 Kb) · 4590741.png (22.7 Kb)


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
в Нидерландах

уж не tcpvpn ли это?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
в Нидерландах

уж не tcpvpn ли это?

Автор - krosav4ig
Дата добавления - 05.12.2018 в 01:09
Поиск:

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