не пишет в объедененные ячейки тест

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

не пишет в объедененные ячейки тест (Макросы/Sub)

85Muslim85

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

Группа: Заблокированные

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

Сообщений: 60

Репутация: -23 ±

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

Excel 2007

Доброй ночи, хотел бы узнать почему я не могу через оффсет (0 1) вписать в ячейки bz44, ce44 с юзерформа текст а дальше пишет в 45-тые

К сообщению приложен файл: 1792303.xlsm (35.6 Kb)

Ответить

Hugo

Дата: Четверг, 26.03.2015, 23:36 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 3859

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

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

365

Старайтесь обходиться без селектов.
[vba]

Код

Private Sub CommandButton8_Click()
     Dim r As Range
     Set r = Range("ak42").End(xlDown).Offset(1, 0)
     r.Value = TextBox1.Text
     Range("bz" & r.Row).Value = TextBox2.Text
     Range("ce" & r.Row).Value = TextBox3.Text

     'TextBox1.Text = ActiveCell.Value
     'TextBox2.Text = ActiveCell.Offset(0, 41).Value
     'TextBox3.Text = ActiveCell.Offset(0, 46).Value
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

85Muslim85

Дата: Четверг, 26.03.2015, 23:48 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 60

Репутация: -23 ±

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

Excel 2007

спастбки)

Ответить

KSV

Дата: Четверг, 26.03.2015, 23:55 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 770

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

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

Excel 2013

потому, что в 44-й строке есть объединенные ячейки, поэтому относительно выделенной области, ячейки bz44 и ce44 находятся по другому смещению (11 и 16, соответственно)
[vba]

Код

Private Sub CommandButton8_Click()
     Range("ak42").End(xlDown).Select
     ActiveCell.Offset(1, 0).Select
     ActiveCell.Value = TextBox1.Text
     ActiveCell.Offset(0, 11).Value = TextBox2.Text
     ActiveCell.Offset(0, 16).Value = TextBox3.Text

     TextBox1.Text = ActiveCell.Value
     TextBox2.Text = ActiveCell.Offset(0, 11).Value
     TextBox3.Text = ActiveCell.Offset(0, 16).Value
End Sub

[/vba]