Помогите пожалуйста! Умоляю (

sub ppp()
dim A(6,6)

for ii = 1 to 6

for jj = 1 to 6

A(ii,jj) = Cells(ii,jj) 'перепишем данные из листа в массив

If A(ii,jj) mod 14 = 0 then

msgbox("Делятся нацело на = 14"&str(A(ii,jj)))

endif

If A(ii,jj) mod 3 = 0 then

msgbox("Делятся нацело на = 3"&str(A(ii,jj)))

endif

If A(ii,jj) mod 5 = 0 then

msgbox("Делятся нацело на = 5"&str(A(ii,jj)))

endif

If A(ii,jj) mod 14 = 0 and A(ii,jj) mod 3 = 0 then

msgbox("Делятся нацело на = 14 и Делятся нацело на = 3"&str(A(ii,jj)))

endif

If A(ii,jj) mod 14 = 0 and A(ii,jj) mod 5 = 0 then

msgbox("Делятся нацело на = 14 и Делятся нацело на = 5"&str(A(ii,jj)))

endif

If A(ii,jj) mod 3 = 0 and A(ii,jj) mod 5 = 0 then

msgbox("Делятся нацело на = 3 и Делятся нацело на = 5"&str(A(ii,jj)))

endif

If A(ii,jj) mod 3 = 0 and A(ii,jj) mod 5 = 0 and A(ii,jj) mod 14 = 0 then

msgbox("Делятся нацело на = 14 и Делятся нацело на = 3 и Делятся нацело на = 5"&str(A(ii,jj)))

endif

next jj

next ii

end sub

На биржах фрилансеров есть желающие делать контрольные и курсовые за умеренную плату. А так - слишком жирной халявы хотите

Пишите на почту, поделюсь с вами сайтом, где вам это за небольшую плату сделают.