VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Создание матрицы в ListBox https://www.cyberforum.ru/ vba/ thread1658781.html Здравствуйте. Нужно создать матрицу по следующей формуле, но на косинус и синус выдаёт ошибку. Помогите, пожалуйста, исправить. k = Text1.Text For i = 1 To 10 Step 1 For j = 1 To 10 Step 1 List1.AddItem (22 Cos(sin(9i+6j+7k)) Next j Next i	Ошибка Run-time error 1004 VBA Добрый день! Вылетает ошибка после строки: Set y = Workbooks.Open("K:\Bond Prod.MX\MX\mx.xlsm", ReadOnly:=True) Прошу подсказки. Заранее благодарна! Sub copy_info()
VBA Упорядочить символы строки: сначала русские буквы, потом английские, потом цифры. Задание. Вводится в текстбокс строка, нужно рассортировать и вывести все буквы таким вот образом: сначала Русские от а до я, потом Английские от z до A, цифры 0-9, ну и потом остальные символы. придумал алгоритм: считать строку, разбить на символы, каждый символ по коду проверить на принадлежность к массиву русских, английских или остальных и запихать их в строку вывода в таком порядке. ... https://www.cyberforum.ru/ vba/ thread1658572.html	VBA Копирование данных при совпадении значения https://www.cyberforum.ru/ vba/ thread1658561.html Приветствую! Имеется задача. Существует список значений и таблица с данными. Необходимо осуществить поиск по всем значениям (перебором) и в случае совпадения значения в контрольном списке со значением в таблице, скопировать строку с имеющимися данными в контрольный список (чтобы данные располагались рядом). В VBA не силен, нашел часть кода Dim x As Range Dim z As Range For Each x In...
VBA Поиск и замена текста в объекте "Надпись" Word VBA Всем привет, помоги мне пожалуйста решить проблему. Есть готовый код, который нашел в интернете, которые берет данные из Excel и выводит их в Word, но просто как текст. Надо что бы выводил данные в объект "Надпись". За ранее спасибо! Const ИмяФайлаШаблона = "Шаблон.docx" Const КоличествоОбрабатываемыхСтолбцов = 8 Const РасширениеСоздаваемыхФайлов = ".docx" Sub СформироватьДоговоры() ...	VBA Макрос Word меняющий шрифт случайных слов с обычного на полужирный https://www.cyberforum.ru/ vba/ thread1658271.html Здравствуйте, помогите, пожалуйста, сделать макрос для Word, который меняет шрифт случайных слов (в идеале), с обычного на полужирный, или через 3-4 слова. Так же, желательно, чтобы не выделялись слова с точками или запятыми, если это будет не сложно, заранее большое спасибо!
VBA Сравнить значения двух колонок одной таблицы со значениями двух колонок другой таблицы Доброго времени суток! Суть в следующем: Есть таблица_1, которая содержит в себе номера машин (без букв) и даты. И есть вторая такая же таблица. Сортировка идет сначала по дате, потом по номеру. необходимо сравнить эти две таблицы, и вывести различия (например во второй таблице не хватает строчки за один из дней (соответственно и номера машины) Заранее благодарен за помощь. Добавлено... https://www.cyberforum.ru/ vba/ thread1658232.html	VBA Создать в Excel функцию решения квадратного уравнения Помогите пожалуйста. Задание: Создать в Excel функцию решения квадратного уравнения. На вход подается три коэффициента, на выходе получаем два корня. Произвести вычисления в книге с созданной функцией.
VBA Создать в Word макрос заменяющий пять идущих подряд пробелов символом табуляции Помогите выполнить данное задание...:-[ Задание: Создать в Word макрос заменяющий пять идущих подряд пробелов символом табуля-ции, если пробелов меньше пяти, то они заменяются одним пробелом. Примечание: В VBA есть специальная константа, обозначающая символ табуляции: vbTab. https://www.cyberforum.ru/ vba/ thread1658210.html	VBA Найти максимальное и минимальное значение диапазона таблицы и заменить их нулевым значением помогите пожалуйста. Вот само задание: 3. Разработать подпрограмму или пользовательскую форму для нахождения максимально-го и минимального значения выделенного диапазона рабочей таблицы и замены их ну-левым значением. Вот код программы: (не работает., выводит ошибку/Run - time error 1.: type mismath ) Sub m_1() Dim myArray As Variant Dim i As Long Dim j As Long Dim Max As Variant https://www.cyberforum.ru/ vba/ thread1658208.html
VBA Составить функцию VBA VBA помогите пожалуйста...	VBA Нужно написать код VBA написати VBA-процедуру що обчислює функцію y=f(x), xєR і виводить результат у вікні MsgBox для вказаного значення. Запит на вхідне значення x здійснити програмно. f(x)=sqrt(mod(x)). x=-16 Добавлено через 6 минут Sub MyFunc() x = InputBox("Аргумент функції:") f = sqrt(mod(x)) MsgBox "Результат: " & f Exit Sub End Sub https://www.cyberforum.ru/ vba/ thread1658016.html

Vlad999

3928 / 2325 / 786

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

Сообщений: 6,178

10.02.2016, 09:09

Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу - VBA - Ответ 8734031

10.02.2016, 09:09. Показов 2848. Ответов 9

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

Ответ

fog__1, шапку таблицы в файле забыли набрать.

Visual Basic

Private Sub CommandButton1_Click()
Dim vНомерПустойСтроки As Long
vНомерПустойСтроки = Application.WorksheetFunction.CountA(Range("A:A")) + 1
 
ActiveSheet.Cells(vНомерПустойСтроки, 1).Value = TextBox2.Value
ActiveSheet.Cells(vНомерПустойСтроки, 2).Value = TextBox3.Value
ActiveSheet.Cells(vНомерПустойСтроки, 3).Value = IIf(OptionButton1.Value, "м", "ж")
ActiveSheet.Cells(vНомерПустойСтроки, 4).Value = ComboBox1.Value
ActiveSheet.Cells(vНомерПустойСтроки, 5).Value = IIf(Me.CheckBox1.Value, "оплачено", "не оплачено")
ActiveSheet.Cells(vНомерПустойСтроки, 6).Value = IIf(Me.CheckBox2.Value, "фото сданы", "фото не сданы")
'ActiveSheet.Cells(vНомерПустойСтроки, 7).Value =
ActiveSheet.Cells(vНомерПустойСтроки, 8).Value = ComboBox2.Value
End Sub

П.С. модераторы удалите пожалуйста пустой пост.

Вернуться к обсуждению:
Разработать приложение, позволяющее при пом. диалогового окна, показанного на рисунке, заполнять таблицу VBA

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

10.02.2016, 09:09

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

Разработать приложение, позволяющее с помощью диалогового окна, показанного на рисунке, заполнять таблицу Абитуриенты
Пжл. помогите с контрой если есть у кого время. Задание явно не трудное, я пробовал но ни хера не...

Разработать приложение, позволяющее при помощи диалогового окна создавать таблицу Список ресторанов
Разработать приложение, позволяющее при помощи диалогового окна создавать таблицу Список...

Разработать приложение, позволяющее при помощи диалогового окна и списка вопросов и баллов в таблице проходить тестирование
Разработать приложение, позволяющее при помощи диалогового окна и списка вопросов и баллов в...

При помощи диалогового окна заполнять таблицу
Добрый вечер дамы и господа. Если у вас есть свободная минутка и вы жаждете от чистого сердца...

	10.02.2016, 09:09

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

10.02.2016, 09:09

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

Разработать приложение на базе диалогового окна – калькулятор
Разработать калькулятор для вычисления операции пересечения 2-х множеств. Множество является...

Разработать приложение, позволяющее создавать окна для представления в древообразном виде файловой структуры
Здравствуйте! Разработать многооконное MDI приложение, позволяющее создавать окна для...

Реализовать приложение, позволяющее заполнять двумерный массив случайными числами
Реализовать приложение, позволяющее заполнять двумерный массив случайными числами. Осуществить...

Используя компоненты вкладки Dialog, создайте следующее приложение, позволяющее открыть рисунок, найти и заменить текст, изменить атрибуты шрифта, пом
Лабораторная работа

Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ. Hrethgir 28.01.2025 Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .	[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .

Наверх