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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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
    The okk



    Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Я тут спрашивал, что будет, если в теле цикла поменять верхний предел. - Цикл в этом случае все равно идет до того значения, которое было. А что будет с With Selection, если внутри попробовать применить Select?
     
    Добавлено:

    Код:
    Sub СЦЕПИТЬ()
    Dim Rowcounter As Long
    With Selection
        For Rowcounter = 1 To .End(xlDown).Row
            If Len(.Cells(Rowcounter, 1)) = 0 Then
            Exit For
            End If
            .Cells(Rowcounter, 1) = .Cells(Rowcounter, 1) & "-" & _
            .Cells(Rowcounter, 2)
            .Range(.Cells(Rowcounter, 1), .Cells(Rowcounter, 2)).Merge
        Next
    End With
    End Sub
     

    Странное поведение у метода Merge в данном контексте:
    К Rowcounter прибавляется смещение выделенного фрагмента по строкам относительно первой строки листа, и уже после этого происходит объединение. Т.е. если выделить 2 ячейки 6-й строки, то объединятся 2 ячейки 11-й строки. Не пойму, почему так происходит.
     
    Добавлено:
    По поводу закрепления областей - как они вообще закрепляются. Я понимаю, что методом FreezePanes. Но как закрепить конкретные строки, не используя при этом метод Select? Потому что, как я понимаю, Select в макросах - это "от лукавого" и можно обойтись без него.
     
    Добавлено:
    ...тьфу, ну какой же это метод. Разумеется, я имею в виду свойство FreezePanes.
    Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 13:11 04-12-2006
    Yuk



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

    Цитата:
    А что будет с With Selection, если внутри попробовать применить Select?

    Опять же используется исходое выделение. Попробуй:
    Код:
    Sub test()
    With Selection
        Debug.Print .Address
        .Offset(1, 0).Select
        Debug.Print .Address
        Debug.Print Selection.Address
    End With
    End Sub

    А все потому, что Selection - это не объект, а свойство, возвращающее объект Range, который With и запоминает.
     

    Цитата:
    .Range(.Cells(Rowcounter, 1), .Cells(Rowcounter, 2)).Merge

    Убери точку в начале.  
    Все это из-за относительности адресации. Например, если выделена ячейка B1, Selection.Range("B1") вернет ячейку C1. Поэтому в данном случае надо использовать Range как свойство листа, а не выделенной области.
     

    Цитата:
    Select в макросах - это "от лукавого" и можно обойтись без него.

    Именно так. Что я давно пытаюсь донести в этом топике.  
    Хотя, конечно, бывают случаи. Как, например, с FreezePanes.
    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 20:12 04-12-2006 | Исправлено: Yuk, 20:24 04-12-2006
    biffant

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Люди добрые, помогите дилетанту VBA
     
    В пределах процедуры сбрасывается статус Recordset'а!
     
    Ниже фрагмент макроса Excel, работающего через DAO с базой Access (режим read-only, все Recordset'ы типа dbOpenSnapshot, объявлены в начале модуля через Public):
     

    Код:
     
    Public Function CalculatePercentAmount(ByVal PercentInDay As Double, ByVal TargetDate As Date) As Currency
     
    ' Если Date = 0, считаем сумму всех платежей по кредиту
    Dim Result As Currency
    Dim LastDate As Date, TempDate As Date, CurrentDate As Date
    Dim CurrentRecord As Variant
     
    ' Проверка на целостность
    If rstPlanPaymentsBody.RecordCount < 1 Then
        CalculatePercentAmount = 0
        Exit Function
    End If
    If rstPlanPaymentsPercent.RecordCount < 1 Then
        CalculatePercentAmount = 0
        Exit Function
    End If
     
    ' Инициализация значений
    Result = 0
    If Not (rstFactPaymentsPercent.EOF And rstFactPaymentsPercent.BOF) Then
        rstFactPaymentsPercent.MoveLast
        rstFactPaymentsPercent.MoveFirst
    End If
    rstPlanPaymentsPercent.MoveFirst
     
    Do While (Not rstFactPaymentsPercent.EOF)
        ...
    Loop
     

     
    Проблема следующая: до строчки

    Код:
    If Not (rstFactPaymentsPercent.EOF And rstFactPaymentsPercent.BOF) Then

    во время трассировки rstFactPaymentsPercent.EOF = True, при этом rstFactPaymentsPercent.RecordCount = 10, далее на строчке
     

    Код:
    rstFactPaymentsPercent.MoveLast

    текущая запись rstFactPaymentsPercent перескакивает на последнюю запись,
     

    Код:
    rstFactPaymentsPercent.MoveFirst

    текущая запись перескакивает на первую запись,
     
    Но после выполнения
    Код:
    rstPlanPaymentsPercent.MoveFirst

     
    снова rstFactPaymentsPercent.EOF = True! (соответственно, текущей записи у этого Recordset'а больше нет, цикл не выполняется ни разу хотя должен 11 итераций пройти!)
    Всего записей: 16 | Зарегистр. 30-03-2005 | Отправлено: 20:38 04-12-2006
    Yuk



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Забавно, что если в With поместить непосредственно объект, а затем изменить его, в With остается старый объект.

    Код:
    Sub test()
    Dim c As Range
    Set c = Selection
    With c
        Debug.Print .Address
        Set c = .Offset(1, 0)
        c.Select
        Debug.Print c.Address
        Debug.Print .Address
    End With
     
    End Sub

    Похоже, With сохраняет даже не объект, а ссылку не него.
     
     
    Добавлено:
    biffant
    Не уверен, что поможет, но попробуй поставить небольшую задержку перед циклом. Если не ошибаюсь, если recordset довольно большой, прыжки MoveLast/MoveFirst могут занять какое-то время.
     
     
    Добавлено:
    А что, если проверить rstFactPaymentsPercent.EOF еще перед End If? True or False?
    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 20:40 04-12-2006 | Исправлено: Yuk, 21:00 04-12-2006
    biffant

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Во время трассировки обновление watch'ей происходит после выполнения очередного оператора, после выполнения обоих операторов внутри конструкции If рассматриваемый EOF = false, далее курсор переходит на строчку
    Код:
    rstPlanPaymentsPercent.MoveFirst  
    , при нажатии f8 EOF меняется на true
    Всего записей: 16 | Зарегистр. 30-03-2005 | Отправлено: 21:59 04-12-2006
    Troitsky



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

    Цитата:
    как закрепить конкретные строки, не используя при этом метод Select?

    например, так
    Код:
        With ActiveWindow
            .SplitColumn = 3 ' отделяем три столбца
            .SplitRow = 1 ' и одну строку
            .FreezePanes = True ' закрепляем их
        End With
    но обрати внимание, что все эти свойства относятся к свойству приложения ActiveWindow (класс Window), т.е. отделяться и закрепляться будут три столбца и одна строка именно в видимом в окне участке таблицы (хотя никто не запрещает предварительно использовать .ScrollIntoView). Как указать для закрепления конкретные строки и столбцы без Select'а и возможно ли такое, сказать затрудняюсь.
     

    Цитата:
    что будет с With Selection, если внутри попробовать применить Select?


    Цитата:
    Инструкция With позволяет выполнить последовательность инструкций над указанным объектом, не повторяя задание имени объекта.  Например, если имеется несколько свойств , которые необходимо изменить для одиночного объекта, то удобнее поместить инструкции присвоения свойств внутрь управляющей структуры With, указав ссылку на объект один раз, вместо того, чтобы ссылаться на объект при каждом присвоении его свойств.
    ...
    Примечание.   После входа в блок With значение аргумента объект изменить невозможно.  В результате, невозможно использование одной инструкции With для воздействия на различные объекты.
    Но, я так понимаю, что при вызове метода Select, объект Selection как был, так и останется, только должен ссылаться уже на другой объект, поэтому, если код тщательно продуман, проблем возникнуть не должно.
     

    Цитата:
    Странное поведение у метода Merge в данном контексте
    Нужно просто его правильно применить. Попробуй так:
    Код:
    .Range(Cells(Rowcounter, 1), Cells(Rowcounter, 2)).Merge

    и, видимо (если я правильно понял решаемую тобой задачу), вместо .End(xlDown).Row правильнее использовать .Rows.Count
     
     
    Добавлено:
    Yuk

    Цитата:
    А все потому, что Selection - это не объект, а свойство, возвращающее объект Range, который With и запоминает.

    а ведь точно, заглянул в Object Brawser и, действительно, свойство.

    ----------
    Мы в хорошем настроении гуляем по лесам.
    Кто обидеть нас захочет – сам получит по усам.
    Сам полу- получит по усам. Сам полу- получит по усам!
    Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 22:10 04-12-2006 | Исправлено: Troitsky, 22:25 04-12-2006
    biffant

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

    Цитата:
    Во время трассировки обновление watch'ей происходит после выполнения очередного оператора, после выполнения обоих операторов внутри конструкции If рассматриваемый EOF = false, далее курсор переходит на строчку  
    Код:rstPlanPaymentsPercent.MoveFirst, при нажатии f8 EOF меняется на true

     
    Был неправ, исправляюсь: после выполнения строчки
    Код:
    End If
    EOF становится равным True
    Всего записей: 16 | Зарегистр. 30-03-2005 | Отправлено: 19:05 05-12-2006
    Artyr_123

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Добрый день!!!
    Проконсультируйте пожалуйста по такому вопросу.
    Хочу сделать небольшубю програмку в Excel. Необходимо сделать так чтобы листы в книге открывались с панели управления. кнопки в меню научился добавлять, а вот с листом связать никак не получется.
    Может кто подскажет?
    Заранее благодарен!!!
    Всего записей: 1 | Зарегистр. 06-12-2006 | Отправлено: 05:08 06-12-2006
    zyurikz

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

    Цитата:
    Anatolij2005
    Знатоки подскажите пожалуйста.  
    Есть значения в столбце C и есть значения в столбце G причем значения в столбце С номер строки например n= 3 а в G q=15   .Вообщем нужно сравнить значения в столбцах и если значение в столбце С равно значению в столбце G то вырезать и вставить значение со столбца G c положения q в  положение n.  
     

    Вопрос уже задавали но ответа не нашел
    нужно сравнить столбец "C" с столбцом "G" и если в столбеце "G" есть значение "2" как и в столбце "C" изменить цвет ячейки
     
            С      G
    1      2
    2
    3
    4               2
    5
    6
    Всего записей: 7 | Зарегистр. 13-10-2006 | Отправлено: 16:29 06-12-2006
    AndyAdvokat

    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Такой вот вопросик
     
    Можно ли в книге с "общим доступом" создавать гиперссылки.
    по умолчанию эта ф-я отключаеться как только включаеш общий доступ.
    Всего записей: 5 | Зарегистр. 01-12-2006 | Отправлено: 19:31 06-12-2006
    Yuk



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    zyurikz
    МОжно и без макросов обойтись (хотя на большой таблице возможны тормоза). С помощью условного форматирования.
    Уточню задачу. Изменить цвет ячейки в столбце G, если в столбце C существует такое же значение.
    Выделяем область значений в G или весь столбец. Идем в меню Формат - Условное форматирование. Изменяем Ячейка на Формула и вводим:
    Код:
    =NOT(ISERROR(MATCH(G1,$C$1:$C$20,0)))
    (при желании меняем английские функции на русскиe и , на ; ). Подразумеваю, что в С значения в 1-х 20 строках. Чтобы использовать весь столбец, вводим C:C. Вместо G1 должна быть верхняя ячейка выделенной области в G.
    Выбираем формат ячейки. Все.
    Чтобы окрасить ячейки в С, делаем то же самое, меняя местами C и G.
     
     
    Добавлено:
    zyurikz
    А можно и макрос типа такого:
    Код:
    Sub ColorSame()
    Dim c As Range, g As Range
    Dim nr As Long
    nr = ActiveSheet.UsedRange.Rows.Count
     
    For Each g In Range(Cells(1, 7), Cells(nr, 7))
        For Each c In Range(Cells(1, 3), Cells(nr, 3))
            If c = g Then
                c.Interior.ColorIndex = 3
                g.Interior.ColorIndex = 3
            End If
        Next c
    Next g
    End Sub

     
    Добавлено:
    AndyAdvokat
    Можно, но в другой ячейке через формулу:
    =HYPERLINK("http://url.com", "текст в ячейке")
     
    Или через макрос убрать общий доступ, поставить гиперлинк, восстановить общий доступ.
     
     
    Добавлено:
    Artyr_123
    Открытие книги и активизацию листа прописываешь в макросе, который привязываешь к кнопке. Какие проблемы?
    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 19:44 06-12-2006 | Исправлено: Yuk, 20:18 06-12-2006
    mrachny



    Newbie    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Такой вот вопрос есть. Можно ли Ёксель связать с Аутлуком. То есть, сделать кнопку или менюшку, при нажатии на которую, например делалась бы копия открытой книги и вставлялась в Аутлук, чтобы написать адрес и отправить. Может кто заморачивался с этим?
     
    И второй вопрос, подскажите знающие люди, как сделать так, чтобы Progress Bar работал?
    Всего записей: 1 | Зарегистр. 05-12-2006 | Отправлено: 10:32 07-12-2006
    AndyAdvokat

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

    Цитата:
    Можно, но в другой ячейке через формулу:
    =HYPERLINK("http://url.com", "текст в ячейке")
     
    Или через макрос убрать общий доступ, поставить гиперлинк, восстановить общий доступ.  

     
    вариант формулу в ячейку не подходит
    а вот как в макросе это сделать. Сам порылся и не нашёл  
     
    Инфа о совмесном доступе храниться в свойстве workbook.MultiUserEditing = True
    а как его поменять ?
    Всего записей: 5 | Зарегистр. 01-12-2006 | Отправлено: 13:07 07-12-2006
    Yuk



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AndyAdvokat
    См. хелп по MultiUserEditing и ExclusiveAccess.
    Подробнее...
    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 15:05 07-12-2006 | Исправлено: Yuk, 15:05 07-12-2006
    Stasssm

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Подскажите как сделать макрос в Excele?
    Очень похож на макрос описаный выше со столбцами C и G,
    но все же немного отличается:
    У меня есть список Ф.И.О., (фамилия, имя и отчество находятся в одной ячейке)
    есть написаные функции, которые мне помогают извлечь из этой ячейки только фамилию, либо имя, либо отчество. Иногда использую  
    сразу две =ImIzStr(B3)&" "&OtIzStr(B3), чтобы в соседней ячейке получить и имя и отчество. Затем эту формулу копирую по всему списку. Решил при помощи макроса автоматизировать процесс, чтобы excel сам находил конец списка и вставлял в получившийся диапазон ячеек эту формулу.  
    Я Очень благодарен за макрос когда сравниваются столбцы C и G.
    я при помощи него понял как искать последнюю ячейку в списке, получилось:
     
    Sub CopyFunction()
    Dim fio As Range
    Dim nr As Long, ns As Long
     
    nr = ActiveSheet.UsedRange.Rows.Count
    ns = Application.ActiveCell.Column
     
    For Each fio In Range(Cells(3, ns), Cells(nr, ns))
                 
    ??????????????
      Next fio
    End Sub  
     
    Подскажите какой формулой где ????????? вставляется формула?
    Всего записей: 109 | Зарегистр. 12-05-2006 | Отправлено: 13:36 08-12-2006
    Anton T

    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    В листе имеется А, Б, В и т.д. Как можно добавить все листы в одном списке(ЛистБокс1)? Например, на листе А столбцы фамилии: Анастайчук, Аполенко и т.д., Б: Бондарчук, Бондаренко и т.д., чтобы сделать все листы вместе в списке:
    Анастайчук
    Аполенко
    Бондарчук
    Бондаренко
    и т.д.
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 14:59 08-12-2006
    Yuk



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Stasssm
    Для вставки формулы в ячейки в цикле пиши

    Код:
    addr = fio.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    fio.Offset(0,1).Formula = "=ImIzStr(" & addr & ")&"" "" &OtIzStr( & addr & ")"

    Offset(0,1) означает соседнюю ячейку справа.
     
    Если у тебя пользовательская формула (функция в VBA), может удобнее вставлять в ачейку сразу значение? Тогда не надо будет каждый раз пересчитывать формулы при изменении листа. Только функции должны быть доступны в макросе.
    код типа:
    Код:
    fio.Offset(0,1).Value = ImIzStr(fio)&" "&OtIzStr(fio)

     
    Код не тестировал, мог и ошибиться где-нибудь.
     
     
    Добавлено:
    Anton T

    Цитата:
    Как можно добавить все листы в одном списке(ЛистБокс1)?

    Как я понял, тебе надо вывести все значения на форме в ListBox контроле. Так?
    Пробегаешь по всем листам и собираешь все данные в динамический массив. Можно пробежаться по листам 2 раза для определения размера массива, но это не обязательно. Если есть другие листы, кроме А-Я, можно проверять имя листа на длину 1 символ. Затем с массивом можно делать что угодно: сортировать, удалять дупликаты, вывести в новую таблицы или в листбокс.  
    Я тебе вроде уже писал код со всеми этими операциями.
    Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 19:14 08-12-2006
    Anton T

    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Yuk
    Спасибо, что объяснил.
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 19:38 10-12-2006
    Anton T

    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Yuk
    Если сможешь, посообщаемся в аси, мой номер: 297574431
     
    Кстати вы понимаете Access VBA?
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:20 11-12-2006
    Stasssm

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Yuk
     
    СПАСИБО ОГРОМНОЕ, все работает и в том случае когда ставиться формула и когда уже значение, только к fio добавил Vaiue - (fio.Value).
     
    Я немного изменил вашу строку, чтобы макрос работал, когда я делаю активную ячейку не с ФИО, а стою на пустой справа.
    fio.Value = ImIzStr(fio.Offset(0, -3).Value) & " " & OtIzStr(fio.Offset(0, -3).Value)
     
    "-3" потому что правее от ФИО есть колонка с адресом и следующая с должностью.
     
    Аппетит приходит во время еды:
    Не во всех таблицах этой книги есть колонка с должностью .В этом случае, когда отработает макрос между адресом и результом будет лишний пустой столбец (ФИО - в столбце "В", адрес в "С", "D" - пустой). В этом случае придется постоянно идти в модуль и менять на "-2".
    Подкажите, пожалуйста, можно ли указать макросу, чтобы он вставлял значения в том столбце на котором активна ячейка, т.е справа от адреса и черпал источник своей работы именно с конкретного столбца "B", а не с координаты "-3", т.к. именно на нем во всех таблицах данные с ФИО. Мне это бы пригодилось для работы и в других таблицах.
     
    Так получилось,  что при всем богатстве выбора знакомых, знающих компы никто не разбирается в VBA.
    Всего записей: 109 | Зарегистр. 12-05-2006 | Отправлено: 16:40 11-12-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