Здравствуйте форумчане. В ячейке К7 (и во многих других подобных) надо ставить или убирать «галочку». Наиболее удобно вытянуть кнопку «флажок» и одним щелчком мыши ставить или убирать «галочку», как я пытаюсь сделать. Но вот рамку вокруг убрать не получается, в настройках «формат объекта» я так и не нашел. Может кто подскажет, как ее убрать, если это возможно, или подскажите другой вариант вставить/убрать «галочку». Файл прикладываю. [moder]Название слишком общее. Переименуйте его и уточните какой именно объект и какое именно форматирование не получается. С уважением, JayBhagavan.[/moder]
Здравствуйте форумчане. В ячейке К7 (и во многих других подобных) надо ставить или убирать «галочку». Наиболее удобно вытянуть кнопку «флажок» и одним щелчком мыши ставить или убирать «галочку», как я пытаюсь сделать. Но вот рамку вокруг убрать не получается, в настройках «формат объекта» я так и не нашел. Может кто подскажет, как ее убрать, если это возможно, или подскажите другой вариант вставить/убрать «галочку». Файл прикладываю. [moder]Название слишком общее. Переименуйте его и уточните какой именно объект и какое именно форматирование не получается. С уважением, JayBhagavan.[/moder]ivanov1974
Имею ввиду форматирование самого элемента управления "флажок" в листе, который я разместил на ячейке К7, чтобы не было видно границу вокруг "галочки". А как переименовать название, не знаю, разве что создавать новую тему.
Имею ввиду форматирование самого элемента управления "флажок" в листе, который я разместил на ячейке К7, чтобы не было видно границу вокруг "галочки". А как переименовать название, не знаю, разве что создавать новую тему.ivanov1974
ivanov1974, вот так уже лучше))) решение у меня лично такое.
для модуля листа [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$K$7" And Target.Value <> "" Then Target.Value = "" ElseIf Target.Address = "$K$7" And Target.Value = "" Then With Selection.Font .Name = "Wingdings 2" .Size = 9 End With Target.FormulaR1C1 = "P" Else End If End Sub
[/vba] птичка ставится при двойном щелчке в К7, таким же образом и снимается.
ivanov1974, вот так уже лучше))) решение у меня лично такое.
для модуля листа [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$K$7" And Target.Value <> "" Then Target.Value = "" ElseIf Target.Address = "$K$7" And Target.Value = "" Then With Selection.Font .Name = "Wingdings 2" .Size = 9 End With Target.FormulaR1C1 = "P" Else End If End Sub
[/vba] птичка ставится при двойном щелчке в К7, таким же образом и снимается.DJ_Marker_MC
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Range("K7,R7,Y7"), Target) Is Nothing Then Exit Sub Target.Value = IIf(Target.Value = "", "P", "") Target.Offset(0, 1).Select End Sub
[/vba]
Еще можно так[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Range("K7,R7,Y7"), Target) Is Nothing Then Exit Sub Target.Value = IIf(Target.Value = "", "P", "") Target.Offset(0, 1).Select End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
[/offtop]
