Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как в VBA увеличивать последующие ячейки столбца - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как в VBA увеличивать последующие ячейки столбца
webliveby Дата: Четверг, 08.02.2024, 20:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

2019
Как в VBA увеличивать последующие ячейки столбца на 1, Функции VBA Excel для автоматического заполнения соседнего диапазона ячеек датами с частью последовательной нумерации
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
        Target.Offset(0, 1).Value = Format(Date, "yymm") + (Application.Max(Range("B2:B100")) + 1)        
        
End Sub
[/vba]
При добавлении числа в ячейку рядом автоматически формируется номер, состоящий из части даты ГГММ плюс 4-х значный номер.
Нужно чтобы при внесении в следующую ячейку номер увеличивался на единицу больше предыдущего (или большего в диапазоне "B2:B100")
К сообщению приложен файл: 0796872.xls (34.0 Kb)
 
Ответить
СообщениеКак в VBA увеличивать последующие ячейки столбца на 1, Функции VBA Excel для автоматического заполнения соседнего диапазона ячеек датами с частью последовательной нумерации
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
        Target.Offset(0, 1).Value = Format(Date, "yymm") + (Application.Max(Range("B2:B100")) + 1)        
        
End Sub
[/vba]
При добавлении числа в ячейку рядом автоматически формируется номер, состоящий из части даты ГГММ плюс 4-х значный номер.
Нужно чтобы при внесении в следующую ячейку номер увеличивался на единицу больше предыдущего (или большего в диапазоне "B2:B100")

Автор - webliveby
Дата добавления - 08.02.2024 в 20:25
gling Дата: Пятница, 09.02.2024, 00:02 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2552
Репутация: 692 ±
Замечаний: 0% ±

2010
И вам здравствовать!
Попробуйте так[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
        Target.Offset(0, 1).Value = Format(Date, "yymm") & Right(Target(0, 2).Value, 4) + 1
End Sub
[/vba]


ЯД-41001506838083
 
Ответить
СообщениеИ вам здравствовать!
Попробуйте так[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
        Target.Offset(0, 1).Value = Format(Date, "yymm") & Right(Target(0, 2).Value, 4) + 1
End Sub
[/vba]

Автор - gling
Дата добавления - 09.02.2024 в 00:02
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!