Сохранение измененных найденных данных на листе xl

@ASSEI · Регистрация: 18.10.2012

Студворк — интернет-сервис помощи студентам

Мое почтение всем форумчанам! хотелось бы реализовать такой момент. :

Visual Basic
1
2
3
4
5
6
7
8
'поиск данных на листе xl
Dim q As String, rx, R
q = Text5.Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
Set rx = XL.Worksheets("BDK").Columns("A:A").Find(What:=q)
R = rx.row
  Text5.Text = XL.Worksheets("BDK").Cells(R, 1)  
 End If

И когда данные найдены эти данные хотелось бы измененные ПЕРЕЗАПИСАТЬ В ТУЖЕ СТРОКУ!

SoftIce · 12.06.2017, 11:44

Сообщение от ASSEI

Text5.Text = XL.Worksheets("BDK").Cells(R, 1)

Нужно запомнить R , а после внесения изменений, записать обратно в ту же ячейку

Visual Basic
1
XL.Worksheets("BDK").Cells(R, 1) =Text5.Text

@ASSEI · 12.06.2017, 12:06 **[ТС]**

простите за непонятливость,

запомнить R

это загнать в переменную?

SoftIce · 12.06.2017, 12:12

Сообщение от ASSEI

это загнать в переменную?

Уберите объявление R из процедуры (строка №2 Вашего кода), и объявите ее глобально, например, в самом верху модуля, после Option Explicit(если он есть)

@ASSEI · 12.06.2017, 15:44 **[ТС]**

с глобальной переменной я определился, только вот момент: изначально когда записываются первый данные у меня создается строка

Visual Basic
1
 XL.Worksheets("BDK").Rows("4:4").Insert xlDown, xlFormatFromLeftOrAbove

получается если я нажимаю кнопку "записать" эти данные (повторные) измененные НЕ перезапишутся а создадутся заново?

Добавлено через 3 часа 21 минуту
Все таки ни как в голове не организуется принцип:
обьявил переменные:

Visual Basic
1
2
Public R As String
Public q As String, rx

Кнопка записи данных:

Visual Basic
1
2
XL.Worksheets("BD").Rows("4:4").Insert xlDown, xlFormatFromLeftOrAbove
XL.Worksheets("BD").Range("A4").Value = Text5.Text 'фио

Кнопка поиска:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
q = Text5
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
Set rx = XL.Worksheets("BD").Columns("A:A").Find(What:=q)
  If rx Is Nothing Then
    MsgBox "В списке (" & Text5 & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
If MsgBox("Искомые данные (" & Text5 & ") найдены! Показать данные?", vbYesNo, "СООБЩЕНИЕ!") = vbNo Then Exit Sub
 R = rx.row
Text5.Text = XL.Worksheets("BD").Cells(R, 1)  'ФИО
 
........
'я понимаю что этой же кнопкой перезаписать в те же ячейки,  те же данные (измененные) для перезаписи только дальше ступор и не понимаю что организовать с переменной "R"

SoftIce · 12.06.2017, 20:10

Сообщение от ASSEI

я понимаю что этой же кнопкой

Нет, другую кнопку сделайте. А код из сообщения №2.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .