vba auto увеличивает число?

Question

Я пытаюсь вставить ссылочный номер в ячейку в excel с помощью vba. Я хочу, чтобы префикс текст «V0000», а затем авто увеличивается число, начиная с 836.

so for each row that gets inserted I will have V0000836 
Then V0000837 
etc 

Большая часть моего кода создает новые строки данных и вставляет в нее автоматически один за другим, но вместо того, отправляя весь мой код, я просто хочу сосредоточиться на этой одной строке кода, которая вставляет значение в столбец AA моей таблицы. Я использую следующее, но он просто дает мне V00001 каждый раз. может кто-нибудь показать мне, как я могу заставить мой код делать то, что я хочу.

ws2.Range("AA" & DestRow).Value = "V0000836" & Value + 1 

Answer 1

Используя VBA, вы можете сделать это путем увеличения числа каждый раз, когда цикл проходит круглый, а затем предварив V0000 на фронт, как так:

Dim i As Integer 
Dim cell As Range, rng As Range 

Set rng = Range("A1:A10") 

i = 836 

For Each cell In rng 
    cell.Value = "V000" & i 
    i = i + 1 
Next cell 

Answer 2

Рассмотрим альтернативу, которая не удаляет числовая (математической) функциональности из значения ячейки.

ws2.Range("AA" & DestRow).numberformat = "\V0000000" 
ws2.Range("AA" & DestRow).Value = 836 + 1 

Если вам требуется форматированный (отображается) буквенно-цифровые обозначения вы можете восстановить его, как это.

Dim str as string, num as long 
str = ws2.Range("AA" & DestRow).text '◄ V0000837 
num = ws2.Range("AA" & DestRow).value '◄ 837