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

Вход

Регистрация

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

 

= Мир MS Excel/Изменить запись таблицы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить запись таблицы (Формулы/Formulas)
Изменить запись таблицы
nyaf_nyaf Дата: Среда, 15.04.2020, 14:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день, помогите сделать, у мя в работе есть функция изменить строчку таблицы и работает всё хорошо, но только проблема в том, что когда я хочу внести изменения больше одного раза, то надо закрывать приложение. Как сделать чтоб не закрывая приложения изменять запись несколько раз. Загрузить файл не могу, ибо превышает лимит(
[vba]
Код
Dim RW As Long

Private Sub ComboBox1_Change()
ComboBox1.AddItem "Одноместный"
ComboBox1.AddItem "Двухместный"
ComboBox1.AddItem "Люкс"
End Sub

Private Sub ComboBox2_Change()
ComboBox2.AddItem "Да"
ComboBox2.AddItem "Нет"
End Sub

Private Sub CommandButton1_Click()
    With Worksheets("Раз")
        Cells(RW, 1).Value = TextBox1.Value
        Cells(RW, 2).Value = TextBox2.Value
        Cells(RW, 3).Value = ComboBox1.Value
        Cells(RW, 5).Value = TextBox3.Value
        Cells(RW, 6).Value = ComboBox2.Value
        Cells(RW, 7).Value = TextBox4.Value

      Dim Y As Integer
      
    If ComboBox2 = "Да" Then Y = 200
    If ComboBox2 = "Нет" Then Y = 0
        Cells(RW, 8) = Cells(RW, 4) * Cells(RW, 5) + Y + Cells(RW, 7)

    End With

End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Private Sub UserForm_Initialize()
RW = ActiveCell.Row
    With UserForm1
        TextBox3.Value = Cells(RW, 5).Value
        ComboBox1.Value = Cells(RW, 3).Value
        ComboBox2.Value = Cells(RW, 6).Value
        TextBox1.Value = Cells(RW, 1).Value
        TextBox2.Value = Cells(RW, 2).Value
        TextBox4.Value = Cells(RW, 7).Value
    End With
End Sub

Private Sub SpinButton1_Change()
UserForm2.TextBox3.Text = CStr(UserForm2.SpinButton1.Value)
End Sub
Private Sub TextBox3_Change()

If UserForm2.TextBox3.Text <> "" Then
    UserForm2.SpinButton1.Value = CVar(UserForm2.TextBox3.Text)
     End If
End Sub
[/vba]
 
Ответить
СообщениеДобрый день, помогите сделать, у мя в работе есть функция изменить строчку таблицы и работает всё хорошо, но только проблема в том, что когда я хочу внести изменения больше одного раза, то надо закрывать приложение. Как сделать чтоб не закрывая приложения изменять запись несколько раз. Загрузить файл не могу, ибо превышает лимит(
[vba]
Код
Dim RW As Long

Private Sub ComboBox1_Change()
ComboBox1.AddItem "Одноместный"
ComboBox1.AddItem "Двухместный"
ComboBox1.AddItem "Люкс"
End Sub

Private Sub ComboBox2_Change()
ComboBox2.AddItem "Да"
ComboBox2.AddItem "Нет"
End Sub

Private Sub CommandButton1_Click()
    With Worksheets("Раз")
        Cells(RW, 1).Value = TextBox1.Value
        Cells(RW, 2).Value = TextBox2.Value
        Cells(RW, 3).Value = ComboBox1.Value
        Cells(RW, 5).Value = TextBox3.Value
        Cells(RW, 6).Value = ComboBox2.Value
        Cells(RW, 7).Value = TextBox4.Value

      Dim Y As Integer
      
    If ComboBox2 = "Да" Then Y = 200
    If ComboBox2 = "Нет" Then Y = 0
        Cells(RW, 8) = Cells(RW, 4) * Cells(RW, 5) + Y + Cells(RW, 7)

    End With

End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Private Sub UserForm_Initialize()
RW = ActiveCell.Row
    With UserForm1
        TextBox3.Value = Cells(RW, 5).Value
        ComboBox1.Value = Cells(RW, 3).Value
        ComboBox2.Value = Cells(RW, 6).Value
        TextBox1.Value = Cells(RW, 1).Value
        TextBox2.Value = Cells(RW, 2).Value
        TextBox4.Value = Cells(RW, 7).Value
    End With
End Sub

Private Sub SpinButton1_Change()
UserForm2.TextBox3.Text = CStr(UserForm2.SpinButton1.Value)
End Sub
Private Sub TextBox3_Change()

If UserForm2.TextBox3.Text <> "" Then
    UserForm2.SpinButton1.Value = CVar(UserForm2.TextBox3.Text)
     End If
End Sub
[/vba]

Автор - nyaf_nyaf
Дата добавления - 15.04.2020 в 14:45
_Boroda_ Дата: Среда, 15.04.2020, 15:02 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Загрузить файл не могу, ибо превышает лимит(

Думаю, что файлик все-таки было бы неплохо посмотреть. Попробуйте убрать в нем лишнее, чтобы влез
И что Вы подразумеваете под словом "Приложение"? Что закрываете? Форму? Файл? Excel? Последнее - как раз и называют обычно приложением :)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Загрузить файл не могу, ибо превышает лимит(

Думаю, что файлик все-таки было бы неплохо посмотреть. Попробуйте убрать в нем лишнее, чтобы влез
И что Вы подразумеваете под словом "Приложение"? Что закрываете? Форму? Файл? Excel? Последнее - как раз и называют обычно приложением :)

Автор - _Boroda_
Дата добавления - 15.04.2020 в 15:02
nyaf_nyaf Дата: Среда, 15.04.2020, 15:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Попробуйте убрать в нем лишнее, чтобы влез

Не получается(
Приложение"?

Форму закрывает
 
Ответить
Сообщение
Попробуйте убрать в нем лишнее, чтобы влез

Не получается(
Приложение"?

Форму закрывает

Автор - nyaf_nyaf
Дата добавления - 15.04.2020 в 15:52
_Boroda_ Дата: Среда, 15.04.2020, 16:11 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Попробуйте так:
Выведите на форму отдельную кнопку "новая строка" (или как-то еще обзовите) и в код на ее нажатие запишите
[vba]
Код
RW = ActiveCell.Row
[/vba]
Перед тем, как новую запись изменять, выделяете ячейку в той строке, где изменить хотите, и жмете эту кнопку
Да, и форму нужно сделать немодальной конечно
Без файла только так, общие советы


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПопробуйте так:
Выведите на форму отдельную кнопку "новая строка" (или как-то еще обзовите) и в код на ее нажатие запишите
[vba]
Код
RW = ActiveCell.Row
[/vba]
Перед тем, как новую запись изменять, выделяете ячейку в той строке, где изменить хотите, и жмете эту кнопку
Да, и форму нужно сделать немодальной конечно
Без файла только так, общие советы

Автор - _Boroda_
Дата добавления - 15.04.2020 в 16:11
nyaf_nyaf Дата: Четверг, 16.04.2020, 07:41 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
_Boroda_, вот файл, для лучшего понимания)
К сообщению приложен файл: 1234567788.xlsx(11.8 Kb)


Сообщение отредактировал nyaf_nyaf - Четверг, 16.04.2020, 19:21
 
Ответить
Сообщение_Boroda_, вот файл, для лучшего понимания)

Автор - nyaf_nyaf
Дата добавления - 16.04.2020 в 07:41
_Boroda_ Дата: Четверг, 16.04.2020, 19:38 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
_Boroda_, вот файл)

Великолепный файл, мне очень понравился. Особенно восхитило отсутствие в нем формы и макросов
:D :D :D


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
_Boroda_, вот файл)

Великолепный файл, мне очень понравился. Особенно восхитило отсутствие в нем формы и макросов
:D :D :D

Автор - _Boroda_
Дата добавления - 16.04.2020 в 19:38
RAN Дата: Четверг, 16.04.2020, 20:57 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5335
Репутация: 1065 ±
Замечаний: 0% ±

2010
Великолепный файл, мне очень понравился.

>>Я на свете всех умней, файл я строю из камней,<<
а не из форм и макросов! yes yes


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

Сообщение отредактировал RAN - Четверг, 16.04.2020, 20:59
 
Ответить
Сообщение
Великолепный файл, мне очень понравился.

>>Я на свете всех умней, файл я строю из камней,<<
а не из форм и макросов! yes yes

Автор - RAN
Дата добавления - 16.04.2020 в 20:57
nyaf_nyaf Дата: Суббота, 18.04.2020, 20:18 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
_Boroda_, Ахахахха, извиняюсь, не то скинул) Ладно, спасибо, что не прошли мимо), разберусь сам)
 
Ответить
Сообщение_Boroda_, Ахахахха, извиняюсь, не то скинул) Ладно, спасибо, что не прошли мимо), разберусь сам)

Автор - nyaf_nyaf
Дата добавления - 18.04.2020 в 20:18
_Boroda_ Дата: Суббота, 18.04.2020, 20:31 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
извиняюсь, не то скинул
Ну так скиньте то


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
извиняюсь, не то скинул
Ну так скиньте то

Автор - _Boroda_
Дата добавления - 18.04.2020 в 20:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменить запись таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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