Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » IVAN92
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Выделение цветом конкретной ячейки на других листах
 
#
23.02.2020 14:41:39
Добрый день!
Находил темы про выделение ячейки - координатное выделение, также надстройка выделенной ячейкой с помощью стрелочек.

На просторах сети есть способ выделения активной ячейки цветом.
Немного подредактировал (благодаря форуму) и добавил кнопку для включения и выключения выделения.

Как добавить в код ToggleButton1 - выделение конкретной ячейки на других листах (это необходимо при печати выделенной области, т.к. данный способ удаляет форматирование)
Ниже код и файл пример.
Код
Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Range("i1").Select
Application.EnableEvents = True
Case True 'когда активен
Range("i1").Select
Application.EnableEvents = False
End Select
With Me.ToggleButton1
        If .Value - True Then
            .Caption = "On"
        Else
            .Caption = "Off"
        End If
    End With
End Sub
Изменено: IVAN92 - 23.02.2020 14:54:18
 
Перейти    
Перенести текст из ячейки в UserForm.TextBox с сохранением форматирования
 
#
23.02.2020 11:55:32
Добрый день! Ниже приведен код - для вставки текста в UserForm.
Но данный код только копирует значение текста. Как можно скопировать текст с сохранением форматирования (нужен полужирный шрифт в определенном месте).
Если это возможно.
Код
Private Sub CommandButton1_Click()
UserForm1.TextBox1 = ActiveCell.Value
UserForm1.Show
End Sub
 
Изменено: IVAN92 - 23.02.2020 12:45:42
 
Перейти    
ToggleButton и название переключателей, Как задать нужное название
 
#
22.02.2020 13:09:23
Добрый день! Как задать название для кнопки когда он активен и не активен?
Код
Private Sub ToggleButton1_Click()
Select Case ToggleButton1
Case False 'когда он не активен
Application.EnableEvents = True
Case True 'когда активен
Application.EnableEvents = False
End Select
End Sub
Изменено: IVAN92 - 23.02.2020 11:29:06
 
Перейти    
Копирование ячейки в умную таблицу без изменения цвета
 
#
16.02.2020 18:28:43
Добрый день!  Нашел на просторах способ выделить активную ячейку цветом, цвет можно поставить любой.
Но есть недостаток такого способа, при копировании в умную таблицу - меняется цвет ячеек. Как можно копировать ячейки без изменения цвета?
Код выделения цвета ячейки через RGB:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.Color = RGB(252, 252, 77)
End With
End Sub
Данные в таблицу вводятся с помощью кода:
Код
Private Sub CommandButton2_Click()
Dim iLastRow As Integer
With Sheets("Отгрузки")
ActiveCell.Copy
iLastRow = .Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).PasteSpecial
ActiveCell.Select
SendKeys ("{Enter}")
End With
End Sub
Таблица подхватывает значение, но после этого цвет ячейки уже нельзя поменять никак, только удалять строку.
 
Перейти    
Как внести данные из UserForm в умную таблицу
 
#
15.02.2020 09:40:18
Добрый день! Пытаюсь ввести данные UserForm1 на новый лист в умную таблицу.
Но при вводе значения вносятся ниже таблицы. Как их внести в саму таблицу в конец?
Код
Private Sub CommandButton1_Click()
Calendar.ShowCalendar
End Sub

Private Sub CommandButton2_Click()
Dim iLastRow As Integer
With Sheets("Отгрузки")
  iLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
   .Cells(iLastRow, 1) = CDate(TextBox1.Text)
   .Cells(iLastRow, 2) = Me.TextBox2.Text
   .Cells(iLastRow, 3) = Me.TextBox3.Text
   .Cells(iLastRow, 4) = Me.TextBox4.Text
   .Cells(iLastRow, 5) = Me.ComboBox1.Text
   .Cells(iLastRow, 6) = Me.TextBox6.Text
End With
Unload UserForm2
End Sub

Private Sub CommandButton3_Click()
Unload UserForm2
End Sub
 
 
Перейти    
Текст из активной ячейки в TextBox1
 
#
13.02.2020 19:29:19
Добрый день! Появилась интересная мысль, но неизвестно возможно ли такое сделать в excele.
Можно ли активную выделенную ячейку при нажатии на макрос, в виде кнопки (он ниже) - появляется UserForm1 и текст активной ячейки записывается (копируется) в TextBox1.
Код
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
 
 
Перейти    
Макрос копировать в последнюю пустую ячейку с включенным фильтром
 
#
31.01.2020 20:34:32
Добрый день! Если просто копировать, то работает нормально. Если применить фильтр, то копирует не по порядку, а прыгает на первую строку. Как можно улучшить код? Нужно чтобы копировало одинаково с включенным фильтром и без фильтра - копирование в последнюю пустую ячейку, если ячейка с текстом, то копирует ниже в пустую.

Код
Private Sub Copy()
ActiveCell.Copy
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).PasteSpecial
End Sub
 
Перейти    
Страницы: 1
Наверх