Я использую строковые значения для преобразования неструктурированных данных о проводах в официальные названия сделок с целью идентификации и управления проводами.С более чем 200 именами сделок управление кодом стало обременительным, и я хотел бы управлять идентификатором проводного текста и официальными названиями сделок в базе данных.
У меня есть рабочий код, который преобразует данные о проводке в имя клиентаи вставляет в новый столбец, но все это жестко запрограммировано в сценарии VBA, и я хотел бы сделать этот процесс более систематическим с базой данных.Мне бы хотелось, чтобы код перебирал значение «Deal_Name» и «Bank_String» для каждого столбца в таблице.
Sub Test_Bank_Customer_Name()
Dim R As Range
Dim rngData As Range
Set rngData = ActiveSheet.Range("A1").CurrentRegion.Offset(1).Resize(ActiveSheet.Range("A1").CurrentRegion.Rows.Count - 1)
For Each R In rngData.Rows
Select Case True
Case UCase(Intersect(R, ActiveSheet.Range("AL:AL")).Text) Like UCase("*Bank_Identifier*")
ActiveSheet.Range("M" & R.Row) = "Deal_Name" 'test each value of 'Bank_Identifier' and 'Deal_Name' in the accdb for each row in the report
End Select
Next R
End Sub
Каждая строка в файле назначения будет иметь значение из списка клиентов на основе строки bank_string, существующей в столбце AL