Quote (Stacke)
Dim i As Byte Dim sRandom, sNumber, sColNumber As Integer Sub cmdStart() sNumber = -20 For i = 1 To 30 sRandom = Int((Rnd * 50) - 20) lstMain.Range("A" & i).Value = sRandom lstMain.Range("A" & i).Interior.Color = RGB(255, 255, 255) If sRandom < 0 And sRandom > sNumber Then sNumber = sRandom sColNumber = i End If Next i lstMain.Range("A" & sColNumber).Interior.Color = RGB(255, 0, 0) End Sub
да, я это сеня как раз на инфе исправил, тока sNumber исправил на 32000 чтоб и вроде sRandom > sNumber
Quote (Stacke)
Щас не в состоянии это обдумывать. Всегда были траблы с тригонометрией, да и у самого седня экзамен, нуно готовится. Если не скрочно, то позже сделаю, сегодня ни как, извини !
пока не срочно, с след пятницу, за 1 все равно спасибо!)Добавлено (31.03.2010, 15:42)
---------------------------------------------
переименуйте тему на: "Программирование на VBA - необъяснимо, но факт."
или "Программирование на VBA : Миф или реальность?."