|
можно в визуле написать такое
Sub прога()
for i = 1 to 500
if Cells(i, k) < 100 then Cells(i, k) = Cells(i, k) + 1
end if
if Cells(i, k) > 100 then Cells(i, k) = Cells(i, k) + 2
end if
end sub
где k и i номер строки и столбца
__________________
-----------------------,
| холодное пиво |,,|"""\,__,
| _____________ |,,||_|_ _||)
/(@)(@)******/(@)*****(@)
Последний раз редактировалось Vladimir2003; 27.06.2005 в 15:05.
|