Копирование ячейки со вставкой в ячейки одного цвета

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копирование ячейки со вставкой в ячейки одного цвета (Макросы Sub)

Dмитрий

Дата: Четверг, 26.09.2013, 23:49 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 91

Репутация: 9 ±

Замечаний: 40% ±

Excel 2010

Всем Доброго времени суток! Можно ли в VBA сделать так, чтобы при копировании значения в ячейке, затем оно вставлялось во все ячейки одного и того же цвета, но только в одну строку???

К сообщению приложен файл: 9051051.xlsx (12.5 Kb)

Ответить

Dмитрий

Дата: Пятница, 27.09.2013, 00:06 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 91

Репутация: 9 ±

Замечаний: 40% ±

Excel 2010

Споткнулся на первом же этапе:
[vba]

Код

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
If Range("J8").Select Then Selection.Copy
End If
End Sub

[/vba]
Почему не работает???

Ответить

RAN

Дата: Пятница, 27.09.2013, 00:22 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Без привязки к диапазонам копирования.
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static x
Dim cl As Range
     If Len(x) Then
        For Each cl In Intersect(Rows(Target.Row), Me.UsedRange)
             If cl.Interior.Color = vbYellow Then cl.Value = x
         Next
         x = ""
     Else
  x = Target.Value
     End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

RAN

Дата: Пятница, 27.09.2013, 00:26 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата (Dмитрий, 27.09.2013 в 00:06, в сообщении № 2)

Споткнулся на первом же этапе:
Private Sub CheckBox1_Click()

Интересно, обо что? Я ни одного CheckBox в файле не увидел.

Быть или не быть, вот в чем загвоздка!

Ответить

Dмитрий

Дата: Пятница, 27.09.2013, 00:30 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 91

Репутация: 9 ±

Замечаний: 40% ±

Excel 2010

CheckBox просто поставил на ходу, чтобы быстрее запускать макрос, он не важен

Ответить

Dмитрий

Дата: Пятница, 27.09.2013, 01:24 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 91

Репутация: 9 ±

Замечаний: 40% ±

Excel 2010

Круто!!! А почему не работает через кнопку?
Может можно убрать Worksheet_SelectionChange?
Если можно побольше комментариев - хочу разобраться.
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Me.CheckBox1 Then пример
End Sub

Private Sub пример()
Static x
Dim cl As Range
     If Len(x) Then
         For Each cl In Intersect(Rows(Target.Row), Me.UsedRange)
             If cl.Interior.Color = vbYellow Then cl.Value = x
         Next
         x = ""
     Else
x = Target.Value
     End If
End Sub

[/vba]

Ответить

Копирование ячейки со вставкой в ячейки одного цвета (Макросы Sub)

Страница 1 из 1
1