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

Страницы: 1
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 20:23:42
Цитата
написал:
Найденное в интернете ChrW(8381) тоже не помогло
В общем, действительно, если написать a=ChrW(8381), то значение переменной а подсвечивается как "?". Но на самом деле это искомый знак рубля. Поэтому рабочая конструкция для поиска знака рубля в ячейке такая:
Код
If Cells(i, 1) Like "*" & ChrW(8381) & "*" Then ...
Спасибо всем, кто ответил.
Вопрос закрыт.
 
Перейти    
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 16:51:10
Цитата
написал:
Попробуйте копировать и вставлять при разной раскладке клавиатуры или покажите пример
И на русском и на английском вставляет как знак вопроса.
 
Перейти    
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 16:48:02
Даже через запись макроса записал вставку этого символа.
В коде он записал как знак вопроса :)
 
Перейти    
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 16:44:36
А вот сюда в форум скопировал-вставил:

₽
 
Перейти    
Поиск в содержимом ячейки знака рубля
 
#
24.10.2025 16:43:11
Здравствуйте. Вставляет как знак вопроса.
 
Перейти    
Поиск в содержимом ячейки знака рубля
 
#
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
 
Перейти    
Смена регистра первой буквы первого слова в ячейке
 
#
02.07.2024 18:02:19
Цитата
написал:
Правда, он подходит лишь для одного предложения и не учитывает начало (с заглавной буквы) следующего предложения перед которым, как правило, точка пробел.
Я так делал  (NumCol1 - номер столбца, в котором происходит действие, lastRow найдено ранее в коде):
Код
    For i = 2 To LastRow Step 1
        len_word = Len(Sheets("Данные").Cells(i, NumCol1))
        For j = 1 To len_word
            If Mid(Sheets("Данные").Cells(i, NumCol1), j, 2) = ". " _
                Or Mid(Sheets("Данные").Cells(i, NumCol1), j, 2) = "! " _
                    Or Mid(Sheets("Данные").Cells(i, NumCol1), j, 2) = "? " _
                        Then
                            Res = Replace(Sheets("Данные").Cells(i, NumCol1), _
                                Mid(Sheets("Данные").Cells(i, NumCol1), j, 3), _
                                    UCase(Mid(Sheets("Данные").Cells(i, NumCol1), j, 3)))
                            Sheets("Данные").Cells(i, NumCol1) = Res
            End If
        Next j
        
        j = 1
        ' первый символ, если он не цифра
        If IsNumeric(Mid(Sheets("Данные").Cells(i, NumCol1), 1, 1)) = False Then
            Res = Replace(Sheets("Данные").Cells(i, NumCol1), _
                                Mid(Sheets("Данные").Cells(i, NumCol1), 1, 1), _
                                    UCase(Mid(Sheets("Данные").Cells(i, NumCol1), 1, 1)))
            Sheets("Данные").Cells(i, NumCol1) = Res
        End If
    Next i
Изменено: Алексей_79 - 02.07.2024 19:24:04
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.mp3 файлов в цикле
 
#
28.05.2022 14:00:27
Цитата
написал:
Алексей_79, см. картинку
Спасибо!!
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.mp3 файлов в цикле
 
#
28.05.2022 13:47:56
Цитата
написал:
Цитата
БМВ написал:
Вернитесь, оформите код корректно,
Простите, что не так с кодом, вы можете пояснить?
В виде вложенного xls файла нужно?
Изменено: Алексей_79 - 28.05.2022 13:51:26
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.mp3 файлов в цикле
 
#
28.05.2022 12:32:33
Цитата
написал:
судя по вот этому:
Цитата
Алексей_79 написал:
N2 = "2022-05-27 " + N1 + En
f1.Name = N2
макрос одноразовый и сегодня, 28.05.2022, уже не актуален?
Здравствуйте. Добавление даты в имя файла не предмет вопроса. Я её вручную меняю в макросе раз в неделю, когда закачиваю подкасты. Хотя, конечно, можно прикрутить, чтобы он текущую дату добавлял. Спасибо за идею.
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.mp3 файлов в цикле
 
#
28.05.2022 12:29:26
Цитата
написал:
Алексей_79,  Вернитесь, оформите код корректно, ну и в дополнении поясните, каким боком это связано с excel? Ну и вишенка на торте  
Цитата
Алексей_79 написал:
Нужно поменять в свойствах файлов
Если нужно, то меняйте, тут нет того кто против.
Если бы я мог, то поменял бы.  
Вопрос в том, можно ли средствами Excel сделать вышеописанное. В обратную сторону - можно. Значит, вероятно, можно и как описано, я предполагаю. И прошу помочь, если вам известен способ это сделать.
 
Перейти    
Изменить свойство файла, Нужно поменять то, что в проводнике называется столбец "Название" на то, что в проводнике называется "Имя" у *.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 21:11:57
Прекрасно работает формула.
Спасибо большое!
 
Перейти    
Заполнение на отдельном листе данными определённого типа с исходного листа
 
#
13.01.2022 20:03:31
Добрый день.

Подскажите, пожалуйста, какой формулой можно динамически заполнять на отдельном листе данные определённого типа с исходного листа. Во вложенном файле подробный вопрос.
 
Перейти    
Вставить формулу русскими буквами в код VBA
 
#
26.02.2020 20:30:55
Благодарю!
Всё заработало!
 
Перейти    
Вставить формулу русскими буквами в код 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:30:41
Отлично работает.
Спасибо!
 
Перейти    
Сравнение данных на разных листах с учётом нескольких параметров с использованием формул
 
#
26.12.2019 11:00:28
Добрый день!

Подскажите, пожалуйста, можно ли с использованием формул сделать следующее:
Есть файл с листами "1" и " 2"
На листе "1" в столбце "А" отсортированный список уникальных номеров
На листе "2" в столбце "А" отсортированный список тех же в том числе повторяющихся номеров с указанием для каждого параметров "год", "квартал", "сумма"
Необходимо на лист "1" перебросить с листа "2" только те суммы для которых для данных на обоих листах равны номера (№), а также год и квартал второго листа идентичны указанному году и кварталу на листе "1" (ячейки С1 и Е1)  
Изменено: Алексей_79 - 26.12.2019 11:00:45
 
Перейти    
Макрос копирование данных из активной ячейки, для дальнейшей вставки в нужную функцию
 
#
20.12.2019 11:54:40
Цитата
БМВ написал:
.Formula = "=SUM(" & .Value & ")"
Подскажите, пожалуйста, знаки амперсандов чтобы не учесть
.Value как текст?
 
Перейти    
Страницы: 1
Наверх