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

Страницы: 1
Автоматическое открытие кники PERSONAL
 
#
27.09.2024 12:00:32
Цитата
написал:
Изучайте матчасть, там ещё предстоит много открытий
Знаю, знаю. Каждый раз как сталкиваюсь с новым, начинаю изучать)))
 
Перейти    
Автоматическое открытие кники PERSONAL
 
#
27.09.2024 11:02:11
Цитата
написал:
Попробуйте тогда перейти в Вид -Скрыть. Затем перейти в VBA, зайти в любой макрос книги PERSONAL и сохраните книгу(из VBA значок дискеты).
Именно то, что надо :)
Ведь если макрос пишешь в книгу, то он выполняется только в этой книге. А если надо написать макрос для любой книги, то его следует сохранять в Личную книгу макросов. А что делать если ее нет? Я тупо вручную создал файл PERSONAL и сохранил туда макрос. Но после этого файл стал сам открываться. Выполнил пошаговую инструкцию, описанную выше, и стало мне счастье :)
Правда теперь Excel надо сохранять дважды (PERSONAL-то скрыт). Но это проще чисто психологически :)
 
Перейти    
Не работает макрос проверки значений в столбце, Из темы "Заполнение бланков данными из таблицы"
 
#
03.03.2013 21:05:25
Цитата
Kuzmich пишет:
Попробуйте
А я попробовал :)
Цитата
Вадим Скаридов пишет:
Сам нашел ошибку. Методом научного тыка :)
В коде
Цитата
Вадим Скаридов пишет:
значение 2 в строке  r = Cells(Rows.Count, 2).End(xlUp).Row  нужно заменить на 1
 
Перейти    
Не работает макрос проверки значений в столбце, Из темы "Заполнение бланков данными из таблицы"
 
#
03.03.2013 21:02:45
Цитата
vikttur пишет:
Почему не в той же теме?
Цитата
Вадим Скаридов пишет:
Цитата
Николай Павлов 03.03.2013 17:05:32
Не видя вашего файла - это гадание на кофейной гуще. Пришлите файлик мне на почту или выложите в форум с описанием проблемы.

Адрес тут
Изменено: Вадим Скаридов - 03.03.2013 21:03:37
 
Перейти    
Не работает макрос проверки значений в столбце, Из темы "Заполнение бланков данными из таблицы"
 
#
03.03.2013 20:54:34
Сам нашел ошибку. Методом научного тыка :)
В коде
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim str As String
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
    str = Target.Value
    Application.EnableEvents = False
    r = Cells(Rows.Count, 2).End(xlUp).Row
     Range("A2:A" & r).ClearContents
    Target.Value = str
End If
  Application.EnableEvents = True
End Sub

значение 2 в строке r = Cells(Rows.Count, 2).End(xlUp).Row нужно заменить на 1 :)
 
Перейти    
Не работает макрос проверки значений в столбце, Из темы "Заполнение бланков данными из таблицы"
 
#
03.03.2013 20:48:29
Прилагаю файл по проблеме, изложенной ниже
Цитата
Вадим Скаридов 03.03.2013 13:35:36
Николай, не знаю почему, но у меня макрос ведет себя довольно странно (Excel 2010)
Я на пустой лист вставил макрос, предложенный в примере.
Сначала, при вводе значений в каждую следующую ячейку столбца А (начиная с А2), значение из предыдущей ячейки удаляется. Но, начиная с 10 строки удаление ранее введенных значений прекращается. Очищаю столбец А от всех значений. Снова начинаю ввод значений в ячейки столбца А (с А2). Уже на 4 строке удаление ранее введенных значений прекращается.
Кроме того, если вводить не одинаковые значения, то работа макроса прекращается сразу после ввода значения, отличающегося от предыдущего
С чем это связано?
Цитата
Николай Павлов 03.03.2013 17:05:32
Не видя вашего файла - это гадание на кофейной гуще. Пришлите файлик мне на почту или выложите в форум с описанием проблемы.
 
Перейти    
Страницы: 1
Наверх