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

Страницы: 1
Градуировка шкалы из диапазона
 
#
31.10.2017 08:14:36
Казанский, Ваше решение очень мне подходит, но скрытые строки не спроста. В зависимости от количества точек которые я указываю в ячейках строки сами скрываются и показываются кроме последней строки т.к. это максимальное значение которое есть константа. Подскажите пожалуйста, как сделать что то вроде этого?
Код
  For i = 4 To 36 Step 1
      Range("C" & i).Value = Evaluate(Replace("INDEX(ROUND(#,-TRUNC(LOG10(#/2))),)", "#",(, , Application.ReferenceStyle)))
  Next i
Адаптирую сам уже. И мат часть если можно как работает :)  
 
Перейти    
Градуировка шкалы из диапазона
 
#
30.10.2017 09:29:42
Доброе утро, господа!

Стоит нестандартная задача - найти формулу, которая разбивала бы значения из диапазона. Например есть у меня диапазон 90 и 2200:
  1. 90
  2. 442
  3. 793
  4. 1145
  5. 1497
  6. 1848
  7. 2200
Тут все понятно я взял (MAX-MIN)/NUMBERS_OF_POINT+BACK_POINT.

Помогите вот в чем, диапазон может быть разный от 15 до 380 и от 1000 до 20000, а количество точек от 6 до 32. Как получить разбитие точек такого характера:
  1. 90
  2. 200
  3. 400
  4. 700
  5. 1200
  6. 1600
  7. 2200
Собственно это точки расхода(в которых надо поверять) м3/ч и мне нужно максимально сгладить их к низу, шаг с верха должен быть больше, а к низу меньше. Я думаю вы меня поняли, как и то, что я не силен в математике... Прилагаю рабочую таблицу для расчета точек. Пожалуйста помогите.
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 19:58:18
Ігор Гончаренко, Это все не то... Я за кардинальные методы решения, можно же доработать мой код? Пусть он выполняется по событию изменению данных... :)

Как то вот так например:
Код
    For i = 3 To 35 Step 1
        Range("F" & i).Font.ColorIndex = xlAutomatic
        If Range("H" & i).Value = Settings.Range("B6").Value Then
            If Range("F" & i).Value < Settings.Range("D6").Value Then
                Range("F" & i).Font.Color = -16777024
            ElseIf Range("F" & i).Value > Settings.Range("E6").Value Then
                Range("F" & i).Font.Color = -16777024
            End If
        End If
     Next i
Изменено: Trumbo - 09.10.2017 20:10:17
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 18:47:02
up
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 09:36:48
Ігор Гончаренко, Спасибо за труды но я уже выше говорил, что условное форматирование не подходит ввиду перемещения row...
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 00:39:55
Юрий М, C, D, E, G, H проще сказать там где нет формул, а что?
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 00:34:41
Юрий М, Лист Settings
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 00:30:43
Юрий М, Здравствуйте. Ввожу(формула считает на основе других данных) с F3 по F35 и при необходимости перебрасываю их с P3 по P35  :)  
Изменено: Trumbo - 09.10.2017 00:31:22
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
09.10.2017 00:03:58
Jungl, Нет, потому как там происходит вырезание row макросом
Изменено: Trumbo - 09.10.2017 00:04:09
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
08.10.2017 22:49:25
Здравствуйте помогите пожалуйста сделать подсветку значения красным цветом. Смысл то в чем, я вот вбил данные и понимаю, что они не вкладываются в мой диапазон и знаю, что надо переделывать. Наверное будет хорошо делать это по изменениям в ячейке. Прошу помощи :)



Настройки диапазонов:



Я наверное пошел не тем путем:
Код
     For i = 3 To 35 Step 1
     If Range("H" & i).Value = Settings.Range("B6").Value Then
        If Range("F" & i).Value < Settings.Range("D6").Value Then
            Range("F" & i).Font.Color = -16777024
        Else
            Range("F" & i).Font.ColorIndex = xlAutomatic
        End If

        If Range("F" & i).Value > Settings.Range("E6").Value Then
            Range("F" & i).Font.Color = -16777024
        End If
     End If
     Next i
Изменено: Trumbo - 10.10.2017 13:38:43
 
Перейти    
If Not Intersect(Target, - ссылка на другой лист
 
#
01.10.2017 23:26:10
Ігор Гончаренко, Понял спасибо
 
Перейти    
If Not Intersect(Target, - ссылка на другой лист
 
#
01.10.2017 23:17:07
Здравствуйте помогите найти ошибку в коде, ругается на:
Код
If Not Intersect(Target, Settings.Range("C4")) Is Nothing Then

Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, d As Integer
d = Settings.Range("C4").Value
    If Not Intersect(Target, Settings.Range("C4")) Is Nothing Then
        Application.EnableEvents = False
            Application.ActiveSheet.Rows("5:36").Hidden = False
            a = d + 4
            Rows(a & ":35").Hidden = True
            Range("B36") = d
            Application.ActiveSheet.Rows("41:70").Hidden = False
            a = d + 40
            Rows(a & ":71").Hidden = True
            Range("B72") = d
    End If
        Application.EnableEvents = True
End Sub
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 22:17:13
Юрий М, Спасибо!
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 22:00:18
Юрий М, Если честно нет, помогите пожалуйста
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 21:52:53
Юрий М, Да то, что нужно, Вы очень помогли мне. А действительно как сделать так что бы цвет границ ячеек не "выедало"?
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 18:45:35
Юрий М, Да, конечно можно добавить :)  
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 18:40:42
Юрий М, Нумерацию No. можно вообще не трогать, она одинакова для обеих таблиц и поскольку мы ее пересортировываем в новой таблице то она будет другая. Возвращая на "старое место" хотелось бы, что бы она вернулась где была. Это реально? Если нет тогда нет.
Изменено: Trumbo - 01.10.2017 18:41:23
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 18:22:33
Юрий М, Да. То есть я выбираю, что необходимо и формируется новая таблица по порядку :)  
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 18:14:28
Юрий М, Я про строку с номером 0. Переформулирую: к примеру мне надо 5 и 7(по No.) строку перебросить на вторую таблицу. Беру и ставлю на них двойны кликом отметки и они становятся во второй таблице 0 и 1(по No.). Мне просто нужно отсортировать в нужном порядке данные, но их мне нужно выбирать в ручную. Можете помочь, если это вообще возможно?
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 17:56:39
Юрий М, А в первую строку как? Тесть у меня же с верху пустота получается, как бы начинать с верху заполнять? Форматирование плывет...
Изменено: Trumbo - 01.10.2017 18:02:31
 
Перейти    
Отбор и перенос значений из таблицы
 
#
01.10.2017 17:37:53
Здравствуйте, помогите сделать систему отбора нужных мне значений из таблицы. Есть заполненная таблица с которой отмечая флажками строки с данными должны перемещаться во вторую таблицу и возвращаться обратно при де активации флажка. Как это можно сделать?

Изменено: Trumbo - 01.10.2017 17:38:18
 
Перейти    
Разделить разные данные цветами на графике
 
#
01.10.2017 15:46:22
Андрей VG, Спасибо, переосмыслил
 
Перейти    
Разделить разные данные цветами на графике
 
#
01.10.2017 14:24:38
Вообщем никто не знает, это плохо
 
Перейти    
Разделить разные данные цветами на графике
 
#
01.10.2017 01:09:22
Макрос отказывается работать:
Код
Sub SetChartColorsFromDataCells()
 
    If TypeName(Selection) <> "ChartArea" Then
        MsgBox "Сначала выделите диаграмму!"
        Exit Sub
    End If
    Set c = ActiveChart
    For j = 1 To c.SeriesCollection.Count
        f = c.SeriesCollection(j).Formula
        m = Split(f, ",")
        Set r = Range(m(2))
 
        For i = 1 To r.Cells.Count
            c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
                r.Cells(i).Interior.Color
        Next i
    Next j
End Sub

Меняю
Код
r.Cells(i).Interior.Color
на
Код
r.Cells(i).DisplayFormat.Interior.Color
Получаю ошибку
 
Перейти    
Разделить разные данные цветами на графике
 
#
30.09.2017 23:48:05
Юрий М, Не подходит т.к. цвета присваиваются с помощью условного форматирования :sceptic:  
 
Перейти    
Разделить разные данные цветами на графике
 
#
30.09.2017 23:25:10
Помогите пожалуйста разделить данные цветами на графике в зависимости от типа жидкости. Нужно понимать как стыкуются кривые и делать на их основе делать правки. Есть 7 значений Diesel и Oil - как их можно окрасить на графике в присвоенный им цвет? Или подумать над альтернативным методом восприятия информации, буду очень признателен и благодарен.
 
Перейти    
Выполнить заливку строки в зависимости от цвета ячейки
 
#
30.09.2017 23:21:13
Юрий М, Спасибо, Юрий
 
Перейти    
Выполнить заливку строки в зависимости от цвета ячейки
 
#
30.09.2017 23:13:32
Здравствуйте, помогите с:
Выполнить заливку строки в зависимости от цвета ячейки. Ячейка меняет цвет, а строки нет.

Собственно буду очень признателен  
 
Перейти    
Отсеивание данных из множества таблиц
 
#
14.09.2017 07:44:28
gling, Спасибо, работает. Но как быть с ГОСТом? если еще одну формулу, через + добавляю не работает
Изменено: Trumbo - 14.09.2017 07:44:35
 
Перейти    
Отсеивание данных из множества таблиц
 
#
13.09.2017 23:08:53
Всем привет! Хочу отсеивать данные из их множества таблиц путем выбора(якобы много чик боксов). Другой вопрос как реализовать? Пример во вложении, думаю все понятно.
 
Перейти    
Страницы: 1
Наверх