Есть большой прайс лист. из 25ти заполненых колонок. Это товары поставщика. Нужно вставить в прайс ссылки на фото. Начиная с колонки 40, по колонку 47. Прошу помощи в написании небольшого макроса. Есть алгоритм, формирования ссылки на фотографии., а именно: URL картинки формируется исходя из кода товара. http://brain.com.ua/static/images/prod_img/Предпоследний символ кода/Последний символ кода/Код товара_big.jpg;
Т.е. по факту путь: http://brain.com.ua/static/images/prod_img/ - остается неизменным. С кода товара - U0002094 - берутся две последние цифры, это подпапки, - 9/4/ Дальше полный код товара - U0002094
Первая колонка, вся эта ссылка заканчивается на: _big.jpg Вторая: _2big.jpg Третья: _3big.jpg Четвертая: _4big.jpg Пятая: _5big.jpg Шестая: _6big.jpg Седьмая: _7big.jpg Восьмая: _8big.jpg
Возможно ли помочь мне в написании скрипта, бо формулами это очень долго делается? Пример файла приложен. Заполнен результат как должно получиться в 3й и 4й строке, колонок 40-47. Там же прописаны формулы с помощью которых это делается.
Есть большой прайс лист. из 25ти заполненых колонок. Это товары поставщика. Нужно вставить в прайс ссылки на фото. Начиная с колонки 40, по колонку 47. Прошу помощи в написании небольшого макроса. Есть алгоритм, формирования ссылки на фотографии., а именно: URL картинки формируется исходя из кода товара. http://brain.com.ua/static/images/prod_img/Предпоследний символ кода/Последний символ кода/Код товара_big.jpg;
Т.е. по факту путь: http://brain.com.ua/static/images/prod_img/ - остается неизменным. С кода товара - U0002094 - берутся две последние цифры, это подпапки, - 9/4/ Дальше полный код товара - U0002094
Первая колонка, вся эта ссылка заканчивается на: _big.jpg Вторая: _2big.jpg Третья: _3big.jpg Четвертая: _4big.jpg Пятая: _5big.jpg Шестая: _6big.jpg Седьмая: _7big.jpg Восьмая: _8big.jpg
Возможно ли помочь мне в написании скрипта, бо формулами это очень долго делается? Пример файла приложен. Заполнен результат как должно получиться в 3й и 4й строке, колонок 40-47. Там же прописаны формулы с помощью которых это делается.wwizard
Dim arr(), arrRes(), strURL As String, strFragm As String Dim lr As Long, i As Long, j As Long
Application.ScreenUpdating = False
strURL = Range("AD1").Value
lr = Cells(Rows.Count, "B").End(xlUp).Row If lr = 2 Then ReDim arr(1 To 1, 1 To 1) arr(1, 1) = Range("B2").Value Else arr() = Range("B2:B" & lr).Value End If ReDim arrRes(1 To UBound(arr), 1 To 8)
For i = 1 To UBound(arr) strFragm = strURL & Mid(Right(arr(i, 1), 2), 1, 1) & "/" & Right(arr(i, 1), 1) & "/" & arr(i, 1) arrRes(i, 1) = strFragm & "_big.jpg" For j = 2 To UBound(arrRes, 2) arrRes(i, j) = strFragm & "_" & j & "big.jpg" Next j Next i
Dim arr(), arrRes(), strURL As String, strFragm As String Dim lr As Long, i As Long, j As Long
Application.ScreenUpdating = False
strURL = Range("AD1").Value
lr = Cells(Rows.Count, "B").End(xlUp).Row If lr = 2 Then ReDim arr(1 To 1, 1 To 1) arr(1, 1) = Range("B2").Value Else arr() = Range("B2:B" & lr).Value End If ReDim arrRes(1 To UBound(arr), 1 To 8)
For i = 1 To UBound(arr) strFragm = strURL & Mid(Right(arr(i, 1), 2), 1, 1) & "/" & Right(arr(i, 1), 1) & "/" & arr(i, 1) arrRes(i, 1) = strFragm & "_big.jpg" For j = 2 To UBound(arrRes, 2) arrRes(i, j) = strFragm & "_" & j & "big.jpg" Next j Next i
lr = Cells(Rows.Count, "B").End(xlUp).Row If lr = 2 Then ReDim arr(1 To 1, 1 To 1) arr(1, 1) = Range("B2").Value Else arr() = Range("B2:B" & lr).Value End If ReDim arrRes(1 To UBound(arr), 1 To 8)
For i = 1 To UBound(arr) strFragm = strURL & Mid(Right(arr(i, 1), 2), 1, 1) & "/" & Right(arr(i, 1), 1) & "/" & arr(i, 1) arrRes(i, 1) = strFragm & "_big.jpg" For j = 2 To UBound(arrRes, 2) arrRes(i, j) = strFragm & "_" & j & "big.jpg" Next j Next i
lr = Cells(Rows.Count, "B").End(xlUp).Row If lr = 2 Then ReDim arr(1 To 1, 1 To 1) arr(1, 1) = Range("B2").Value Else arr() = Range("B2:B" & lr).Value End If ReDim arrRes(1 To UBound(arr), 1 To 8)
For i = 1 To UBound(arr) strFragm = strURL & Mid(Right(arr(i, 1), 2), 1, 1) & "/" & Right(arr(i, 1), 1) & "/" & arr(i, 1) arrRes(i, 1) = strFragm & "_big.jpg" For j = 2 To UBound(arrRes, 2) arrRes(i, j) = strFragm & "_" & j & "big.jpg" Next j Next i