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

Вход

Регистрация

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

 

= Мир MS Excel/На основе данных - разделить и создать ссылку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » На основе данных - разделить и создать ссылку (Макросы/Sub)
На основе данных - разделить и создать ссылку
wwizard Дата: Среда, 18.04.2018, 16:52 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Что имеем: Имеем прайс лист на 53000 строк.

Что требуется: Нужно к каждому товару, получить по 6-ть ссылок на фото

Как формируется фото:
URL картинки формируется исходя из кода товара.
http://сайт/static/images/prod_img/Предпоследний символ кода/Последний символ кода/Код товара.jpg;
http://prntscr.com/j6wrq7 - Скриншот

Как я это вижу:
Колонки: 30/31/32/33/34/35/36
В них, зависимости от того что в ячейке колонки №2 (например U0060068) В колонку 30, соответствующей ячейки создается адрес: http://сайт/static/images/prod_img/ далее сюда подставляется цифра 6 из кода, слеш /, цифра 8 из кода, слеш /, подставляется все значение ячейки с колонки 2, нижнее подчеркивание _big.jpg .... В колонки 31-36 все тоже самое, за исключением последней вставки., т.е. оно должно быть: _2big.jpg,_3big.jpg,_4big.jpg,_5big.jpg,_6big.jpg.

Формулами - я замучился вырисовывать, может можно какой макрос придумать?

Код
=$AD$1&ПСТР($B44725;7;1)&"/"&ПСТР($B44725;8;1)&"/"&$B44725&"_big.jpg"


Сообщение отредактировал wwizard - Среда, 18.04.2018, 23:01
 
Ответить
СообщениеЧто имеем: Имеем прайс лист на 53000 строк.

Что требуется: Нужно к каждому товару, получить по 6-ть ссылок на фото

Как формируется фото:
URL картинки формируется исходя из кода товара.
http://сайт/static/images/prod_img/Предпоследний символ кода/Последний символ кода/Код товара.jpg;
http://prntscr.com/j6wrq7 - Скриншот

Как я это вижу:
Колонки: 30/31/32/33/34/35/36
В них, зависимости от того что в ячейке колонки №2 (например U0060068) В колонку 30, соответствующей ячейки создается адрес: http://сайт/static/images/prod_img/ далее сюда подставляется цифра 6 из кода, слеш /, цифра 8 из кода, слеш /, подставляется все значение ячейки с колонки 2, нижнее подчеркивание _big.jpg .... В колонки 31-36 все тоже самое, за исключением последней вставки., т.е. оно должно быть: _2big.jpg,_3big.jpg,_4big.jpg,_5big.jpg,_6big.jpg.

Формулами - я замучился вырисовывать, может можно какой макрос придумать?

Код
=$AD$1&ПСТР($B44725;7;1)&"/"&ПСТР($B44725;8;1)&"/"&$B44725&"_big.jpg"

Автор - wwizard
Дата добавления - 18.04.2018 в 16:52
InExSu Дата: Пятница, 20.04.2018, 04:24 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет"
можно какой макрос придумать?

можно
[vba]
Код
Option Explicit

Public Sub Ссылки_Создать()

  Dim rng As Range, el As Range, Row_Last As Long
  Set rng = ActiveSheet.Columns(2).SpecialCells(xlCellTypeConstants)
  
  Dim x As Long
  For Each el In rng
    With el
      .Offset(0, 28).Value = "http://site/static/images/prod_img/" _
      & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _
      "/" & .Value & "_big.jpg"
      
      For x = 2 To 6
        .Offset(0, 27 + x).Value = "http://site/static/images/prod_img/" _
      & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _
      "/" & .Value & "_" & x & "big.jpg"
      Next
      
    End With
  Next
End Sub
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет"
можно какой макрос придумать?

можно
[vba]
Код
Option Explicit

Public Sub Ссылки_Создать()

  Dim rng As Range, el As Range, Row_Last As Long
  Set rng = ActiveSheet.Columns(2).SpecialCells(xlCellTypeConstants)
  
  Dim x As Long
  For Each el In rng
    With el
      .Offset(0, 28).Value = "http://site/static/images/prod_img/" _
      & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _
      "/" & .Value & "_big.jpg"
      
      For x = 2 To 6
        .Offset(0, 27 + x).Value = "http://site/static/images/prod_img/" _
      & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _
      "/" & .Value & "_" & x & "big.jpg"
      Next
      
    End With
  Next
End Sub
[/vba]

Автор - InExSu
Дата добавления - 20.04.2018 в 04:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » На основе данных - разделить и создать ссылку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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