Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Ошибка: Compile error: ByRef argument type mismatch
 
Добрый день, уважаемый форумчани!
ниже пользовательская функция, которая ругается на Ошибку: 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

как можно от этого избавиться?
функция в отделенной книге работает без проблем, а я добавил её в мою надстройку и начала ругаться.
Менять цвет определенных букв в ячейке
 
Доброго времени суток. во общем такой вопрос.
посредством vba нужен макрос, который ищет определенные буквы в ячейках (например: ман) и  если данные буквы присутствует в таком порядке то закрашивает только их  в определенный цвет(красный) а если не в таком порядке то, не меняет не надо.
Извлечь из текста только фамилию
 
Здравствуйте всем!
Прошу Вас помочь, во вложении есть пример.
я питался с помощью регулярного выражения извлечь фамилию, но не получается
для этого я использовал  [а-яА-ЯёЁ]+

не обязательно с помощью РВ, можно с помощью ( макроса, PQ, формулы)
Прогнозы при кризисе
 
Добрый день, многоуважаемые форумчани!
ِСкажите пожалуйста, есть ли метод прогноза продажи при кризисе?
Если кризисе только начался,то есть когда ты ведешь что кризис только начался с апреля, а у тебя продажи до это на несколько лет не упали.
где можно про это читать? мне интересна как эксперты прогнозируют продажи при кризисе, почему например говорят падение рынка в таком сегменте будет на 3% или 6% и.т.д.
 
Программное добавление объектной модели. Ошибка - Compile error: User-defined type not defined
 
Добрый день, уважаемы форумчане!
есть такой макрос, который предназначен для программного добавлении объектной модели, Он ругается на ошибку-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
 
Поиск и замена по номеру серии (макрос)
 
Здравствуйте всем!
есть такая задача:
Серия                        Срок годности
19B15C        29.02.2024
19B15C         00.00.0000
в колонке В есть дата B виде текста "00.00.0000" а в колонке A номер серии.
нужно искать по номер серии соответствующую дату и заменить "00.00.0000" на  неё .
Изменено: azma - 24 апр 2020 07:29:55
VBA. Вставить переменную в формулу
 
Здравствуйте, уважаемые!
 возник вопрос, как можно прописать  переменную (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 апр 2020 18:22:47
Регулярные выражения - извлечь дату, которые стоит после определенных слов
 
Здравствуйте всем!
хотел вытащить дату, которые стоит сразу после слова "до", или "от"  используя функцией RegExpExtrac от   Николай Павлов, но к сожалению у меня не получается.
прошу Вас помочь, а если  функцией RegExpExtrac не подходит, то написать функцию. с помощью power query  не интересуется
пример во вложении.
Изменено: azma - 19 апр 2020 08:59:08
Ошибка при удалении определенной процедуры из модуля листа
 
Добрый день, уважаемые форумчане
у меня при запуска следующий макрос  возникает ошибка (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 апр 2020 11:34:32
Как указать номер строки в формуле в макроса через переменную
 
Добрый день, всем!
прошу помочь!

номер строки часто меняется, как можно указать номер строки( в данном примере это 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)
 
Добрый день, уважаемые Форумчани!
Прошу помочь, ниже макрос, которые  работает нормально если его ставлю в рабочую книгу, а если в свою настройку, то ругается на ошибку(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, проблема при импорте данных из интернета
 
Друзья, добрый день! У меня отображается слова такими знаками  ">������� ����� �����������</  вместо слов на русском языке.
кто-нибудь знает как решить эту проблему?
[ Закрыто] макрос: условное форматирование
 
Добрый день, друзья!
прошу Вас помочь
нужно покрасить столбец стоящий пред словом "остатки"
то есть код макроса должен искать это слово в активном листе а затем форматировать столбец.
заранее благодарю!
макрос: редизайнер группировки данных
 
Доброе утро, Форумчани!
скажете пожалуйста, можно ли с помощью макроса перевернуть группировку данных.
На приложенной картинке показаны что есть 3 плюсики по столбцам и 2 по строкам, мне нужно перевернуть так , чтобы было  3 по строкам и 2 по столбцам.
если есть напишите пожалуйста код этого макроса.
заранее благодарю!
Макрос: функция Range.Replace, задать условие поиска
 
Добрый вечер, Форумчани!
Прошу Вас помочь, нужен макрос, которые заменял все встречающие цифры в активном листе на нуль, а текстовые  оставил бы как есть.
заранее благодарю!
я такой записал, но мне не нравится

Код
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 мар 2020 19:06:14
Макрос: менять формат выделенного диапозона
 
Добрый день, уважаемые фармчаны !
прошу помочь, нужно макрос,который бы менял формат выделенного диапазон.
есть такой код:

Код
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 фев 2020 13:03:13
Power Query: как включить подсказки M языка
 
Добрый вечер!
как включить подсказки M языка как в этом видео ролике
https://ibb.co/HxvvZKH


https://www.youtube.com/watch?v=G40uw2LLMJA&feature=youtu.be
Изменено: azma - 13 сен 2019 17:06:16
От чего зависит количество и порядок пустых колонок в отчете 1С
 
Добрый день, многоуважаемые фарумчани!
прошу вас, кто знает от чего зависит количество и порядок пустых колонок в отчете 1С
дело в том что у меня настройка то одно, но после отмена объединенных ячеек, порядок пустых колонок по разному бывает и даже количество
https://ibb.co/8jSBGwk
https://ibb.co/bsTXm1R
https://ibb.co/bv3KWBK
Power Query: Игнорировать запроса с ошибкой при объединением запросов
 
добрый день,Форумчани!
скажите пожалуйста, как можно игнорировать Как игнорировать запроса с ошибкой при объединением запросов?
суд в том, что ошибка может возникать с 1 или 2 или с 3 запросом, поэтому нужно игнорировать тот запрос с ошибкой как это сделать не знаю.
для примера, я выложил файл.
Макрос: Фильтрация сводной таблицы по диапазону даты
 
Добрый день! прошу помочь!
нужен макрос Фильтрации сводной таблицы по  диапазону даты .
диапазон берется с двух ячейки: начала даты, конец даты.
 
начала01.08.2019
конец31.08.2020
Power Query: Проверка ячейки на наличие текста (без учета регистра)
 
Уважаемый Форумчани!
у меня возникла проблема, я проверяю столбец на наличие ряд слов, все хорошо, но
если, например, есть слов Амиров, а я ищу Амир, то PQ дает истина.
как решить эту задачу мне нужно точное совпадение

Код
let

     Listofcustomer = Table.ToList(Table.Buffer(Excel.CurrentWorkbook(){[Name="список"]}[Content])),
    source = Excel.CurrentWorkbook(){[Name="клиент"]}[Content],
    Ts = Table.AddColumn(source, "test", each List.Count(Splitter.SplitTextByAnyDelimiter(Listofcustomer)([Клиент])) > 1)
in
Ts
Изменено: azma - 10 авг 2019 01:06:56
Power Query: Импорт таблицу в из Интернета
 
Добрый день, уважаемые Форумчани!
не могу импортировать таблицу из сайта:
https://pharmgorodok.kz/index.php  

пишу в поле поиска слова "рыбий жир", появляться таблица, далее у меня не получается  импортировать её.
как в таком случае быть?
скриншот таблицы:
https://ibb.co/HNS2YNY
Изменено: azma - 6 авг 2019 07:25:29
Power Query: парсить прайс лист
 
Добрый вечер, уважаемый Форумчаны!
скажите можно ли через Power Query парсить прайс лист из определенного сайта, например:
hxxps://rauza-ade.kz/catalog/lekarstvennye-sredstva

если нет, то как можно это сделать..
Макрос: найти и заменить
 
Добрый вечер, Форумчане!
прошу вас помочь разобраться.
я нашел макрос. Он работает отлично, но есть одна проблема, он менять слова везде во всех листах активной книги.
А мне нужно так, чтобы замена произошло только на активным листе.
макрос вот:
Код
Sub Multi_FindReplace()
'PURPOSE: Find & Replace a list of text/values throughout entire workbook
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Canada", "United States", "Mexico")
rplcList = Array("CAN", "USA", "MEX")

'Loop through each item in Array lists
  For x = LBound(fndList) To UBound(fndList)
    'Loop through each worksheet in ActiveWorkbook
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht
  
  Next x

End Sub
Уважаемые, что нужно менять, чтобы макрос заменил слова только на активном листе
Изменено: azma - 7 июл 2019 20:07:30
Power Query: Удалить строки
 
Уважаемые Форумчани, добрый вечер!
Просьба, создайте Excel-файл, для 3-х примеров ниже. Просто,на словах никак не понимаю их.
Заранее благодарю!
1:

Код
Table.RemoveRows(Table.FromRecords({[CustomerID = 1, Name = "Bob", Phone
 = "123-4567"], [CustomerID = 2, Name = "Jim", Phone = "987-6543"], 
[CustomerID = 3, Name = "Paul", Phone = "543-7890"], [CustomerID = 4, 
Name = "Ringo", Phone = "232-1550"]}), 1, 2)
2:
Код
Table.RemoveRows(Table.FromRecords({[CustomerID = 1, Name = "Bob", Phone
 = "123-4567"], [CustomerID = 2, Name = "Jim", Phone = "987-6543"], 
[CustomerID = 3, Name = "Paul", Phone = "543-7890"], [CustomerID = 4, 
Name = "Ringo", Phone = "232-1550"]}), 1)
3:
Код
Table.RemoveRows(Table.FromRecords({[CustomerID = 1, Name = "Bob", Phone
 = "123-4567"], [CustomerID = 2, Name = "Jim", Phone = "987-6543"], 
[CustomerID = 3, Name = "Paul", Phone = "543-7890"], [CustomerID = 4, 
Name = "Ringo", Phone = "232-1550"]}), 0)
Power Query. Пользовательский столбец с римскими цифрами.
 
Добрый день, уважаемый форумчани!
Скажите пожалуйста, что нужно писать в пользовательский столбец  чтобы название месяца можно было преобразовать в римские цифры:
I    II   III
думаю закрепить файл здесь не нужно и так все ясно.
----------
МесяцЦикл
январь      I
февраль      I
март      I
апрель      I
май      II
июнь      II
июль      II
август      II
сентябрь     III
октябрь     III
ноябрь     III
декабрь     III
Изменено: azma - 25 янв 2019 19:06:21
Поиск в таблице соответствий по первому справа налево значению из диапазона ячеек, которое есть в таблице соответствий
 
Доброе утро,уважаемые Форумчане!
нужно ваша помощь. ситуация такова.
Я выделаю диапозон F2:F15 в листе "данные" и если я нажимаю на макрос который мне и нужен то, этот макрос начинает проверить содержимое всех ячеек находящихся на левой стороне F2, то есть E2,D2 и так долее  до столбца А  с данными которые находятся в первом столбце на листе "таблица продуктов" и если находит соответствующие, то ставить  данные, которые находятся во втором или в третьем столбце из этой же таблицы, как ВПР. А если нет то ставить в ячейке F2 не найдено и переходит на F3  и начинает сравнить все что с лева по такому принципу что сказано выше  и так далее до последний ячейки F15.
желательно чтобы в начале макрос просил выделить диапозон таблицы находящийся в листе "таблица продуктов" и просил внести номер столбец, где он должен взять данных  и вставить их в F2  (  то есть 2 -продавец, или 3 -цена  ).
заранее вы меня простите за мой русский язык, я строюсь писать внятно
Изменено: azma - 20 дек 2018 13:06:00
Собрать адрес ячейки в отдельный лист -макросе
 
Доброе утро, уважаемые Форумчане!
Нужно помощь!  нужен макрос который поможет определить адреса выделенных ячеек (хаотично), и  вставить их в отдельный  новый лист.

Желательно чтобы было возможность выбрать тип ссылки ячеек-это если можно реализовать а так неважно.
база даных в виде таблицы для ВПР
 
Уважаемые Форумчани, доброе утро!
Помогите оптимизировать работу,пожалуйста!
У меня есть база данных в виде таблицы из 1000 строк.
Каждый раз открывать её  чтобы вытащить данные через ВПР уже не хочется.
хочу чтобы эта таблица доступно была при открытии любого файла экселя.
как это можно реализовать, скажите пожалуйста?!.
За ранее благодарю!  
Изменено: azma - 9 дек 2018 06:03:11
определять время начало и конец рабочего дня
 
Здравствуйте всем! помогите определять время начало и конец рабочего дня.
пример закрепил.
Страницы: 1 2 След.
Наверх