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

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


textual

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

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

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

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



Похожие ответы
  1. Нужен макрос, который будет из определенной папки переименовывать файл excel удалением сначала 16 символов до ключевого слова, а потом 5 символов после, все просмотрел похожего не нашел, если реально такой сделать, помогите

  1. Здравствуйте, уважаемые программисты! Мне необходимо ввести дату рождения в Textbox в формате ДД.ММ.ГГГГ. При нажатии кнопки «вперед» формат введенного числа проверяется, в случае ошибки выдается сообщение и переход не происходит. Реализация алгоритма проверки должна быть вынесена в пользовательскую функцию. Пожалуйста помогите, ничего не получается!

  1. Доброго времени суток! Помогите пожалуйста решить следующую проблему: Необходимо в документе Excel разместить на панели инструментов кнопки, нажимая которые будет выполняться макрос. И/или как связать UserForms с макросом и этой кнопкой на панели инструментов? Заранее спасибо!

  1. Создать макрос, который устанавливает двойной интервал между строками, выравнивает текст по левому краю страницы, формирует абзацный отступ 1,75 пт. Первое слово в предложении выделяет красным цветом. Столкнулся с проблемой, выделение красным цветом первого слова в предложение. Подскажите кто что может ps. код работает pss. код на изменение цвета отсутствует

  1. Добрый день! Необходимо проверить файл excel на наличие ошибок в заполнении, в частности, ошибки при вводе даты Сам файл присылается, внедрить в него макросы не получится, количество записей упорно стремится к бесконечности (уже порядка 15 тысяч строк и около 100 столбцов), поэтому решено обрабатывать файл sql. Проблема в том, что при запросе strSQL = "select [дата] from [Лист2$A1:BD]" выдаются числа вместо дат, о проверке на правильность и речи не идет. Помогите решить проблему.

  1. Добрый день! Пытаюсь написать макрос, который на основе именовонного диапазона создает "Проверку вводимых значений" в ячейке (Есть такая функция, можно это сделать ручками, но мне необходимо автоматизировать процесс). Хочу создавать списки на основе данных хранящихся в именованном диапазоне. Вот код, это сгенеривоанный код VBA, в котором изменена только 1 строчкабыло: xlBetween, Formula1:="='Тест1'!$F$2:$I$2"стало: xlBetween, Formula1:=Name_in_collection.Value VBA ругается, почему-не понимаю, в принципе в Name_in_collection.Value хранится как раз таки адрес моего диапазона, при этом тип данных string/variant. Не подскажите в чем проблема?

  1. Подскажите пожалуйста, как создать строку по условию, если есть показатель3 или показатель7 то должна создаться строка после показателя3 или показателя7 с формулой темпа роста соответствующего показателя?ФИОнаименованиеЯнварь 2016Февраль 2016Март 2016Апрель 2016Май 2016чел1показатель112321чел1показатель233333чел1показатель333333чел1показатель133334чел1показатель533333чел1показатель654356чел1показатель721111чел2показатель133333чел2показатель233333чел2показатель633333чел2показатель333333чел2показатель833333

  1. Подскажите, пожалуйста! Есть в файле эксель три листа, на 1 листе производится итог на 2 и 3 листе находятся исходные таблицы с тремя столбцами надо сопоставить на листе 2 столбец B и на листе 3 столбец C, при несовпадении значения в этих двух столбцах должна ячейка не совпавшая со значениями столбца др. таблицы окрасится в красный цвет, затем не совпавшие названия должны перенестись на 1 лист в соответствующий столбец показывающий не совпавшие названия и на каком листе, а также должны свестись в общий столбец и с информацией по данной ячейки, т.е. перенестись информация с соседних двух столбцов не совпавшей ячейкене совпавшие с листа 2не совпавшие с листа 3общий список не совпавших с 1 и 2 листапредложениесумма          

  1. Создать VBA-проект вычисления функции Y=f(X), как суммы членов ряда с заданой точностью. Каждое слагаемое (член ряда) вычисляется по рекурентным соотношениям: - функция и Р\С Пример: Буду признателен, за помощь или подсказки^_^