|
|
Другие темы раздела | ||||||||||||||||||
VBA Маркеры на диаграмме цветами перепутаны подскажите пожалуйста, маркеры на диаграмме цветами перепутаны (меняю местами ничего не помогает) Sub измдиаграммы() i = 3 d = 5 For c = 1 To 2 Sheets(i).ChartObjects("диаграмма " & d).Chart.ChartTitle.Text = "1название1" Sheets(i).ChartObjects("диаграмма " & d).Chart.FullSeriesCollection(c).MarkerStyle = 2 https://www.cyberforum.ru/ vba/ thread1813166.html |
Вывод массива на рабочий лист VBA Массив и результат работы программы надо чтобы выводился на рабочий лист. Sub main() Randomize Timer Dim n As Integer, i As Integer, j As Integer, R As Double ReDim x(n) For i = 0 To n x(i) = Int(40 * Rnd) - 20 MsgBox ("" & x(i)) Next | |||||||||||||||||
VBA Организация скрытия/отображения таблиц (объектов) в Word
https://www.cyberforum.ru/ vba/ thread1813121.html Коллеги! Помогите с задачей. Нужно организовать скрытие и отображение таблиц, путем выбора пользователем соответствующей команды из списка "да/нет". Во вложении представлен шаблон:) |
VBA Объединение двух членов массива в один при совпадении с эталоном
https://www.cyberforum.ru/ vba/ thread1813087.html Здравствуйте! Есть массив данных arrIn, есть массив эталонный arrE. Как на выходе получить массив с объединенными членами при совпадении данных с эталонными. Вот пример: Sub summ() Dim arrIn(), arrE(), arrOut() arrIn = Array("A", "B1", "B2", "C1", "D1", "D2", "E") arrE = Array("B1", "B2", "C1", "C2", "D1", "D2") | |||||||||||||||||
Как избавиться от ошибки н/д в цикле VBA Есть список, нужно маркировать члены этого списка в соответствии со списком на другом листе буквой B, если они есть в этом списке. В Exel работает элементарная формула: =ЕСЛИ(B1=ИНДЕКС(Список!$A$2:$A$38;ПОИСКПОЗ(B1;Список!$A$2:$A$38;0);1);"B";0) В VBA она не работает никак, потому что если наименование не присутствует во втором списке, стоит ошибка н/д, и цикл спотыкается на первом же... |
VBA Перенос уникальных значений с указанием количества повторов Здравствуйте! нужна помощь в решении задачки... есть таблица в 2 столбца с данными: товар и магазин. Нужно, чтобы на другом листе "список" отображались товары без повторения, но с указанием количества повторов и названием магазинов. таблица с данными будет изменяться каждый раз, тк магазинов для рассмотрения порядка 7-10, а товаров более 3000((( Подскажите, пожалуйста с помощью какого... https://www.cyberforum.ru/ vba/ thread1812912.html | |||||||||||||||||
VBA Отловить ошибку подключения к БД
https://www.cyberforum.ru/ vba/ thread1812681.html Здравствуйте. Public 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;" & _ "USER=root;" & _ |
Удаление на листах определенного диапазона VBA Подскажите пожалуйста, как осуществить удаление на листах со 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("Диаграмма... https://www.cyberforum.ru/ vba/ thread1812578.html | 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) Next |
VBA Вернуть объект из функции
https://www.cyberforum.ru/ vba/ thread1812417.html Здравствуйте. Начну с кода: Dim CON As New ADODB.Connection Dim RS As New ADODB.Recordset Private Function ПодключитьБД() CON.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERV
Наверх
|