Удаление всего кроме формул

[Казанский]

1. Если форма модальная (ShowModal=True), то по команде UserForm1.Show выполнение останавливается до закрытия формы.
Если форма немодальная, то выполнение макроса продолжается до конца, не дожидаясь действий пользователя.

2. Что за UserForm1.CheckBox1(1)? Просто

If UserForm1.CheckBox1 Then

3. Константу xlCellTypeData Вы определили?

[kuklp]

xlCellTypeNumbers тоже:-)

[kuklp]

Это при ЧБ2 удалит только даты, при ЧБ1 все константы:

Private Sub CommandButton1_Click()
    Dim c As Range
    If Me.CheckBox2.Value Then
        For Each c In Selection.Cells
            If IsDate(c.Value) Then c.Value = ""
        Next
    End If
    If Me.CheckBox1.Value Then
        Intersect(Selection.SpecialCells(xlCellTypeConstants), Selection).ClearContents
    End If
    Unload Me
End Sub

[Severny]

Сообщение от Казанский

3. Константу xlCellTypeData Вы определили?

В 3-посте ж не определяли. Знания по программированию у меня практчески нулевые, по этому пытаю делать из готовых кусков.

[kuklp]

Сообщение от Severny

В 3-посте ж не определяли. Знания по программированию у меня практчески нулевые, по этому пытаю делать из готовых кусков.

Это как раз похвально:-) Не парьтесь, все по этим граблям попрыгали. Даже название придумали: Метод научного тыка.

[Казанский]

Сообщение от Severny

В 3-посте ж не определяли. Знания по программированию у меня практчески нулевые, по этому пытаю делать из готовых кусков.

Там использовалась встроенная константа.
Настоятельно рекомендую использовать метод получения справки из 6-го поста.

Метод SpecialCells соответствует диалогу F5 - Выделить.
Учтите, что даты - это тоже числа, таким способом их различить нельзя.

[Severny]

Даже если определить Константу xlCellTypeData и xlCellTypeNumbers как дату и число метод Intersect всеравно не будет давать требуемый результат?

[Severny]

И нельзя ли использовать код:

If Me.CheckBox2.Value Then
     For Each c In Selection.Cells
     If IsDate(c.Value) Then c.Value = ""
     Next
End If

но место IsDate изпользовать IsNumber, для удаления только чисел?
И возможно ли определить дату и число по формату записи?

[kuklp]

Немного не так.

[Severny]

Самое оно Спасибо!
Разрешите еще пару вопросов.
Чем отличается IsNumeric и IsNumber?
И можно ли организовать поиск по формату записи?