Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » vit12
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Периодически, после обновления Office, слетают макросы
 
#
22.09.2021 09:36:47
Здравствуйте,

Установлен Office 365. Локальный файл с макросами. Периодически, после обновления Office макросы из файла исчезают полностью если бы их там и небыло.
Может кто-то сталкивался с похожим или может сказать в чем может быть проблема?
Изменено: vikttur - 22.09.2021 11:18:09
 
Перейти    
Макрос для контроллера
 
#
26.02.2020 11:07:34
Здравствуйте,

Имеется файл в котором 3 столбца. Контроллер через COM3 один раз в секунду пишет в ячейку A1 свое состояние 1 или 0 а в ячейки с A2 по A50 значения.
В зависимости от состояния 0 или 1 данные из столбца А должны переписываться в столбец B (если  А1 =0) или в столбец C если (если  А1 =1)

В интернете нашел такой макрос который отслеживает изменение ячейки A1 и поставил его в код листа Sheet1. Но выдает ошибку 2023.
Может кто подскажет другео решение?

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim KeyCells As Range
   Dim a(), b As Variant

' The variable KeyCells contains the cells that will
   ' cause an alert when they are changed.
   Set KeyCells = Range("A1:A1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
          Is Nothing Then

' Display a message when one of the designated cells has been
       ' changed.
     
b = Sheets("Sheet1").Cells(1, 1).Value
If b = 0 Then
a = Sheets("sheet1").Range("A2:A50").Value
Sheets("sheet1").Range("B2:B50").Value = a

Else
a = Sheets("sheet1").Range("A2:A50").Value
Sheets("sheet1").Range("C2:C50").Value = a
End If
End If

End Sub
Изменено: vit12 - 26.02.2020 11:10:21
 
Перейти    
Формулы массива в виде кода VBA
 
#
23.11.2019 09:15:31
Здравствуйте,

Подскажите, как написать формулу массива в виде макроса, чтобы в ячейку пошла не формула, а только результат вычисления.
Сейчас в ячейке стоит такая формула. Хочется перевести все это дело в макрос чтобы ускорить работу файла (в нем около 10000 ячеек с похожими формулами, и скорость работы оставляет желать лучшего. Вариант отключения расчетов на время ввода данных не подходит.


={(SUMIFS(jaanuar!$A:$A;jaanuar!$D:$D;$AC$2;sheet1!$C:$C;"konto";jaanuar!$B:$B;"D ";jaanuar!$F:$F;"<>22162")}
 
Перейти    
VBA номер текстового поля как переменная, Задать номер поля в макросе при помощи переменной
 
#
22.10.2019 14:09:49
Здравствуйте,

Есть пользовательская форма. В ней множество текстовых полей. Для переноса значений из полей в ячейки хотелось бы использовать цикл. Но для этого надо задать номер поля в качестве переменной. Есть ли такая возможность?
Вот Text1 хотелось бы чтобы менялось на 2, 3 и т.д.
Напишу тогда более подробно. И вот там где Text(B) мне надо, чтобы он понимал как Text1 потом Text2 и т.д. до конца цикла
Код
Dim B As Integer
For B=1 to 100
Sheets("Baza").Cells(1, B) = UserForm1.text(B).Value
Next B
Изменено: vit12 - 22.10.2019 15:05:50
 
Перейти    
Поиск номера строки по части текста.
 
#
01.11.2018 15:28:36
Здравствуйте,

Подскажите, существует ли какая возможность определить номер строки если имеются, для примера, такие данные
А1 Petrov Vasili 2215 Work
A2 Stepanov Andrei 2175 Work
A3 Ivanov Fjodor 5522 Work

Для поиска берем часть текста которая уникальна для каждого человека: скажем 2175 и в результате поиска хотелось бы получить номер строки т.е. 2.
Возможно ли такое стандартными функциями, не прибегая к VBA.

Спасибо
 
Перейти    
Страницы: 1
Наверх