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

Вход

Регистрация

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

 

= Мир MS Excel/Подредоктировать код на кнопке "Добавить" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подредоктировать код на кнопке "Добавить" (Макросы Sub)
Подредоктировать код на кнопке "Добавить"
mironi Дата: Суббота, 12.10.2013, 11:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Уважаемые знатоки! Я начинающий новичок,сам формулы не умею писать ,если можете помогите.Вопросы в примере.Заранее благодарен!
К сообщению приложен файл: 9017861.xlsm (36.7 Kb)
 
Ответить
СообщениеУважаемые знатоки! Я начинающий новичок,сам формулы не умею писать ,если можете помогите.Вопросы в примере.Заранее благодарен!
Автор - mironi
Дата добавления - 12.10.2013 в 11:54
_Boroda_ Дата: Суббота, 12.10.2013, 12:59 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Перепишите окончание кода так
[vba]
Код
    'Range("C" & LR + 0).Select ' переходим в первую свободную ячейку' До кучи - и эту строку можно удалить
        Range("C" & LR & ":AG" & LR) = 8' Новая строка
'    ActiveCell.FormulaR1C1 = "8" ' Эту строку можно удалить
'Selection.AutoFill Destination:=Range("C3:AG3"), Type:=xlFillDefault' И эту строку можно удалить
TextBox1.Text = ""
ComboBox1.Text = ""
End Sub
[/vba]
Про "несдвигаемый" подвал - вариант в файлею
И еще убрал переход на вспомогательный лист при выборе профессии.
Судя по куску кода, приложенного выше, там еще кучу всего поубивать можно. А может, даже и нужно.
К сообщению приложен файл: 9017861_2.xlsm (40.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПерепишите окончание кода так
[vba]
Код
    'Range("C" & LR + 0).Select ' переходим в первую свободную ячейку' До кучи - и эту строку можно удалить
        Range("C" & LR & ":AG" & LR) = 8' Новая строка
'    ActiveCell.FormulaR1C1 = "8" ' Эту строку можно удалить
'Selection.AutoFill Destination:=Range("C3:AG3"), Type:=xlFillDefault' И эту строку можно удалить
TextBox1.Text = ""
ComboBox1.Text = ""
End Sub
[/vba]
Про "несдвигаемый" подвал - вариант в файлею
И еще убрал переход на вспомогательный лист при выборе профессии.
Судя по куску кода, приложенного выше, там еще кучу всего поубивать можно. А может, даже и нужно.
Автор - _Boroda_
Дата добавления - 12.10.2013 в 12:59
mironi Дата: Суббота, 12.10.2013, 14:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Уважаемый Boroda очень благодарен за первый вопрос.Сам бы никогда не догадался.А по второму вопросу если можно уточните "вариант в файлею"
это что такое,я первый раз такое словосочетание слышу?
 
Ответить
СообщениеУважаемый Boroda очень благодарен за первый вопрос.Сам бы никогда не догадался.А по второму вопросу если можно уточните "вариант в файлею"
это что такое,я первый раз такое словосочетание слышу?
Автор - mironi
Дата добавления - 12.10.2013 в 14:21
AndreTM Дата: Суббота, 12.10.2013, 15:09 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
mironi, "ю" - это точка по-аглицки.... :)

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение mironi, "ю" - это точка по-аглицки.... :)
Автор - AndreTM
Дата добавления - 12.10.2013 в 15:09
mironi Дата: Суббота, 12.10.2013, 15:39 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Извините за глупые вопросы, насчет точки понял.А про "вариант в файле"- он что изменен или что?В приложенном Вами файле строка как поднималась и опускалась так и продолжается?
 
Ответить
СообщениеИзвините за глупые вопросы, насчет точки понял.А про "вариант в файле"- он что изменен или что?В приложенном Вами файле строка как поднималась и опускалась так и продолжается?
Автор - mironi
Дата добавления - 12.10.2013 в 15:39
mironi Дата: Суббота, 12.10.2013, 15:59 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Все понял и разобрался.Не заметил внизу строчку.Еще раз большое спасибо!
 
Ответить
СообщениеВсе понял и разобрался.Не заметил внизу строчку.Еще раз большое спасибо!
Автор - mironi
Дата добавления - 12.10.2013 в 15:59
mironi Дата: Воскресенье, 13.10.2013, 02:32 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Уважаемый Boroda я поспешил отчитаться что все понял.Не получается второй вопрос.Я Ваш рисунок на листе табель удалил, создал новый на листе табель и скопировал текст со второго листа на лист табель в рисунок.Вроде внешне все совпадает но строка опять при удалении фамилии скачет вверх.Целый день просидел так и не смог догадаться.Если не трудно то раскажите что я делаю неправильно?Пример с моим файлом прикрепляю.
К сообщению приложен файл: 0129094.xlsm (40.2 Kb)
 
Ответить
СообщениеУважаемый Boroda я поспешил отчитаться что все понял.Не получается второй вопрос.Я Ваш рисунок на листе табель удалил, создал новый на листе табель и скопировал текст со второго листа на лист табель в рисунок.Вроде внешне все совпадает но строка опять при удалении фамилии скачет вверх.Целый день просидел так и не смог догадаться.Если не трудно то раскажите что я делаю неправильно?Пример с моим файлом прикрепляю.
Автор - mironi
Дата добавления - 13.10.2013 в 02:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подредоктировать код на кнопке "Добавить" (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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