Создание кроссворда на VBA - VBA

Формулировка задачи:

необходимо сосдать красворд, на раабочем листе 1 разместить ячейки с вопросами это я сделала, проверка правильных ответов выполняется по нажатию на кнопку "проверка". повторный щелчёк по данной кнопке не допускается. количество правильно угаданных слов выводитсяс помощью диалогового окна. правильно угаданные слова должны оставаться на листе. после закрытия рабочей книги содержимое крассворда удаляется. как вот это можно сделать.

Код к задаче: «Создание кроссворда на VBA - VBA»

textual
Sub ответ()
Dim SLOV(1 To 10)
Dim SL(1 To 10)
SLOV(1) = Range(Cells(6, 4), Cells(12, 4)).Value
SLOV(2) = Range(Cells(10, 2), Cells(10, 7)).Value
For i = 1 To 2
Select Case i
    Case 1, 4, 7, 8 'если вертикальное слово
        For c = 1 To UBound(SLOV(i))
        SL(i) = SL(i) & SLOV(i)(c, 1)
        Next c
    Case Else '
    Dim S()
        For c = 1 To UBound(SLOV(i), 2)
        SL(i) = SL(i) & SLOV(i)(1, c)
        Next c
    End Select
Next i
MsgBox SL(1)
MsgBox SL(2)
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 3.846 из 5


СДЕЛАЙТЕ РЕПОСТ