|
|
Другие темы раздела | |
VBA Ошибка цикла Помогите пожалуйста цикл заставить правильно работать .... For i = LBound(arr) To UBound(arr) ' создаём папку для очередной строки (если папки ещё нет) Folder$ = BaseFolder$ & arr(i, 1) & "" ' имя папки - в столбце C MkDir Folder$ Filename$ = Folder$ & "index" & ".html" ' название index https://www.cyberforum.ru/ vba/ thread1702254.html |
VBA Создание пароля Помогите написать программу, чтобы все работало и кнопка создавала пароль, удовлетворяющий условиям: Длина пароля - 11 символов b1, b2 - случайные символы из множества {!,”,#,$,%,&,’,(,),*}. b3,...,b6 - случайные малые буквы русского алфавита. b7,...,b11 - случайные цифры. 1. Коды английских символов - «A»=65,…,«Z»=90, «a»=97,…, «z» =122. 2. Коды цифр – «0» = 48, «9» = 57.... |
VBA Нужно исправить код подсчета удаленных дубликатов, не считая пустоты
https://www.cyberforum.ru/ vba/ thread1702161.html Здравствуйте, нужно исправить код подсчета удаленных дубликатов работает замечательно, только есть один недостаток считает и пустые строки, поэтому возник вопрос, как в конце кода поставить правильный подсчет только удаленных цифр, а не включая пустот Dim c As Integer Sub sort_myMY() c = 0 For Item = 1 To ActiveWorkbook.Worksheets.Count |
VBA Не могу найти ошибку в коде Вот условие задачи: Составить массив, состоящий из удвоенных или разделенных на два элементов исходного массива. Есть скрин самой программы. Вот сам код: Private Sub CmdStart_Click() Dim N As Single, Nstr As Single, Ncol As Single Dim i As Integer Dim Creteriy As Variant Dim b(100) As Single Dim c(100) As Single Лист1.Activate https://www.cyberforum.ru/ vba/ thread1702094.html |
Добавление текста в нужных местах TXT документа VBA Есть код, который создает txt документы ' перебираем все строки For i = LBound(arr) To UBound(arr) ' создаём папку для очередной строки (если папки ещё нет) Folder$ = BaseFolder$ & arr(i, 1) & "" ' имя папки - в столбце C MkDir Folder$ ' FilenameST = "C:\12.html" ' TextFromFile =... |
VBA Загрузить заданный массив в ListBox Как правильно изменить код, чтобы он выгружал данный массив в ListBox Sub Ведомость() Dim a(), b() Dim i&, x&, y&, rw&, pay& Dim sh Dim NewSheet As Worksheet '----------------------------- Application.ScreenUpdating = False rw = 3 https://www.cyberforum.ru/ vba/ thread1702046.html |
VBA Код макроса работает лишь в одном файле, как его использовать в другие файлы
https://www.cyberforum.ru/ vba/ thread1702031.html Здравствуйте. Код работает лишь в одном файле, пробовал разные варианты импортировать, сохранять как надстройку не получается, выходит ошибка в коде Кто решит проблему? в чем секрет так и не понял, впервые с таким сталкиваюсь, чтобы код не работал на других файлах |
VBA VBA Господа, будьте добры, помогите ответить на следующие вопросы, буду очень признателен. 1.Каким образом в VBA реализуется конструкция ветвление. Цикл со счетчиком, цикл с предусловием, цикл с постусловием, синтаксис и примеры 2.Описать каким образом выполняется отладка в среде VBA и можно ли создавать исполняемый файл. Я в vba совсем не разбираюсь, нужно для отчета по практики. Прошу... |
VBA Запретить закрывать документ через Х Вообщем создаем мы документ и в нем делаем кнопки. Открыть.....Закрыть. Открыть открывает другой документ.. После того как открыли документ, нужно сделать, что бы его нельзя было закрыть крестиком... А можно закрыть только кнопкой "Закрыть". https://www.cyberforum.ru/ vba/ thread1701882.html |
VBA поцедура проверки сохранения книги после изменений
https://www.cyberforum.ru/ vba/ thread1701621.html Создайте новую процедуру которая должна определить, сохранена ли рабочая книга после внесения в нее изменений. Если книга была сохранена, то должно выводиться окно с соответствующим сообщением. Выполните эту процедуру. Sub Task() With Workbooks.Add .Worksheets.Add.Name = "Г‚Г*ГёГҐ èìÿ" .SaveAs "C:\Temp\Г‚Г*ГёГҐ èìÿ.xls" MsgBox IIf(.Saved, "ГЉГ*ГЁГЈГ* ñîõðГ*Г*ГҐГ*Г*... |
VBA Подстановка в документ html Есть html документ - шаблон html> <head> <title> {Подстановка1} </title> </head> <body> <H1>{Подстановка2} </H1> <P>{Подстановка3} </P> </body> |
VBA Динамическое создание элементов управления
https://www.cyberforum.ru/ vba/ thread1701581.html Суть задачи такова: имеется форма с multipage, требуется динамически добавить элемент управления (например TextBox) на вторую страницу multipage. Как добавлять элементы посредством controls.add и перемещать их понятно, но как сделать так, чтобы добавляемые элементы появлялись именно на второй странице? |
Заблокирован
|
||||||
03.04.2016, 21:17 | 0 | |||||
Hайти количество цифp в целом положительном числе (переделать с предусловием) - VBA - Ответ 897433903.04.2016, 21:17. Показов 1704. Ответов 1
Метки (Все метки)
Ответ
Вернуться к обсуждению: Hайти количество цифp в целом положительном числе (переделать с предусловием) VBA
0
|
03.04.2016, 21:17 | |
Готовые ответы и решения:
1
Найти количество цифр во введенном с клавиатуры целом положительном числе Найти количество четных и нечетных цифр в целом положительном шестизначном числе Найти вторую цифру в целом положительном числе Найти первую цифру в целом положительном числе |
03.04.2016, 21:17 | |
03.04.2016, 21:17 | |
Помогаю со студенческими работами здесь
0
Определить, сколько цифр в целом положительном числе Определить, каких цифр нет в заданном с клавиатуры целом положительном числе Множества. Описать функцию, подсчитывающую количество pазличных цифp в числе Определите функции: nd(n) - вычисляющую количество цифр в числе; d (n,k) - вычисляющую k цифру справа в целом числе |