задача в excel

VBA

[URL=http://radikal.ru/F/i022.radikal.ru/1109/f3/413b5efb305b.jpg.html][IMG]http://i022.radikal.ru/1109/f3/413b5efb305bt.jpg[/IMG][/URL]

Какбы сделать чтобы было чередование символов чтобы было как-то так:
1_2_3_4_5
_6_7_8_8_
10_11_12_13
_14_15_16_ ... (без символа _) =)

SUB square()
num = 1
FOR gor = 1 TO 8
FOR ver = 1 TO 8
Cells(gor, ver) = num
Cells(gor, ver) = num
num = num + 1
NEXT ver
NEXT gor
END SUB

Примечание:
по ссылке рисунок по проге =)

Примечание:
т.е чтобы цифры были только в черных квадратах

Примечание:
спасибо, но числа какбы по возростанию шли только по черным клеткам, а в белых ничего =)
Ответы:
Sub square()
num = 0
For ver = 1 To 8
For gor = 1 To 8
num = num + 1
If ver Mod 2 <> 0 And num Mod 2 <> 0 Then Cells(ver, gor) = num
If ver Mod 2 = 0 And num Mod 2 = 0 Then Cells(ver, gor) = num
Next gor
Next ver
End Sub


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.