Страницы: 1
RSS
Получить из текста значения после последнего знака "/ "
 
Всем моё почтение. Ребята я не специалист конечно, но никак не могу начать обработку строки в цикле. Взять результат обработки из D34 и переместить. Результат нужно переместить в другое место, но с этим я думаю справлюсь. А вот как начать действие обработки строки не пойму. Само действие закомментировано. Переменную s написал для проверки цикла. Пните в нужную сторону. Всем добра. Спасибо
Код
Sub test_carp_()
s = "*********** / 70g / *****************/ 965115040"
Dim MyRange As Range
Dim MyCell As Range
Set MyRange = Range("D34:D" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each MyCell In MyRange
 If MyCell.Value <> "" Then
 '    Right(s, Len(s) - InStrRev(s, "/") - 1)
  Debug.Print MyCell
 End If
Next MyCell
End Sub
 
huchos Плохо описали задание и что вы хотите получить в итоге.
Насколько я понял: Получить правую часть строки с разделителем из значения ячеек.
Может так надо
Код
Sub test_carp_()
s = "*********** / 70g / *****************/ 965115040"
Dim MyRange As Range
Dim MyCell As Range
Dim Tp1$
Set MyRange = Range("D34:D" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each MyCell In MyRange
 If MyCell.Value <> "" Then
 Tp1 = Right(MyCell.Value, Len(MyCell.Value) - InStrRev(MyCell.Value, "/") - 1)
 '    Right(s, Len(s) - InStrRev(s, "/") - 1)
  Debug.Print Tp1
 End If
Next MyCell
End Sub
 
Спасибо друг. То что надо. Простите если что.
 
Код
Debug.Print Mid$(MyCell.Value, InStrRev(MyCell.Value, "/") + 1)
 
И Вам спасибо,  не раз уже помогаете.
 
huchos Просто описывайте в задании, что есть, и что хотите получить в итоге. Тогда вам предложат лучшее решение. Я вам только показал, как сделать используя вашу строку кода
 
Согласен, просто кода долго ищешь ответ, кажется все уже должны знать что ты хочешь :) ну я там пример приложил, только действительно не написал конечное видение

А ведь всю эту штуку можно делать через массив. Буду пробовать.
 
huchos, ещё вариант через Split
Код
Debug.Print Split(MyCell.Value, "/")(ubound(Split(MyCell.Value, "/")))

Цитата
Евгений Смирнов: Плохо описали задание и что вы хотите получить в итоге
если название темы Получить из текста значения после последнего знака "/ " сочинил автор, то всё понятно
Изменено: Jack Famous - 05.02.2022 10:34:47
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Цитата
huchos написал:
А ведь всю эту штуку можно делать через массив
а еще всю эту штуку можно сделать формулой :) Как получить слово после последнего пробела
К слову, ближе к концу статьи приводится пример именно с правым слешем
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
а еще всю эту штуку можно сделать формулой.
Так и делал  раньше, но вот захотелось реализовать макросом. Для саморазвития.
Страницы: 1
Читают тему (гостей: 1)
Наверх