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

Страницы: 1
Подсчет количества символа на определенном месте в разных ячейках
 
Цитата
Максим В. написал:
=СУММПРОИЗВ(--(ПСТР(A1:B4;2;1)="B"))
бинарное отрицание - слишком мудренно
Подсчет количества символа на определенном месте в разных ячейках
 
Камрады!

Есть набор ячеек со стрингами
AB
1aBCFDrvdasAssssAAA
2aaaacBcBBBfd
3dfcBBBBajBBBabb
4aBeeBebBbbbB
Нужно подсчитать количество сомвола "B" который втсречается во всех ячейках на 2 месте
На примере выше, таковых -  5

Пытался делать в этом направлении:
=SUMPRODUCT(LEN(A1:B4) - LEN(SUBSTITUTE(SUBSTITUTE((A1:B4), "B", ""), "B","")))
но данная формула считает все символы "B", как, впрочем и такая конструкция:
=COUNTIF(A1:B4,"*B*")
В первом случае , получаю 17, во втором 6
Копирование группы номеров с постоянным шагом, размножить часть таблицы для группы выделленной группы чисел
 
спасибо всем
Копирование группы номеров с постоянным шагом, размножить часть таблицы для группы выделленной группы чисел
 
Камрады!

Стоит вот такая задачка - скопировать столбцы, с шагом 8 - 50000 раз
Т.е. в левом столбце всё время одно значения 8 раз, потом шаг - 1   т.е. 50000/8 (повторений)
      в правом значения от 1 до 8 (возвращается)
Скрытый текст
Индекс (1-50000)
Можно ли это сделать сдандартными средствами или нужен макрос/скрипт?

спасибо
Послать email с таблицей результатов Sparkline, Sparline в посланном email пустой
 
Файл очень тяжелый, так как считывает данные из  БД, а потом обрабатывает... И люди, которые читают мэйлы предпочитают видеть всё и сразу....
Ну вот такая вот прихоть у начальства - селя ви...
Изменено: vikonder - 25 апр 2020 23:19:29
Послать email с таблицей результатов Sparkline, Sparline в посланном email пустой
 
Камрады!

Нужно послать email с таблицей результатов Sparkline


Письмо, отправляемое через Outlook выглядит вот так при вставке:


Как можно послать аисьмо со всем содержимым???

ЗЫ: Пытался послать как BITMAP (Copy as picture), но тут другая проблема - картинка отображаетс и посылается как положено, но
вот с другой стороны, человек, который открывает email через Outlook,  видит уменьщенное изображение без возможности его увеличить...


Как можно эту проблему решить???

спасибо

Картинки удалены - превышения размера вложения [МОДЕРАТОР]
Фильтрация. Оставить строки с датами последних 30 дней
 
Из тысяч строк DB меня каджый день интересуют 30, с фильтром по дате,
который привязан к текущей дате...

Т.е. - Открыл xmls файл - запустился макрос, который по фильтру даты вытащит последние 30 дней....

Я пытался просто использовать From MS Query, чтобы внутри прописать готовый запрос к базе данных на SQL
но Wizard не видит нужной мне таблицы...
Только через Legacy Wizard, я могу выбрать из списка нужную мне таблицу
Фильтрация. Оставить строки с датами последних 30 дней
 
Камрады!

Я создал макрос, который подлючается к базе данных SQL

Код
Sub Macro2()
'
' Macro2 Macro
'

'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=SQLOLEDB.1;Password=xdr5%RDX;Persist Security Info=True;User ID=OptimalAdmin;Data Source=OTVSQL02;Use Procedure for Pre" _
        , _
        "pare=1;Auto Translate=True;Packet Size=4096;Workstation ID=VCHARNY-G2;Use Encryption for Data=False;Tag with column collation wh" _
        , "en possible=False;Initial Catalog=PerformanceResults"), Destination:=Range( _
        "$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array( _
        """PerformanceResults"".""dbo"".""BenchmarkTestsSummary""")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Users\VCharny\Documents\My Data Sources\OTVSQL02 PerformanceResults BenchmarkTestsSummary1.odc"
        .ListObject.DisplayName = _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1"
        .Refresh BackgroundQuery:=False
    End With


Таблица огромная и после того как данные отображаются,
- делаю сортировку по нужным мне парметрам
- scrolling
- cut
- открываю новые tab
- удаляю из таблицы несколько десятков колонок, так как они мне не нужны для статистики
...


типа вот таких блоковЖ
Код
ActiveSheet.ListObjects( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1").Range.AutoFilter _
        Field:=3, Criteria1:="QAPerformanceVertica"

 Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    ActiveSheet.ListObjects( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1").Range.AutoFilter _
        Field:=1, Criteria1:=Array("7.4.4247.0", "7.4.4280.0", "7.4.4340.0"), _
        Operator:=xlFilterValues

ActiveWindow.SmallScroll ToRight:=3
    Range("H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S").Select
    Range( _
        "Table_OTVSQL02_PerformanceResults_BenchmarkTestsSummary1[[#Headers],[Extract data:     Analyze_Statistics]]" _
        ).Activate

Всё это отображается в макросе

3 основных вопроса:

1. Как можно оспользовать QUERY, который делает всё эту фильтрацию, а не тащит в макросе, все действия, чтобы макрос просто запустил QUERY
   или что-то похожее.
2, Как можно в синтаксисе макроса, прописат слеуюший фильтр для столбца Даты:
-> Текущая дата -30 дней
3, Чтобы такая фильтрация была применима для 10 tab одновременно (каждый по своему дополнительному стрингу)

Т.е. задача при каждом открытие .xmls файла, чтобы вытаскивались автоматически -30 дней данных от текущей из базы данных
Изменено: vikonder - 22 апр 2020 18:10:12
Сравнение содержимого 2 ячеек с BOOLEAN результатом в 3 (TRUE/FALSE), сравнение 2-х ячеек
 
Камрады!

Дано: 2 ячейки с данными
Задача: сравнить их на полное совпадение и результат (TRUE/FALSE) выдать в третью ячейку

спасибо
Изменено: vikonder - 10 апр 2013 18:57:45
Объединение cells со схемой удаления позиций и пробелов, Соединение нескольких cells по заданной формуле
 
Sanja,

спасибо
Объединение cells со схемой удаления позиций и пробелов, Соединение нескольких cells по заданной формуле
 
спасибо помогло
Объединение cells со схемой удаления позиций и пробелов, Соединение нескольких cells по заданной формуле
 
Попробую объяснить наглядно:



Данные первого столбца (а таких около 1000)
нужно переделать "merge" в последний столбец
по правилу, описанному выше.

А далее объединить (здесь данные 3 клеток в один "неприрывный стринг")
D83DDE04D83DDE0AD83DDE03
Изменено: vikonder - 10 апр 2013 10:15:47
Объединение cells со схемой удаления позиций и пробелов, Соединение нескольких cells по заданной формуле
 
Камрады!

Дано: N строк в HEX формате 0xD75E 0XA16B
Нужно: Объединить клетки, удалить 0Х, и склеить получившийся результат
(вот до такого вида из примера ---> D75EA16B

спасибо
Изменено: vikonder - 10 апр 2013 00:29:08
Страницы: 1
Наверх