Скрыть/показать командную кнопку с возможностью сохранения файла

Я хочу иметь командную кнопку, которая может скрывать / отображать различные параметры безопасного файла на основе значения раскрывающегося списка в G6. Вот таблица:

ячейка C2, значение Open (чтобы скрыть кнопку Command)

ячейка C3, значение «Выполняется» (только для отображения командной кнопки и сохранения файла)

ячейка C4, значение — «Отмена» (чтобы отобразить командную кнопку и немедленно сохранить и закрыть файл)

ячейка C5, значение Close (чтобы отобразить командную кнопку и немедленно сохранить и закрыть файл)

ячейка G6 представляет собой раскрывающийся список

Ценит помощь. общее качество


options show-hide autosave commandbutton dropdownlistfor
person eltigre    schedule 10.08.2017    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Поскольку никто не хочет решать мой вопрос, вот мой ответ на мой собственный вопрос, который я понял для тех, кто ищет ответ на тот же вопрос. Я добавил дополнительный код для создания имени файла на основе значений B6 и E6. Обратите внимание, что символ " " в >newFile = " " & fName & " " & vName‹ был специально добавлен для создания пробела в имени файла. Я рад поделиться кодом здесь:

Private Sub CommandButton1_Click()
Dim newFile As String, fName As String, vName As String
fName = Range("B6").Value
vName = Range("E6").Value
tSave = Range("G6").Value
newFile = "  " & fName & "  " & vName
If tSave = "In Progress" Then
ThisWorkbook.SaveAs "Z:\TRAINING\" & Format(Date, "ddmmyyyy") & newFile
Else
ThisWorkbook.SaveAs "Z:\TRAINING\" & Format(Date, "ddmmyyyy") & newFile
ThisWorkbook.SaveAs
ThisWorkbook.Close
End If

Конец сабвуфера

Private Sub Worksheet_Change(ByVal Target As Range)
        With Me
             If .Range("G6").Value = "Open" Then
                .CommandButton1.Visible = False
             Else
                .CommandButton1.Visible = True
             End If
        End With

Конец сабвуфера

Private Sub Worksheet_Activate()
        Application.EnableEvents = False
        With Me
             .CommandButton1.Visible = True
             .Range("G6").Value = 1
        End With
        Application.EnableEvents = True

Конец сабвуфера

person eltigre    schedule 24.08.2017