VBA

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

Войти

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

Другие темы раздела
VBA Создание массива с формы на листе https://www.cyberforum.ru/ vba/ thread190871.html Здравствуйте У меня такая вот проблемка, точнее недостаток знаний мне необходимо с формы вводя по одному значению записывать их на лист, причем формировать двумерный массив (N*M), причем значения вводятся по одному. теперь перейдем к вопросам: 1) как сделать так чтобы можно было обращаться с пользовательской формы к ячейкам 2) как записывать в ячейки с формы вот кусочек где у меня...	Путь к файлу VBA в макросе MS Word нужно получить путь и имя файла, выбранного в диалоговом окне "Открыть файл".. имя файла есть, а вот путь к нему никак не удается получить.. пол дня сегодня убил на поиск нужной функции, так и не нашел.. :( Private Sub CommandButton2_Click() With Dialogs(wdDialogFileOpen) .Name = "*.xls" .Display MsgBox .Name End With
VBA copy of columns задача , скопировать содержание с2:с21 из трех листов , в один лист "results.xlsm" C3:c22,D3:d22,e3:e22 соответственно ,вот код что смог то смог , тока не работает :) как исправит кто нибуд знает , спасибо !!! Sub exam3() Dim book As Workbook Dim ans As Integer Dim tt As String Dim jj As Integer Dim j1 As Range Dim jjj, jjj1, jjj2, jjj3 As Integer Dim j11, j2, j3, j4 As Range https://www.cyberforum.ru/ vba/ thread190338.html	VBA Как вывести название диаграммы сверху, и подписать некоторые её свойства снизу? есть диаграмма "Отметки" Сверху имя "предмет" Справа отметки от 0 до 10 Снизу нужно вывести средний бал и число не получивших отметки Какой метод отвечает за текст снизу??? подскажите плиз https://www.cyberforum.ru/ vba/ thread190324.html
VBA VBA Excel печать листа На листе ActiveSheet определены сквозные строки "$1:$2" для печати на каждой странице (ActiveSheet.PageSetup.PrintTitleRows = "$1:$2"). Вопрос: можно ли в этой области (сквозные строки) впечатывать номер текущей страницы?	VBA Как открыть файл. https://www.cyberforum.ru/ vba/ thread190303.html Собственно имеется поле с адресом файла (.doc документ), который необходимо открыть. Как это реализовать на VBA?
VBA нахождение максимального и минимального чисел https://www.cyberforum.ru/ vba/ thread190265.html Нужно найти максимальное и минимальное число в двухмерном массиве.никогда с ними не работала(вообще с массивами).как это сделать с помощью двухмерного массива и циклов for i=1 to n,for j=1 to m? Срочно нужно!	VBA Простая сортировка столбца Я извиняюсь за такие вопросы, но меня уже просто выключает и в голове каша. Есть столбец со значениями. Следует его отсортировать по убыванию P.S. Я весь день сижу над этой работой и уже на последнем дыхании пытаюсь ее закончить)) Помогите...
VBA Проверка существования книг Помогите, а то не могу дальше работу делать... Проверяется существование книг «Исходные данные.xls» и «Выборка.xls» в основной директории. В случае отсутствия какой-либо из них выдаётся сообщение о необходимости создать недостающую книгу (указывается, какую именно), и процедура завершается. Если обе книги существуют, то они открываются. Вот как я делал проверку существования одной книги b =... https://www.cyberforum.ru/ vba/ thread190078.html	VBA Написать программу, проверяющую правильность ввода даты https://www.cyberforum.ru/ vba/ thread189947.html Написать программу, проверяющую правильность ввода даты (формат ввода: дд.мм.гг): - введено нужное количество символов; - дд и мм являются числами; - 1 =< дд =< 31; - 1 =< мм =<12.
VBA номер строки Здравствуйте! Задача такая: как найти последний номер строки(код)? Облазил в инете все, везде решения - номер строки в определенном столюце и без пробелов... А как найти номер именно по условию заполнения строки?? не ячейки в столбце...Т.е. дан массив 1500 строк 35 столбцов, ячеки заполнены хаотично - где то в столбцах пустые 100 строк ... но строка (как объект из ячеек) - не пуста! поэтому...	VBA Перенос данных из книги Excel в Word проблемка такая.. написал в Ворде простенький макрос для переноса данных из книги Эксель в Ворд.. Sub Макрос9() Dim objExcel As Object, wkb As Object Dim rng As Range, bm As Bookmarks Set bm = ActiveDocument.Bookmarks Set objExcel = CreateObject("excel.application") Set wkb = objExcel.Workbooks.Open("C:\a\расчет_Чуг.xls") https://www.cyberforum.ru/ vba/ thread189886.html

~~Dzhej-Dzhej~~

Заблокирован

18.11.2010, 10:48

Определить, пройдет ли кирпич через отверстие - VBA - Ответ 1120066

18.11.2010, 10:48. Показов 5565. Ответов 15

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

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

Решение

Visual Basic

Private Sub Command1_Click()
    Dim x, y, z, a, b, min1, min2
    x = CDbl(Replace(Text1.Text, ".", ",")) 'êèðïè÷
    y = CDbl(Replace(Text2.Text, ".", ",")) 'êèðïè÷
    z = CDbl(Replace(Text3.Text, ".", ",")) 'êèðïè÷
    a = CDbl(Replace(Text4.Text, ".", ",")) 'äûðà
    b = CDbl(Replace(Text5.Text, ".", ",")) 'äûðà
    min1 = x
    min2 = y
    If (z < x) Then
        min1 = z
        If (x < y) Then min2 = x
    Else
        If (z < y) Then min2 = z
    End If
    If ((min1 < a And min2 < b) Or _
        (min1 < b And min2 < a) Or _
        (a * b > (min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)) Then
            MsgBox "Ïðîëåçåò!"
    Else
        MsgBox "Í³ ë³çå!"
    End If
    MsgBox CStr(a * b) + "  " + CStr((min1 / Sqr(2)) ^ 2 + min1 * min2 + (min2 / Sqr(2)) ^ 2)
End Sub

может так, только пролазит 12х3

Добавлено через 11 минут

Сообщение от Alex77755

Кирпич(подлец) просочился в щель 500х5

тоже
хз, как решать

Вернуться к обсуждению:
Определить, пройдет ли кирпич через отверстие VBA

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

18.11.2010, 10:48

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

Определить, пройдет ли кирпич через отверстие
Помогите составить блок-схему, и написать програму в VBA?!?!?! Заданы размеры А, В...

Выяснить, пройдет ли кирпич с ребрами А, В, С в прямоугольное отверстие со сторонами x, y
задача: Даны действительные числа A, B, C. Выяснить пройдет ли кирпич с ребрами А, В, С в...

Определить, пройдет ли цилиндр в отверстие, имеющее форму равностороннего треугольника
Определить, пройдет ли цилиндр диаметром d в отверстие, имеющее форму равностороннего треуголь-...

Определить, пройдет ли кирпич через отверстие
2. Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли...

	18.11.2010, 10:48

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

18.11.2010, 10:48

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

Определить пройдет ли кирпич через отверстие
Пожалуйста,помогите написать 2 программы и объединить их....Плизззз,помогите...((Завтра уже нужно...

Определить, пройдет ли кирпич через отверстие
Помогите решить!) Заданы размеры А, В прямоугольного отверстия и размеры X, Y, Z кирпича....

Ветвление: Определить, пройдет ли кирпич через отверстие заданных размеров
заданы размеры А, В прямоугольного отверстия и размеры x, y, z кирпича. определить пройдет ли...

Пройдет ли кирпич через прямоугольное отверстие
Пройдет ли кирпич со сторонами a, b и c через прямоугольное отверстие со сторонами x и y? Стороны...

Новые блоги и статьи
Проектирование и моделирование 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 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .

Наверх