Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заливка выбранной ячейки заданным цветом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заливка выбранной ячейки заданным цветом (Формулы/Formulas)
Заливка выбранной ячейки заданным цветом
Volt Дата: Четверг, 06.09.2018, 00:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Нужно сделать таблицу.
1-Есть таблица с ячейками, пронумерованными от 1 до 3200. и
2я- таблица названиями(в столбик) и в следующей(соседней) ячейки, любые номера через запятую в произвольном порядке. В диапазоне таком же как в первой таблице.
Название1 151,25,23,289,1562
название2 1,2564,236,52,8,9
название3 6,89
...........
Название20 58,9,5,23,56,98,69,456,2639,5,789,1987,3010
и так далее.
При клике по любому из названий в таблице№2, ячейки в таблице №1 меняли цвет.(по выбору пользователя)
Пример. кликаем по названию3(в таблице2)
Ячейки меняют цвет соответствующим цифрам =6,89 в таблице№1

Извиняюсь если некорректно объясненил.


Сообщение отредактировал китин - Понедельник, 10.09.2018, 07:21
 
Ответить
СообщениеНужно сделать таблицу.
1-Есть таблица с ячейками, пронумерованными от 1 до 3200. и
2я- таблица названиями(в столбик) и в следующей(соседней) ячейки, любые номера через запятую в произвольном порядке. В диапазоне таком же как в первой таблице.
Название1 151,25,23,289,1562
название2 1,2564,236,52,8,9
название3 6,89
...........
Название20 58,9,5,23,56,98,69,456,2639,5,789,1987,3010
и так далее.
При клике по любому из названий в таблице№2, ячейки в таблице №1 меняли цвет.(по выбору пользователя)
Пример. кликаем по названию3(в таблице2)
Ячейки меняют цвет соответствующим цифрам =6,89 в таблице№1

Извиняюсь если некорректно объясненил.

Автор - Volt
Дата добавления - 06.09.2018 в 00:19
китин Дата: Четверг, 06.09.2018, 07:08 | Сообщение № 2
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5103
Репутация: 809 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Volt, Поменяйте название темы,предложите новое название, модераторы поменяют, и приложите файл-пример с вашими хотелками. в файле можно просто нарисовать то, что вы хотите ручками


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеVolt, Поменяйте название темы,предложите новое название, модераторы поменяют, и приложите файл-пример с вашими хотелками. в файле можно просто нарисовать то, что вы хотите ручками

Автор - китин
Дата добавления - 06.09.2018 в 07:08
StoTisteg Дата: Четверг, 06.09.2018, 10:17 | Сообщение № 3
Группа: Авторы
Ранг: Старожил
Сообщений: 1038
Репутация: 88 ±
Замечаний: 0% ±

Excel 2010
И ещё такое ощущение, что ТС описывает не задачу, а своё представление о решении...


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеИ ещё такое ощущение, что ТС описывает не задачу, а своё представление о решении...

Автор - StoTisteg
Дата добавления - 06.09.2018 в 10:17
RAN Дата: Четверг, 06.09.2018, 11:09 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4880
Репутация: 974 ±
Замечаний: 0% ±

2010
предложите новое название, модераторы поменяют

Подумал, не на Планету ли попал? :D


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
предложите новое название, модераторы поменяют

Подумал, не на Планету ли попал? :D

Автор - RAN
Дата добавления - 06.09.2018 в 11:09
Volt Дата: Четверг, 06.09.2018, 18:08 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Пробую прикрепить файл.
К сообщению приложен файл: 3776448.xlsx(28.6 Kb)
 
Ответить
СообщениеПробую прикрепить файл.

Автор - Volt
Дата добавления - 06.09.2018 в 18:08
StoTisteg Дата: Пятница, 07.09.2018, 10:26 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1038
Репутация: 88 ±
Замечаний: 0% ±

Excel 2010
Вы лучше тему переименовать попробуйте. Например в "Заливка выбранной ячейки заданным цветом". А то задача-то довольно тривиальная, но помощи Вы не получите, пока не будет осмысленного названия темы.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеВы лучше тему переименовать попробуйте. Например в "Заливка выбранной ячейки заданным цветом". А то задача-то довольно тривиальная, но помощи Вы не получите, пока не будет осмысленного названия темы.

Автор - StoTisteg
Дата добавления - 07.09.2018 в 10:26
_Boroda_ Дата: Пятница, 07.09.2018, 10:37 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13487
Репутация: 5522 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вы лучше тему переименовать попробуйте

Уже не получится. Редактирование постов не администрацией возможно только в течение суток.
Остается только предложить свое название темы, а
модераторы поменяют
.
Игорь, ты провидец?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Вы лучше тему переименовать попробуйте

Уже не получится. Редактирование постов не администрацией возможно только в течение суток.
Остается только предложить свое название темы, а
модераторы поменяют
.
Игорь, ты провидец?

Автор - _Boroda_
Дата добавления - 07.09.2018 в 10:37
китин Дата: Пятница, 07.09.2018, 11:30 | Сообщение № 8
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5103
Репутация: 809 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
[offtop]
Игорь, ты провидец?

неа, просто не выспался


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение[offtop]
Игорь, ты провидец?

неа, просто не выспался

Автор - китин
Дата добавления - 07.09.2018 в 11:30
Volt Дата: Понедельник, 10.09.2018, 01:12 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вы лучше тему переименовать попробуйте. Например в "Заливка выбранной ячейки заданным цветом". А то задача-то довольно тривиальная, но помощи Вы не получите, пока не будет осмысленного названия темы.

по моему нет прав таких на изменение.
 
Ответить
Сообщение
Вы лучше тему переименовать попробуйте. Например в "Заливка выбранной ячейки заданным цветом". А то задача-то довольно тривиальная, но помощи Вы не получите, пока не будет осмысленного названия темы.

по моему нет прав таких на изменение.

Автор - Volt
Дата добавления - 10.09.2018 в 01:12
китин Дата: Понедельник, 10.09.2018, 07:22 | Сообщение № 10
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5103
Репутация: 809 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Поменял название темы


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеПоменял название темы

Автор - китин
Дата добавления - 10.09.2018 в 07:22
StoTisteg Дата: Понедельник, 10.09.2018, 12:00 | Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1038
Репутация: 88 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
   If Not Intersect(Target, Columns(3)) Is Nothing Then Columns(3).Replace What:=".", Replacement:=",", LookAt:=xlPart

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim Numbs() As String
   Dim Numb As Variant
   Dim cell As Range
   
   If Target.Count = 1 Then
      With Worksheets(2)
         If InStr(1, Target.Value, "Название", vbTextCompare) > 0 Then
            .UsedRange.Interior.Color = Cells(1, 6).Interior.Color
            Numbs = Split(Target.Offset(, 1), ",", -1, vbTextCompare)
            For Each Numb In Numbs
               Set cell = .UsedRange.Find(What:=Numb, LookIn:=xlValues, LookAt:=xlWhole)
               If Not cell Is Nothing Then cell.Interior.Color = Cells(8, 6).Interior.Color
            Next Numb
         End If
         If Not Intersect(Target, Cells(8, 6)) Is Nothing Then
            For Each cell In .UsedRange
               If cell.Interior.Color <> Cells(1, 6).Interior.Color Then cell.Interior.Color = Target.Interior.Color
            Next cell
         End If
      End With
   End If

End Sub
[/vba]в модуль листа 1. В ячейке 1,6 хранится образец стандартного цвета таблицы.
К сообщению приложен файл: 8538755.xlsm(38.1 Kb)


Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Понедельник, 10.09.2018, 14:56
 
Ответить
Сообщение[vba]
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   
   If Not Intersect(Target, Columns(3)) Is Nothing Then Columns(3).Replace What:=".", Replacement:=",", LookAt:=xlPart

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim Numbs() As String
   Dim Numb As Variant
   Dim cell As Range
   
   If Target.Count = 1 Then
      With Worksheets(2)
         If InStr(1, Target.Value, "Название", vbTextCompare) > 0 Then
            .UsedRange.Interior.Color = Cells(1, 6).Interior.Color
            Numbs = Split(Target.Offset(, 1), ",", -1, vbTextCompare)
            For Each Numb In Numbs
               Set cell = .UsedRange.Find(What:=Numb, LookIn:=xlValues, LookAt:=xlWhole)
               If Not cell Is Nothing Then cell.Interior.Color = Cells(8, 6).Interior.Color
            Next Numb
         End If
         If Not Intersect(Target, Cells(8, 6)) Is Nothing Then
            For Each cell In .UsedRange
               If cell.Interior.Color <> Cells(1, 6).Interior.Color Then cell.Interior.Color = Target.Interior.Color
            Next cell
         End If
      End With
   End If

End Sub
[/vba]в модуль листа 1. В ячейке 1,6 хранится образец стандартного цвета таблицы.

Автор - StoTisteg
Дата добавления - 10.09.2018 в 12:00
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заливка выбранной ячейки заданным цветом (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!