Открыть скрытый столбец.

[Hugo121]

Я кстати тоже удивлялся, почему Debug.print на Text ничего не пишет, а на Value пишет. Видать, есть разница.
В итоге предлагаю вообще сделать так:

Private Sub CommandButton3_Click()
    'Открытие строк и столбцов
    If ComboBox1 = "" Then MsgBox "Выберите дату", vbInformation: Exit Sub
        Dim cc As Range
        
    For Each cc In [d1:h1].Cells
        If cc.Value = Lab_Data.Caption Then
            Image1.BackColor = &HFF&
            cc.Columns.Hidden = False ' Открытие столбца
        End If
    Next

    For Each cc In [A4:A8].Cells
            If cc.Value = Lab_Data.Caption Then ' Условие для открытия строки
                Image1.BackColor = &HFF&
                cc.Rows.Hidden = False  ' Открытие строки
            End If
    Next
End Sub

[motorway]

.Text - отображаемое значение, с учетом ширины ячейки, .Value - истинное хранимое

[Hugo121]

Интересно, почему тогда в скрытых строках текст кодом виден, и почему работает этот код:

Sub tt()
Range("B1:E1") = "Test"
Range("B1:E1").EntireColumn.Hidden = True
Debug.Print Range("B1").Text 'возвращает "Test"
For Each cc In [B1:E1]
Debug.Print cc.Text ' и тоже возвращает "Test"
Next
End Sub

Я лично разницу не уловил, но она налицо

Понял - потому, что там формат "Custom - data".
Если в этих ячейках текст - ОК

[motorway]

Видимо, для текста это свойство возвращает то же значение. А для числовых данных - нет

[Hugo121]

Да, мы тут рядом поэксперементировали с vlth:

Sub tt()
Range("B1:E1").NumberFormat = "@"
Range("B1:E1") = "123"
Range("B1:E1").EntireColumn.Hidden = True
Debug.Print Range("B1").Text 'возвращает "123"
For Each cc In [B1:E1]
Debug.Print cc.Text ' и тоже возвращает "123"
Next
End Sub

Если не ставить текстовый формат, то ничего не выводится.
И если написать так
Range("B1:E1") = 123
то тоже пусто.

[alvazor]

Судя по всему, проблема вот в чем
Caption этикетки, записанный в конкретном формате даты, как текст (а Caption, насколько помню - это txt) и считывается обратно в том же виде (формате).
Value же ячейки, вне зависимости от установленного в ней формата даты, всегда будет представлен в формате системной даты.
Естественно, если одно и второе будут отличаться, сравнение не состоится.
Гляньте вложение - надеюсь, будет интересно. Головоломка целая!

[Teslenko_EA]

Здравствуйте alvazor.
"..Головоломка целая.." - в Вашем примере никакой "головоломки" не будет если прочесть в учебнике по Excel о Уровнях ячейки, форматах данных и его автоматической конвертации по подобию.
Евгений.

[alvazor]

Хорошо, когда можно почитать, Евгений....
И тему бы эту не открывали, в частности.
Дайте координаты этого учебника, если не трудно - а то в имеющихся у меня ничего путного по форматам нет. Вдруг в этом учебнике и о преобразовании форматов для ControlSource & RowSource что-нить найдется? И другим бы пригодилось, кто еще не дошел до уровня профессионала, но стремится -)
Алексей