Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как можно настроить или чем заменить элементы управления формой, Нужно красивое визуальное решение
 
#1
25.11.2020 10:14:12
Добрый день!
При нажатой кнопке "Отобразить данные" все выглядит красиво:
Скрытый текст

Но при нажатии "Скрыть данные (печатная форма)" элементы управления формой некрасиво кучкуются на надписях шапки таблицы:
Скрытый текст

файл качнуть можно тут
 
 
 
#2
25.11.2020 10:19:34
Сергей М.,
как вариант, ставить галку прямо в ячейку по нажатию.

И можно было сделать небольшой пример, а не вкладывать рабочий файл?
Изменено: evgeniygeo - 25.11.2020 10:22:01
 
 
 
#3
25.11.2020 11:12:31
evgeniygeo, не совсем понял идею, убрать все элементы с галочками и заменить их текстовой галочкой типо символа "V"?
 
 
 
#4
25.11.2020 11:41:04
Сергей М.,
нужно пощелкать в диапазоне A1:A15
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A15")) Is Nothing Then
Target.Value = IIf(Target.Value = Sheets("Справочник").Range("A1").Value, "", Sheets("Справочник").Range("A1").Value)
Cancel = True
End If
End Sub
Изменено: evgeniygeo - 25.11.2020 11:41:58
 
 
 
#5
25.11.2020 11:44:48
Сергей М.,
еще проще вот так:

Формат рисунка -> Свойства -> перемещать и изменять ...
Изменено: evgeniygeo - 25.11.2020 11:46:37
 
 
 
#6
25.11.2020 12:21:46
У меня так не получается (и в вашем файле тоже).
Я прежде чем создать тему пробовал этот способ, у меня это положение ползунка по какой-то причине не доступно (нажать ПКМ - формат объекта - свойства):
Скрытый текст
 
 
 
 
#7
25.11.2020 18:57:05
Замените на ActiveX.CheckBox и программируйте его свойство Visible
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#8
25.11.2020 21:00:06
Все просто.
Добавить в начало кода процедуры Отобразить данные
Код
    For Each Shap In ActiveSheet.Shapes
        If Shap.Type = msoFormControl Then
            If Shap.FormControlType = xlCheckBox Then
                Shap.Visible = True
            End If
        End If

    Next
В начало процедуры скрыть
Код
    For Each Shap In ActiveSheet.Shapes
        If Shap.Type = msoFormControl Then
            If Shap.FormControlType = xlCheckBox Then
                Shap.Visible = False
            End If
        End If

    Next
 
 
 
#9
26.11.2020 07:42:56
evgeniygeo, doober, Михаил Лебедев, благодарю вас за предложенные решения!

evgeniygeo, вы могли бы ответить на мой вопрос, который я задал выше тут (забыл кликнуть на ваше имя при обращении и наверное вы его не увидели).
Изменено: Сергей М. - 26.11.2020 07:51:22
 
 
 
Страницы: 1
Наверх