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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » прыгает на последнюю ячейку и сбивается счет (Макросы/Sub)
прыгает на последнюю ячейку и сбивается счет
85Muslim85 Дата: Суббота, 28.03.2015, 20:04 | Сообщение № 1
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
добрый вечер уважаемые! целый день парюсь над 2 задачками, в общем в юзерформе при клике на кнопку "ввести текст" в колонку "AI" добавляются по порядку в увеличении цифры, но при удалении не конечной цифры у меня теряется последовательность, то есть при добавлении 5 столбцов отображаются в колонке 12345 но при удалении 3 столбца значения становятся 1245 а надо 1234, надеюсь понятно выразился... и при том, когда остается последняя строка при нажатии на SpinButton1_SpinUp у меня перепрыгивает на последнюю ячейку "AI1048576", надо чтобы строка "AI44" была активна и не прыгала на последнюю ячейку. Буду очень признателен, не хотел обращаться лишний раз весь день парился, но знаю что мне тут помогут)) чем примитивнее код тем лучше)
К сообщению приложен файл: 4221254.xlsm (38.4 Kb)
 
Ответить
Сообщениедобрый вечер уважаемые! целый день парюсь над 2 задачками, в общем в юзерформе при клике на кнопку "ввести текст" в колонку "AI" добавляются по порядку в увеличении цифры, но при удалении не конечной цифры у меня теряется последовательность, то есть при добавлении 5 столбцов отображаются в колонке 12345 но при удалении 3 столбца значения становятся 1245 а надо 1234, надеюсь понятно выразился... и при том, когда остается последняя строка при нажатии на SpinButton1_SpinUp у меня перепрыгивает на последнюю ячейку "AI1048576", надо чтобы строка "AI44" была активна и не прыгала на последнюю ячейку. Буду очень признателен, не хотел обращаться лишний раз весь день парился, но знаю что мне тут помогут)) чем примитивнее код тем лучше)
Автор - 85Muslim85
Дата добавления - 28.03.2015 в 20:04
Manyasha Дата: Суббота, 28.03.2015, 21:08 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
85Muslim85, перенумеровать строчки можно так:[vba]
Код
Sub number_row()
     lr = Cells(Rows.Count, 35).End(xlUp).Row
     num = 1
     For i = 44 To lr
         Cells(i, 35) = num
         num = num + 1
     Next i
End Sub
[/vba]
И потом, после удаления строки вызвать этот макрос[vba]
Код
Private Sub CommandButton9_Click()
     Selection.EntireRow.Delete
     number_row 'перенумеровываем
     TextBox2.Value = ActiveCell
     If TextBox2.Value = "" Then ActiveCell.Offset(-1, 0).Select
     If Range("ai45") = "" Then CommandButton9.Enabled = False
End Sub
[/vba]
Выделение последней ячейки при нажатии на SpinButton1_SpinUp:[vba]
Код
If ActiveCell.Value = "" Then Range("ai" & Cells(Rows.Count, 35).End(xlUp).Row).Select
[/vba]
К сообщению приложен файл: 4221254_1.xlsm (34.4 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение85Muslim85, перенумеровать строчки можно так:[vba]
Код
Sub number_row()
     lr = Cells(Rows.Count, 35).End(xlUp).Row
     num = 1
     For i = 44 To lr
         Cells(i, 35) = num
         num = num + 1
     Next i
End Sub
[/vba]
И потом, после удаления строки вызвать этот макрос[vba]
Код
Private Sub CommandButton9_Click()
     Selection.EntireRow.Delete
     number_row 'перенумеровываем
     TextBox2.Value = ActiveCell
     If TextBox2.Value = "" Then ActiveCell.Offset(-1, 0).Select
     If Range("ai45") = "" Then CommandButton9.Enabled = False
End Sub
[/vba]
Выделение последней ячейки при нажатии на SpinButton1_SpinUp:[vba]
Код
If ActiveCell.Value = "" Then Range("ai" & Cells(Rows.Count, 35).End(xlUp).Row).Select
[/vba]
Автор - Manyasha
Дата добавления - 28.03.2015 в 21:08
85Muslim85 Дата: Суббота, 28.03.2015, 21:45 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
во вложенном вами файле ошибку выдает при удалении столбца((( высвечивается тут Sub number_row() я вот не понял этот саб к чему у нас относится?
 
Ответить
Сообщениево вложенном вами файле ошибку выдает при удалении столбца((( высвечивается тут Sub number_row() я вот не понял этот саб к чему у нас относится?
Автор - 85Muslim85
Дата добавления - 28.03.2015 в 21:45
KuklP Дата: Суббота, 28.03.2015, 22:28 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
В редакторе ВБА зайдите в меню Tools -> References и удалите строку со словом Missing. И будет вам счастье.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Суббота, 28.03.2015, 22:28
 
Ответить
СообщениеВ редакторе ВБА зайдите в меню Tools -> References и удалите строку со словом Missing. И будет вам счастье.
Автор - KuklP
Дата добавления - 28.03.2015 в 22:28
85Muslim85 Дата: Суббота, 28.03.2015, 22:32 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
ого спасибо, даже не знал про эти функции, а будет ли на других компах робить или тоже надо убирать галочку? и что это значит?


Сообщение отредактировал 85Muslim85 - Суббота, 28.03.2015, 22:32
 
Ответить
Сообщениеого спасибо, даже не знал про эти функции, а будет ли на других компах робить или тоже надо убирать галочку? и что это значит?
Автор - 85Muslim85
Дата добавления - 28.03.2015 в 22:32
Manyasha Дата: Воскресенье, 29.03.2015, 02:41 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
85Muslim85, эта аксессовский календарик (кстати из Вашего первого файла). Если на других компах стоит 2007 офис вместе с аксессом, или хотя бы с библиотекой mscal.dll (аксессовская), то будет работать. Если в файле Вы не будете использовать этот календарь, то после его отключения (как посоветовал KuklP) и сохранения файла, она не должна появится.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение85Muslim85, эта аксессовский календарик (кстати из Вашего первого файла). Если на других компах стоит 2007 офис вместе с аксессом, или хотя бы с библиотекой mscal.dll (аксессовская), то будет работать. Если в файле Вы не будете использовать этот календарь, то после его отключения (как посоветовал KuklP) и сохранения файла, она не должна появится.
Автор - Manyasha
Дата добавления - 29.03.2015 в 02:41
85Muslim85 Дата: Воскресенье, 29.03.2015, 16:48 | Сообщение № 7
Группа: Заблокированные
Ранг: Участник
Сообщений: 60
Репутация: -23 ±
Замечаний: 80% ±

Excel 2007
Manyasha, все понял благодарствую)
 
Ответить
СообщениеManyasha, все понял благодарствую)
Автор - 85Muslim85
Дата добавления - 29.03.2015 в 16:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » прыгает на последнюю ячейку и сбивается счет (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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