Function NextNPP(cellData As Range)
r = cellData.Row - 1
c = Selection.Column
If Len(cellData.Value) > 0 Then
For i = 0 To r
If Len(Cells(r - i, c).Value) > 0 Then
NextNPP = Cells(r - i, c).Value + 1
Exit For
End If
Next
Else
NextNPP = ""
End If
End Function
Про макрос
Добрый день, форумчане!
Есть такая тема - я написал макрос, который заполняет столбец (А) номерами по порядку, причем если во втором столбце (В) строка пустая, то в заполняемом тоже пропускается место, а дальше продолжает нумеровать. Вот как это выглядит:
[HTML]№ | A | B
-----------------------
1 | 1 | asd
2 | 2 | fdgh
3 | |
4 | 3 | ptyi
5 | 4 | fglk
6 | |
7 | |
8 | |
9 | 5 | ityu
10 | 6 | poyiu[/HTML]
А вот сам код
Этот код я написал в модуле и файл сохранил с расширением xla, типа надстройка, а дальше подключил его в экселе и работаю как со стандартными функциями.
Но вот в чем проблема... Когда я меняю колонку В, то колонка А автоматически естественно не меняется, остается как было.
Что нужно дописать, чтобы колонка А менялась в зависимости от изменений колонки В?
Есть такая тема - я написал макрос, который заполняет столбец (А) номерами по порядку, причем если во втором столбце (В) строка пустая, то в заполняемом тоже пропускается место, а дальше продолжает нумеровать. Вот как это выглядит:
[HTML]№ | A | B
-----------------------
1 | 1 | asd
2 | 2 | fdgh
3 | |
4 | 3 | ptyi
5 | 4 | fglk
6 | |
7 | |
8 | |
9 | 5 | ityu
10 | 6 | poyiu[/HTML]
А вот сам код
Код:
Этот код я написал в модуле и файл сохранил с расширением xla, типа надстройка, а дальше подключил его в экселе и работаю как со стандартными функциями.
Но вот в чем проблема... Когда я меняю колонку В, то колонка А автоматически естественно не меняется, остается как было.
Что нужно дописать, чтобы колонка А менялась в зависимости от изменений колонки В?
Обрабатывать событие Worksheet_Change
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then ' изменения в третьей колонке
Debug.Print "КУ!" ' здесь вызываем пересчёт.
End If
End Sub
If Target.Column = 3 Then ' изменения в третьей колонке
Debug.Print "КУ!" ' здесь вызываем пересчёт.
End If
End Sub