Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Создание тeстиpoвание в Excel
 
Добрый день!
Хотел в Excel создать тестирование.
Сделал переходы между страницами и тестирование одного из билетов с подсчётом результатов с функцией Если, но хотелось бы внести кое-какие изменения.
Кто-нибудь может помочь или посоветовать как это сделать или макросом организовать?
У меня прописаны Листы и они идут все в своём порядке:

1. А можно ли сделать так, чтоб каждый Лист раскрывался только после нажатия. Например при первоначальном открытии книги, отображается только самый первый Лист с названием «Тестирование».

2. А после нажатия «Начать тестирование», открывается Лист «Билеты».

3. На следующем Листе «Билеты» при нажатии на «Билет № 1» чтоб раскрывались Листы Б1. Вопрос № 1 - Б1. Вопрос № 5 без Листа «Результат» чтоб проходящий тест не видел ответы на вопросы,
а Листы другого билета не раскрывались Б2. Вопрос № 1 - Б2. Вопрос № 5, и т.д.

При нажатии «Билет № 2» раскрывались листы Б2. Вопрос № 1 - Б2. Вопрос № 5 и т.д., можно такое как-то реализовать?

4. Итоговый результат на листе «Результат» можно вывести как-то иначе?

Ну например вставить значки в напротив вопросов правильно/не правильно, и т.д. или можно ли в самих Листах с вопросами указать такие знаки:

5. В наименование «Билет №», отображается «Билет '», как-то можно это изменить?

6. При начале тестирования можно ли курсор выбора ответа не отображать на каком-либо ответе либо рандомно чтоб он отображался на любом из вариантов ответа.


Сам файл: Testing 11.07.xlsm (155.27 КБ)
Как вывести в формуле нужную дату путём прибавления ММ.ГГГГ к необходимому году
 
Здравствуйте!
Есть дата поверки, указывается месяц и год, в моём случае сентябрь 2024 года, т.е. 09.2024. Есть межповерочный интервал, 4 года и 8 лет. Можно ли сделать так, что строку M2+02, т.е. к 09.2024 прибавить 4 года и чтоб получилось 09.2028 в столбце N2 или так с датой варьировать не получится нужно полноценно прописать ДД.ММ.ГГГГ ?
Изменение запятой при импорте с другого Листа
 
BodkhiSatva, Я такое пробовал но не выходило, возможно из-за того что когда я делал там была ".", вместо ",", а после "," не пробовал данный вариант. Ступил, спасибо за простое решение  ;)
Изменение запятой при импорте с другого Листа
 
Добрый день!
Импортирую показатели с программы в Лист Excel "Данные". Импортируются показатели с точкой (например 1200.100), а не с запятой (например: 1200,100).
Точки заменяю на запятые и перехожу на Лист "Отчёт", куда показатели вписываются с Листа "Данные".
Вроде всё хорошо, но как сделать так, чтоб на этой Листе допустим те же показатели 1200,100 стали 1,200, логично что 1200,100/1000 и будет 1,200, но на Листе "Отчёт" этого делать нельзя, а на Листе "Данные" при новом импорте показателей, формула сбрасывается.
Можете подсказать как решить данную проблему или может кто подскажет как макросом можно это сделать на Листе "Данные", чтоб в Листе "Отчёт" отображался сразу нужные показатели?
Структура, которая связывает различные абоненты и показывает их отношение к группам
 
Здравствуйте!
Может ли кто-то подсказать, допустим есть определённое количество абонентов:

Разные абоненты относятся к разной группе, чтоб не искать по картотеке, можно ли макросом или каким-то другим способом сделать так, чтоб к примеру кликаешь по абоненту и после чего у него выстраивается структура/дерево к какой группе он относится, а также какие абоненты ещё относятся к этой группе?
Капча макросом
 
evgeniygeo, Книгу открывал, "разрешить редактирование" файла кликал, оповещение через 5 минут не появляется, даже ставил на 1 минуты, изменений нет. Макросы включены. Возможно ли это из-за того, что Вами вложенный файл сохранен без поддержки макросов? Пытался пересохранить с поддержкой макросов, в итоге получается так что выходит окошко с надписью, но это не капча, а просто окошко в виде уведомления.
Капча макросом
 
Пытался сделать как Вы описали, но ничего к сожалению не получается...
Капча макросом
 
Приветствую всех. Может ли кто-то подсказать, есть ли возможность придумать макрос капчу в excel'e к примеру если файл открыт какое-то время?
Допустим excel файл находится в открытом состоянии в течении 5-ти минут, выходит капча...
Изменение гиперссылки при изменении наименования Листов
 
БМВ, Большое спасибо Вам за помощь  :)
Изменение гиперссылки при изменении наименования Листов
 
Здравствуйте!
Есть Лист "Оглавление" (гиперссылки на другие Листы).

Есть другие Листы, где при выпадающем списке можно переходить на любой другой Лист.

Есть наименование Листов (например 01.11.2023, 02.11.2023, 03.11.2023, ...), а если изменить наименование Листов (например 01.12.2023, 02.12.2023, 03.12.2023, ...) то соответственно переход не будет осуществлён, так как гиперссылка на Листе "Оглавление" не изменена.
Вопрос какой, есть ли возможность какими-нибудь путями или макросом сделать так, что при изменении наименование Листов (например с 01.11.2023 на 01.12.2023, ...) чтоб гиперссылки обновлялись автоматически и переход с одного Листа на другой так же продолжал работать?
Определение процента при наличии общего количества материала на будущий год
 
МатросНаЗебре, Большое спасибо за Ваш труд и помощь.
Макрос на изменение печати Листа
 
Sanja, Большое спасибо  8)
Определение процента при наличии общего количества материала на будущий год
 
Выдаёт ошибку.
Изменено: Tatar - 30.10.2023 16:27:20
Определение процента при наличии общего количества материала на будущий год
 
Думал может есть возможность макросом подкрепить это всё.
Определение процента при наличии общего количества материала на будущий год
 
Это понятное дело, но мне нужно оттолкнуться не цепляясь от Итоговой суммы 2022 г.
Цитата
Ігор Гончаренко написал:
в В31 =СУММ(B12:B30)
Ну типа 66 000/120*100 и получается какой-то процент.
Определение процента при наличии общего количества материала на будущий год
 
Можно ли как-то осуществить макросом подсчёт процента от чисел ?
Допустим у меня есть количество купленных материалов за 2022 г, а мне необходимо подсчитать на 2024 г. в процентном соотношении. После чего количество материалов 2022 г. умножить на полученный процент, чтоб понять сколько материалов (шт.) заложить на 2024 г. Так как мне известно в какой лимит необходимо уложиться на 2024 г, мне от этой суммы лимита необходимо получить процент по отношению материалов 2022 г. по всем позициям, скорее всего определить это каким-то диапазоном ячеек в случае увеличения или уменьшения материалов.
Макрос на изменение печати Листа
 
МатросНаЗебре, в таком случае к сожалению происходит замена надписи в ячейке А1, но нет никаких оповещений о запрете печати Листа.
.
а во втором случаи происходит уведомление какое-то время и исчезает.
Цитата
МатросНаЗебре написал:
Если просто не хочется кликать Ок.КодPrivate Sub Workbook_BeforePrint(Cancel As Boolean)
Dim iSh As Worksheet
On Error Resume Next
For Each iSh In ActiveWorkbook.Worksheets
 If IsDate(CDate(iSh.Name)) Then
   If Err = 0 Then
       CreateObject("WScript.Shell").Popup "Печать листа '" & iSh.Name & "' запрещена!" & vbCrLf & _
            "Информация носит конфиденциальный характер", 1
     Cancel = True
   End If
 End If
 Err.Clear
Next
End Sub

Я не знаю, возможно ли реализовать такое, чтоб допустим печатаешь один Лист, выдаёт запрет печати с надписью "Ок", печатаешь другой Лист, также выдаёт запрет печати с надписью "Ок", просто единственное если менять надпись Листа, запрет уже не работает пока всё не переработаешь по новой, а хотелось вне зависимости от наименование Листа, печать не шла с соответствующей окошкой на соответствующем Листе. В каждом Листе должна быть своя соответствующая окошка оповещения.
Макрос на изменение печати Листа
 
Хороший код, но получается следующее, что при попытки печатать Лист, выходит уведомление по каждому Листу и 30 оповещений Листов необходимо закрывать один за другим. Есть ли вариант, чтоб уведомление выходила на конкретной странице, которую хочешь печатать вне зависимости от даты? Просто 30 раз кликать "Ок" не очень то удобно.
Изменено: Tatar - 26.10.2023 11:22:52
Макрос на изменение печати Листа
 
Есть ли возможность, запрет печати не только на месяц, а на последующие месяца и на года, например WsName = "09.2023" заменить на WsName = "00\.0000", чтоб вне зависимости от изменения даты Листа, выходил такой же запрет печати или каким-то образом поставить запрет на сколько-то лет вперёд.

Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20231025
Dim WsName As String
WsName = "09.2023"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If Right(xWs.Name, 7) = WsName Then
    MsgBox ("Ïå÷àòü äàííîãî ëèñòà çàïðåùåíà!") & vbLf & ("Èíôîðìàöèÿ íîñèò êîíôèäåíöèàëüíûé õàðàêòåð!"), vbCritical
        Cancel = True
    End If
Next
End Sub
Изменено: Tatar - 25.10.2023 12:53:34
Переименование определённое количество Листов
 
МатросНаЗебре, Спасибо большое!
Переименование определённое количество Листов
 
Здравствуйте!
У меня в документе есть даты присвоеные к Листам, допустим 01.09.2023, 02.09.2023... 30.09.2023.

Чтоб каждую из них не переименовывать в ручную, можно как-то все переименовать разом чтоб допустим на этот месяц уже было 01.10.2023, 02.10.2023... 31.10.2023?
Макрос на изменение печати Листа
 
Jack Famous, Благодарю, за разъяснение :)
Макрос на изменение печати Листа
 
Если правильно понял, то код у меня получается следующий:
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20131024
Dim WsName As String
WsName = "09.2023"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If Right(xWs.Name, 7) = WsName Then
    MsgBox ("Печать данного листа запрещена! & vbCrLf & Информация носит конфиденциальный характер"), vbCritical
        Cancel = True
    End If
Next
End Sub


Но оно не срабатывает, значит не там поместил?
Макрос на изменение печати Листа
 
А есть ли возможность вторую часть предложения начать с новой строки?
Изменено: Tatar - 24.10.2023 15:12:23
Макрос на изменение печати Листа
 
bigorq, Благодарю.
Макрос на изменение печати Листа
 
Спасибо :) а не могли бы подсказать, диапазон страниц как-то можно указать на запрет печати сразу нескольких Листов?
Макрос на изменение печати Листа
 
Приветствую всех. Кто-нибудь может подсказать, есть макрос на запрет печатать книгу:
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    Cancel = True
    MsgBox "Распечатка этой книги запрещена!", vbCritical
End Sub

после указал такой макрос, запрет одного конкретного Листа:
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20131024
Dim WsName As String
WsName = "01.09.2023"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If xWs.Name = WsName Then
    MsgBox ("Распечатка этого Листа запрещена!")
        Cancel = True
    End If
Next
End Sub


Можно ли как-то указать диапазон Листов, допустим поставить запрет не на один Лист (01.09.2023), а на диапазон Листов (01.09.2023-30.09.2023) ?
Было бы конечно в идеале, если первый макрос преобразовать под Листы. Просто первая выглядит интереснее с красным значком запрета:

чем вторая.
Изменено: Tatar - 24.10.2023 13:35:00
Выполнение активной гиперссылки при выпадающем списке
 
Сам разобрался, спасибо :)
Выполнение активной гиперссылки при выпадающем списке
 
МатросНаЗебре, можешь подсказать, возможно ли такое действие, если да, то как?
Данный код
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Validation.Formula1 <> "" Then Sheets(Target.Value).Select
End Sub

действует, когда Лист называется допустим "04 числа месяца", а если прописать 04.09.2023

то переход на страницу из выпадающего списка не происходит. Можно как-то сделать активным когда прописана дата или действует как на текстовое значение?
Произвести подсчёт данных с множества страниц в одну по выбору даты
 
memo, Спасибо большое.
Страницы: 1 2 След.
Наверх