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

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

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

ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

RUSmafia



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

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

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях Excel
  • Описание Microsoft Excel File Format
     
    Рекомендации:
    Если у Вас есть проблема, не решаемая стандартными средствами 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.
     
    Родственные топики:
  • Вопросы по работе с MS Excel - Excel FAQ - часть 1, часть 2
  • Технические проблемы с MS Office 2003 или Office XP.
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • Книжульки по VBA - книги по программированию с использованием VBA
     
    Конкретные вопросы:
    Форма-заставка
    Как запустить макрос при изменении положения курсора или значения ячейки
  • Пример 1
  • Пример 2
  • Пример 3 (проверка области)
  • Пример 4
  • Пример 5
    Зацикливание в функции Change или SelectionChange
     
    Ранжирование без пробелов (макрос включает функции сортировки массива и удаления дубликатов, работает и в Excel 2007)
  • под Office 97
     
    Добавление в главное меню своего пункта, ассоциированного с макросом
    Создание ярлыка на рабочем столе
    Снятие защиты листа при забытом пароле
    Смена раскладки клавиатуры
    Скролл формы колесом прокрутки мыши
    Оптимизация кода по быстродействию использованием массивов

  • Всего записей: 556 | Зарегистр. 31-07-2002 | Отправлено: 21:40 14-10-2004 | Исправлено: lucky_Luk, 20:44 13-04-2007
    Dr Eam

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Какой-то непонятный баг у меня.
    Макрос выполняет копирование некоторых данных с одного листа на другие, а также несложные расчеты.
    Также я пытаюсь выполнять форматирование ячеек. И здесь возникают проблемы.
    Пока есть 2 типа форматирования - строки типа

    Цитата:
    Worksheets("Накладная").Range(Cells(18, 1), Cells(17 + rows, 1)).HorizontalAlignment = xlLeft

    и строки типа

    Цитата:
    Worksheets("Накладная").Range(Cells(18, 4), Cells(17 + rows, 5)).NumberFormat = "0.00"

    Они вызывают runtime error 1004 (Application-defined or object-defined error).
    Я пытаюсь просмотреть код отладчиком, разбираюсь, заускаю многократно, комментирую эти строки, снова возвращаю. И вдруг в определенный момент всё начинает работать без ошибок! Но стоит только внести какие-то небольшие изменения в код (добавить любую строчку кода, например, даже безобидного, типа SumTotal = 0, как снова всё вываливается на таких ошибках, и снова надо производить непонятные танцы с бубнов в отладчике, ничего, по сути, не меняя.
    В чём дело? Меня подобные ошибки всегда достают. Помню, borland c++ 3.5 полон был похожих багов...

    Всего записей: 226 | Зарегистр. 20-12-2005 | Отправлено: 16:39 17-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    IP
    Примерно так
    Не понятно, какому конкретно листу надо присваивать имя. Или создавать новый для каждого файла? Пока для активного листа. Думаю, сможешь модифицировать.

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 17:57 17-08-2006
    RedPromo



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

    Цитата:
     
    Dim Wb As Workbook
    Dim NewWb As Workbook
    Dim NewShet As Worksheet
    Dim StrFileName As String
         
    Set NewWb = Application.Workbooks.Add 'Создаем новую книгу
         
    For i = 2 To 4  
       StrFileName = "D:\Document\Книга" & i & ".xls" 'Формируем имя єкспортируемого файла
       Set Wb = Application.Workbooks.Open(StrFileName) 'Откріваем файло
       Set NewShet = NewWb.Worksheets.Add 'Добавляем лист в нашу книгу
       NewShet.Name = Wb.Worksheets(1).Cells(1, 1).Value 'Устанавливаем название листа тип как Лист1, Лист1 из первой ячейки первого листа
       Wb.Close 'Ну и закрываем на лист экспорта
    Next
     

     
     
    urodec
    А че сложного зачем тебе вся процедура
    вот то что тебе нужно

    Цитата:
     
    Worksheets("Лист1").Columns("A:A").ColumnWidth = Application.CentimetersToPoints(cm)
     

    И все.
     

    Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 18:15 17-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Dr Eam
    Не пробовал прописать Workbooks перед Worksheets.

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 18:21 17-08-2006
    Dr Eam

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

    Всего записей: 226 | Зарегистр. 20-12-2005 | Отправлено: 12:57 18-08-2006
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Как можно добавить новый лист с названием бувкой от А до Я.
    Если в листе с буквой, например, Б - не существует, то лист создает её Б:
    Я знаю, он выглядить так:

    Код:
     
        Set NewSheet = Worksheets.Add
        NewSheet.Name = TextBox1.Text 'текстбокс для ввода буквы
     

    Если Б уже существует, то следующий лист создает Лист4 и выдает ошибку "Нельзя присвоить листу имя, совпадающие с именем другого листа, библиотека обектов или книги, на которую ссылается VB"
     
    Вот полный код:

    Код:
     
    Private Sub CommandButton1_Click()
     
        Dim NextRow As Long
     
        Set NewSheet = Worksheets.Add
        NewSheet.Name = TextBox1.Text
     
    '   Активизация листа
        Sheets(TextBox1.Text).Activate
     
    '   Определение следующей пустой строки
        NextRow = Application.WorksheetFunction.CountA(Range("A:A")) + 1
     
    '   Передача имени
        Cells(NextRow, 1) = TextBox2.Text
     
    End Sub
     

    Я хочу чтоб сделать буква Б(от А до Я) уже существует, далее ввод фамилию при пустой строки.
    Как можно поправить?

    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:46 18-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Dr Eam
    На разных компах пробовал?
    Можешь упростить код до такого состояния, когда ошибка еще появляется и показать здесь?
     
    Anton T

    Determine if a sheet exists


    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 16:43 18-08-2006
    filmax



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как в макросе задать печатать с двух сторон.  
     
    Принтер(и ксерокс, и сканер) Минолта это делать умеет.  
    Приходится выбирать вручную double-sided, а потом возвращать обратно - single-sided  
     
    Задача:  
    один лист книги (ЗАЯВКА, 1 экз.) односторонний,  
    другой лист книги (АКТ, и три экз.) двухсторонний.  
     
    Одну бы кнопочку бы сделать бы, и все было бы окей!  
     
    ася 827527

    ----------
    "Лилия гнилая пахнет хуже, чем сорная трава в навозной луже"

    Всего записей: 220 | Зарегистр. 12-10-2002 | Отправлено: 16:48 18-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    filmax
    Печать из макроса делается методом PrintOut.
    Но параметра для дуплексной печати там нет. Все это свойства драйвера принтера, про которые эксель не знает. Можно делать через за..  SendKeys метод. Возможно есть Windows API. Разбираться не хочется.
     
    В принципе, установить дуплексную печать нужно только один раз за сеанс работы. Или установить по умолчанию. Можно создать отдельный принтер с дуплексной печатью по умолчанию.

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 17:30 18-08-2006
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Yuk
    Спасибо! Ты замечательный человек!

    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:32 19-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Anton T
    О-о-о! Я польщен!

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 19:01 19-08-2006
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Yuk
    Привет земляк!(Попасная )
    Как можно сделать поля со списком с помощью "фильтр"
    Например, в столбце А, Б и В, сооветственно, Фамилия, Имя и Отечество:
    Бондаренко Анатолий Васильевич
    Бондаренко Нина Васильевна
    Бондарчук Николай Николаевич
    Бондарчук Анна Николаевна
     
    Когда я вводу в поле "Бондар", а оно должно быть отображена:
    Бондаренко
    Бондарчук
     
    Вот примеры без фильтра:

    Код:
     
    Private Sub UserForm_Initialize()
        Dim ColCnt As Integer
        Dim rng As Range
        Dim cw As String
        Dim c As Integer
         
        ColCnt = ActiveSheet.UsedRange.Columns.Count
        Set rng = ActiveSheet.UsedRange
        With ComboBox1
            .ColumnCount = ColCnt
            .RowSource = rng.Address
            cw = ""
            For c = 1 To .ColumnCount
                cw = cw & rng.Columns(c).Width & ";"
            Next c
            .ColumnWidths = cw
            .ListIndex = 0
        End With
    End Sub
     

    ...и отображается всю строку и столбцы(если пустые строки и столбцы, то они пропустить)
    А вот с фильтрами я не знаю как можно сделать?
     
    Еще добавлю..
    Как можно цвет фона текстбокса при нажатия курсора?

    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:51 21-08-2006
    Yuk



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

    Цитата:
    Попасная

     

    Цитата:
    Как можно цвет фона текстбокса при нажатия курсора?


    Код:
    Private Sub TextBox1_Enter()
        TextBox1.BackColor = RGB(255, 255, 0)
    End Sub
     
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox1.BackColor = RGB(255, 255, 255)
    End Sub

     

    Цитата:
    Как можно сделать поля со списком с помощью "фильтр"  

    Пока не знаю. Посмотрю позже. В Аксессе делал без проблем.
     
     
    Добавлено:
    Anton T
    Примерно так

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 23:21 21-08-2006 | Исправлено: Yuk, 00:59 22-08-2006
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Yuk
    Спасибо, все получилось.
     

    Цитата:
    Примерно так  

    да, но бывает...
    Когда я набираю "Бондар", а комбокс сам выделяет "енко", а потом вручную список дает  Бондаренко, а Бондарчук не видно. Когда убираю "енко" и все видно:  
    Бондаренко
    Бондарчук
    Хочу чтоб комбокс автоматическая открыта.
     
    Добавлено:
    Попасная - это  Украина из Луганской области

    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:45 22-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Anton T
    В свойствах комбобокса установи MatchEntry в 2 - fmMatchEntryNone.
    В конец функции ComboBox1_Change добавь  
    ComboBox1.DropDown

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 17:36 22-08-2006
    agrippa

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Yuk
     
    Здравствуй. С прошлым заданием я разобрался. Но сейчас мне снова нужна помощь. Помоги,пожалуйста. Это очень важно.
    Вот этот макрос преобразовывает *.txt файлы в нужный мне вид в Exel.
    Пример таких текстовых файлов я тебе присылал, но если ты их удалил, то могу отослать заного. Напиши в тему и я их пришлю.
    Тут вот в чём дело: мой макрос вызывает OpenFileDialog сам, а мне надо сделать, чтобы он делал преобразования в уже открытом текстовом файле.  
    Также он создает на втором, третьем листе, и так далее две зоны, которые разделены двумя пробелами, а мне нужно, чтобы эти зоны были не друг под другом, а рядом, и были разделены двумя строками, и так на каждом листе, кроме первого, т.к. там должен быть этот файл в первозданном виде.
     
     
     
     
     
    Sub Preobrazovanie()
    Dim fs, a, Str
    Dim Sh As Worksheet
    Dim d() As String
    Dim name As String
    'открываем стандартый OpenFileDialog
     
    fileToOpen = Application.GetOpenFilename("Text Files (*.*), *.*")
    If fileToOpen <> False Then
        name = fileToOpen
    End If
     
    'открываем файл для считывания по строкам
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.OpenTextFile(name)
    'Set Sh = Worksheets("весь массив")
    'Dim Dr As Range
    'j = 1
    List = 0
    stroka = 0
    stroka1 = 0
    i = 1
    'далеее в цикле до конца файла считываем все строки и анализируем их
    List = List + 1
    ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)
    Do While a.AtEndOfStream <> True
        stroka = stroka + 1 '.. и начинаем запись на новом листе с первой строки
        Str = a.ReadLine 'присваеваем строковой переменной str строку из файла
        Str = Trim(Str)  'удаляем пробелы в строке в начале и в конце
        d = Split(Str, " ")  'в динамический массив d записываем значения из строки разделенные пробелом
         
        If Str = "" Then 'если строка пустая т.е. нет ничего просто ее мереписываем на текущий лист
             Worksheets(List).Cells(stroka, 1) = ""  'просто записываем в первую ячейку нового листа считанную строку с датой
        Else
            If IsNumeric(d(0)) Then 'если у нас в строке числа то
                    '...в цикле записываем последовательно в ячейки текущей строки переменные массива
                    'попутно их проверяя на число, т.к. могут встречаться и не цифры
                    For j = LBound(d) To UBound(d) 'цикл для последовательного считывания элементов динамического массива
                        If IsNumeric(d(j)) Then 'проверка на число
                            Worksheets(List).Cells(stroka, i) = CDbl(d(j)) 'запись в ячейку листа значения, которое было переведено из строкового типа в double
                            i = i + 1
                        End If
                    Next
                    i = 1
            Else
                Worksheets(List).Cells(stroka, 1) = Str 'просто записываем в первую ячейку нового листа считанную строку с датой
            End If
        End If
    Loop
    a.Close
    Set a = fs.OpenTextFile(name)
    Do While a.AtEndOfStream <> True
        Str = a.ReadLine 'присваеваем строковой переменной str строку из файла
        Str = Trim(Str)  'удаляем пробелы в строке в начале и в конце
        d = Split(Str)   'в динамический массив d записываем значения из строки разделенные пробелом
        stroka = stroka + 1
        stroka1 = stroka1 + 1
        'далее идут проверки
        If Str = "" Then 'если строка пустая т.е. нет ничего просто ее мереписываем на текущий лист
            Worksheets(List).Cells(stroka, 1) = Str
            Worksheets(List).Cells(stroka + 31, 14) = Str
        Else 'если строка не пустая то начинаются проверки ...
            If IsDate(d(0)) Then 'если это дата то созаем новый лист
                If Len(d(0)) > 5 Then
                'создаем новый лист
                    List = List + 1
                    stroka = 1 '.. и начинаем запись на новом листе с первой строки
                    stroka1 = 1 '.. и начинаем запись на новом листе с первой строки
                    ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)
                    Worksheets(List).Cells(stroka, 1) = Str 'просто записываем в первую ячейку нового листа считанную строку с датой
                    Worksheets(List).Cells(stroka + 31, 14) = Str 'просто записываем в первую ячейку нового листа считанную строку с датой
                End If
            End If
            If IsNumeric(d(0)) Then 'если у нас в строке числа то
                '...в цикле записываем последовательно в ячейки текущей строки переменные массива
                'попутно их проверяя на число, т.к. могут встречаться и не цифры
                For j = LBound(d) To UBound(d) 'цикл для последовательного считывания элементов динамического массива
                    If IsNumeric(d(j)) Then 'проверка на число
                        Worksheets(List).Cells(stroka, i) = CDbl(d(j)) 'запись в ячейку листа значения, которое было переведено из строкового типа в double
                        Worksheets(List).Cells(stroka1 + 31, i + 13) = CDbl(d(j)) 'запись в ячейку листа значения, которое было переведено из строкового типа в double
                        i = i + 1
                    End If
                Next
                If i = 2 Then ' это условие необходимо для того чтобы писать две чиловые стороки файла в одну строку листа
                   stroka1 = stroka1 - 1
                Else
                    i = 1
                End If
            Else
            'если строка содержит просто какойто текст то, записываем его просто на лист
                Worksheets(List).Cells(stroka, 1) = Str
                Worksheets(List).Cells(stroka + 31, 14) = Str
            End If
        End If
    Loop
    a.Close
    End Sub
     

    Всего записей: 17 | Зарегистр. 22-07-2006 | Отправлено: 21:00 22-08-2006
    Yuk



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    agrippa
    Вообще-то я тут не являюсь штатным консультантом. На форуме много народа, кто может ответить на вопросы. Поэтому не надо обращаться к кому-то конкретно, если вопрос новый.
     
    Файлов у меня не осталось, и я на конференции до конца недели. На небольшие вопросы может смогу отвечать, но разбираться в чужом коде пока нет времени. Проблему без примеров совершенно не понял.

    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 06:31 23-08-2006
    SERGE_BLIZNUK

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

    Цитата:
    Вообще-то я тут не являюсь штатным консультантом. На форуме много народа

    Уважаемый Yuk - вами тут уже на раз восхищались. ;-)) Вот, пользуясь случаем, хочу сказать, что весь форум держится исключительно! вашими усилиями!
    вот поэтому вас и спрашивают - знают, что если не вы - то надежды больше нет ;-)))
     
    agrippa
    аналогично. Абсолютно не понял вашу проблему... (что там за зоны, разделеные пробелом...) и вообще, это уже круто - нужно брать ваши txt файлы, запускать ваш код, изменять и отлаживать его... я, например, вряд ли потяну... прийдётся вам ждать возращения Yuk с конференции...
     
    Добавлено:
    выложите куда-нибудь архивчик с парой ваших тестовых txt файлов, описание проблемы (вплоть до скриншотов с обведённой проблемой ;-)) и xls с вашей функцией - ссылочку тут опубликуйте. Кто-нибудь обязательно посмотрит вашу программку...

    Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 07:13 23-08-2006
    agrippa

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

    Цитата:
    Уважаемый Yuk - вами тут уже на раз восхищались. ) Вот, пользуясь случаем, хочу сказать, что весь форум держится исключительно! вашими усилиями!  
    вот поэтому вас и спрашивают - знают, что если не вы - то надежды больше нет ))  

    Полностью согласен.  
     
    Вот ссылка на текстовый файл http://slil.ru/23047741
    Надо просто открыть Exel и запустить макрос, а файл он сам предложит выбрать.
    Кто проверит - тот поймёт мою проблему. Это тяжело объяснить.  

    Всего записей: 17 | Зарегистр. 22-07-2006 | Отправлено: 08:43 23-08-2006
    SERGE_BLIZNUK

    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    agrippa
    посмотрел, и кажется понял, что вы хотите получить... ;-)))
    у вас сверху вниз

    Код:
     
      данные 1
    две пустые строки
      данные 2
    две пустые строки
      данные 3
    ...
     

    а Вам хотите вместо этого

    Код:
     
     Данные 1 [Два Пустых столбца ]  Данные 2 [Два Пустых столбца ]  Данные 3 ...  
     

    так?
     

    Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 11:28 24-08-2006
       

    Страницы: 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

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA
    ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273


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

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

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru