Форум программистов, компьютерный форум, киберфорум
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
3920 / 2317 / 785
Регистрация: 02.11.2012
Сообщений: 6,162
10.02.2016, 09:09 0

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

10.02.2016, 09:09. Показов 2813. Ответов 9
Метки (Все метки)

Ответ

fog__1, шапку таблицы в файле забыли набрать.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2016, 09:09
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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