Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запись значения конкретной ячейки в заданную другую - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись значения конкретной ячейки в заданную другую (Макросы/Sub)
Запись значения конкретной ячейки в заданную другую
vitek73 Дата: Пятница, 16.08.2019, 16:39 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Запись значения конкретной ячейки в заданную другую ячейку которую мы так же задаём.
К сообщению приложен файл: _160919.xlsx(12.4 Kb)


vitёk73
 
Ответить
СообщениеЗапись значения конкретной ячейки в заданную другую ячейку которую мы так же задаём.

Автор - vitek73
Дата добавления - 16.08.2019 в 16:39
krosav4ig Дата: Пятница, 16.08.2019, 18:54 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2164
Репутация: 905 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$12" Then Exit Sub
    Cells((([F15] - 1) \ 3 + 1) * 2, 4 - (([F15] - 1) Mod 3)) = Target
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$12" Then Exit Sub
    Cells((([F15] - 1) \ 3 + 1) * 2, 4 - (([F15] - 1) Mod 3)) = Target
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 16.08.2019 в 18:54
vitek73 Дата: Пятница, 16.08.2019, 22:03 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
If Target.Address <> "$B$12" Then Exit Sub

Выдаёт ошибку при попытки выполнить,
разобрался, я не туда его прописал, работает, спасибо, )


vitёk73

Сообщение отредактировал vitek73 - Пятница, 16.08.2019, 22:07
 
Ответить
Сообщение
If Target.Address <> "$B$12" Then Exit Sub

Выдаёт ошибку при попытки выполнить,
разобрался, я не туда его прописал, работает, спасибо, )

Автор - vitek73
Дата добавления - 16.08.2019 в 22:03
vitek73 Дата: Среда, 21.08.2019, 12:27 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
попробовал это применить к этой страницы но ничего не вышло.
сделал другой набросок,разгадка где то рядом, но не пойму,
как значение переслать в выбранную ячейку?, с предыдущей формулой не выходит,
К сообщению приложен файл: 210819.xlsm(21.3 Kb)


vitёk73

Сообщение отредактировал vitek73 - Среда, 21.08.2019, 22:30
 
Ответить
Сообщениепопробовал это применить к этой страницы но ничего не вышло.
сделал другой набросок,разгадка где то рядом, но не пойму,
как значение переслать в выбранную ячейку?, с предыдущей формулой не выходит,

Автор - vitek73
Дата добавления - 21.08.2019 в 12:27
vitek73 Дата: Понедельник, 26.08.2019, 12:28 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Допилил мысль, но есть небольшое неудобство, для записи данных использую макрос 1,для стирания макрос 2,
но чтоб запустить тот или иной, пришлось нарисовать дополнительную кнопку и привязать к ней свой макрос,
можно сделать чтоб при изменении только ячейки R28 запускался макрос, а при изменении только T28 ячейки макрос ?
К сообщению приложен файл: _260819.xlsm(83.7 Kb)


vitёk73

Сообщение отредактировал vitek73 - Понедельник, 26.08.2019, 12:29
 
Ответить
СообщениеДопилил мысль, но есть небольшое неудобство, для записи данных использую макрос 1,для стирания макрос 2,
но чтоб запустить тот или иной, пришлось нарисовать дополнительную кнопку и привязать к ней свой макрос,
можно сделать чтоб при изменении только ячейки R28 запускался макрос, а при изменении только T28 ячейки макрос ?

Автор - vitek73
Дата добавления - 26.08.2019 в 12:28
RAN Дата: Понедельник, 26.08.2019, 14:34 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5127
Репутация: 1023 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim k&
    If Target.Address = ("$R$28") Then
        Select Case Target.Value
        Case 101 To 118: k = 55
        Case 201 To 216: k = 137
        Case 301 To 318: k = 221
        Case 401 To 418: k = 303
        Case 501 To 518: k = 385
        End Select
        If k Then
            Cells(Target.Value - k, 2) = Range("C36")
            Cells(Target.Value - k, 4) = Range("D39")
            Cells(Target.Value - k, 6) = Range("P38")
        End If
    ElseIf Target.Address = ("$T$28") Then
        Select Case Target.Value
        Case 101 To 118: k = 55
        Case 201 To 216: k = 137
        Case 301 To 318: k = 221
        Case 401 To 418: k = 303
        Case 501 To 518: k = 385
        End Select
        If k Then
            Union(Cells(Target.Value - k, 2), Cells(Target.Value - k, 4), Cells(Target.Value - k, 6)) = Empty
        End If
    End If
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim k&
    If Target.Address = ("$R$28") Then
        Select Case Target.Value
        Case 101 To 118: k = 55
        Case 201 To 216: k = 137
        Case 301 To 318: k = 221
        Case 401 To 418: k = 303
        Case 501 To 518: k = 385
        End Select
        If k Then
            Cells(Target.Value - k, 2) = Range("C36")
            Cells(Target.Value - k, 4) = Range("D39")
            Cells(Target.Value - k, 6) = Range("P38")
        End If
    ElseIf Target.Address = ("$T$28") Then
        Select Case Target.Value
        Case 101 To 118: k = 55
        Case 201 To 216: k = 137
        Case 301 To 318: k = 221
        Case 401 To 418: k = 303
        Case 501 To 518: k = 385
        End Select
        If k Then
            Union(Cells(Target.Value - k, 2), Cells(Target.Value - k, 4), Cells(Target.Value - k, 6)) = Empty
        End If
    End If
End Sub
[/vba]

Автор - RAN
Дата добавления - 26.08.2019 в 14:34
vitek73 Дата: Среда, 28.08.2019, 21:19 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 50
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
спасибо, я не настолько продвинулся в макросах,)) так и не понял что значит к=55,137,221,303,385, ?


vitёk73
 
Ответить
Сообщениеспасибо, я не настолько продвинулся в макросах,)) так и не понял что значит к=55,137,221,303,385, ?

Автор - vitek73
Дата добавления - 28.08.2019 в 21:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись значения конкретной ячейки в заданную другую (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!