Re: Вопрос по EXEL-у
От: Vi2 Удмуртия http://www.adem.ru
Дата: 25.05.04 04:36
Оценка:
Здравствуйте, StasK, Вы писали:

SK>Вопрос: Можно ли сделать так, чтобы при вводе в определенную ячейку какой-то цифры в ячейки ниже автоматически вставлялись данные. Например, вводим 1, а под ней заполняется ячейка (например, проставляется сегодняшняя дата), вводим 2, а под ней заполняется количество ячеек равное введеному числу (сегодняшняя дата, в следующей — завтрашняя и т.д.)

Так в этом и состоит работа программиста — писать программы. Я, конечно, не спец по Excel-ю, но вот такой код может быть использован для решения:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Static entry As Boolean ' определяет повторный вход в этот модуль
    Dim n As Long, i As Long
    If Not entry Then
        entry = True

        n = Target.Formula
        For i = 1 To n
            Target.Offset(i).Formula = Date + (i - 1)
        Next

        entry = False
    End If
End Sub
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! © КВН НГУ
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.