Если я стою на любой ячейке (именно просто выделил эту одну ячейку, выбрал ее) которая относится к столбцу F, то в определенной ячейке поставь к примеру слова "Январь." Если стою на любой ячейке в столбце G, то в этой же определенной ячейке поставь к примеру слово "Февраль".
Т.е. от места нахождения моего выделения ячейки, будет зависеть каким месяцем заполнится определенная ячейка.
Пример во вложении.
Добрый день, товарищи знатоки!
Очень совет нужен.
Если я стою на любой ячейке (именно просто выделил эту одну ячейку, выбрал ее) которая относится к столбцу F, то в определенной ячейке поставь к примеру слова "Январь." Если стою на любой ячейке в столбце G, то в этой же определенной ячейке поставь к примеру слово "Февраль".
Т.е. от места нахождения моего выделения ячейки, будет зависеть каким месяцем заполнится определенная ячейка.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) u = Target.Column If u > 6 And u < 19 Then s = u - 6 t = Application.Index(Array("Январь", "Февраль", "Март", "Апрель", _ "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"), s) Range("f3") = t Else Range("f3") = "" End If End Sub
[/vba]наверное
типа как-то так [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) u = Target.Column If u > 6 And u < 19 Then s = u - 6 t = Application.Index(Array("Январь", "Февраль", "Март", "Апрель", _ "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"), s) Range("f3") = t Else Range("f3") = "" End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) u = Target.Column If u > 3 And u < 28 Then s = u - 3 t = Application.Index(Array("Январь", "Январь", "Февраль", "Февраль", "Март", "Март", "Апрель", "Апрель", "Май", "Май", "Июнь", "Июнь", "Июль", "Июль", "Август", "Август", "Сентябрь", "Сентябрь", "Октябрь", "Октябрь", "Ноябрь", "Ноябрь", "Декабрь", "Декабрь"), s) Range("b2") = t Else Range("b2") = "" End If End Sub
[/vba]
Вот так верно ? :
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) u = Target.Column If u > 3 And u < 28 Then s = u - 3 t = Application.Index(Array("Январь", "Январь", "Февраль", "Февраль", "Март", "Март", "Апрель", "Апрель", "Май", "Май", "Июнь", "Июнь", "Июль", "Июль", "Август", "Август", "Сентябрь", "Сентябрь", "Октябрь", "Октябрь", "Ноябрь", "Ноябрь", "Декабрь", "Декабрь"), s) Range("b2") = t Else Range("b2") = "" End If End Sub
AleksFin, а не хотите брать значения из ячеек строки 3? [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) c_ = Target.Column If c_ > 3 And c_ < 30 Then r_ = 3 z_ = Cells(r_, c_) If z_ = "" Then z_ = Cells(r_, c_ - 1) End If Cells(2, 2) = z_ End Sub
[/vba]
AleksFin, а не хотите брать значения из ячеек строки 3? [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) c_ = Target.Column If c_ > 3 And c_ < 30 Then r_ = 3 z_ = Cells(r_, c_) If z_ = "" Then z_ = Cells(r_, c_ - 1) End If Cells(2, 2) = z_ End Sub