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

Страницы: 1
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
02.12.2016 12:53:12
Супер) еще раз большое спасибо)
 
Перейти    
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
02.12.2016 12:26:28
Все же еще один вопросик,извините) -With Target(1, 0) можно сделать меняющимся? то есть если Target.Column <> 6 ,то  примечания в любую ячейку по моему желанию,а то сейчас они с шагом в "-1" добавляются. Надеюсь корректно объяснился)
 
Перейти    
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
02.12.2016 11:39:55
ОГРОМНОЕ ВАМ СПАСИБО!!!!Все работает
 
Перейти    
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
02.12.2016 11:01:33
Я не совсем силен в логике что зачем должно идти...пытаюсь сделать по аналогии но....ошибка(((
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim flag$
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 5 Then Exit Sub
    On Error Resume Next
    With Target(1, -1)
        flag = .Comment.Text
        If Err Then
            Err.Clear
            .AddComment
            .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' äîáàâëåíèÿ ïðèìå÷àíèÿ
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' îáíàâëÿåò ïðèìå÷àíèÿ
        End If
        .Comment.Shape.TextFrame.AutoSize = True
        End If
        With Target(1, 0)
        flag = .Comment.Text
        If Err Then
            Err.Clear
            .AddComment
            .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' aiaaaeaiey i?eia?aiey
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' iaiaaeyao i?eia?aiey
        End If
        .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub
 
Перейти    
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
01.12.2016 17:51:14
А могли бы  по подробней пожалуйста ,куда добавить чтоб и там и там добавлялись примечания
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim flag$
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 5 Then Exit Sub
    On Error Resume Next
    With Target(1, -1)
        flag = .Comment.Text
        If Err Then
            Err.Clear
            .AddComment
            .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' äîáàâëåíèÿ ïðèìå÷àíèÿ
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ":" & Chr(10) & Date & " " & Target(1).Text ' îáíàâëÿåò ïðèìå÷àíèÿ
        End If
        .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub
 
Перейти    
При изменении данных становить примечание на другие ячейки, доработать макрос
 
#
01.12.2016 15:51:45
Коллеги подскажите как доработать макрос чтобы при вводе данных в ячейку F2 в ячейке  D2 появлялась примечание .  В ячейке E2 и С2 все работает.    Пример в приложении
 
Перейти    
Макрос для создания примечания из соседних ячеек, примечания из соседних ячеек
 
#
29.09.2016 17:22:39
Все работает, большое спасибо!
 
Перейти    
Макрос для создания примечания из соседних ячеек, примечания из соседних ячеек
 
#
29.09.2016 16:57:31
Друзья, помогите разобрать в коде, как добавить ранг чтоб при вводе данных например  в ячейку C5 ,примечания были в ячейке  G5 c данными из C5. Пример в приложении.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim flag$
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    On Error Resume Next
    With Target(1, 5)
       flag = .Comment.Text
        If Err Then
            Err.Clear
            .AddComment
           .Comment.Text Text:=Application.UserName & ":" & Chr(10) & Date & " " & .Text
        Else
            .Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ":" & Chr(10) & Date & " " & .Text
        End If
        .Comment.Shape.TextFrame.AutoSize = True
    End With
End Sub
 
Перейти    
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
#
21.03.2015 13:07:36
Большое спасибо Sanja, сделал и улучшил мой  файл на 100%
 
Перейти    
Вставить примечание как картинку, помощь в коде
 
#
21.03.2015 13:02:32
Sanja , супер! Большое спасибо МУЖИКИ!!! с меня респекты))  тема закрыта!!
 
Перейти    
Вставить примечание как картинку, помощь в коде
 
#
21.03.2015 11:35:45
Друзья,подскажите пожалуйста код для кнопки "добавить фото". У меня есть форма (см. приложение "пример для вставки картинки как примечание" ), я хочу чтоб при нажатие кнопки ,я мог выбрать картинку на компьютере и вставить ее в столбец "описание проблемы" как примечание к проблеме .
Так же у меня есть пример(см.прил."Вставлять в примечание картинку через контекстное меню" ) чего я хочу ,но мне надо именно кнопка.

примеры сюда не вмещаются ,поэтому кидаю на облако https://drive.google.com/file/d/0B6shL4Z8HykfendSMHRDN3pyLW8/view?usp=sharing
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
04.03.2015 22:40:49
Большое СПАСИБО kalbasiatka ,сделал все за один день!!!!
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
04.03.2015 09:37:14
Цитата
lexey_fan написал:
коллеги, а кто то взялся уже или ещё нет?
Большое спасибо,на данный момент работа началась. Если у специалиста не поучится,то я снова открою тему. Но а пока тема закрыта.
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
03.03.2015 23:27:53
а если мне надо к одному наименованию  иметь 5  категорий. и по дате все сортировать. Другая форма не подайдет...  
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
03.03.2015 21:28:31
То есть объединять ячейки не стоит,далее проблемы могут возникнуть?я правильно понял?  
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
03.03.2015 21:19:30
реально,просто ,до этого не сталкивался с рынком на такие задачи. И думал это будет равносильно что сделать 3D визуализацию в 3Dmax.(так как сам дизайнер).Но VBA всеж сложней и значит труд ,должен достойно вознаграждаться ...но я пока не тяну на такие награды...
Изменено: DRAKA - 03.03.2015 21:44:25
 
Перейти    
Создать макросы для формы, создать и объяснить все макросы для формы
 
#
03.03.2015 19:44:54
Добрый день,мне нужно заполнять таблицу через форму. Кто готов взяться за работу и потом объяснить мне  или в комментах или по скайпу макросы которые вы использовали ,чтоб по аналогии я мог это сделать уже на боевой таблице.
Основное ТЗ по ссылке на ютубе  
Исходник в приложении
Краткое ТЗ
1.Сделать всплывающий календарь
2.Привязать форму к заполнению всех столбцов.
 
Перейти    
Страницы: 1
Наверх