Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Открытие файла базы данных access https://www.cyberforum.ru/ vba/ thread852655.html
Нашел в теме с готовыми решениями следующий код : Private Sub Command1_Click() Dim myobj As New Access.Application 'открываем БД, в кот. находится отчёт myobj.OpenCurrentDatabase ("D:\Database2.mdb") 'запускаем в БД форму, кот. в свою очередь запустит отчёт myobj.DoCmd.OpenReport "Таблица1", acViewReport 'выводим приложение на экран myobj.Visible = True End Sub После выполнения выскакивает...
VBA Макрос - вставить число в следующую пустую ячейку
Помогите и мне с макросом: если вводить в ячейку F13 число, оно по средствам "макроса1" копируется в ячейку A2. Как сделать, чтобы при следующем вводе в ту же ячейку F13 другого числа, предыдущий результат в ячейке А2 не стрирался, а число вставлялось в следующую пустую ячейку А3? Sub макрос1() ' ' Макрос1 макрос ' '
VBA Поиск строк содержащих определенное слово https://www.cyberforum.ru/ vba/ thread852625.html
Доброго времени суток. Подскажите пожалуйста по такой проблеме. Есть документ Excel (несколько листов), необходимо написать макрос, который выводил бы все строки из всего документа содержащие в себе искомое слово в отдельный лист. С VBA не знаком, а попросили сделать побыстрее:(, надеюсь на вашу помощь.
VBA Странно себя ведет функция Format Привет. Не могу понять, это только у меня так? Если в ячейку (1,1) записать число, а в формате ячейки поставить "Общий" а потом выполнить код: With Cells(1, 1) MsgBox Format(.Value, .DisplayFormat.NumberFormat) End With Выводит: Ge0eral https://www.cyberforum.ru/ vba/ thread852622.html
VBA Сортировка массива по значениям двух других
Задача в следующем есть три массива с одинаковым числом элементов (два double и один string). Нужно отсортировать третий массив используя значения двух других. Т.е. Нужно взять наибольшее значение из двух массивов, посмотреть его позицию в исходном массиве и значение из той же позиции третьего массива поставить на первое место. Затем нужно взять следующее по величине значение из двух первых...
VBA Присваиваем аргументу значение и используем его в коде Добрый день, уважаемые! Передо мной стоит задача однако мой уровень VBA не блещет хорошими знаниями. И так, мне необходимо создать Inputbox окно, которое бы запрашивало 3 числовых значения и 1 смешанное значение. Первые 3 числовых необходимо после их ввода копировать в соответствующие ячейки А1, А2, А3 на листе1. А вот 1 смешанное не простое. И дальше речь пойдет о нем. В своей работе я... https://www.cyberforum.ru/ vba/ thread852518.html
VBA SQL-представление Пытаюсь создать SQL-представление следующим образом: Sub trade_balances2() Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & ThisWorkbook.Sheets("База").Cells(2, 2) & ";Extended Properties=dBase IV" .Open https://www.cyberforum.ru/ vba/ thread852512.html VBA Три треугольника заданы координатами своих вершин. Написать программу вычисления площадей треугольников и определения минимальной площади
Сорри, пропало соединение с интернетом Ребят, помогите кто сможет) Дано задание: "три треугольника заданы координатами своих вершин. Написать программу вычисления площадей треугольников и определения минимальной площади." Я писал программу для одного треугольника, все работает(Пример 1). Ее я использовал три раза и через формулу в самом Excel для нахождения минимальной площади) Можно ли как то...
VBA Определить время, затраченное для сохранения файла doc Всем ПРИВЕТ!!! помогите в определении затраченного времени на сохранения кокого-либо файла... файл может быть например вордовский... Благодарю заранее!!! https://www.cyberforum.ru/ vba/ thread852152.html VBA Реализовать запросы в Exel(VBA), которые уже есть в БД Аксесе https://www.cyberforum.ru/ vba/ thread852081.html
Нужна помощь Есть уже сделанная бд в аксессе Таблицы просто импортируются и нужно реализовать 3 запроса в Exel с помощью VBA Запросы не сложные: 1. Вычислить количество слушателей каждой дисциплины. 2. Определить число слушателей заданной дисциплины, у которых средний балл превышает заданный. 3. Создать таблицу, которая содержит фамилию, группу и средний балл всех слушателей...
Как сделать, чтобы числа выводились подряд VBA
Доброго времени суток!!! Задачка: сделал макрос нахождения простых чисел (с этим проблем нет). Проблема в том, что числа в экселе выводятся в ячейки с большим промежутком. Т.е. число 2 в ячейке А2, число 7 в ячейке А7, число 199 в ячейке А199 и т.д. Как сделать, чтобы числа выводились подряд А1, А2, А3, А4, А5 и т.д Помогите пожалуйста. Спасибо!!! Файл с макросом прилагаю!!!!
VBA Удаление макросом фрагмент текста https://www.cyberforum.ru/ vba/ thread851553.html
Доброго времени суток! У меня такая ситуация: есть документ, в котором при помощи макроса нужно удалить определенный абзац, как это можно сделать? Спасибо за помощь!
1 / 1 / 0
Регистрация: 18.04.2013
Сообщений: 27
30.04.2013, 11:29  [ТС] 0

Макрос вставки картинок и WEND. Где-то простая ошибка - VBA - Ответ 4491967

30.04.2013, 11:29. Показов 2217. Ответов 2
Метки (Все метки)

Ответ

Цитата Сообщение от Aksima Посмотреть сообщение
Здравствуйте, ДмитрийVBA,
Значения свойств .Width и .Height изменяются дискретно с определенным шагом, равным 0,75. Поэтому вам никогда, к примеру, не установить значение свойства .Width равным 100 с точностью 0,1 - самые близкие к этому значению значения свойства .Width, которые вы можете подобрать - это 99,75 и 100,5.

Мне кажется, нужно задать менее жесткие требования к точности подбора размеров ячейки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
             While Abs(PicRange.Cells(1).Width - ph.Width) > 0.376    ' точный подбор ширины ячейки
                PicRange.Cells(1).ColumnWidth = PicRange.Cells(1).ColumnWidth - 0.2 * (PicRange.Cells(1).Width - ph.Width)
             Wend 'здесь проклятая ошибка =(
         End If
 
         If AdjustHeight Then    ' если AdjustHeight=TRUE, то ширину не трогаем - изменяем высоту
            PicRange.Cells(1).RowHeight = PicRange.Cells(1).RowHeight * ph.Height / PicRange.Cells(1).Height
             While Abs(PicRange.Cells(1).Height - ph.Height) > 0.376    ' точный подбор высоты ячейки
                PicRange.Cells(1).RowHeight = PicRange.Cells(1).RowHeight - 0.2 * (PicRange.Cells(1).Height - ph.Height)
             Wend
С уважением,
Aksima
Вот же ж я дурак..как всегда стыдно... Просто и гениально! Премного благодарен! Будьте счастливы!

Вернуться к обсуждению:
Макрос вставки картинок и WEND. Где-то простая ошибка VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2013, 11:29
Готовые ответы и решения:

Макрос для автоматической вставки картинок из заданной папки в ворд
Доброй ночи. Кто может помочь в создании макроса. Суть такова: есть папка, в которой находятся...

Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос
Необходимо изменить ниже приведённый макрос, взятый с форума. Необходима помощь. Буду признателен....

Простая программа не работает. где ошибка?
простая программа не работает. где ошибка? подскажите пожалуйста. туплю( #include <iostream>...

Не работает макрос, можете посмотреть, где ошибка, заранее спасибо
вот макрос : Sub Main Dim Doc As Object Dim Cursor As Object Dim Proceed As Boolean Dim fl As...

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

Простая программа просмотра картинок
Такая идейка... в mainmenu выбираю что-то открывается диалог выбора чего-либо. Добавил Image, но...

Макрос поиска и вставки
Здравствуйте. Вопрос жизни и смерти....помогите пожалуйста.. Нужен макрос или какое-то другое...

Простая галерея: смена картинок по клику
Есть простая галерея из нескольких фото. <center> <div class="a1"> <img...

Простая поочередная смена картинок в Image
Подскажите пожалуйста, как сделать смену картинок взятых из ресурсов?Нигде еще не встретил такого...

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