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

Тема в разделе "Visual Basic", создана пользователем segail, 19 июн 2009.

  1. segail

    segail Гость

    Как создать код с учетом что на листе всегда находится кнопка 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
    -------------------------------------------------------------------------------------------------------------------------------------------------
     
  2. segail

    segail Гость

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

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

    Кто подскажет код?
     
  3. Jumpy

    Jumpy Гость

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

    End Sub

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

    segail Гость

    Первый пост ненужен.

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

    Jumpy Гость

    тогда указанный код работает.
     
Загрузка...

Поделиться этой страницей