Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Очистка ячейки по условию Доброго времени суток! В столбце L есть combobox. Нужно проверить что если в столбце G выбрано "Мясо" и ячейке столбца L выбрано что-то кроме "Курица" то ячейка в столбце L очищалась. Т.е. для варианта "Мясо" можно было выбрать только "Курица" Моя версия по очевидным причинам не работает :D Private Sub Worksheet_Change(ByVal Target As Range) If ActiveCell.Column = 12 Then Dim text As... https://www.cyberforum.ru/ vba/ thread3082168.html VBA Как взять RGB?
какая команда взять ргб? колорселл берет аргб или еще можно: как аргб конвертить в ргб средствами вба?
VBA Раскрасить ячейки Добрый день. Есть таблица с двумя столбцами. Нужно чтобы макрос делил первую ячейку на вторую, и если получившееся значение больше 0.7 раскрашивал её в синий цвет. https://www.cyberforum.ru/ vba/ thread3082054.html VBA Копирование заголовка между файлами https://www.cyberforum.ru/ vba/ thread3082021.html
Здравствуйте, задача скопировать главу (заголовок) из файла Word и вставить в другой файл болванку на заранее подготовленное место. В интернете нашёл решение - копировать текст между ключевыми словами и код, но почему-то иногда не срабатывает как, допустим, в этом примере. Или возможно другое решение, если надо скопировать именно главу из файла и вставить в другой файл? Глава - это то есть от...
VBA Как экранировать амперсанд в формуле
Добрый день. Делаю связанные ниспадающие списки, 2 штуки. Макрорекордером прописал два макроса.. Работают замечательно. Но при любом автоматическом копировании содержимое второй ячейки продолжает ссылаться на В23. Мне надо добавить строку и сместить эти две ячейки вниз (потом ещё и ещё), т.е. поставить вместо цифры 23 переменную. Как решать проблему с кавычками внутри формул написано много, что...
VBA Нумерация таблицы Приветствую, прошу помощи. В текстовом документе есть нумерация страниц и заголовки (текст с выделенным стилем Заголовок). В текстовом документе есть содержание, представленное в формате таблицы из трех столбцов: №, Наименование заголовка, №стр. Можно ли написать скрипт, который будет расставлять численное значение № стр. в таблицу (3 столбец). Пример работы алгоритма: (стартовое положение... https://www.cyberforum.ru/ vba/ thread3081748.html
VBA Рисование окружности по клику мышки на странице документа https://www.cyberforum.ru/ vba/ thread3081669.html
Доброго времени суток! Хочу попробовать решить такую задачу - написать макрос для Word, при помощи которого можно нарисовать окружность заданного диаметра и заливки с центром, который указывает курсор мыши. Знаний в этой области ноль, но тему хочется изучить. Прошу оказать помощь в виде тычка в нужном направлении - литература, ссылки на примеры. Написать код за меня не прошу. Заранее благодарю!
Форматирование столбцов в сводной диаграммы VBA
Добрый день. Необходимо задать определенный цвет столбцам в зависимости от части имени в сводной диаграмме. Как обращаться к точке в диаграмме с именем в несколько слов? Полное имя - ОТОП Автовышка ТО1 Sub format() Dim N As Object Dim K As Object Dim x As Integer Dim varValues As Variant
VBA Код символа абзаца перед таблицей https://www.cyberforum.ru/ vba/ thread3081645.html
Уважаемые коллеги, приветствую. Элементарный макрос для замены в Word двух символов абзаца на один не находит второй символ абзаца , если он перед таблицей. Какой у него код? Или в чем может быть проблема? Основной вопрос - какой код или как найти этот символ? Пример макроса: Sub ЗаменитьДваПереводаСтрокиНаОдин() Selection.Range.Find.Execute FindText:=chr(13) & chr(13),...
VBA Удаление дублей из mdb средствами vba https://www.cyberforum.ru/ vba/ thread3081619.html
Добрый день! У меня такая проблема: в базе данных создаются дубли профессий иногда и программа, которая работает на макросах в ворде с этой базой иногда путается и приходится через редактор заходить и вручную удалять дубли. Подскажите, пожалуйста, есть возможность редактировать базу через vba? Прикладываю таблицу, открытую в excel, для понимания. Последние 2 строки являются дублями предыдущей,...
VBA Каким будет содержимое файла "primer.txt" после выполнения следующей программы?
Sub Test() R=InputBox("Радиус-?") L= 2*3,1416*R Open "D:\ primer.txt" For Output As #1 Print #1, "задан радус R=";Format(R,"0.0") Print #1, "длина окружности L=";Format(L, "0.000") Close #1 Добавлено через 7 минут
VBA Определите, какой ответ получится после выполнения фрагмента программы, если ввести значения а=-10 b=2 https://www.cyberforum.ru/ vba/ thread3081469.html
a=InputBox("a-?") b=InputBox("b-?") If a>0 Or b>0 Then If a > 3 Then x=a*b Else x=a-b Else If b<-20 Then x =a*B Else x =Abs(a/b) End If MsgBox "x=" & Str(x)
396 / 319 / 58
Регистрация: 29.06.2019
Сообщений: 480
23.02.2023, 20:10 0
Excel

Зависание программы при попытке запуска CommandButton1_Click из него самого - VBA - Ответ 16770189

23.02.2023, 20:10. Показов 464. Ответов 9
Метки (Все метки)

Лучший ответ Сообщение было отмечено sesna7 как решение

Решение

Visual Basic
1
2
3
4
Private Sub CommandButton1_Click()
Randomize
my_Procedure
END SUB
в отдельном модуле
Visual Basic
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
dim caseid as long
 
Sub Random_Case()
caseid = Int(4 * Rnd + 1)
End Sub
 
Sub my_Procedure()
Random_Case
with UserForm1
Select Case caseid
Case 1
        If .CommandButton1.Left >= 20 Then
          .CommandButton1.Left = .CommandButton1.Left - 10
        End If
Case 2
        If .CommandButton1.Left <= 480 Then
          .CommandButton1.Left = .CommandButton1.Left + 10
        End If
Case 3
        If .CommandButton1.Top >= 20 Then
          .CommandButton1.Top = .CommandButton1.Top - 10
        End If
Case 4
        If .CommandButton1.Top <= 480 Then
          .CommandButton1.Top = .CommandButton1.Top + 10
        End If
End Select
Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"
end with
End Sub


Вернуться к обсуждению:
Зависание программы при попытке запуска CommandButton1_Click из него самого VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.02.2023, 20:10
Готовые ответы и решения:

Зависание BIOS при попытке войти в него
Конфигурация ПК: Материнская палата - Gigabyte GA-970A-DS3P; ЦП - QuadCore AMD FX-4300, 3918 MHz;...

Зависание программы при попытке пинга сервера
Доброго времени суток, Написал программу для переделки обычного ПК с ОС Windows в некое подобие...

Ошибка при попытке компиляции и последующего запуска программы
Доброго времени суток! Недавно появился один глюк, который очень сильно напрягает и который я уже...

Отображение скрытого в трее окна программы при попытке запуска ее копий
Имеется код: HANDLE hMutex = OpenMutex(MUTEX_ALL_ACCESS, 0, &quot;MyApp&quot;); if(!hMutex) hMutex =...

9
23.02.2023, 20:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.02.2023, 20:10
Помогаю со студенческими работами здесь

Ошибка "Permission denied" при попытке запуска программы
Не могу запустить свой &quot;Hello world&quot;. Написал программу в текстовом файле, как положено. Hello.cpp...

Зависание компьютера при попытке малейшего разгона
Добрый Вечер, проблема заключается в следующем: При попытке малейшего разгона процессора система...

Зависание системы Windows 10 после запуска файла или программы от имени администратора
При запуске любого файла или приложения от имени администратора пк зависает, не реагирует ни на...

Зависание Visual Studio при попытке остановить отладку
В коде есть ошибка, которую я пытаюсь решить, но при отладке в определенный момент программа тип...

Зависание командной строки при попытке выполнить код
Здравствуйте. Командная строка зависает, как бы пытается что-то выполнить но в скомпилированом...

Зависание Excel-я при попытке копирования небольшого объёма информации
Добрый день! Не могу разобраться с проблемой. Есть файл (во вложении), при попытке копирования из...

Ощибка при попытке запуска проекта
Привет всем! При сборке любого консольного приложения выскакивает предупреждение: ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru