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

Страницы: 1
Градуировка шкалы из диапазона
 
#
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/ч и мне нужно максимально сгладить их к низу, шаг с верха должен быть больше, а к низу меньше. Я думаю вы меня поняли, как и то, что я не силен в математике... Прилагаю рабочую таблицу для расчета точек. Пожалуйста помогите.
 
Перейти    
Подсветка значения красным при не попадании в диапазон
 
#
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: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 17:37:53
Здравствуйте, помогите сделать систему отбора нужных мне значений из таблицы. Есть заполненная таблица с которой отмечая флажками строки с данными должны перемещаться во вторую таблицу и возвращаться обратно при де активации флажка. Как это можно сделать?

Изменено: Trumbo - 01.10.2017 17:38:18
 
Перейти    
Разделить разные данные цветами на графике
 
#
30.09.2017 23:25:10
Помогите пожалуйста разделить данные цветами на графике в зависимости от типа жидкости. Нужно понимать как стыкуются кривые и делать на их основе делать правки. Есть 7 значений Diesel и Oil - как их можно окрасить на графике в присвоенный им цвет? Или подумать над альтернативным методом восприятия информации, буду очень признателен и благодарен.
 
Перейти    
Выполнить заливку строки в зависимости от цвета ячейки
 
#
30.09.2017 23:13:32
Здравствуйте, помогите с:
Выполнить заливку строки в зависимости от цвета ячейки. Ячейка меняет цвет, а строки нет.

Собственно буду очень признателен  
 
Перейти    
Отсеивание данных из множества таблиц
 
#
13.09.2017 23:08:53
Всем привет! Хочу отсеивать данные из их множества таблиц путем выбора(якобы много чик боксов). Другой вопрос как реализовать? Пример во вложении, думаю все понятно.
 
Перейти    
Страницы: 1
Наверх