Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)

Модерирует : ShIvADeSt

ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
 
Обсуждаем вопросы только по Excel VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.
 
Вопросы по работе с MS Excel, не относящиеся к программированию, задаем в теме Excel FAQ

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Предыдущие ветки топика: Часть 1
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях Excel
  • Описание Microsoft Excel File Format (eng.)
     
    Рекомендации:
    Если у Вас есть проблема, не решаемая стандартными средствами Excel (об этом можно уточнить здесь) или требующая автоматизации, попробуйте для начала записать макрос самим Excel через меню Сервис (Tools) - Макрос (Macro) - Начать запись (Record New Macro). Подробнее здесь. В большинстве случаев получившийся код (Сервис-Макрос-Макросы-Изменить) Вас не удовлетворит, но подскажет, какие объекты-методы-свойства использовать.  
    Другой Ваш помощник - Просмотр объектов (Object Browser). Ну и встроення помощь (F1), естественно.
     
    Если Вы в тупике, покажите Ваш код (или часть кода) здесь.  Если вылазит ошибка, цитируйте ее полностью. Если код слишком большой, используйте тeг [more].
    Используйте отладчик - Breakpoints (F9), Watches (Shift-F9), Steps (F8 и др.) Сильно облегчает поиск ошибок.

     
    Рекомендуется к прочтению:
  • Первые шаги с Excel VBA
  • Excel VBA: Приёмы программирования
  • WinApi. Лекция из курса "Основы офисного программирования и язык VBA" (для продвинутых)
  • Daily Dose of Excel (eng.) - тематический блог: советы по работе с Excel и прочие материалы
  • Excel Macros & Excel VBA Code Tips, Tricks (eng.) - советы, трюки и уловки
  • Mr. Excel (forum) (eng.) - весьма оживленный форум по Excel&VBA.
  • Приемы, хитрости, трюки и нюансы работы в Microsoft Excel - сайт "Планета Excel", целиком посвященный Excel и всему, что с ним связано.
  • Microsoft Excel: Таблицы и VBA. Справочник. Вопросы и Ответы. Советы. Примеры.  
     
    Родственные топики:
  • Вопросы по работе с MS Excel - Excel FAQ - часть 1, часть 2, часть 3
  • Технические проблемы с MS Office 2003 или Office XP.
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • Книжульки по VBA - книги по программированию с использованием VBA
     
    Конкретные вопросы:
    Форма-заставка
    Как запустить макрос при изменении положения курсора или значения ячейки
  • Пример 1
  • Пример 2
  • Пример 3 (проверка области)
  • Пример 4
  • Пример 5
    Зацикливание в функции Change или SelectionChange
     
    Ранжирование без пробелов (макрос включает функции сортировки массива и удаления дубликатов, работает и в Excel 2007)
  • под Office 97
     
    Добавление в главное меню своего пункта, ассоциированного с макросом
    Создание ярлыка на рабочем столе
    Снятие защиты листа при забытом пароле
    Смена раскладки клавиатуры
    Скролл формы колесом прокрутки мыши
    Оптимизация кода по быстродействию использованием массивов
    Найти "чужое" окно и нажать в нем кнопку (вписать текст в текстовое поле)
    Работа с UNICODE-символами в VBA: запись, чтение из ячейки, перевод в ASС и обратно
    Как программно подключить дополнительные библиотеки (например, "Microsoft Scripting Runtime" или "Microsoft ActiveX Data Objects 2.8 Library) через References

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:58 23-04-2007 | Исправлено: JekG, 22:32 10-01-2010
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    YURETS777, дык это даже не программирование Копай в сторону функции VLookUP (на русском - ВПР) Это и будет как раз поиск значения в диапазоне.
     
    Или конкретизируй ТЗ - может ты хочешь, чтобы выбор для ввода на втором листе был выпадающим списком? Тогда тебе в Data - Validation (не знаю, как переводится на русский), выбрать режим Allow - List. И уже в открывшемся поле вводить ограничение (либо перечень через точку с запятой, либо ссылку на диапазон, либо ссылку на именованный диапазон).
     
    Добавлено:
    Вот, посмотри - то, что надо?

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 15:12 15-07-2009 | Исправлено: ZlydenGL, 15:15 15-07-2009
    YURETS777



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ага, вроде оно, только в ВПР есть один недостаток, если оно не находит в таблице всё равно вставляет значение, причем произвольное.
    И еще, можно ли потом заменить функцию в первом листе на полученное значение ?

    Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 17:59 15-07-2009
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    YURETS777, это только если последний аргумент функции - 1! Если указан НУЛЬ - ВПР вернет ЛИБО полное совпадение, ЛИБО ошибку, третьего не дано
     
    Заменить функцию - в смысле скопировать как значение? Можно, почему нет?
     
    Вообще для подобных задач обычно рекомендуется сделать ФОРМУ для ввода данных (ну или макрос как минимум), например, чтобы не хранить во всех колонках формулы, растянутые до строчки 65535 (размер книги будет слоноподобный).

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 18:03 15-07-2009
    Olive77

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    All
    кто знает как кликнуть на ссылку след. типа?
    <a href="default.aspx#" onclick="Action.LogOut(); return false;">LogOut</a>

    Всего записей: 1271 | Зарегистр. 26-12-2002 | Отправлено: 18:23 15-07-2009
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Olive77, а подробней можно? В чем косяк, мышка не клацает? Или надо ПРОГРАММНО нажать?

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 18:29 15-07-2009
    Olive77

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ZlydenGL
    естественно, программно.
     
    не совсем ясно, как ее определить через
    For Each lnk In ie.Document.Links
    В lnk.href будет стоять только "default.aspx#", а там таких ссылок много.
     
    Добавлено
    Ах, да.
    Пытаюсь обойтись без ссылки на Microsoft HTML Object Library.
     
    Добавлено Ищё
    Хотя похоже замкнул.
    lnk.OnClick отлично помогает.

    Всего записей: 1271 | Зарегистр. 26-12-2002 | Отправлено: 18:33 15-07-2009 | Исправлено: Olive77, 19:10 15-07-2009
    maratino



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Знатоки помогите!
    Есть код
     
     Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub ' ========galochki
      If Not Intersect(Target, Range("A3:A2000")) Is Nothing Then
            Target.Font.Name = "arial"
            If Target = vbNullString Then
               Target = "v"
               
               
               
               
               
               Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 9)).Select
      Selection.Copy
             
         
         
             For i = 2 To 300
        If Cells(i, 14) = "" Then Exit For '
        Next i
        Cells(i, 14).Select
           ActiveSheet.Paste
            Else
                 
               Target = vbNullString
       
            End If
        End If
         
         
    End Sub                                ' ========galochki
     
     
     
     
     
    кода  "А1"  активирую, (галочка получается V)то  Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 9)).Select  строку копирует и в  Cells(i, 14).Select ActiveSheet.Paste ставит
    Вопрос : А как сделать так, когда галочку убираю, то, что бы данная строка, то же исчезлаCells(i, 14).
     
    Я на Вы с VBA может не так объяснил
    И еще. Есть какой нибудь таймер, что бы на пол секунду задержать работу макроса?
    Этот код, я сам написал как мог. Может есть более интересные варианты?
     
    Добавлено:
    Еще вопрос если можно
    есть такой код
     
    Sub Ra()
        Dim Shtuki As Integer
        Dim i As Integer
        Dim j As Integer
        i = 2
        Do While i < ActiveSheet.Range("A65536").End(xlUp).Row + 1
            Shtuki = Cells(i, 2)
            If Shtuki > 1 Then
                Cells(i, 2) = 1
                For j = 1 To Shtuki - 1
                    Rows(i + 1).Select
                    Selection.Insert Shift:=xlDown
                    Range(Cells(i, 1), Cells(i, 3)).Copy Cells(i + 1, 1)
                Next j
            End If
            i = i + 1
        Loop
    End Su
     
     
    то есть
     
    обувь 3 1000 руб шт после обработки кода
    обувь 1 1000 руб шт
    обувь 1 1000 руб шт
    обувь 1 1000 руб шт
     
     
    а надо, что бы наоборот работал
    обувь 1 1000 руб шт
    обувь 1 1000 руб шт
    обувь 1 1000 руб шт
     
    обувь 3 1000 руб шт после обработки кода
     
    Заранее Спасибо!

    Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 18:32 16-07-2009 | Исправлено: maratino, 19:48 16-07-2009
    SAS888

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    maratino
    По 1-му вопросу:
    Искать и удалять значения ранее вставленных строк, по большому счету невозможно, т.к. если предположить, что есть строки с одинаковыми значениями в столбцах со 2-го по 9-й. Поэтому, предлагаю, в предварительно скрытый столбец (в примере это столбец № 22) при вставке данных, заносить номер выбранной строки. Затем, при удалении искать в этом столбце номер (что проще и корректнее) и удалять именно эти значения. Примерно так:

    Код:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim i As Long, x As Range
        If Target.Cells.Count > 1 Or Intersect(Target, Range("A3:A2000")) Is Nothing Then Exit Sub
        Target.Font.Name = "Marlett": Columns(1).HorizontalAlignment = xlCenter
        If Target = "a" Then
            Target.ClearContents
            Set x = Columns(22).Find(Target.Row, LookAt:=xlWhole)
            If Not x Is Nothing Then Range(Cells(x.Row, 14), Cells(x.Row, 22)).Delete Shift:=xlUp
        Else
            Target = "a": i = Cells(Rows.Count, 14).End(xlUp).Row + 1
            Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Copy Cells(i, 14): Cells(i, 22) = Target.Row
        End If
    End Sub

    По 2-му вопросу:
    Если таблица предварительно отсортирована по 1-му столбцу (а если нет, то это можно сделать макросом), то можно, например, так:

    Код:
    Sub Main()
        Dim i As Long: Application.ScreenUpdating = False
        For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
            If Cells(i, 1) = Cells(i - 1, 1) Then
                Cells(i - 1, 2) = Cells(i, 2) + Cells(i - 1, 2): Rows(i).Delete
            End If
        Next
    End Sub

    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 05:57 17-07-2009
    maratino



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888 Спасибо !
    По второму вопросу. Работает, но каличество не считает. Только нули
    Может я вопрос не так сформулировал
     
    а надо, что бы наоборот работал  
    обувь 1 шт 1 000 руб  
    обувь 1 шт 1000 руб  
    обувь 1 шт  1000 руб
     
    итог
    обувь 3 шт 3000 руб так правильнее будет
     
    Я склад-магазин программу слепил. Все это для более удобной работы
     
    А первый вариант, вряд ли. Надо так. Галочку ставим, артикул появляется в торг. отчете,
    (а дальше в счет-фактуру) Убираем галочку, с торга этот артикул исчезает, и пустая
    ячейка тоже удаляется
     
    А так, все работает. Удобно. Все видно. Не надо заморачиватся так,  как в 1с

    Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 10:32 17-07-2009
    SAS888

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    Работает, но каличество не считает

    Конечно, не считает. Перед строкой
    Код:
    Cells(i - 1, 2) = Cells(i, 2) + Cells(i - 1, 2): Rows(i).Delete  
    добавьте
    Код:
    Cells(i - 1, 3) = Cells(i, 3) + Cells(i - 1, 3)  
    Это ведь очевидно.
     
     
    Цитата:
    А первый вариант, вряд ли. Надо так. Галочку ставим, артикул появляется в торг. отчете,
    (а дальше в счет-фактуру) Убираем галочку, с торга этот артикул исчезает, и пустая
    ячейка тоже удаляется
     
    А что? Разве не так получается?

    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 11:46 17-07-2009 | Исправлено: SAS888, 11:47 17-07-2009
    Troll

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день. Написал вопрос в разделе Excel FAQ, но мне порекомендовали обратиться сюда. Обращаюсь)))
    Вопрос:
     
       
    Добрый день, народ помогите!!!
    Случай не очень тяжелый, но может кто поможет.
    Есть таблица, на рисунки видно два стоблца ФИО и МЕСТО РАБОТЫ, всегда постоянны. Задача из столбца "МЕСТО РАБОТЫ" вытащить слово и вставить его в столбец "ПОИСК" а в столбце "№" подсчитать сколько раз именно такого слово встерчалась в столбце "МЕСТО РАБОТЫ". НО главная цель не искать и сравнивать ячейки, а именно слова из ячеек. кто поможет? очень надо..
     
    Вот что в том разделе порекомендовали:

    Цитата:
    я бы рекомендовал в данном случае сделать через макрос на VBA (с этим вопросом лучше сюда - Excel VBA [?]
    в макросе парсить строчку на слова, слова записывать...  
    Количество вхождений - можно (лучше) сделать через формулу...
     
    примечания.
    1) четвёртый столбец лучше назвать не "№" - а "Количество вхождений"
    2) для слова "Компания" количество вхождения должно быть 2  

     
    Готов принять любую помощь!

    Всего записей: 115 | Зарегистр. 04-11-2003 | Отправлено: 00:07 18-07-2009
    Ogeris



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ZlydenGL

    Цитата:
     Код:Sub Макрос1()    
     
    и  
     
    Код:End Sub  
     
     
    И не забудь, что функции, вызываемые на листах Ёкселя, должны находиться в МОДУЛЯХ, а не в коде соотетствующих листов (или глобальной книги).  
     
    Удачи!

     
    Чувствую себя блондинкой ((((((
     
    1) Если убрать название Sub Макрос1(), то этот макрос не появляется в списке макросов, как тогда его запустить?
    2) Как понять, что вызываемая функция находится в модулях?

    Всего записей: 19 | Зарегистр. 03-03-2006 | Отправлено: 07:02 18-07-2009
    maratino



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888
    мне кажется, я что то не так делаю
    я такое слепил. Работает
     
    Sub Value_Count()
     
    Dim ir As Long
    Dim iSource As Range
    iLastCell = Cells(1, 1).SpecialCells(xlLastCell).Row
    Set iSource = Range(Cells(1, 1), Cells(iLastCell, 1))
    ir = 1
     For Each Cell In iSource
      iText = Cells(ir, 1).Value
      iCount = Application.WorksheetFunction.CountIf(iSource, iText)
       Cells(ir, 2).Value = iCount
      ir = ir + 1
     Next
     
     
     
    Columns("A:b").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    k = 1
    i = 2
    While i <= ActiveCell.CurrentRegion.Rows.Count
    If Cells(k, 1) = Cells(i, 1) Then
    Cells(i, 1).EntireRow.Delete
    Else
    k = k + 1
    i = i + 1
    End If
    Wend
     
    End Sub

    Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 15:02 18-07-2009
    GameKowal

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Люди, не поможете?
    Есть хороший набор макросов WOPR 2003, который при установке на Office 2003  SP3 выдаёт ошибку "Требуемый класс отсутствует в Class Factory.Out of memory".
     
    Образ диска с установочным файлом находится тут. Установщик программы запускается с жёсткого диска только при наличии смонтированного в виртуальном устройстве данного образа. Прожигать не обязательно.
    В этом наборе макросов очень много полезных фич, рассчитываю, что местные гуру мне помогут. Уверен,что дело в каком- нибудь пустячке.Спасибо!

    Всего записей: 2066 | Зарегистр. 23-11-2004 | Отправлено: 19:11 18-07-2009 | Исправлено: GameKowal, 12:00 19-07-2009
    filmax



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GameKowal
    тут искал?
    http://forum.ru-board.com/topic.cgi?forum=35&topic=8094&start=40#lt
     
    зы ты оттуда пришел

    Всего записей: 220 | Зарегистр. 12-10-2002 | Отправлено: 19:54 18-07-2009 | Исправлено: filmax, 19:55 18-07-2009
    SAS888

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    maratino

    Цитата:
    мне кажется, я что то не так делаю
    я такое слепил. Работает  

    А что? Так не работает?

    Код:
    Sub Main()
        Dim i As Long: Application.ScreenUpdating = False
        ActiveSheet.UsedRange.Sort Key1:=[A1], Order1:=xlAscending, Header:=xlGuess
        For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
            If Cells(i, 1) = Cells(i - 1, 1) Then
                Cells(i - 1, 3) = Cells(i, 3) + Cells(i - 1, 3): Cells(i - 1, 2) = Cells(i, 2) + Cells(i - 1, 2)
                Rows(i).Delete
            End If
        Next
    End Sub

    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 04:59 20-07-2009
    SAS888

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Troll
    Предлагаю один из вариантов решения. Формул на листе не требуется. Все делается макросом. Контролируются все строки в столбце 2, уникальные слова заносятся в столбец 3. В столбце 4 - количество данных слов в столбце 2.

    Код:
    Sub Main()
        Dim i As Long, j As Long, x As New Collection, txt As String, a: Application.ScreenUpdating = False
        Range([C2], Cells(ActiveSheet.UsedRange.Rows.Count, 4)).ClearContents
        For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
            a = Split(Cells(i, 2), " "): On Error Resume Next
            For j = LBound(a) To UBound(a)
                x.Add a(j), CStr(a(j)): txt = txt & " " & a(j)
            Next
            On Error GoTo 0
        Next
        a = Split(txt, " ")
        For i = 1 To x.Count
            Cells(i + 1, 3) = x(i): Cells(i + 1, 4) = UBound(Filter(a, x(i))) + 1
        Next
    End Sub

    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 08:01 20-07-2009
    SERGE_BLIZNUK

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888, извините, я позволю себе сделать маленькую попровочку...
    дело в том, что этот код одно и то же слово в разных регистрах добавляет один раз (так работает добавление в коллекцию x.Add)
    но при подсчёте регистр влияет. получается, если слово написано в разных регистрах, то в подсчёте учитывается только количество ПЕРВОГО НАПИСАНИЯ слова.
    Это легко подправить — позволю себе предложить такой код подсчёта количества вхождений вместо Вашего:

    Код:
     
        a = Split(UCase(txt), " ")
        For i = 1 To x.Count
            Cells(i + 1, 3) = x(i): Cells(i + 1, 4) = UBound(Filter(a, UCase(x(i)))) + 1
        Next
     

     
    p.s. а я совсем не подумал про split и писал бы ручками разбивку строки на слова...
    правда, тогда учитывались бы в качестве разделителей и знаки препинания.
    и вот эту конструкцию UBound(Filter(a, слово))  я не понимаю... не, я понимаю, что она возращает, но вот как это происходит — не понимаю...  

    Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:59 20-07-2009
    DenisSmo

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    прошу помощи
    в макросе
    значеня берутся из диапозона столбца и записываются в одну ячейку  
    пример  
    все значения из A1:A20   записываются через запятую B1
                         из A21:A40 записываются через запятую B2
    и так далее   шаг для выборки значений из диапозона 20
                         шаг для итоговой ячейки 1
    формат ячеек текст

    Всего записей: 9 | Зарегистр. 14-04-2009 | Отправлено: 12:17 20-07-2009
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    DenisSmo, а в чем собственно помощь-то нужна? В написании этого макроса? Или уже есть макрос, но с ним есть проблемы? В первом случае - прочитайте заголовок шапки Во втором - рассекретьте код макроса

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 12:23 20-07-2009
       

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 2)
    ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru