Страницы: 1
RSS
Преобразовать в серийный номер
 
Здравствуйте,

Можно ли макросом сделать так чтобы, когда я пишу в ячейке допустим 1201, то он автоматически преобразуется как AB001201.
По почерку принтера можно судить о том, как нервничает компьютер
 
можно формулой в соседнем столбце или задать в формате ячейки "AB"000000
Лень двигатель прогресса, доказано!!!
 
Цитата
Можно ли макросом сделать
При вводе в ячейку А1
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
      Target = "AB00" & Target
    End If
    Application.EnableEvents = True
End Sub
 
Сергей, Да, но мне бы хотелось сделать это макросом без дополнительных столбцов. А при форматировании VLOOKUP не видит буквы.
По почерку принтера можно судить о том, как нервничает компьютер
 
Kuzmich, Спасибо!) :D  :idea:  
По почерку принтера можно судить о том, как нервничает компьютер
Страницы: 1
Наверх