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= 23,1416R 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=ab Else x=a-b Else If b<-20 Then x =aB Else x =Abs(a/b) End If MsgBox "x=" & Str(x)

SergioJek

424 / 327 / 60

Регистрация: 29.06.2019

Сообщений: 491

23.02.2023, 20:10

Excel

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

23.02.2023, 20:10. Показов 491. Ответов 9

Метки (Все метки)

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

Решение

Visual Basic

Private Sub CommandButton1_Click()
Randomize
my_Procedure
END SUB

в отдельном модуле

Visual Basic

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

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

23.02.2023, 20:10

Готовые ответы и решения:

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

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

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

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

	23.02.2023, 20:10

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

23.02.2023, 20:10

Помогаю со студенческими работами здесь

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

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

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

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

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

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

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

Новые блоги и статьи
Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .

Наверх