Преглед садржаја
Напуните ћелије насумичним вредностима
Следећи код ће попунити дати опсег случајним бројем између 0 и 1000:
Под Рандомисе_Ранге (Целл_Ранге Ас Ранге) 'Биће насумично изабрана свака ћелија у опсегу Дим Целл' Искључивање упозорења на екрану Апплицатион.СцреенУпдатинг = Фалсе За сваку ћелију у Целл_Ранге Целл.Валуе = Рнд * 1000 Нект Целл Апплицатион.СцреенУпдатинг = Труе Енд Суб
Кодови „Апплицатион.СцреенУпдатинг = ФАЛСЕ“ и „Апплицатион.СцреенУпдатинг = ТРУЕ“ служе за искључивање и укључивање упозорења на екрану - чинећи код много бржим за покретање.
Може се поставити путем догађаја клика, при чему главна рутина наводи опсег:
Приватна подредба ЦоммандБуттон1_Цлицк () Рандомисе_Ранге (Схеетс ("Схеет3"). Ранге ("А1: Т8000")) Енд Суб
Дакле, у овом случају ћелије А1: Т8000 на листу 3 су попуњене случајним бројевима - када се притисне командно дугме 1.
Преузмите .КСЛСМ датотеку овде
