azma (Автор тем)

Power Query: парсить сайт

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 18.08.2024 22:08:26 Прошу помочь парсить этот сайт и получить весь список имен с помощью Power Query https://www.back4app.com/database/back4app/list-of-names-dataset/all-names
	Перейти

деление продаж по дням помощью PQ

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

12.04.2023 02:30:37

здравствуйте друзья!
мне нужно поделить сумму продажи по дням (число должен быть целым а остаток вставить в последний день месяца
ожидаемый результат во вложении
можно остаток вставить в другой день например в начале, главное чтобы не было дробных чисел

Изменено: azma - 12.04.2023 11:36:09

Перейти

преобразовать текст в дату VBA

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

04.01.2023 17:46:57

добрый вечер, всем! Помогите поправить макрос чтобы мог преобразовать дату тип Aug 10 2022 в дату (10.08.2022)
я нашел макрос на этом сайте, но я не мог его заставить работать. скажите что нужно справить чтобы работал?

Код

sub ConvertLongDateToShortDate()
    Dim arr As Variant, arrTemp As Variant
    Dim CountOfSpaces As Long, lDay As Long, lMonthNumber As Long, lYear As Long, i As Long
    Dim Rng As Range
    
    If Selection.Cells.Count = 1 Then
        MsgBox "Выделите диапазон ячеек с датами", vbInformation, "Внимание"
        Exit Sub
    End If
    
    Set Rng = Intersect(Selection, ActiveSheet.UsedRange)
    
    Rng.Replace Chr(160), " "
    
    arr = Rng.Value2
    
    On Error Resume Next
    
    For i = LBound(arr) To UBound(arr)
        If arr(i, 1) <> Empty Then
            If InStr(1, arr(i, 1), " ", vbBinaryCompare) > 0 Then
                CountOfSpaces = Len(arr(i, 1)) - Len(VBA.Replace(arr(i, 1), " ", ""))
                If CountOfSpaces = 2 Then
                    arrTemp = Split(arr(i, 1))
                    If UBound(arrTemp) = 2 Then
                        lMonthNumber = NumberOfMonthName(arrTemp(1))
                        If lMonthNumber > 0 Then
                            arr(i, 1) = DateSerial(CLng(arrTemp(2)), lMonthNumber, CLng(arrTemp(0)))
                        End If
                    End If
                End If
            End If
        End If
    Next i
    
    On Error GoTo 0
    
    Rng.Value = arr
End Sub

Private Function NumberOfMonthName(ByVal Str As String) As Long
    Dim MonthNames As Variant
    MonthNames = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    On Error Resume Next
    NumberOfMonthName = Application.Match(LCase(Str), MonthNames, 0)
End Function

Перейти

копировать листы из разных книг, Run-time error '1004': Method 'Copy' of object '_Worksheet' failed

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

06.11.2021 06:44:08

Доброе утро Всем!
проблема такая: ниже код, который прекрасно работает если стоит в отельной книге, но к сожаление , когда вставлю его в свою надстройку ругается именно вот здесь:

Код
ws.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

подскажите пожалуйста, как устранить эту ошибку?

Код

Sub CombineWorkbooks()

Dim Path As String
Path = "C:\Users\Am\Desktop\test\"

Dim FileName As String
FileName = Dir(Path & "*.xlsx")

Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Do While FileName <> ""
    Workbooks.Open Path & FileName
    For Each ws In ActiveWorkbook.Sheets
        ws.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    Next ws
    Workbooks(FileName).Close
    FileName = Dir()
Loop

Worksheets(1).Delete

Application.ScreenUpdating = False
Application.DisplayAlerts = False

End Sub

Изменено: azma - 06.11.2021 06:46:35

Перейти

DAX. Как посчитать разницу между двумя датами по годам.

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

03.11.2021 04:11:51

Здравствуйте , друзья!
подскажите пожалуйста , почему функция DATEDIFF считает не правильно по сравнению с РАЗНДАТ в экселе?
я хотел считать разницу между двумя датами по годам, пример во вложении .
у меня DATEDIFF показывает на 1 год больше чем то, что показывает РАЗНДАТ в экселе

Перейти

Макросом создать и заполнить таблицу по фруктам и их ценам на листе Excel

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

28.10.2021 15:25:02

Добрый день, ДРУЗЬЯ!
Прошу Вас помочь с оптимизацией макроса, не хватает опыта.проблема в тем , что каждый раз , когда нужно добавить

новый продукт приходится менять все Offset в макросе чтобы соблюдать порядок добавление продуктов
например: Если мне нужно после продукт "Apple" добавить Apple Red, то придется менять все Offset во всех следующих шагах.

Код

Sub TabS()
Application.ScreenUpdating = False
ActiveCell = "Fruits"
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1)) = "Price"
ActiveCell.Offset(0, 1).Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 2)) = "Quantity"
ActiveCell.Offset(0, 2).Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
Range(ActiveCell.Offset(14, 2), ActiveCell.Offset(14, 2)) = "=SUM(R[-13]C:R[-1]C)"
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 3)) = "Sum"
ActiveCell.Offset(0, 3).Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
        End With
End With
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0)) = "Apple"
Range(ActiveCell.Offset(2, 0), ActiveCell.Offset(2, 0)) = "Apricots"
Range(ActiveCell.Offset(3, 0), ActiveCell.Offset(3, 0)) = "Avocado"
Range(ActiveCell.Offset(4, 0), ActiveCell.Offset(4, 0)) = "Banana"
Range(ActiveCell.Offset(5, 0), ActiveCell.Offset(5, 0)) = "Blackberries"
Range(ActiveCell.Offset(6, 0), ActiveCell.Offset(6, 0)) = "Blackcurrant"
Range(ActiveCell.Offset(7, 0), ActiveCell.Offset(7, 0)) = "Breadfruit"
Range(ActiveCell.Offset(8, 0), ActiveCell.Offset(8, 0)) = "Cantaloupe"
Range(ActiveCell.Offset(9, 0), ActiveCell.Offset(9, 0)) = "Cherimoya"
Range(ActiveCell.Offset(10, 0), ActiveCell.Offset(10, 0)) = "Cherries"
Range(ActiveCell.Offset(11, 0), ActiveCell.Offset(11, 0)) = "Clementine"
Range(ActiveCell.Offset(12, 0), ActiveCell.Offset(12, 0)) = "CoconutMeat"
Range(ActiveCell.Offset(13, 0), ActiveCell.Offset(13, 0)) = "Cranberries"

Range(ActiveCell.Offset(14, 0), ActiveCell.Offset(14, 0)) = "Total"
Range(ActiveCell, Cells(ActiveCell.Row + 29, ActiveCell.Column)).Columns.AutoFit
Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(1, 1)) = 2.1
Range(ActiveCell.Offset(2, 1), ActiveCell.Offset(2, 1)) = 3.8
Range(ActiveCell.Offset(3, 1), ActiveCell.Offset(3, 1)) = 6.48
Range(ActiveCell.Offset(4, 1), ActiveCell.Offset(4, 1)) = 11.3
Range(ActiveCell.Offset(5, 1), ActiveCell.Offset(5, 1)) = 22
Range(ActiveCell.Offset(6, 1), ActiveCell.Offset(6, 1)) = 8
Range(ActiveCell.Offset(7, 1), ActiveCell.Offset(7, 1)) = 4.5
Range(ActiveCell.Offset(8, 1), ActiveCell.Offset(8, 1)) = 6.48
Range(ActiveCell.Offset(9, 1), ActiveCell.Offset(9, 1)) = 5.4
Range(ActiveCell.Offset(10, 1), ActiveCell.Offset(10, 1)) = 2.8
Range(ActiveCell.Offset(11, 1), ActiveCell.Offset(11, 1)) = 3
Range(ActiveCell.Offset(12, 1), ActiveCell.Offset(12, 1)) = 14
Range(ActiveCell.Offset(13, 1), ActiveCell.Offset(13, 1)) = 7.89

Application.CutCopyMode = False
Range(ActiveCell.Offset(1, 3), ActiveCell.Offset(1, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(2, 3), ActiveCell.Offset(2, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(3, 3), ActiveCell.Offset(3, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(4, 3), ActiveCell.Offset(4, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(5, 3), ActiveCell.Offset(5, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(6, 3), ActiveCell.Offset(6, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(7, 3), ActiveCell.Offset(7, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(8, 3), ActiveCell.Offset(8, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(9, 3), ActiveCell.Offset(9, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(10, 3), ActiveCell.Offset(10, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(11, 3), ActiveCell.Offset(11, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(12, 3), ActiveCell.Offset(12, 3)) = "=RC[-2]*RC[-1]"
Range(ActiveCell.Offset(13, 3), ActiveCell.Offset(13, 3)) = "=RC[-2]*RC[-1]"

Range(ActiveCell.Offset(14, 3), ActiveCell.Offset(14, 3)) = "=SUM(R[-13]C:R[-1]C)"
ActiveCell.Offset(0, 1).Select
Range(ActiveCell, Cells(ActiveCell.Row + 14, ActiveCell.Column + 2)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
ActiveCell.Offset(0, -1).Select
Range(ActiveCell, Cells(ActiveCell.Row + 14, ActiveCell.Column + 3)).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    ActiveCell.EntireColumn.AutoFit
    ActiveCell.Offset(0, 1).EntireColumn.AutoFit
    ActiveCell.Offset(0, 2).EntireColumn.AutoFit
    ActiveCell.Offset(0, 3).EntireColumn.AutoFit
Range(ActiveCell.Offset(14, 0), ActiveCell.Offset(14, 1)).Select
        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Calibri"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
End With
Application.ScreenUpdating = True
End Sub

прошу написать макрос, где можно просто написать продукт через запетую и цену также, тип такое

Код
ProductList = Array("Apple", "Apricots", "Avocado", "Banana", "Blackberries") PricelcList = Array(2.1 , 3.8,6.48 ,11.3 ,22 )

Изменено: Юрий М - 28.10.2021 18:40:37

Перейти

как удалить денежный формат в power bI

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 15.08.2021 18:14:30 Добрый вечер,друзья! прошу Вас подсказать как удалить денежный формат в power bI то есть нужно мне чтобы просто power bI показал значение без букв.
	Перейти

Генератор случайных чисел в указанных границах и с заданной суммой

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

30.06.2021 13:53:59

Добрый день всем!
помогите, у меня не получается

нужно генерировать число в 20-х ячейках с условием:
1- в каждой ячейки не должно быть меньше 30 и не больше 60
2- сумма всех ячеек должно быть 1000
функция СЛУЧМЕЖДУ не дает нужны результаты

Изменено: vikttur - 30.06.2021 14:05:06

Перейти

Фильтр по цвету шрифта активной ячейки. Ошибка Run-time error '1004': Метод AutoFilter из класса Range завершен неверно

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

10.06.2021 17:49:21

Добрый вечер, Друзья!
прошу помочь справлять ошибку в макросе.

Код

Function GetRGBTest(Colour As Long, colInd As Integer) As String

Dim Dict As Object

If Colour > 0 Then
    GetRGBTest = "RGB(" & (Colour Mod 256) & "," & ((Colour \ 256) Mod 256) & "," & ((Colour \ 256 \ 256) Mod 256) & ")"
Else
    colInd = LTrim(Str(colInd))
    GetRGBTest = Dict.Item(colInd)
End If
End Function
Sub filtColor()
Dim col As Integer
Dim s As Integer
Dim x As Integer
Dim f As String
x = ActiveSheet.UsedRange.Rows.Count
s = ActiveCell.SpecialCells(xlLastCell).Row
col = ActiveCell.Column
f = GetRGBTest(Selection.Font.Color, Selection.Font.ColorIndex)
MsgBox f
ActiveSheet.Range(Cells(1, 1), Cells(s, col)).AutoFilter Field:=col, Criteria1:=f, Operator:=xlFilterFontColor
End Sub

макрос ругаетя на этот код:

Код
ActiveSheet.Range(Cells(1, 1), Cells(s, col)).AutoFilter Field:=col, Criteria1:=f, Operator:=xlFilterFontColor

Изменено: vikttur - 10.06.2021 18:03:26

Перейти

Power Query: Импорт инфо с сайта

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 03.06.2021 09:53:10 Помогите пожалуйста, не получается выгружать весь текст с сайта для дальнейшего работа с ним. например, не выгружаются Регион Юридический адрес Виды деятельности и др.
	Перейти

поиск слово в таблице без учета регистра -power query

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

22.05.2021 18:15:15

Добрый вечер!
помогите пожалуйста, не получается у меня.
что нужно написать чтобы заставить power query искать слово в таблице без учета регистра

Код

let
    Источник = Excel.Workbook(File.Contents("C:\1.xlsx"), null, true),
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Item] = "1")),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Строки с примененным фильтром",{"Name", "Item", "Kind", "Hidden"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Удаленные столбцы", "Пользовательский", each Table.FindText([Data],"AZMA")),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Добавлен пользовательский объект",{"Пользовательский"}),
    #"Развернутый элемент Пользовательский" = Table.ExpandTableColumn(#"Другие удаленные столбцы", "Пользовательский", {"Column1", "Column2", "Column3", "Column4", "Column5"}, {"Column1", "Column2", "Column3", "Column4", "Column5"})
in
    #"Развернутый элемент Пользовательский"

Изменено: azma - 22.05.2021 18:16:21

Перейти

Поиск слов по маске без учета регистра и запись рядом соответствующего слова

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

01.05.2021 16:26:44

Добрый день Всем!
прошу Вас помочь!
нужен макрос который мог поискать несколько слов в столбце А и ставил соответствующее слова рядом в столбец В
пример во вложении.
задача макроса искать название города в А и рядом в В ставить соответствующее название города.
заранее благодарю!

Перейти

VBA скрыть все неактивные (все невыбранные) листы в Excel

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

25.04.2021 08:03:49

добрый день, ДРУЗЬЯ!
прошу помочь, нужен макрос который мог бы скрыть все невыбранные листы.
дело в том, что выбранные(активные) листы, их несколько.
есть такой в надстройке Kutools for Excel здесь.
hххps://ru.extendoffice.com/product/kutools-for-excel/show-or-hide-inactive-worksheets-in-one-workbook.html
но мне хотелось посмотреть как выглядит код и как работает.
заранее благодарю!

Перейти

Ошибка: Compile error: ByRef argument type mismatch

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

29.06.2020 12:56:07

Добрый день, уважаемый форумчани!
ниже пользовательская функция, которая ругается на Ошибку: Compile error: ByRef argument type mismatch

Код

Function GETLASTWORD(ByVal Text As String, Optional Separator As Variant)

Dim lastword As String

If IsMissing(Separator) Then
 Separator = " "
End If
lastword = StrReverse(Text)
lastword = Left(lastword, InStr(1, lastword, Separator, vbTextCompare))

GETLASTWORD = StrReverse(replace(lastword, Separator, ""))

End Function

как можно от этого избавиться?
функция в отделенной книге работает без проблем, а я добавил её в мою надстройку и начала ругаться.

Перейти

Менять цвет определенных букв в ячейке

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

08.06.2020 07:34:59

Доброго времени суток. во общем такой вопрос.
посредством vba нужен макрос, который ищет определенные буквы в ячейках (например: ман) и если данные буквы присутствует в таком порядке то закрашивает только их в определенный цвет(красный) а если не в таком порядке то, не меняет не надо.

Перейти

Извлечь из текста только фамилию

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

31.05.2020 06:10:24

Здравствуйте всем!
Прошу Вас помочь, во вложении есть пример.
я питался с помощью регулярного выражения извлечь фамилию, но не получается
для этого я использовал [а-яА-ЯёЁ]+

не обязательно с помощью РВ, можно с помощью ( макроса, PQ, формулы)

Перейти

Прогнозы при кризисе

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

23.05.2020 07:20:44

Добрый день, многоуважаемые форумчани!
ِСкажите пожалуйста, есть ли метод прогноза продажи при кризисе?
Если кризисе только начался,то есть когда ты ведешь что кризис только начался с апреля, а у тебя продажи до это на несколько лет не упали.
где можно про это читать? мне интересна как эксперты прогнозируют продажи при кризисе, почему например говорят падение рынка в таком сегменте будет на 3% или 6% и.т.д.

Перейти

Программное добавление объектной модели. Ошибка - Compile error: User-defined type not defined

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

13.05.2020 12:54:23

Добрый день, уважаемы форумчане!
есть такой макрос, который предназначен для программного добавлении объектной модели, Он ругается на ошибку-Compile error: User-defined type not defined

подскажите как можно как можно избежать эту ошибку.
заранее благодарю!

Код

Sub AddReference()
    Dim VBAEditor As VBIDE.VBE
    Dim vbProj As VBIDE.VBProject
    Dim chkRef As VBIDE.Reference
    Dim BoolExists As Boolean

    Set VBAEditor = Application.VBE
    Set vbProj = ActiveWorkbook.VBProject

    '~~> Check if "Microsoft VBScript Regular Expressions 5.5" is already added
    For Each chkRef In vbProj.References
        If chkRef.Name = "Microsoft Visual Basic for Applications Extensibility 5.3" Then
            BoolExists = True
            GoTo CleanUp
        End If
    Next

    vbProj.References.AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

CleanUp:
    If BoolExists = True Then
        MsgBox "Reference already exists"
    Else
        MsgBox "Reference Added Successfully"
    End If

    Set vbProj = Nothing
    Set VBAEditor = Nothing
End Sub

Перейти

Поиск и замена по номеру серии (макрос)

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

24.04.2020 07:28:56

Здравствуйте всем!
есть такая задача:

Серия	Срок годности
19B15C	29.02.2024
19B15C	00.00.0000

в колонке В есть дата B виде текста "00.00.0000" а в колонке A номер серии.
нужно искать по номер серии соответствующую дату и заменить "00.00.0000" на неё .

Изменено: azma - 24.04.2020 07:29:55

Перейти

VBA. Вставить переменную в формулу

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

21.04.2020 18:15:02

Здравствуйте, уважаемые!
возник вопрос, как можно прописать переменную (i) в такой формуле
уменя выходить ошибка из-за того, что в ячейку вводится знак @i вместо цифры

Код

ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(INDEX(R,0,AGGREGATE(14,6,COLUMN(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1))/ISNUMBER(MATCH(RC1:OFFSET(RC1,,COLUMN()-COLUMN(RC1)-1)
,'t.xlsx'!tab10[sell],0)),1)),'t.xlsx'!tab10[#Data],i,0),""нету"")"

Изменено: azma - 21.04.2020 18:22:47

Перейти

Регулярные выражения - извлечь дату, которые стоит после определенных слов

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

19.04.2020 08:07:39

Здравствуйте всем!
хотел вытащить дату, которые стоит сразу после слова "до", или "от" используя функцией RegExpExtrac от Николай Павлов, но к сожалению у меня не получается.
прошу Вас помочь, а если функцией RegExpExtrac не подходит, то написать функцию. с помощью power query не интересуется
пример во вложении.

Изменено: azma - 19.04.2020 08:59:08

Перейти

Ошибка при удалении определенной процедуры из модуля листа

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

17.04.2020 11:32:47

Добрый день, уважаемые форумчане
у меня при запуска следующий макрос возникает ошибка (Run-time error '1004': Application-defined or object-defined error)

Код

Sub Delete_Sub_From_Module()
    Dim lCountLines As Long, li As Long, lStartLine As Long, lProcLineCount As Long
    Dim sCodeName As String, sProcName As String
With ActiveWorkbook.VBProject.VBComponents("Module1") '                            ===>тут начинается ошибка
        'получаем кол-во строк кода в модуле
        lCountLines = .CodeModule.CountOfLines
        'получаем первую строку с кодом, исключая строки декларирования функции и опций модуля
        lStartLine = .CodeModule.CountOfDeclarationLines + 1
        'цикл по всем строкам кода внутри модуля
        For li = lStartLine To lCountLines
            'получаем имя процедуры/функции, внутри которой строка кода
            sProcName = .CodeModule.ProcOfLine(li, 0)
            'если имя процедуры совпадает с тем, которое нам нужно
            If sProcName = "tа234" Then
                'узнаем кол-во строк процедуры/функции
                lProcLineCount = .CodeModule.ProcCountLines(sProcName, 0)
                'удаляем процедуру/функцию
                .CodeModule.DeleteLines li, lProcLineCount - 1
                Exit For
            End If
            li = li + lProcLineCount
        Next li
    End With
End Sub

скажите пожалуйста, как можно решить эту проблему.

Изменено: azma - 17.04.2020 11:34:32

Перейти

Как указать номер строки в формуле в макроса через переменную

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

14.04.2020 14:58:25

Добрый день, всем!
прошу помочь!

номер строки часто меняется, как можно указать номер строки( в данном примере это 5) через переменную.

Код

lLastCol = Cells.SpecialCells(xlLastCell).Column
Range(Cells(1, 1), Cells(1, lLastCol)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
    Selection.FormulaR1C1 = "R[5]C"

Перейти

Ошибка при копировании листа в новую книгу (Method or data member not found)

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

04.04.2020 09:05:08

Добрый день, уважаемые Форумчани!
Прошу помочь, ниже макрос, которые работает нормально если его ставлю в рабочую книгу, а если в свою настройку, то ругается на ошибку(Method or data member not found).
Скажите пожалуйста, что нужно сделать чтобы не давал такую ошибку

Код
Sub SheetsNames() Dim i As Integer: ActiveCell.ClearContents For i = 1 To Sheets.Count: ActiveCell(i, 1) = Sheets(i).Name: Next End Sub

Перейти

Power query, проблема при импорте данных из интернета

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 22.03.2020 08:29:38 Друзья, добрый день! У меня отображается слова такими знаками ">�� </ вместо слов на русском языке. кто-нибудь знает как решить эту проблему?
	Перейти

[ Закрыто] макрос: условное форматирование

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 19.03.2020 15:26:00 Добрый день, друзья! прошу Вас помочь нужно покрасить столбец стоящий пред словом "остатки" то есть код макроса должен искать это слово в активном листе а затем форматировать столбец. заранее благодарю!
	Перейти

макрос: редизайнер группировки данных

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

18.03.2020 04:04:46

Доброе утро, Форумчани!
скажете пожалуйста, можно ли с помощью макроса перевернуть группировку данных.
На приложенной картинке показаны что есть 3 плюсики по столбцам и 2 по строкам, мне нужно перевернуть так , чтобы было 3 по строкам и 2 по столбцам.
если есть напишите пожалуйста код этого макроса.
заранее благодарю!

Перейти

Макрос: функция Range.Replace, задать условие поиска

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

16.03.2020 18:40:34

Добрый вечер, Форумчани!
Прошу Вас помочь, нужен макрос, которые заменял все встречающие цифры в активном листе на нуль, а текстовые оставил бы как есть.
заранее благодарю!
я такой записал, но мне не нравится

Код

Sub Ìàêðîñ2()
Cells.Select
    Selection.Replace What:="1*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="2*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="3*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="4*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="5*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="6*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="7*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="8*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="9*", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

Изменено: azma - 16.03.2020 19:06:14

Перейти

Макрос: менять формат выделенного диапозона

azma

Пользователь

Сообщений: 341 Регистрация: 03.12.2017

27.02.2020 12:54:25

Добрый день, уважаемые фармчаны !
прошу помочь, нужно макрос,который бы менял формат выделенного диапазон.
есть такой код:

Код
Sub Format1() With ActiveCell Range(.Address, Cells(Cells(Rows.Count, .Column).End(xlUp).Row, .Column)).NumberFormat = "#,##0_ ;[Red]-#,##0 " End With End Sub

Но к сожалению меняет формат выделенных ячеек находящих в одном и тоже столбцу.

Изменено: azma - 27.02.2020 13:03:13

Перейти

Power Query: как включить подсказки M языка

azma Пользователь Сообщений: 341 Регистрация: 03.12.2017	# 13.09.2019 17:05:08 Добрый вечер! как включить подсказки M языка как в этом видео ролике https://ibb.co/HxvvZKH https://www.youtube.com/watch?v=G40uw2LLMJA&feature=youtu.be
	Перейти