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

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

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

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 201 202 203 204 205 206 207 208 209 210 211 212 213

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



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

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

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Предыдущие ветки топика: Часть 1, Часть 2
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях 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
     
    Перечень основных ColorIndex'ов из MSDN
     
    Смежные темы:
    Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
    Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
    Программы » Word FAQ | Excel FAQ | Access FAQ
    Прикладное программирование » Word VBA | Access VBA  
    Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
    Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
    Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
    Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007
    • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:16 11-01-2010 | Исправлено: ALeXkRU, 16:42 03-08-2021
    ZlydenGL



    Moderator    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    virtuNBK, Alt + F11 откроет окно редактора VBA. Даблклик по нужному листу выдаст модуль этого листа (по умолчанию пустой). В окне модуля в левом выпадающем списке выбираем пункт Worksheet вместо General, в правом - событие Change. У тебя в окне модуля автоматически появится "заготовка"

    Код:
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    End Sub

    Дальше - дело техники. Например, можно реализовать так:

    Код:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(1, 1) = Now()
    End Sub

     
    Дальше сам

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор
    Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 13:34 17-02-2010
    GenyaMS



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго Времени Суток! Гуру скажите пожалуйста - как сделать такое:
    Задача - в ячейке хранится ссылка на адрес в Инете.
    Делаю ячейку активной запускаю макрос - по нему:
    Если опера не открыта то оператор shell ее запускает, если она открыта то создает в Опере новую страницу с заданным адресом.
     
    Труднось в том: 1 - как проверить из VBA наличее запущенного процесса оперы.
    2 - как передать в оперу новую ссылку(с адресом) и принудительно из VBA создать новую страницу.
     
    Очень нуждаюсь паре строчек КОДА по указанному выше вопросу...
    Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 13:28 18-02-2010
    vlth

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

    Цитата:
    Очень нуждаюсь паре строчек КОДА по указанному выше вопросу...

    Увы, получается только одна строка
    Код:
    Shell "C:\Program Files\Opera\opera.exe http://www.yandex.ru"

    По крайней мере у меня (не знаю, м.б. зависит от настроек Оперы) всё работает именно так, как Вам необходимо - без доп. ухищрений.
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 15:32 18-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Есть форма NewP. Запускаем кнопкой.
    Private Sub NewPButton_Click()
    newp.Show
    End Sub
    Надо чтоб при запуску форми виполнянся определенний код.
    (заполнить поля, к примеру NameFirst.Text = "Петров")
    СПС
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 19:01 18-02-2010
    ZlydenGL



    Moderator    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    NJCorp, странный вопрос. Свойство OnLoad/OnActivate формы вам в помощь Ну или прямо в NewPButton_Click() перед отображением формы вставить нужный код. Вариация огромная!

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор
    Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 20:18 18-02-2010
    Johnson_Finger



    Advanced Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Кстати, господа, подскажите такую штуку, есть ячейка, в ячейке есть число, скажем 10000,0031548, но отформатированным оно выглядит как 10 000,00. Есть ли возможность сделать так, чтобы msgbox показывал именно отформатированное значение, т.к. тот же "msgbox activecell.value" отображает только 10000,0031548, а нужно чтобы показывал 10 000,00, т.е. отформатированное число (с разделителями и т.д.)
    Всего записей: 1177 | Зарегистр. 06-08-2006 | Отправлено: 20:33 18-02-2010
    ZlydenGL



    Moderator    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Johnson_Finger, format() тебе в помощь

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор
    Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 20:35 18-02-2010
    V4mp



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Johnson_Finger
    ну или использовать activecell.Text вместо activecell.value
     
    Добавлено:
    vlth
    с получением фокуса пока ничего не придумал. буду копаться в интернете...
    Всего записей: 65 | Зарегистр. 04-12-2008 | Отправлено: 02:58 19-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ZlydenGL
    Спасибо, разобрался.
     
    Теперь такой вопрос
    есть 2 форми. из 1-вой будет визиватся вторая (мультистраничная) из нескольких мест.
    можна ли при визове форми скрить определенние елементи (в первую очередь страници)
     
    так не виходит (в принципе догадивабсь почему)

    Код:
     
    UserForm.Show
    Page2.Visible = False
     

    Спасибо
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 04:11 19-02-2010 | Исправлено: NJCorp, 04:12 19-02-2010
    Anton T

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

    Код:
    UserForm.MultiPage1.Pages(1).Visible = False

    Короче, создай форму, добавь мультистраницу (2 страница) и одну кнопку.
    На кнопке добавь код:

    Код:
    Private Sub CommandButton1_Click()
    UserForm.MultiPage1.Pages(1).Visible = False
    End Sub

    Запустишь форму и нажми кнопку страница 2 скрывается.
     
    1 страница - индекс 0
    2 стр. - 1  
    3 стр. - 2
    и так далее
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 12:41 19-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Anton T
    Спасибо, но не то.
    Форма должна запустится уже с скритими елементамі.
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 13:05 19-02-2010
    Anton T

    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    NJCorp
    В форму можно проинициализировать:

    Код:
        MultiPage1.Pages(1).Visible = False

     
    Или использовать ЧекБокс:

    Код:
    Private Sub CheckBox1_Change()
        MultiPage1.Pages(1).Visible = CheckBox1.Value
    End Sub
     
    Private Sub UserForm_Initialize()
        MultiPage1.Pages(1).Visible = False
        CheckBox1.Value = False
    End Sub
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:43 19-02-2010 | Исправлено: Anton T, 13:46 19-02-2010
    vlth

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

    Цитата:
    Форма должна запустится уже с скритими елементамі


    Код:
    Private Sub UserForm_Initialize()
       me.MultiPage.Pages(1).Visible = False
    End Sub
     
    Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 18:21 19-02-2010 | Исправлено: vlth, 18:22 19-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Да, ет все хорошо, но не то.
     
    Форма визивается из нескольких мест, и при етом скито/отображено разние елементи.
    Суть сводится к тому, чтоб не писать несколько форм (их полусится штук с 20), а воспользоватся одной (отображая/скривая нужние елементи).
     
    Получается что нужно запустить форму и передать ей код, которий она должна виполнить (или чтото вроде того)
     
    На ум приходит использовать общую переменную, но чтото не получается.  
    делаю так:
    Обявляю переменную (кстати где ее обявить, в модуле или в форме?)

    Код:
     
    Public wisa As String
     

     
    запускаю форму и присваиваю значение переменной

    Код:
     
    Public Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
    forms.Show
    wisa = "war1"
    End If
    End Sub
     

     
    Считиваю переменную а она пустая

    Код:
     
    Sub UserForm_Initialize()
    MsgBox wisa
    'End If
     

     
    Не судите строго, я слабенький програмер, точнее я совсем не програмер. Пишу в свое удовольствие. С екселем работаю давно, но почти всегда обходился формулами, ну на крайняк мелкими макросами. С формами работаю первий раз....
     
    Добавлено:
    Ой, сори, нашол. Я сначала запустил форму а потом присвоил значение переменной.  
    Очивидно при запуске форми управление передается ей и дальше код не виполняется. Точнее виполяется, но когда ее активировать
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 21:46 19-02-2010 | Исправлено: NJCorp, 22:13 19-02-2010
    Anton T

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

    Цитата:
    Обявляю переменную (кстати где ее обявить, в модуле или в форме?)

    Можно в модуле, либо в форме.
     

    Цитата:
    запускаю форму и присваиваю значение переменной
    ...
    Считиваю переменную а она пустая


    Код:
    Public wisa As String, wisa1 As String
     
    Private Sub CheckBox1_Change()
    If CheckBox1.Value = True Then
    UserForm2.Show
    MsgBox wisa
    Else
    Unload UserForm2
    MsgBox wisa1
    End If
    End Sub
     
    Private Sub UserForm_Initialize()
    wisa = "вторая форма открыта"
    wisa1 = "вторая форма закрыта"
    End Sub

    В свойстве формы нужно установить значение ShowModal на False вместо True. Или я не прав?
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 22:54 19-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ShowModal у меня True,  
    пока все работает
     
    заштопорился тут:
    чекбокс с количеством (1,2,3...10)
    соответственно к вибраному нужно отобразить такое количество текстбоксов

    Код:
     
    Private Sub kilkist_Change()
    Dim intShow As Integer, x As String
        int = Me.kilkist.Value
            For i = 1 To int
                x = "TextBox_d" & i
                'TextBox_d(i).Visible = False
                x.Visible = False
            Next i
    End Sub
     

    текстбокси назвал TextBox_d1, TextBox_d2 ...
    что-то не так
    спасибо
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 23:10 19-02-2010
    GenyaMS



    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброго времени суток! подскажите пожалуйста ещё такую вещь:
    как записать в активную ячейку  листа Excell - адресс запущенной (открытой и активной) страницы в Опере ?
     
    Скопировать и вставить - не подходит, нужен текст макроса который выполнит это автоматически...
    Всего записей: 184 | Зарегистр. 24-01-2009 | Отправлено: 06:53 20-02-2010
    Anton T

    Member    		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    NJCorp
    Этот код один чекбокс из несколько текстбоксов:
    Код:
    Dim MyControl As Control
     
    Private Sub CheckBox1_Change()
        For Each MyControl In Controls
            If (MyControl.Name Like "TextBox*") Then
                MyControl.Visible = CheckBox1.Value
            End If
        Next
    End Sub
     
    Private Sub UserForm_Initialize()
        CheckBox1.Value = False
        For Each MyControl In Controls
            If (MyControl.Name Like "TextBox*") Then
                MyControl.Visible = False
            End If
        Next
    End Sub
     
    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 13:50 20-02-2010 | Исправлено: Anton T, 13:53 20-02-2010
    NJCorp

    Junior Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    спасибо, я пошол другим путем...
     
    Подскажите плз кодик для написания Фамилии Имени и По-батюшки с большой букви.
    Ето один текстбокс. Ну и запрет двойного пробела.  
    Уже башка не варит.  
    Спасибо большое.
    Всего записей: 72 | Зарегистр. 18-08-2007 | Отправлено: 04:06 21-02-2010
    dneprcomp



    Silver Member    		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    NJCorp
    PROPER(text)  
    Двойной пробел чистится в Replace
    Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 05:30 21-02-2010 | Исправлено: dneprcomp, 20:15 21-02-2010
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 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 201 202 203 204 205 206 207 208 209 210 211 212 213

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)


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

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

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru