|
|
| Другие темы раздела | |
| VBA Фильтрация даты Добрый день! Я столкнулся с проблемой. Вот код: Private Sub CommandButton1_Click() Windows("test.xlsm").Activate Dim m(1 To 12), i& Dim b(1 To 12) Dim d(1 To 12) For i = 1 To 12 If Filter_date("CheckBox" & i) = True _ https://www.cyberforum.ru/ vba/ thread2313194.html |
VBA Управление курсором с использованием скрипта Доброго времени суток! Подскажите пожалуйста способ поставить курсор в начало выделения в текстовом блоке в блокноте с помощью vbscript (если возможно). Спасибо. |
| VBA Преобразование горизонтальной таблицы в набор вертикальных показателей Преобразование горизонтальной таблицы в набор вертикальных показателей. Есть огромная таблица (1) с 19 колонками. Нужно сделать новую таблицу (2) , где первая колонка таблицы (2) - это 18-ть показателей горизонтальных данных в исходной таблице (1), вторая колонка таблицы (2)- это первая ячейка таблицы (1), которая дублируется для каждого из 18-ти показателей. Третья колонка таблицы... https://www.cyberforum.ru/ vba/ thread2312628.html |
VBA Зависает макрос на выделение диапазона ячеек
https://www.cyberforum.ru/ vba/ thread2312583.html Создала макрос на выделение ячеек через одну. Тестировала на таблице с 20-ю строками - все работает. А на 300тыс.+ зависает намертво. Как можно ускорить работу макроса? Sub Рандом() ' Dim LastRow As Long, i&, diapaz1 As Range, diapaz2 As Range LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' последняя строка Range(Cells(1, 1), Cells(LastRow, 1)).Select Set diapaz1 =... |
|
Удалить из столбца текст не совпадающий с текстом в другом столбце, и наоборот VBA Добрый день. Очень нужна ваша помощь. Есть два столбца с большим количеством записей (марка/модель авто.) ~8к. Нужен макрос, чтобы в первом столбце остались только марки, а во втором только модели. На втором листе есть список всех марок для сравнения. По моей задумке в пером случае макрос сравнивает два столбца, на первом и втором листе, и оставляет только названия марок, а в другом... |
VBA Не могу достучаться к элементам класса Variant
https://www.cyberforum.ru/ vba/ thread2312551.html Здравствуйте! У меня есть три класса, и в каждом классе есть массив объектов ниже стоящего класса. Option Explicit Private NameSignale As String Private ConnectSignal As Variant Property Let NameSig(NameValue As String) NameSignale = NameValue End Property |
|
VBA Ошибка в цикле. Нет for, хотя он есть
https://www.cyberforum.ru/ vba/ thread2312537.html Здравствуйте! Написал довольно простой и однотипный по структуре проверялщик заполненности листа данными вот с таким кодом: Sub check_ms() Dim StartCell As Range Dim r&, cl, x, y, i, yzag, tvalue, dvalue, geo%, tip, tipPU, fam$, lsf$, ul$, lsu$, area$, city$, ulica$, h$ Dim geonumbersh As String Dim geonumberd As String |
VBA Добавление в таблицу строк по заданному количеству) Ребят, как в моем примере сделать так, чтобы если указал в UserForm 80 месяцев (допустим), то на лист "Тест" под таблицу добавлялось 80 строк,в столбце № пронумеровывалось от 1 до 80) Если другое кол-во строк, то соответственно друга нумерация) |
|
VBA Число как текст в переменной
https://www.cyberforum.ru/ vba/ thread2312467.html Есть столбец с кодами клиентов типа "00320" или "01123" или "00025" Есть код: Dim n As String Set fcell = Application.ThisWorkbook.Worksheets("1. Клиенты").Range("A:E").Find(CStr(Range("C" & r)), lookat:=xlWhole) If Not fcell Is Nothing Then n = CStr(Application.ThisWorkbook.Worksheets("1. Клиенты").Range("A" & fcell.Row)) MsgBox n |
VBA Пример select case с not и перечислением Здравствуйте! Скажите, как правильно будет записать по смыслу следующее: Select Case cell.Text Case Not "Опора", "Фасад", "РУ ТП", "ПКУ", "Трубостойка", "Домовладение" cell.Interior.Color = vbRed End Select ? https://www.cyberforum.ru/ vba/ thread2312446.html |
|
VBA Установить размеры таблицы Word в соответствии со значениями Дана таблица Word - число столбцов 8, количество строк всегда разное. Необходимо Задать ширину каждого столбца неизменно - (1), (2.5), (1.75), (3.5), (1.5), (2.5), (2.5), (5) Высоту строк установить автоматическую (0). Свои попытки изложил ниже, работает почему-то через раз. Не могу разобраться, помогите знающие Sub Таблица() ' ' Таблица Макрос ' |
VBA Удаление Строк С нулевыми значениями во всех листах Здравствуйте. Я не давно начал познавать мир VBA, поэтому испытываю некоторые трудности. Имеется одинаковая таблица с разными значениями на разных листах. Нужно удалить строки где есть нулевые значения по столбцам. Использую макрос : 'удаление нулевых строк Sub test() https://www.cyberforum.ru/ vba/ thread2312436.html |
|
1856 / 1178 / 190
Регистрация: 27.03.2009
Сообщений: 4,558
|
|
| 20.08.2018, 13:20 | 0 |
Excel Не записывает значения - VBA - Ответ 1285030120.08.2018, 13:20. Показов 2463. Ответов 8
Метки (Все метки)
Ответ
ладно, теперь скажи, куда должны записываться данные из формы? или что с ними дальше должно происходить?
Вернуться к обсуждению: Не записывает значения VBA
0
|
|
| 20.08.2018, 13:20 | |
|
Готовые ответы и решения:
8
Не записывает вычисленные значения a1, a2, a3 в ячейки листа
Записывает одинаковые значения из массива в базу данных Read_csv в pandas записывает все значения в первый столбец |
| 20.08.2018, 13:20 | |
| 20.08.2018, 13:20 | |
|
Помогаю со студенческими работами здесь
0
Запись в файл не происходит, или не всё записывает, или криво записывает. Что не так? Скрипт, который в разные строки записывает буквы и цифры, цифры записывает как сумму Не записывает в БД Не записывает в бд Не записывает в БД |