Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Алексей_79
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 16:09:11
Добрый день. Подскажите, пожалуйста, что можно сделать по такому вопросу.
У меня в макросе идёт в цикле перебор ячеек и мне нужно найти ячейки, в содержимом которых есть знак рубля, здесь и в редакторе VBA он не вводится, а в блокноте например вводится по Alt+8, это Р с чёрточкой.
В редакторе VBA вместо этого значка по Alt+8 знак вопроса получается. То есть в операторе like непонятно как его использовать. Пробовал менять шрифты, не преуспел. Найденное в интернете ChrW(8381) тоже не помогло. Опять же, если через функцию Chr удастся получить в переменную значение, то как переменную в like использовать, тоже непонятно. Хотя, если бы можно было хотя бы в переменную этот знак рубля получить, тогда в ячейке перебором символов я бы определил есть он там или нет.
В общем вопрос как найти знак рубля в ячейке.
Заранее благодарю за ответ(-ы).

p.s. функция КОДСИМВ в Excel говорит, что номер этого символа в таблице ANSI: 63. Но как это использовать мне тоже непонятно.  
У меня MS Excel 2019.  
Изменено: Алексей_79 - 24.10.2025 16:15:34
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.mp3 файлов в цикле
 
#
28.05.2022 00:39:54
Помогите, пожалуйста, поменять в свойствах файлов то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя". Туда нашёл как поменять, а обратно никак не могу. Задача практическая, дело в том, что плеер выстраивает воспроизведение именно по свойству файла "Имя", а смартфон по свойству "Название". И очередность совпадает не всегда.
Код
Sub RenameFiles()
'

'Название
Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir:   Set oDir = oShell.Namespace("C:\Users\Alw\Desktop\Rename_YouTube\")
Sheets(1).Select
Cells.ClearContents
i = 1
For Each sFile In oDir.Items
   Sheets(1).Cells(i, 1) = oDir.GetDetailsOf(sFile, 21)
   i = i + 1
Next
   
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set catalog = fso.GetFolder("C:\Users\Alw\Desktop\Rename_YouTube\")
Set MASSIV = catalog.Files

' добавление даты загрузки в Имя
For Each Files In MASSIV
     Set f1 = fso.GetFile(Files)
N = f1.Name
L = Len(N)
N1 = Mid(N, 1, L - 4)     
En = Mid(N, L - 3, 4)    
N2 = "2022-05-27 " + N1 + En 
f1.Name = N2             
Next


'
End Sub
Изменено: Алексей_79 - 28.05.2022 14:00:05
 
Перейти    
Заполнение на отдельном листе данными определённого типа с исходного листа
 
#
13.01.2022 20:03:31
Добрый день.

Подскажите, пожалуйста, какой формулой можно динамически заполнять на отдельном листе данные определённого типа с исходного листа. Во вложенном файле подробный вопрос.
 
Перейти    
Вставить формулу русскими буквами в код VBA
 
#
26.02.2020 20:17:26
Здравствуйте,
подскажите, пожалуйста, как вставить формулу русскими буквами в код VBA
Код
=ЕСЛИОШИБКА(ИНДЕКС(СМЕЩ('2'!A:A;0;5);ПОИСКПОЗ('1'!A2;'2'!A:A;0));"")

/вариант с записью рекордером (вида     ActiveCell.FormulaR1C1
Код
=IFERROR(INDEX(OFFSET('2'!C[-6],0,5),MATCH('1'!RC[-6],'2'!C[-6],0)),"""")")
мне, к сожалению, не подходит, а
Код
ActiveCell.Formula = "=ЕСЛИОШИБКА(ИНДЕКС(СМЕЩ('2'!A:A;0;5);ПОИСКПОЗ('1'!A2;'2'!A:A;0));"")"

ругается ошибкой 1004/
 
Перейти    
Сравнение данных на разных листах с учётом нескольких параметров с использованием формул
 
#
26.12.2019 11:00:28
Добрый день!

Подскажите, пожалуйста, можно ли с использованием формул сделать следующее:
Есть файл с листами "1" и " 2"
На листе "1" в столбце "А" отсортированный список уникальных номеров
На листе "2" в столбце "А" отсортированный список тех же в том числе повторяющихся номеров с указанием для каждого параметров "год", "квартал", "сумма"
Необходимо на лист "1" перебросить с листа "2" только те суммы для которых для данных на обоих листах равны номера (№), а также год и квартал второго листа идентичны указанному году и кварталу на листе "1" (ячейки С1 и Е1)  
Изменено: Алексей_79 - 26.12.2019 11:00:45
 
Перейти    
Страницы: 1
Наверх