Проверяем на апостроф.

[nemoomen]

Уважаемые господа, прошу совета.
Я заметил, что если текстовая данная в ячейке начинается с апострофа -- ' -- то ексель этот апостроф по непонятной для меня причине убирает. В принципе устраивает вариант добавить пробел перед апострофом.

Далее - есть код для TextBox-а

Private Sub TB_NationalyEN_AfterUpdate()
    
    Dim m As Range
    
    Set m = Workbooks("DataBase.xls").Worksheets("Nationaly").Range("A:A").Find(what:=CB_NationalyRU.Value,  _
         LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
    Workbooks("DataBase.xls").Worksheets("Nationaly").Cells(m.Row, 2) = TB_NationalyEN.Value

End Sub

Помогите мне добавить проверку на первый знак "апостроф" с добавление, если он есть, пробела к тексту.

[Aent]

Excel не убирает лидирующий апостроф а скрывает его в ячейке и не выводит при печати.
В значении ячейки он остаётся (достаточно взглянуть на строку формул)
Ввод лидирующего апострофа обычно используется для указания Excel что в ячейку вводится строковое значение.

[nemoomen]

Это все понятно, но вопрос остался открытым!
Мне действительно нужен апостроф, документ выходит на печать.

[puporev]

Напишите 2 апострофа, один выйдет на печать.

[nemoomen]

Возможно, для того чтобы всетаки получить ответ, перефразирую вопрос:
1. Подскажите, как проверить средствами VBA первый символ в текстовой переменной?

Господина ПРОФЕССИОНАЛА puporev-a устроит такой подход?
Апосторф вам в печать!!!!!!!!!!!!!

[Aent]

nemoomen, попробуйте так

Public Sub Pefixer()
   Dim r As Range
   For Each r In ActiveSheet.UsedRange
       If r.PrefixCharacter = "'" Then
           r.Value = " '" & r.Value
       End If
   Next r
End Sub

[nemoomen]

Ну вот! Сам разобрался!

 If Left(TB_Patronymic.Value, 1) = "'" Then TB_Patronymic.Value = " " & TB_Patronymic.Value

Всем спасибо!

[Tirendus]

Кстати, апострофы еще ставяться через alt+0146, потому, я бы и такой апостроф учитывал