Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Наиболее часто встречающиеся значения
 
Добрый день!
Нужна помощь в выборе функции(средства)  для определения наиболее часто встречающихся текстовых значений в таблице.
Выборка будет проходить из  следующего вида данных:

F24H 1/06
F22B 31/04
F16T1/20
E21B47/00,
E21B47/10
C01B17/04 ,
B01D53/48,
B01D53/52
G01N30/88
E02D5/56,
E02D7/22
F25J3/00
G01N30/88
F16L3/10
F23D14/20
F24H1/28
F24H3/08
B01D53/02 ,
B01D53/26

при выборке интересуют первые 5-6 символов, которые нужны для дальнейшей работы.
Подсчет нескольких значений в одной ячейке
 
Здравствуйте!
Нужна помощь с подсчетом значений, находящихся в одной ячейке.
Для подсчета значений используется функция "Счетеслимн" , данная функция исправно работает когда в ячейке указано одно значение. Но что делать когда в ячейке значений несколько???
Пример ниже.

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

Столкнулся с проблемой средней линии в диаграмме. Имеется обычная гистограмма, дополнительно строится средняя линия из столбца "Проходного балла".

Первый вопрос:
Нужно чтобы линия среднего значения строилась на всю область диаграммы, а не только на 2/3 диаграммы.

Второй вопрос:
Как закрепить подпись к средней линии "Проходной балл" в правом верхнем углу? При изменении значения проходного балла надпись двигается то вверх то вниз.

Прикладываю файл.
Выбор значения по условию и копирование этого значения в ячейку
 
Всем доброго дня!
Вкратце. Есть таблица с данными, на основании которых строится диаграмма.
Есть столбец "проходной балл" по значению которого "отсекаются" слабые работы.
Раньше проходной балл брался как значение 10-й работы.
Теперь нужно чтобы была возможность по какой работе выбирать значение для проходного балла.

Пробовал с ВПР, что-то никак...
В приложении пример.
Разбор ошибки: Run-time error '1004' . Нельзя установить свойство Values класса Series
 
Всем привет!
Имеется такой код:
Код
Rem меняем Диаграмму на 4 листе, делаем ее активной
     Rem RowCount - подсчитываем кол-во заполненных строк списка работ, только нужно снизу пустые строки удалить
     RowCount = Лист3.Cells(4, 9)
   Rem Дальше меняем параметры диаграммы (столбцы и отсечку соответсвенно)
    Лист4.ChartObjects(1).Activate
    Param1 = "='Итоговая диаграмма'!$BN$57:$BN$" + Trim(Str(57 + RowCount - 1))
    Param2 = "='Итоговая диаграмма'!$BO$57:$BO$" + Trim(Str(57 + RowCount - 1))
     ActiveChart.SeriesCollection(1).Values = Param1
     ActiveChart.SeriesCollection(2).Values = Param2
Данный код предназначен для отсечения пустых строк в таблице с целью последующей постройки диаграммы.
Код  рабочий, в версиях 07-10 года Экселя стабильно работает. Работал и в 2003, но сегодня у человека перестал запускаться.
Ошибку выдает на следующие строки:
Код
ActiveChart.SeriesCollection(1).Values = Param1
ActiveChart.SeriesCollection(2).Values = Param2
Что нужно сделать чтобы всё заработало?
Переименование листов через VBA
 
Доброй ночи, уважаемые форумчане!
Есть таблица с исходными данными сотрудников (ФИО), на основании которого макрос присваивает имена листам. Изначально количество сотрудников было постоянным и равнялось 25 человек. Но появился нюанс, количество сотрудников стало непостоянным.

Прошу помощи в доработке кода. Необходимо чтобы при заполнении таблицы с ФИО сотрудников выполнялось следующее условие: незаполненные (пустые) столбцы оставались пустыми, но листу присваивался соответствующий порядковый номер из таблицы.  Классификатор.xls (97 КБ)
Собственно код:
Код
Sub Somecode()
    ActiveWorkbook.Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    Const ExpNumber = 25 'количество сотрудников
    Dim ExpNames(ExpNumber) As String
    
    Sheets("Перечень сотрудников"  ).Select
    Range("B4" ).Select
    If (ActiveCell.Offset(1, 0).Value <> 1 Or Trim(ActiveCell.Offset(1, 0).Value) <> "1"  )Then MsgBox ("В ячейке B5 должны начинаться номера сотрудников!!!!" )
    
    ' заносим имена сотрудников в массив
    For i = 1 To ExpNumber
        ExpNames(i) = Trim(ActiveCell.Offset(i, 1).Value)
    Next i
    ' завели имена сотрудников в массив
    
    For i = 1 To ExpNumber
        Sheets.Item(10 + i).Name = ExpNames(i)
    Next i
    
   Application.ScreenUpdating = True
   ActiveWorkbook.Application.Calculation = xlCalculationAutomatic
End Sub
Вот она, кнопочка [МОДЕРАТОР]
Изменено: Роман shs - 27.05.2014 09:56:05
Ссылка на лист в Vba
 
Нужна помощь с кодом.
Код
Лист15.ChartObjects(1).Activate
    Param1 = "=" + Лист15.Name ' + !$R$54:$R$" + Trim(Str(54 + RowCount - 1))
   ActiveChart.SeriesCollection(1).Values = Param1

Выдает ошибку 1004.
Проблема совместимости, Криво открывается файл.
 
Всем привет!
При пересылке экселевского файла обнаружилась ошибка совместимости версий.
Работал и создавал файл в 2010, отправил человеку с 2003.
Вылезла след. ошибка(см. прикрепленный файл).
Сохранил в совместимости с 2003.
Та же самая ошибка. Что можно с этим сделать?
Группировка столбцов
 
Добрый день!
Имеется матрица(таблица) текстовых значений (см. приложение), в которой указаны компетенции(виды деятельности).
Есть главная компетенция (выделена жирным), и у нее имеются подуровни.
Нужно было сделать так, чтобы при необходимости можно было скрыть и/или открыть подуровни.
Для этого была использована группировка данных, но она отлично работает только на одном ряду-столбце, а если столбцов больше двух то получается ерунда.
Крайние допустим скрываю, а с ними и значения в других столбцах...
Кто, что посоветует?!
Дополнительная линия в диаграмме
 
Доброго вечера!
Имеется таблица с 30 значениями по ним строится объемная гистограмма. Как к ней добавить(нанести) дополнительную горизонтальную линию которая будет строится по десятому значению?
Изменено: Galahard - 17.02.2014 17:51:35
Автоматическое ранжирование таблицы
 
Добрый вечер форумчане! Нужна помощь в доработке файла.
Программа рассчитана на расчет оценок по научно-техническим работам. Имеем исходную информацию по экспертам, по оцениваемым показателям и списку работ, которых нужно оценить.
Результат работ имеем следующий: одну итоговую диаграмму, 25 диаграмм по экспертам, 10 по показателям.

Нужна помощь в следующем:
1. Как сделать автоматическое ранжирование итоговой таблицы по убыванию с последующей постройкой диаграммы? Также нужна линия тренда, показывающая проходной балл, линия строится на основании оценки 10-й работы.
2. Автоподбор высоты строк в зависимости от длины названия работы.
3. Автоматическое название листов книги в зависимости от данных экспертов.
Изменено: Galahard - 14.02.2014 09:46:55
Замена при определенных условиях данных на пустые ячейки
 
Добрый день!
Как при помощи условного форматирования в таблице заменять значения "0" и "-" на пустые ячейки?!
Спасибо!
П.С. с нулем получается, а с тире нет.
Автоматическое изменение имени листов
 
Добрый день!
Нужна помощь в следующем.
Имеем входную таблицу с начальными данными по 25 (ФИО) сотрудникам.
На каждого сотрудника есть лист с более полной и конкретной информацией.
Нужно чтобы при изменении данных в исходной таблице: увольнении сотрудника, изменении фамилии менялось название листа.
Сбор экспертных оценок, Анализ экспертных оценок по НТС
 
Доброй ночи уважаемые профессионалы!
Нужна в помощь в составлении программы для счета экспертных оценок по научно-техническим средствам.
Есть 10 показателей по которым оценивается одна разработка (Итоговая оценка по разработке является среднеарифметическая сумма баллов, которые ставит эксперт. Баллы ставятся от 1-8), 25 экспертов которые оценивают эти разработки (средства) и  х-неопределенное количество, оцениваемых работ.

Есть два листа входной информации:
1. Перечень экспертов с коэф. весомости эксперта
2. Перечень показателей с коэф. весомости показатели.

Выходные формы:
25 форм по среднеарифметическим оценкам эксперта, 10 по среднеарифметическим оценкам по показателям и 1 одна итоговая. Каждая таблица должна быть с графиком оценок.

Первая "загвоздка": Бывает так, что эксперт вместо 1-8 баллов, ставит "0" или "-", тем самым говоря, что у него не достаточно знаний для оценки НТС. Следовательно итоговая оценка по работе должна содержать среднеарифметическую сумму за вычетом нулевых оценок. Этот вопрос решается, счетесли и суммойесли... Если есть более простые способы решения жду, вариантов.
Вторая проблема. Проблема с количеством работ, которых может от 1 и до бесконечности, как это можно учитывать? возможно чтобы в таблице экспертных оценок, автоматически  добавлялась строка или пишу, что работ будет 5 и таблица создает пять строк под заполнение работ.
Либо сделать таблицу на бОльшее количество работ на 50, но тут возникает вопрос с графиками, как сделать чтобы на графике  не отражались пустые или нулевые ячейки?

Получилось крайне сумбурно....Надеюсь на Вашу помощь
Страницы: 1
Наверх