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

Страницы: 1
Смена регистра первой буквы первого слова в ячейке
 
#
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
Наверх