VBA Удаление на листах определенного диапазонаhttps://www.cyberforum.ru/ vba/ thread1812647.html Подскажите пожалуйста, как осуществить удаление на листах со 2 по 7 и только 30 столбцов(и только первые 15 сверху строк) после указанного количества столбцов которые надо сохранить (слева на право от столбца А)? - например 10 первых столбцов надо сохранить на листах со 2-7, все остальное надо удалить в диапазоне 30 столбцов и 15 строк сверху
Добавлено через 19 часов 21 минуту
я написал код...
VBA сослаться на листы (без отслеживания) Подскажите пожалуйста, есть диаграммы на листе 2 и 3 как на них сослаться, без последующего перехода на листы? - Activate, Active надо заменить но не знаю на что
есть код, который ссылается с отслеживанием
Sub название_диаграмм()
Sheet("Лист1").ChartObjects("Диаграмма 4").Activate
ActiveChart.ChartTitle.Text = "название диаграммы1"
Sheet("Лист2").ChartObjects("Диаграмма...
VBA Макрос для кнопкиДень добрый, уважаемые форумчане!
Прошу помочь с задачей. Есть три столбца: (B3)"Наименование товара",(C3) "Цена закупа",(D3)"Цена реализации".
Есть кнопка - "добавить товар". В результате нажатия хотелось бы получить диалоговое окно с 3-мя вышеуказанными полями для заполнения, и после заполнения - добавление их в соответствующие столбцы.
Понятно, что можно и просто так взять и заполнить...https://www.cyberforum.ru/ vba/ thread1812572.html
VBA Заложить в макрос выделенный диапазон на листеПодскажите пожалуйста, как можно сослаться в макросе на выделенный диапазон на листе
есть такой способ, но он не всегда удобен
Public Sub Значки()
Dim cCell As Range
For Each cCell In Range(Cells(6, 5), Cells(28, 9))
Call green(cCell)
Nexthttps://www.cyberforum.ru/ vba/ thread1812544.html
Вернуть объект из функции VBA Здравствуйте.
Начну с кода:
Dim CON As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Function ПодключитьБД()
CON.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=test;" & _
VBA Составить программу, печатающая значение true, если указанное высказывание является истинным, и false в протипонимаю,что где то допустил банальную ошибку, но не могу разобраться где, скорее всего в if.
Друзья, помогите пожалуйста
Составить программу, печатающая значение true, если указанное высказывание является истинным, и false в противном случае.Целое число n является четным двузначным числом. Может еще чего то не хватает
Sub Variant5_3()
Dim N As Integer
N = InputBox("Введите N")
MsgBox N...https://www.cyberforum.ru/ vba/ thread1812404.html
VBA Быстрое копировние массивовйЛюди, здравствуйте.
Продолжение темы с массивами.
Надо копировать часть массива в другой массив. И надо сделать это быстро. То есть безо всяких вложенных циклов, а каким-нибудь MemCopy (ну, это образно - потому что нельзя подключать внешние библиотеки). В общем мне бы какую-нибудь функцию.
Такое ощущение, что нет никаких функций, иначе бы поиск нашел бы.https://www.cyberforum.ru/ vba/ thread1812386.html
VBA Определить активную в данный момент вкладку IE средствами VBAЗдравствуйте.
Есть несколько открытых вкладок Internet Explorer с загруженными страницами.
Необходимо доступиться средствами VBA из-под Excel или Access к АКТИВНОЙ (просматриваемой) в данный момент вкладке/странице.
Как перебрать ВСЕ вкладки IE описано здесь (https://www.cyberforum.ru/vba/thread829960.html)
А как определить, которая из них активна?
Спасибоhttps://www.cyberforum.ru/ vba/ thread1812350.html
VBA Пропускать не открытые книгиДобрый день!
Код для потенциальных 25 файлов книг, сейчас пока работают только три, постепенно их кол-во будет доходить до 25ти.
Поэтому вместо 25 книг открываю только 01, 02 и 14. После 2ой, не найдя третью книгу, он выдает ошибку.Как это можно исправить? Чтобы он пропускал не открытые книги и обрабатывал лишь те, что открыты?
Спасибо!
Sub Correct()
For Each w In Array( _https://www.cyberforum.ru/ vba/ thread1812320.html
Что возвращает recordset.GetRows? VBA Люди, здравствуйте.
Что возвращает recordset.GetRows? Это какой-то массив. Но как он там оформлен - для меня тайна за неизвестным числом печатей.
Знаю лишь то, что попытка вывести массив привела к "аут оф рейндж":
recArray = rec.GetRows
Dim txt As String
txt = ""
For i = LBound(recArray, 2) To UBound(recArray, 2)
For j = LBound(recArray, 1) To...
VBA Что возвращает recordset.GetRows?Люди, здравствуйте.
Что возвращает recordset.GetRows? Это какой-то массив. Но как он там оформлен - для меня тайна за неизвестным числом печатей.
Знаю лишь то, что попытка вывести массив привела к "аут оф рейндж":
recArray = rec.GetRows
Dim txt As String
txt
Свойство State объекта Connection содержит состояние объекта. Может принимать следующие значения:
Константа
Значение
adStateClosed
0
объект закрыт
adStateOpen
1
объект открыт
adStateConnecting
2
объект соединяется
adStateExecuting
4
объект выполняет команду
adStateFetching
8
объект выполняет выборку строк
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
PublicSub ВыбратьЦеныИзБД()
ОткрытьБД
If CON.State=adStateOpen Then
RS.Open"SELECT * FROM price", CON
Range("A1").CopyFromRecordset RS
RS.Close
ЗакрытьБД
Else
msgbox "Ошибка подключения к серверу и базе данных"EndIfEndSub