|
|
От: |
Vi2
|
http://www.adem.ru |
| Дата: | 25.05.04 04:36 | ||
| Оценка: | |||
Так в этом и состоит работа программиста — писать программы. Я, конечно, не спец по Excel-ю, но вот такой код может быть использован для решения:SK>Вопрос: Можно ли сделать так, чтобы при вводе в определенную ячейку какой-то цифры в ячейки ниже автоматически вставлялись данные. Например, вводим 1, а под ней заполняется ячейка (например, проставляется сегодняшняя дата), вводим 2, а под ней заполняется количество ячеек равное введеному числу (сегодняшняя дата, в следующей — завтрашняя и т.д.)
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