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

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



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Как присвоить диапазону значение B2:D2, если значение row =2 ?
    У меня получается только как  

    Код:
     
    For Each Cell In Range("E2:E1000")
            If Cell > 100 Then
     
               NumberRow = Cell.Row
               Name = "B" & NumberRow & ":" & "D" & NumberRow
               Range(Name).Select
            End if
    Next Cell
     


    Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 08:52 11-05-2007 | Исправлено: GreenRay, 08:54 11-05-2007
    aks_sv

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Имеется таблица с данными, в одном столбце есть пустые ячейки. Вопрос: как расположить все непустые ячейки в столбце подряд, без пропуска ?

    Всего записей: 109 | Зарегистр. 18-12-2006 | Отправлено: 09:28 11-05-2007
    AndVGri

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GreenRay
    [
    Цитата:
           
               NumberRow = Cell.Row
               Name = "B" & NumberRow & ":" & "D" & NumberRow
               Range(Name).Select  

    Можно заменить на

    Код:
     
    Union(Cell.Offset(0, -2), Cell.Offset(0, -1)).Select
     

     
    Добавлено:
    aks_sv
    Отсортируй таблицу по этому столбцу по возрастанию, тогда пустые ячейки этого столбца будут внизу таблицы. Или удали пустые ячейки полностью со строками

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 09:32 11-05-2007
    aks_sv

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AndVGri
    Насчет сортировки как-то не подумал.

    Цитата:
    Или удали пустые ячейки полностью со строками

    А удалять пустые строки нельзя, могут пропать данные из других столбцов
    Спасибо.

    Всего записей: 109 | Зарегистр. 18-12-2006 | Отправлено: 10:26 11-05-2007
    GreenRay



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AndVGri
    Спасибо.  
     
    Добавлено:
    Подскажите, пожалуйста, как привести значение ФАМИЛИЯ к виду Фамилия

    Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 10:40 11-05-2007
    AndVGri

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GreenRay
    Вопрос для Excel Faq. Читай описания текстовых функций

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 11:09 11-05-2007
    GreenRay



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AndVGri
     
    С помощью функций lcase len left right ?

    Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 12:12 11-05-2007
    The okk



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GreenRay
    C помощью формулы =ПРОПНАЧ(). AndVGri правильно сказал - с подобными вопросами лучше в тему Excel FAQ

    Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 13:19 11-05-2007
    GreenRay



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    The okk
    Попробовал предложенную вами функцию

    Код:
     
    Proper (Cell.Offset(0, -2))
     

    Пишет, sub or function not defined

    Всего записей: 12 | Зарегистр. 04-05-2007 | Отправлено: 14:05 11-05-2007 | Исправлено: GreenRay, 14:06 11-05-2007
    AndVGri

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GreenRay
    sProperName = Application.WorksheetFunction.Proper(ActiveCell.Value)

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 15:02 11-05-2007 | Исправлено: AndVGri, 15:03 11-05-2007
    The okk



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    GreenRay
    а зачем вообще VBA для этого использовать? - в экселе есть функция.
    А если уж VBA, то можно еще и:

    Код:
    sProperName = StrConv("Фамилия",vbProperCase)

    Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 15:06 11-05-2007
    PavelO

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Есть такая проблемка. Нужен такой код, который через Ексель заменяет значения в базе Аццесс. Что я имею ввиду? Есть два файлика. Один .xls, другой .mdb. mdb содержит большую базу данных, xls содержит информации поменьше, но есть схожая. Как сделать так, чтобы изменяя ячейку в xls менялась и mdb база? Может у кого есть соображения на эту тему?

    Всего записей: 27 | Зарегистр. 19-09-2006 | Отправлено: 14:13 12-05-2007
    jONES1979



    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    PavelO синхронно изменять "и там и тут" вероятно геморройней, чем повесить "обновление mdb" на отдельную кнопочку.  
    В целом решать можно двумя путями: универсально через ADO (тогда как бы даже и не требуется установленного MSOffice Access) или же через объектную модель Access-а

    Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 15:06 12-05-2007
    pila007

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    помогите дорешать задачку  
    Ввести массив A(N).Задать число L.Вывести на печать исходный массив, значения первого элемента массива больше L, число элементов массива больших L  
    вот я ввел в Excel числа              6      -12         14        12      16      19        21       -6
    числа больше L он правильно читает, а 1-ое число больше L читает с конца, т.е указывает на цифру 21
    Sub four() '99
    ReDim a(8)
    c = 0
    L = 15 ' заранее заданное число
    For i = 1 To 8
    a(i) = Cells(i)
    If a(i) > L Then
    r = a(i)
    c = c + 1
    End If
    Next i
    MsgBox (" таких чисел " & c & " первое число больше L= " & r)
    End Sub

    Всего записей: 24 | Зарегистр. 24-04-2007 | Отправлено: 12:28 13-05-2007
    AndVGri

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

    Код:
     
    Dim isFirst As Boolean
     
    isFirst = True
    '...
    If a(i) > L Then
        '...
        If isFirst Then isFirst = False: r = a(i)
    '...
     

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 12:33 13-05-2007 | Исправлено: AndVGri, 12:35 13-05-2007
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Сделал расширенный поиск, взял на ozgrid.com.
    Вот смотри рисунок:
       
    отображается адрес ячейки, а вообще мне надо отображается так "Павленко Наталья Андреевна Киев Ленина 150 и т.д...(всего 12 стольбцов)" Поправить не знаю, то как? Но знаю , в коде ListBox1.AddItem rCell.Address & ":" & rCell(1, 3).Address заменяем на ListBox1.AddItem rCell.Address & " " & rCell(1, 12).Address получили полное имя, но если дважды раз - вылетела ошибка в желтую строку: Application.Goto Range(ListBox1.Text), True
    Такой код

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

    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Anton T
    А, что собственно, хотел?
    А ошибка вылетает потому что адрес, содержащийся в ListBox1.Text, для Range(ListBox1.Text) не содержит символа диапазона ":"?, то есть вместо положенного  "$A$17:$C$17" содержит пробел "$A$17 $C$17".

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 13:22 13-05-2007
    pila007

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    вот так?  
    если так то нечего неполучается, опять 21 выходит.
    Sub four() '99
    ReDim a(8)
    Dim isFirst As Boolean
    isFirst = True
    c = 0
    L = 15 ' заранее заданное число
    For i = 1 To 8
    a(i) = Cells(i)
    If a(i) > L Then
    r = a(i)
    c = c + 1
    If isFirst Then isFirst = False: r = a(i)
    End If
    Next i
    MsgBox (" таких чисел " & c & " первое число больше L= " & r)
    End Sub

    Всего записей: 24 | Зарегистр. 24-04-2007 | Отправлено: 13:37 13-05-2007
    AndVGri

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

    Цитата:
    r = a(i)
    c = c + 1  

    вот здесь r = a(i) убери

    Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 14:01 13-05-2007
    pila007

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    AndVGri
    спасибо
    а ты знаешь как сделать чтобы программка вычисляла _каждый_ столбец массива, а не
    сразу два:
    вот код
     Sub one()
        Dim a(10, 2) As Double
            Cells(12, 1) = 0
             Cells(14, 1) = 1
                For i = 1 To 10
                 For j = 1 To 2
               Cells(i, j) = Int((10 - (-10) + 1) * Rnd + (-10))
             a(i, j) = Cells(i, j)
         If a(i, j) <= 0 Then
                 Cells(12, 1) = Cells(12, 1) + a(i, j)
         Else
                  Cells(14, 1) = Cells(14, 1) * a(i, j)
           End If
       Next j
    Next i
    End Sub

    Всего записей: 24 | Зарегистр. 24-04-2007 | Отправлено: 15:01 13-05-2007
       

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