Вопрос #72698

 #  

 #  

работаю в Excel 2013

 #  

waterfall пишет

Как можно заполнить эти ячейки так чтоб он не думал выполнять с ними никаких махинаций.

В данный момент все телепаты находятся в отпуске. Сформулируйте свой вопрос как-нибудь попонятнее.

Sub fill_negative()
Dim i As Integer
Dim j As Integer
Dim objSheet As Excel.Worksheet
Dim objCell As Excel.Range

Set objSheet = Application.ActiveWorkbook.ActiveSheet
For j = 1 To 10
For i = 1 To 10
Set objCell = objSheet.Cells(i, j)
objCell.Value = Int(Rnd(i * j) * -100)
Next i, j
End Sub