Задачи в VBA

Тема в разделе "Хобби", создана пользователем High on fire, 22 май 2014.

  1. High on fire

    High on fire Коренной житель

    Господа, нужна помощь с решением простеньких задач в VBA.
    Знаю, среди вас найдется один такой, кому их сделать- как два пальца обоссать, помогите братишке. Плачу киви деньгами, немного, но уже что-то.
    1.Написать на VBA процедуру распечатки на рабочем листе слова, вводимого с клавиатуры, и его "пиратского шифра": в слово после каждой пары букв вставляется слог "ма". Введенный текст выводить в ячейку А3, а шифрограмму- в ячейку В4.
    2.Один из часто встречающихся видов списка стек—список,в котором все операции включения и извлечения,сопровождающегося удалением из списка,элементов выполняются только с одного края.Механизм функционирования стека отражён в его названии «LIFO» (Last In First Out —
    последним вошёл,первым вышел,подобно патронам в обойме).Следовательно,любой элемент не может быть извлечён
    и удалён из стека раньше,чем будут извлечены все элементы,помещённые в стек позднее него.Составить
    программу,реализующую функционирование стека.Стек оформить как массив.
    3.осуществить преобразование числа,выраженного в какой-либо позиционной
    системе счисления в другую систему счисления.Недесятичное число полагать
    строкой,в которой основание указывается в скобках за числом,например
    ,«43031(5)».Если основание системы счисления больше девяти,то цифры
    ,обозначающие числа от 10 до 16,обозначаются буквами a,b,c,d,e,f,g,h
    соответственно.Использовать алгоритмы преобразования,проиллюстрированные
    в лекции.Процесс программировать как функцию,определяемую пользователем
    .Рекомендуется использовать встроенные функции VBA:Mid(),Str(),Val(),Trim().
    Допускается поэтапное преобразование:сначала число преобразуется в десятичное
    ,затем—в число с требуемым основанием.Обратный процесс программируется другой
    функцией.
    Четверичное число→восьмеричное число и обратный процесс.
     
  2. Forgot Keyboard

    Forgot Keyboard Absurdum Maxima

    Это скорее не хобби, а голд математического сервера :awesome:.

    Посмотри решения для C#, алгоритм вроде аналогичный.
     
  3. BoodyValentin

    BoodyValentin Старожил

    Оу, помню, как полтора года назад у меня была ВБА на экзамене.. Такая жопа же..
    Алгоритм немного похож, однако там все по разному и на экзамене мне С++ вообще не помог.
     
  4. КромбаХар

    КромбаХар Опытный Пользователь

    кто то понял вообще хоть что нибудь :(
     
  5. DmiIn

    DmiIn Легендарная личность

    Первая ж очень простая,вывод обычной строки в другой ячейке довольно просто сделать,для зашифрованного просто отдельную строчку берем
    Сам макрос
    Sub shifr()
    Dim i As Integer
    Dim b As String
    Range("a3").Value = Range("a2").Value
    For i = 1 To Len(Range("a2").Value)
    If i Mod 2 = 0 Then
    b = b + Mid(Range("a3").Value, i, 1) + "ма"
    Else
    b = b + Mid(Range("a3").Value, i, 1)
    End If
    Next i
    Range("b4").Value = b
    End Sub
     
  6. За 4 дня написал макрос который читает строки с txt вычисляет суммы и средние значения выводит в оформленую таблицу и разбивает каждую таблицу с новых суток. Писал вообще первый раз на VBA сам работаю инженером наладчиком программист довольно таки простой язык до немогу. Впринципе будут вопросы пиши skype spb.cfg.IIaTPuK но делать за тебя никто не будет подсказать да!