Как создать код

  • Автор темы segail
  • Дата начала
S

segail

#1
Как создать код с учетом что на листе всегда находится кнопка CommandButton5
Клик по кнопе CommandButton1 (данная кнопка находится на форме) если лист Excel чистый, то выполняется какое либо действие. Если лист Excel заполнен данными (шрифт, границы или заливка) то действие не выполняется.(действие я пропишу сам)
Внизу показано то, что мне необходимо. Многоточие поставлено потому что, действие очень длинное, я просто не стал его прописывать.
Что и куда необходимо добавить, что бы данный код работал?
--------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click() <--------------------------------------------------------------------------------Клик по кнопке.
Application.Goto Reference:="_01_Данные" <-------------------------------Выполняется действие если лист чистый.
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Program Files\IL vgsm\V ГСМ\V_ГСМ_1_00_IL_09.txt", Destination:=Range("$A$6"))
.Name = "V_ГСМ_1_00_IL_09"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
………………………….
(“Данное действие не выполнимо. Произведите сброс.”) <---------Выходит сообщение если лист имеет данные
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------------
 
S

segail

#2
Тогда попробую проще,. Так будет лучше.

Private Sub CommandButton1_Click() <------------------------------------------------------------------ Клик по кнопке
Выполняется действие < --------------------------------------------------------------- Если в ячейки А9 нет значений
Выходит сообщение < ------------------------------------------- Если в ячейки А9 есть значение (например шрифт)
End Sub

Кто подскажет код?
 
J

Jumpy

#3
Private Sub CommandButton1_Click() '<------------------------------------------------------------------ Клик по кнопке
if range("A9") = "" then ' Если в ячейки А9 нет значений
'ОПЕРАТОРЫ1
else ' Если в ячейки А9 есть данные (!!!) Просто отфоматированная ячейка без данных - тоже пустая. Если надо сравнивать и параметры ячейки (высота, ширина, границы, шрифт итд) - то код будет другим.
'ОПЕРАТОРЫ2
end if

End Sub

p.s. первый пост не осилил :)
 
S

segail

#4
Private Sub CommandButton1_Click() '<------------------------------------------------------------------ Клик по кнопке
if range("A9") = "" then ' Если в ячейки А9 нет значений
'ОПЕРАТОРЫ1
else ' Если в ячейки А9 есть данные (!!!) Просто отфоматированная ячейка без данных - тоже пустая. Если надо сравнивать и параметры ячейки (высота, ширина, границы, шрифт итд) - то код будет другим.
'ОПЕРАТОРЫ2
end if

End Sub

p.s. первый пост не осилил :)
Первый пост ненужен.

Во втором примере. Если в ячейки А9 есть данные. Пусть будет любой текст. Тогда как?