|
|
Другие темы раздела | ||||||||||||||||||
VBA VBA Excel Ошибка 11 Dim m As Long Private Sub CommandButton1_Click() If m = 12 Or m = 1 Or m = 2 Then Label2.Caption = "Çèìà" Image1.Picture = LoadPicture(D \ image \ Winter.jpg) ElseIf m = 3 Or m = 4 Or m = 5 Then Label2.Caption = "Âåñíà" Image1.Picture = LoadPicture(D \ image \ Spring.jpg) ElseIf m = 6 Or m = 7 Or m = 8 Then Label2.Caption = "Ëåòî" https://www.cyberforum.ru/ vba/ thread2428728.html |
Определение пунктов кратчайшего пути VBA Доброго вечера, форумчане ! Встал серьезный вопрос. У меня на листе есть главная фигура "Прямоугольник 1". А также есть целевая фигура "Овал 4". Пространство между ними перегорожено другими фигурами. У меня вопрос - как найти точки (или адреса ячеек) - которые соответствуют кратчайшему пути между главной и целевой фигурами на листе ? Я примерно показал в файле - где примерно будут... | |||||||||||||||||
VBA Procedure too large
https://www.cyberforum.ru/ vba/ thread2428677.html Помогите оптимизировать код, что-то он начал ругаться: If CheckBox50.Value = True Then If Range("J2").Value = "1" Then If Range("C310") > 0 Then Range("C720") = Range("C310") * 2 If Range("C318") > 0 Then Range("C722") = Range("C318") * 2 If Range("C326") > 0 Then Range("C724") = Range("C326") * 2 ... |
VBA Копирование значений с разных страниц на одну Добрый вечер. Две страницы, в которых на основе других страниц ведутся ведутся вычисления и сводятся в таблицы. Итоговые значения частично совпадают, частично рандомятся. То есть как оно выглядит - есть столбец с входными данными, на их основе все это дело пересчитывается. Собственно, хотелось бы чтобы для каждого значения итоговая таблица сохранялась на отдельный лист, под ней таблица для... https://www.cyberforum.ru/ vba/ thread2428314.html | |||||||||||||||||
VBA Сортировка массива по алфавиту Добрый день. Помогите пожалуйста сделать программу сортировки по алфавиту. Заранее спасибо. |
VBA Автоматизированная обработка .doc файлов в папке
https://www.cyberforum.ru/ vba/ thread2428217.html Есть папка, в которой *.doc файлы. В каждом файле есть одинаковые поля, например, шапка и снизу поля для ввода фамилий. По нажатию на место фамилии я сделал выпадающий список. Также при открытии документа в шапке пишется текущая дата. Проблема в том, что документов в папке 30 шт. И в каждом документе, по сути, прописан один и тот же код, реализующий вышеописанные действия. Если приходится править... | |||||||||||||||||
VBA Вывести календарь на первое полугодие введенного с клавиатуры года Помогите пожалуйста написать код к задаче. Написать программу, выводящую календарь на первое полугодие введенного с клавиатуры года. https://www.cyberforum.ru/ vba/ thread2427860.html |
Получить подпоследовательность {bi}, куда включить элементы с нечетными значениями, при этом поменять местами первые две VBA При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное трехзначное число) целых положительных случайных пятизначных чисел. Получить подпоследовательность {bi}, куда включить элементы с нечетными значениями, при этом поменять местами первые две цифры с последними двумя цифрами. Обе последовательности вывести в соседние столбцы рабочего листа. Помогите... | |||||||||||||||||
VBA Макрос для Эксель Добрый день, мне нужна помощь с написанием одного макроса, суть в чем: есть много типовых таблиц, по шаблону одинаковые, отличаться могут только цифры и наименование товара, необходимо чтобы макрос собирал все эти данных из разных файлов в один, суммировал продажу и остаток и делал расчеты в отдельных столбцам по наименованию товара https://www.cyberforum.ru/ vba/ thread2427772.html |
VBA Property MouseMove()
https://www.cyberforum.ru/ vba/ thread2427709.html Здравствуйте! Объясните пожалуйста почему при наведении мыши на форму не меняется цвет текста в кнопках? Весь код: Private Sub Cmdgreen_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.Cmdgreen.ForeColor = vbGreen End Sub Private Sub Cmdblue_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As... | |||||||||||||||||
Изменить Visible quality VBA Здравствуйте! Хочу сделать, чтоб кнопка меняла видимость рисунка при нажатии. Вот код(но он делает рисунок невидимым, а обратно нет): Private Sub CmdVisible_Click() Static temp As Boolean temp = False If temp = False Then ImgSmile.Visible = False temp = True Else: ImgSmile.Visible = True temp = False |
VBA Как подсчитать сколько фигур уместится на определенной площади
https://www.cyberforum.ru/ vba/ thread2427533.html Здравствуйте. Помогите решить непростую задачу. Вот есть некая площадь - в виде прямоугольника - с шириной и высотой. И есть несколько фигур поменьше - с шириной и высотой - то есть тоже со своей индивидуальной площадью. Как макросом - математически рассчитать сколько понадобится мелких фигур всех
Наверх
|