Private Sub Command5_Click()
Dim strData$
strData = InputBox("Редактирование записей", "Редактирование", Combo2.Text)
If Len(strData) > 0 Then
Combo2.List(Combo2.ListIndex) = strData
Else
MsgBox "Значение не изменено", vbExclamation, "Информация"
End If
End Sub
запись и изменение данных в ячейку в xl2003
Ребята помогите с продолжением, 4-й кнопкой мы записали данные, 5-й получил данные из комбобокса, а как записать уже измененые данные?
Private Sub Command4_Click()
strDate = InputBox("Введите новые данные", "Добавление данных")
If strDate = "" Then MsgBox "Значение данных пустое", vbExclamation, "информация"
Exit Sub
End If
Xl.Worksheets("БД").Cells(65536, 2).End(-4162).Item(2) = strDate
Combo2.AddItem strDate
End Sub
Private Sub Command5_Click()
F$ = InputBox("Редактирование записей", "Редактирование", Combo2.Text)
If F$ = "" Then
MsgBox "Значение не изменено", vbExclamation, "информация"
Exit Sub
End If
End Sub
Private Sub Command4_Click()
strDate = InputBox("Введите новые данные", "Добавление данных")
If strDate = "" Then MsgBox "Значение данных пустое", vbExclamation, "информация"
Exit Sub
End If
Xl.Worksheets("БД").Cells(65536, 2).End(-4162).Item(2) = strDate
Combo2.AddItem strDate
End Sub
Private Sub Command5_Click()
F$ = InputBox("Редактирование записей", "Редактирование", Combo2.Text)
If F$ = "" Then
MsgBox "Значение не изменено", vbExclamation, "информация"
Exit Sub
End If
End Sub
Если Вам всё-таки нужно изменить данные в Combo2, то попробуйте так :
Код:
Если же Вы хотите менять значения, которые были добавлены ранее и речь идёт о ячейках XL, то "не понятна" связь ячеек и combobox2, за исключением очевидного, Вы добавляете новые данные и в столбец B и в combobox ... но что происходит с данными, которые были введены в столбец B, например, во время предыдущей работы с программой. Если они, к примеру, не сохраняются или, наоборот, все эти данные загружаются в combobox , то можно во всём столбце заменить старые данные на новые, т.е
Код:
Private Sub Command5_Click()
Dim strOldData$, strNewData$
strOldData = Combo2.Text
strNewData = InputBox("Редактирование записей", "Редактирование", strOldData)
If Len(strNewData) > 0 Then
XL.Worksheets("БД").Columns("B").Replace strOldData, strNewData, 1 'xlWhole
Else
MsgBox "Значение не изменено", vbExclamation, "Информация"
End If
End Sub
Dim strOldData$, strNewData$
strOldData = Combo2.Text
strNewData = InputBox("Редактирование записей", "Редактирование", strOldData)
If Len(strNewData) > 0 Then
XL.Worksheets("БД").Columns("B").Replace strOldData, strNewData, 1 'xlWhole
Else
MsgBox "Значение не изменено", vbExclamation, "Информация"
End If
End Sub
Вы знаете я только, сейчас когда вы разьяснили, понял как сформулировать свою проблему, в комбобоксе я беру данные и кнопкой я пытаюсь изменить и записать уже измененые данные в ячейку, ониже потом и будут отображатся в комбобоксе, все данные они же будут сохранятся на листе.
Ребята огрмное спасибо, все получило дописал ПОД СВОЮ ЗАДАЧУ, СПАСИБО!!!
МОГУЛИ Я НЕ ОТХОДЯ ОТ КАССЫ ПОПРОСИТЬ ПОСМОТРЕТЬ ПОЧЕМУ У МЕНЯ ТАК ПРОИСХОДИТ я в английчком не силен помогите! ФОТО ПРИЛОЖИЛ
http://ifotki.info/14/da51bb4fa966b1541e56eada0b1cd866254cbf147802514.jpg.html
МОГУЛИ Я НЕ ОТХОДЯ ОТ КАССЫ ПОПРОСИТЬ ПОСМОТРЕТЬ ПОЧЕМУ У МЕНЯ ТАК ПРОИСХОДИТ я в английчком не силен помогите! ФОТО ПРИЛОЖИЛ
http://ifotki.info/14/da51bb4fa966b1541e56eada0b1cd866254cbf147802514.jpg.html
assei, Глядя на скриншот можно предположить, что работая в "чистом" VB, Вы импортировали VBA формы (или наоборот)
Впрочем, для полноты картины, на мой взгляд, лучше выкладывать не скриншот, а проект.
Впрочем, для полноты картины, на мой взгляд, лучше выкладывать не скриншот, а проект.
А возможно ли такое, что .OCX-которые я применил в проекте, были написани для vb6 не подходят для vba?
B VBA нельзя импортировать формы, созданные в VB, однако в VB можно мучить пользовательские формы, созданные в VBA и даже использовать VBA-ные элементы управления (более подробно читайте в статье) Что касается .ocx, то их использование возможно в обеих средах, разумеется, при условии их наличия на компьютере, регистрации, наличии лицензии и т.п.
Обзор некоторых особенностей элементов управления библиотеки FM20.DLL
Обзор некоторых особенностей элементов управления библиотеки FM20.DLL
Отлично Огромное спасибо!