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

Страницы: 1
макрос разбивает текст немецкий/русский на 2 столбца
 
#
01.08.2022 10:46:34
Здравствуйте!
Нужен макрос чтобы разбить/ разделить текст на 2 столбца, если слово на немецком (латинице) - поместить в новую строку, если слово русское (кириллица)- поместить в 2ой столбец.

пример текста :
Stunde, die -, -n час; урок Tag, der -(e)s, -e день Tafel, die -, -n доска Text, der -es, -e текст üben vt упражняться, заучивать übersetzen vt переводить Übung, die-,-en упражнение Uhr, die -, -en часы Unterricht, der -(e)s занятие, занятия verstehen (verstand, verstanden) vt понимать

Или может поставить разделитель между немецкими и русскими словами? Например, там где немецкий текст заканчивается  и начинается русский - поставить дробь, между русским и немецким - ентер. Этот процесс мне нужно автоматизировать.
Изменено: ALEXANDRA MMM - 01.08.2022 11:34:03 (добавила файл с примером)
 
Перейти    
Суммирование ячеек определенного столбца выделенной таблицы начиная с 3 строки.
 
#
29.07.2021 12:01:03
Добрый день.

Именно такой темы я не нашла, где-то что-то частично, но собрать во едино все в рабочий макрос не могу. А может и не стоит, может можно сделать проще?

Итак, задача:
есть файл с разными таблицами, т.е. таблицы с разными категориями расходов и разными категориями доходов. Количество этих таблиц и количество строк каждый раз меняются, т.е. могут добавляться несколько таблиц (или только строки в имеющихся таблицах) если есть такие расходы или доходы, а может их и не быть вовсе. т.е. привязать к определенным ячейкам функцию СУММ не могу. НО не меняются количество столбцов и названия колонок в каждой таблице. Помимо строки с заголовком, в каждой таблице имеется строка с нумерацией столбца, т.е. записывая диапазон сумирующихся ячеек в столбце, не включать сюда первые 2 строки выделенной таблицы.
мне нужно посчитать сумму всех расходов и доходов по категориям, вывести результат по каждой категории и баланс, т.е. сумму всех расходов отнять от суммы всех доходов.

что я смогла сделать - это посчитать категорию расходов которые имеют код состоящий из 5- 6 цифр, т.е. зацепилась за код и столбец. использовала функцию =СУММЕСЛИМН(E:E;B:B;">11110";B:B;"<30000")

найти нужную таблицу по определенному слову и выделить ее
Код
Sub услуги()
' Сочетание клавиш: Ctrl+k

   Cells.Find(What:="Электричество", After:=ActiveCell, LookIn:=xlValues, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False, SearchFormat:=False).Activate
End Sub

Код
Sub Макрос1()
' Сочетание клавиш: Ctrl+l

   Selection.CurrentRegion.Select
End Sub

посчитать сумму ячеек которые находятся выше выделенной ячейки (выделяю вручную)
Код
Sub Summ2()
Dim x
 x = ActiveCell.Offset(-1).End(xlUp).Row
 ActiveCell.FormulaR1C1 = "=SUM(R" & x & "C:R[-1]C)"
End Sub

но этот макрос считает вместе со 2 строкой, которая содержит нумерацию столбцов.
 
Перейти    
Страницы: 1
Наверх