|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Слетает форматирование текста при выполнение макроса в Ворде
https://www.cyberforum.ru/ vba/ thread396393.html Код такой (корявенький конечно...:-Sub txt() x = ActiveDocument.Paragraphs.Count For i = 2 To x With ActiveDocument.Paragraphs(i).Range s = .Text t = Right(s, 2) a = Asc(t) If (a = 45) Then .Text = Left$(s, Len(s) - 2) i = i - 1 |
Отображение извлеченных данных из БД VBA В общем извлекаю данные с сервера, скрипт-запросы, код проги, все верно. Но результат получается с дополнительным символом. Отображается как квадратик, я предполагаю что это символ перехода строк. Подскажите как избавится. Dim fil As ADODB.Connection Dim read As New ADODB.Recordset fil.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _ "Persist Security... | |||||||||||||||||
|
VBA На основе значений выделенного диапазона сформировать значения нового диапазона
https://www.cyberforum.ru/ vba/ thread396325.html На основе значений выделенного диапазона сформировать значения нового диапазона по указанному в задании правилу. Новые значения необходимо поместить справа или снизу от выделенного диапазона. Заданное число и границы заданного интервала определить как константы. Задача: Значения диапазона, модуль которых больше заданного числа, разделить на заданное число, остальные значения оставить без... |
VBA Поиск совпадений на разных листах и столбцах Здравствуйте. Вижу здесь многим помогают добрые люди. Надеюсь, помогут и мне, т.к. опыта работы с VBA не имеется . Есть вот такая задача: Нужно чтобы макрос с листа "products" брал артикул и искал его в листе "catalog". Когда находил менял цену (столбик "Цена" в "products") на свою, а те позиции, что не нашел по артикулу, добавлял в "catalog", в самый верх (между первой и второй строкой,... https://www.cyberforum.ru/ vba/ thread395972.html | |||||||||||||||||
|
Максимальное, минимальное значение и порядковый номер последовательности VBA водится последовательность чисел, нужно найти макс. и мин. значение и порядковый номер(не считаются почему то...) Public Sub Digit() Dim n, s, k, sr, p, max, min, n1, n2, l As Double s = 0 k = 0 p = 1 l = 0 C = 0 n2 = 0 n1 = 0 |
VBA В зависимости от введенного пароля открыть определенную форму
https://www.cyberforum.ru/ vba/ thread395635.html Здравствуйте, Есть форма для ввода пароля. существует три пароля (111, 222, 333) и каждый из них открывает определенную форму. Private Sub Кнопка3_Click() Dim Password As Variant, entPassword As Variant m1: Password = "111" Password2 = "222" Password3 = "333" If entPassword = Password Then | |||||||||||||||||
|
VBA Не могу вставить имя закладки
https://www.cyberforum.ru/ vba/ thread395593.html Вот код программы Sub Макрос1() ' ' Макрос1 Макрос ' ' Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .ButtonName = "Select" .AllowMultiSelect = False |
Разработать программное средство для действия с матрицами различной размерности VBA нужно разработать программное средство для действия с матрицами различной размерности(задаваемой пользователем) Предусмотреть сложение, вычитание, умножение, транспонирование, обращения, сокращения, сохранение в файл и загрузки из него | |||||||||||||||||
| VBA Разработать приложение для приема телеграмм доброе время суток помогите написать программку на VBA в экселе.: Разработать приложение для приема телеграмм. Фиксируется информация: фамилия заказчика, текст телеграммы, срочность, дополнительное оформление бланка, адрес доставки. Рассчитывается общая стоимость в зависимости от количества слов, срочности и оформления. при возможности киньте на почту https://www.cyberforum.ru/ vba/ thread395342.html | VBA Написать комментарии к коду обьясненя напишите с помощью знака ( ' ) в самой програме. Собственно задание: Преобразовать произвольную матрицу Q(m*n), расположив ее столбцы в порядке убывания сумм значений их элементов. Напечатать матрицу Q до и после преобразований, приведя против каждого столбца суммы значений элементов в них. Предусмотреть печать сообщений о номерах меняемых столбцов при каждой перестановке.... https://www.cyberforum.ru/ vba/ thread395320.html | |||||||||||||||||
|
Создание теста: как сделать счетчик правильных ответов VBA Здравствуйте, прошу помощи в создании теста. Не знаю как сделать счетчик правильных ответов. Также вопрос, можно ли упростить как-нибудь?: Private Sub СохранитьИ_Click() If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False Or OptionButton5.Value = False And OptionButton6.Value = False And OptionButton7.Value = False And... |
VBA Экспорт данных из excel в access
https://www.cyberforum.ru/ vba/ thread395095.html Доброго времени суток друзья! Я знаю что данная тема не раз поднималась здесь, да и на многих других форумах тоже, но пользу для себя извлечь из тех ответов я так и не смог. Если не сложно, будьте добры, скиньте пожалуйста код в котором информация из 1й(cells(1,1)), 2й(cells(1,2)), 3й(cells(1,3)) ,4й(cells(1,4)) ячейки Excel листа, отправлялась бы в базу данных
Наверх
| |||||||||||||||||
Сообщение от holder
