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

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



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    SAS888
    Т.е. при желании все можно решить, подскажите а как с Access, если расчеты производить в нем, аналогичные Excel, есть резерв ускорения?

    Всего записей: 1221 | Зарегистр. 02-05-2006 | Отправлено: 22:02 26-10-2009
    SAS888

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

    Цитата:
    что делает первая процедура UserForm_Initialize  

    Формирует значения для ComboBox1 из уникальных значений в столбце "A".
    Конечно, если у Вас где-то на листе уже есть такой список, то эту процедуру можно не выполнять, а в свойствах ComboBox1 задать диапазон RowSource. Но такой подход не позволит произвольно добавлять новые записи.
     
    Frantishek
    По работе с  Access ответ дать не могу (не берусь). Задайте вопрос здесь.

    Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 05:32 27-10-2009
    IvanovVyacheslavAnat

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброе утро форумчане, не могу справится с заданием, а если честно не знаю с чего начать.
     
    Есть книга, в книге 2 листа.
     
    В 1 листе данные, во втором план графика, что нужно:
     
    Когда на 2 листе выбираешь по выпадающему списку любой из пунктов, то в зависимости от выбранного пункта берутся данные из первого листа и автоматически справа прописываются данные (не одна ячейка, а группа ячеек, их всего 62).

    Всего записей: 7 | Зарегистр. 31-01-2008 | Отправлено: 09:03 27-10-2009
    PerpleXOR



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

    Всего записей: 741 | Зарегистр. 17-07-2005 | Отправлено: 21:21 27-10-2009 | Исправлено: PerpleXOR, 21:39 27-10-2009
    Alexikit

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    PerpleXOR
    Вообще файл Excel из вне можно открыть программой на VB (внешней, насчет макросов не знаю). Соответственно эта программа может и создавать файлы, и записывать в них листы и т.д.  
    Почитать можно здесь  
    http://msdn.microsoft.com/ru-ru/library/bb386107.aspx
    Но возможно есть более простые пути.

    Всего записей: 79 | Зарегистр. 01-04-2009 | Отправлено: 12:28 28-10-2009
    Igor_Paseka



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Нужна помощь! Есть форма с TextBox. Как сделать что-бы данные которые вводяться в  
    TextBox сохранялись. Например: я ввожу в TextBox "Киев", потом следующий раз мне нужно ввести "Харьков", на третий раз например мне нужно ввести опять "Киев" и я  хочу  выбрать его из всех ранее введеных городов. Как это сделать? Где будут сохранятся введеные данные?

    Всего записей: 23 | Зарегистр. 05-05-2009 | Отправлено: 17:26 28-10-2009
    soulthiefer

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    выкладываю файл в котором сделал все что мог .. в принципе все кроме поиска о котором прошу (  
    на первой вкладке : вводится пара фамилий ... в текстбоксах вводится если фамилии нет еще в списке в сомбобоксе выбирается из списка если существует фамилия ! Кнопка ЗАПИСАТЬ добавляет фамилии из полей в соответствующие колонки ( текстбоксы имеют приоритет перед комбо)  
    на второй вкладке : как раз и должен быть нужный мне поиск ( под кнопкой ПОИСК ВАРИАНТОВ расположен лэйбл3 в нем и должны выводится варианты ! пример запроса и ответов на него на самом листе справа от столбиков фамилий !
    ПОМОГИТЕ пожалуйста с этим самым поиском!!!
     
    файл с примером  
    http://rapidshare.com/files/299110332/2.zip.html
     
    ps сорри не знаю как сюда файл прикрепить (

    Всего записей: 40 | Зарегистр. 11-07-2006 | Отправлено: 17:50 28-10-2009
    DenSyo

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

    Цитата:
    Sub HideTrash()
      Dim c As Integer
      Dim r As Integer
      Dim i As Integer
       
      '1)
      If Cells(9, 256) <> Null Then c = 256 Else c = Cells(9, 256).End(xlToLeft).Column
      For i = c - 2 To 4 Step -2
        Cells(1, i).Select
        Selection.EntireColumn.Hidden = True
      Next i
       
      '2)
      If Cells(65536, 2) <> Null Then r = 65536 Else r = Cells(65536, 2).End(xlUp).Row
      For i = c - 3 To 3 Step -2
        If Cells(r, i) = 0 Then
          Cells(1, i).Select
          Selection.EntireColumn.Hidden = True
        End If
      Next i
       
    End Sub

    не вполне ясно с потребителями/городами, так и выглядит столбец 2 в реальных условиях?
    по поводу открытия всех файлов папки и разбивки (рекомендую три листа в одной книге, но дело ваше) напишу позже.
     
    вопрос к знатокам, как вызвать процес в экселе устанавливающий позиции скроллбаров листа по последнему непустому столбцу/строке? грубо говоря, после удаления значений, скроллбар все-равно достигает своей прежней крайней точки, но после команды save или preview (или еще каких), устанавливает новую крайнюю точку. как его вызвать, ума не прилажу.
     
    и еще, в обработке события OnSelect, можно ли узнать, было ли предшевствующее событие Change?

    Всего записей: 218 | Зарегистр. 19-01-2008 | Отправлено: 18:38 28-10-2009
    vlth

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    PerpleXOR
     
    файл
     
    Можно ещё улучшить, подправить и подчистить, наверное. Но можно работать и так...

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 03:04 29-10-2009 | Исправлено: vlth, 03:05 29-10-2009
    Igor_Paseka



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Нужна помощь! Есть форма с TextBox. Как сделать что-бы данные которые вводяться в  
    TextBox сохранялись. Например: я ввожу в TextBox "Киев", потом следующий раз мне нужно ввести "Харьков", на третий раз например мне нужно ввести опять "Киев" и я  хочу  выбрать его из всех ранее введеных городов.  
    Как это сделать?  
    Может нужно использовать не TextBox а что-то другое?  
    Где будут сохранятся введеные данные?

    Всего записей: 23 | Зарегистр. 05-05-2009 | Отправлено: 11:24 29-10-2009
    vlth

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Igor_Paseka
     
    Лучше использовать для этих целей комбобокс. Например, так, как в примере ниже.
     
    (Код модуля формы, на форме 2 элемента - ComboBox1 и CommandBatton1)
     

    Код:
    Dim varCBlist() As Variant
     
    Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then  'По нажатию клавиши "Enter" (KeyCode = 13) запоминаем значение, введённое в комбобокс, в его списке
        With ComboBox1
            If ComboBox1.MatchFound = False Then _
                .AddItem (.Text) 'Если такого значения в списке ещё нет, добавляем его в список
            ReDim varCBlist(.ListCount - 1)
            varCBlist = .List
        End With
    End If
    End Sub
     
    Private Sub CommandButton1_Click()
     'Если есть желание поместить список на лист Excel, жмём кнопку
    Range(Cells(1, 1), Cells(UBound(varCBlist) + 1, 1)) = varCBlist
    End Sub

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 13:54 29-10-2009
    Igor_Paseka



    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    vlth
    Спасибо БОЛЬШОЕ! Помог.

    Всего записей: 23 | Зарегистр. 05-05-2009 | Отправлено: 15:01 29-10-2009
    buburuzecakl

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ребят помогите пожалуйста с задачкой,190 страниц ниосилил..
    на VBA попросили написать :
    Дан файл, содержащий текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву и выдать эти буквы с указанием соответствующего количества слов.
    ну можно сделать чтоб не выдавало эти буквы,а чтоб слова которые начинаются на одну и ту же букву выводились справа от всех слов.

    Всего записей: 2 | Зарегистр. 29-07-2009 | Отправлено: 13:19 30-10-2009
    vlth

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

    Код:
    Option Explicit
    Option Compare Text
    Dim lngLastRow As Long
    Sub test()
    Dim strText As String, strLine As String, i As Integer
    Dim strFile As String
     
    lngLastRow = 0
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add "Файл с текстом для обработки", "*.txt"
        .Title = "Поиск слов, начинающихся и заканчивающихся на одну букву"
        If .Show = False Then Exit Sub
        strFile = .SelectedItems(1)
    End With
    With ThisWorkbook.Worksheets(1)
        Range(.Columns(1), .Columns(2)).Clear
    End With
    DoEvents
    Open strFile For Input As #1
    Do Until EOF(1)
        Line Input #1, strLine
        strText = strText & " " & strLine
         
    'Для обработки больших файлов частями по 3000 строк раскомментировать код ниже
    '-----------------------------
    '    i = i + 1
    '    If i = 3000 Then
    '        prcWordsCount strText
    '        i = 0
    '        strText = " "
    '    End If
    '-----------------------------
    Loop
    Close #1
    prcWordsCount strText
    MsgBox "В файле искомых слов: " & lngLastRow
    End Sub
     
    Sub prcWordsCount(strInput As String)
    Dim astrWords() As String, astrSigns() As String * 1, i As Long, j As Long
     
    If Len(strInput) = 0 Then Exit Sub
     
    strInput = Replace(strInput, ".", " ")
    strInput = Replace(strInput, ",", " ")
    strInput = Replace(strInput, ":", " ")
    strInput = Replace(strInput, ";", " ")
    strInput = Replace(strInput, "!", " ")
    strInput = Replace(strInput, "?", " ")
    strInput = Replace(strInput, "—", " ")
    strInput = Replace(strInput, "-", " ")
    strInput = Replace(strInput, "+", " ")
    strInput = Replace(strInput, "<", " ")
    strInput = Replace(strInput, ">", " ")
    strInput = Replace(strInput, "%", " ")
    strInput = Replace(strInput, "#", " ")
    strInput = Replace(strInput, "«", " ")
    strInput = Replace(strInput, "»", " ")
    strInput = Replace(strInput, "(", " ")
    strInput = Replace(strInput, ")", " ")
    astrWords = Split(strInput, " ")
     
    With ThisWorkbook.Worksheets(1)
        For i = LBound(astrWords) To UBound(astrWords)
           astrWords(i) = Trim(astrWords(i))
           If Len(astrWords(i)) > 1 Then
               If Asc(astrWords(i)) > 191 Then
                   If Left(astrWords(i), 1) = Right(astrWords(i), 1) Then
                       ReDim Preserve astrSigns(j)
                       astrSigns(j) = Left(astrWords(i), 1)
                       j = j + 1
                       .Cells(j + lngLastRow, 2) = astrWords(i)
                   End If
               End If
           End If
        Next i
        j = lngLastRow + j
        For i = lngLastRow + 1 To j
           .Cells(i, 1) = UCase(astrSigns(i - lngLastRow - 1))
        Next i
    End With
    lngLastRow = j
    End Sub

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 23:02 30-10-2009 | Исправлено: vlth, 12:06 31-10-2009
    buburuzecakl

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

    Всего записей: 2 | Зарегистр. 29-07-2009 | Отправлено: 18:14 31-10-2009
    Pozitivchik

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ку,уважаемые форумчане.
    у меня такая вот проблемка я нубло 3 степени,сказали на курсовую вот такую вот задачку решить,а препод лось.
    Дан текстовой файл. Напечатать в алфавитном порядке все слова из заданого файла,имеющие длину n.

    Всего записей: 1 | Зарегистр. 02-11-2009 | Отправлено: 15:55 02-11-2009
    vlth

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Pozitivchik
     
    Можно было бы тебе и самому несколько видоизменить код моего предыдущего ответа: задача-то, фактически, та же самая. Не находишь?
     
    Если нужно будет делать сортировку слов по алфавиту не в диапазоне листа, а как элементов массива, поищи алгоритмы в Инете (сортировки пузырьковая или быстрая, к примеру)
     
    Удачи!
     
    модуль VBA Excel

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 20:15 02-11-2009
    1nasty1



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Нужно для контрольной работы решить уравнение Ax2 + Bx + C = 0  
    Есть решение:

    Код:
    User Forml
     
           'РЕШЕНИЕ КВАДРАТНОГО УРАВНЕНИЯ
           'Ax2 + Bx + C = 0
           'VBAProjectl.xls
           'Процедура, выполняемая при нажатии на [CommandButton2]
                Private Sub CommandButton2_Click()
           'Описание переменных
           Dim A As Single, B As Single
           Dim С As Single
           Dim Dis As Single
           Dim Rel As Single, Re2 As Single
           Dim Iml As Single, Im2 As Single
           Dim Rl As Single, R2 As Single
           'Описание окон ввода
           A = Val(TextBoxA.Text)
           В = Val(TextBoxB.Text)
           С = Val(TextBoxC.Text)
           'Определение дискриминанта
           Dis = B^2 – 4*A*C
           'Продолжение вычислений
           'Вычисление корней
           If Dis > 0 Then
           'Вывод первого действительного корня
           Rl = (– В + Sqr(Dis)) / 2 / А
           TextBox5.Text. = Str(Rl)
           'To же - второго действительного корня
           R2 = (– В – Sqr(Dis)) / 2 / А
           TextBox6.Text = Str(R2)
           Else
           'Вычисление вещественных частей корней
           Rel = – В / 2 / А : Re2 = Rel
           'Вычисление мнимых частей корней
           Iml = Sqr(Abs(Dis)) / 2 / A : Im2 = – Iml
           'Вывод первого комплексного корня
           TextBox5.Text = Str(Rel) & " + i *" & Str(Iml)
           'To же - второго комплексного корня
           TextBox6.Text = Str(Re2) & " – i *" & Str(Abs(Im2) )
           End If
               'Конец процедуры, выполняемой при нажатии на [CommandButton2]
               End Sub
               'Процедура, выполняемая при нажатии [CommandButton1]
          Private Sub CommandButton1_Click()
               End
          'Конец процедуры, выполняемой при нажатии на [CommandButton1]
     
         End Sub

       
    Но почему-то ничего не получается из-за постоянно возникающих ошибок. Для меня вникнуть в особенности - куча времени, а его осталось не так уж много. Помогите с решением, пожалуйста. Желательно прикрепленным файлом )) Заранее спасибо!

    Всего записей: 751 | Зарегистр. 11-03-2005 | Отправлено: 23:58 02-11-2009 | Исправлено: 1nasty1, 00:02 03-11-2009
    vlth

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    1nasty1
     
    Ммм... зачем же файлом? - используйте Option Explicit, и удача Вас не оставит .
     
    Я бы ещё заменил тип переменных на Double, а Val() - на CDbl()
    И проверка корректности вводимых значений не помешала бы.

    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 03:58 03-11-2009
    1nasty1



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    vlth
    Я имел ввиду файл *.xls - готовый вариант. Если не сложно отредактировать. Судя по предыдущим записям для Вас - минут пять работы.
     
    Добавлено:
    Для меня предыдущий пост  как формула дезоксирибонуклеиновой кислоты )

    Всего записей: 751 | Зарегистр. 11-03-2005 | Отправлено: 04:28 03-11-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