Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
как создать конструктор планограмм
 
#1
27.07.2012 11:37:19
Всем привет!Помогите создать конструктор планограмм. необходимо чтобы при перетаскивании картинки ассортимента в ячейку планограммы (слева) в таблице ассортимента (Справа) автоматически отображалось его название.Это возможно в Excel?
 
 
 
#2
27.07.2012 12:17:28
Хотелось бы узнать для чего это необходимо? Задачка то не из простых. (хоть и интересная)
Учимся сами и помогаем другим...
 
 
 
#3
27.07.2012 12:23:56
В принципе можно, но сначала необходимо обозвать все рисунки соответствующими именами. Но работы много. Кроме того возникнет масса вопросов. Например, что делать, если рисунок вытащим из ячейки за пределы таблицы, или переместим его в другую ячейку?
 
 
 
#4
27.07.2012 12:34:55
off А может сначала в нэте побродить, да по складскому учету пошарить - спец программ по контейнерам, поддонам и прочей бочко-таре море?.. Иль это очередное учебно-тренировочное задание по xl-извращениям?.. В поиск - программы по планограммам, как?.. ;) -68058-
 
 
 
#5
28.07.2012 15:31:23
На основе кода ZVI по перемещению фигур.
 
 
 
#6
30.07.2012 08:55:38
то что нужно!!!расскажите плиз алгоритм действий!!!
 
 
 
#7
30.07.2012 09:04:09
Алгоритм действий описал на листе :-) Сначала выделяем ячейку, затем выбираем фигуру. Вот и все действия.
 
 
 
#8
30.07.2012 09:15:45
Как пользоваться- понятно, а как создать с другими картинками и с другим полем выкладки? очень нужно))))
 
 
 
#9
30.07.2012 09:21:02
{quote}{login=BAT}{date=30.07.2012 09:15}{thema=}{post}...а как создать с другими картинками и с другим полем выкладки? очень нужно)))){/post}{/quote}  
Off BAT! Вам срочно понадобились новые штиблеты - где взять?.. Не вопрос - купить!.. Так и с вашей планохотелкой - заказыйвайте, если сами не можете, искать не хотите или лень... Все просто, как день... ;) -60880-
 
 
 
#10
30.07.2012 09:24:31
Спасибо тебе, самый умный
 
 
 
#11
30.07.2012 09:37:10
{quote}{login=BAT}{date=30.07.2012 09:24}{thema=}{post}Спасибо тебе...{/post}{/quote}  
Всегда пожалуйста!  
- http://www.planogram.ru/ ...  
- http://www.retailexperts.ru/Article/merchandising/postid/own_news/18 ...  
- http://otvety.google.ru/otvety/thread?tid=7250194162bd3dca ...  
- ...    
ps Помогают тем, кто хоть что-то чуть-чуть пытается делать сам... ;)  -65639-
 
 
 
#12
30.07.2012 09:41:06
{quote}{login=BAT}{date=30.07.2012 09:15}{thema=}{post}как создать с другими картинками и с другим полем выкладки? очень нужно)))){/post}{/quote}Вариант 1. Добавляем автофигуры и нумеруем ячейки в обоих таблицах.  
Вариант 2. Если нужно что-то другое, или не получается, читаем сообщение Z от 30.07.2012, 09:21
 
 
 
#13
01.08.2012 17:03:55
{quote}{login=Юрий М}{date=28.07.2012 03:31}{thema=Интереса ради :-)}{post}На основе кода ZVI по перемещению фигур.{/post}{/quote}  
 
Всем привет!Подскажите пожалуйста,что нужно изменить в макросе,чтобы в список выводились заместо имен надписи с фигур.
 
 
 
#14
01.08.2012 20:17:41
Попробуйте так: DrawingObjects("ИмяФигуры").Characters.Text
 
 
 
#15
01.08.2012 21:26:44
Простите за тупость, не получается  строку прилепить:)  
Вот код:  
Sub GotoCell()  
Dim Rng As Range  
   If AllRight = False Then MsgBox "Выделена ячейка за пределами таблицы ПЛАНОГРАММА. Повторите попытку", 48, " Ошибка": Exit Sub  
Object1 = Application.Caller  
   With Sheets("Лист1")  
       Obj1ToObj2 .Shapes(Object1), .Range(Object2)  
   End With  
   Set Rng = Columns(13).Find(what:=iNumber, LookIn:=xlFormulas, lookAt:=xlWhole)  
   If Not Rng Is Nothing Then  
       Rng.Offset(0, 1) = Application.Caller  
   End If  
End Sub
 
 
 
#16
02.08.2012 00:25:21
Замените строку:  
Rng.Offset(0, 1) = Application.Caller  
на такую:  
Rng.Offset(0, 1) = ActiveSheet.DrawingObjects(Object1).Characters.Text
 
 
 
#17
02.08.2012 02:53:17
Спасибо,все отлично работает. И если можно,еще один маленький вопрос:)  
При перемещении фигур вверх - вниз (по прямой) выскакивает ошибка №6 "Overflow" (переполнение).  
Выделяет строку:  
y = (x2 * y1 - x1 * y2 - (y1 - y2) * x) / (x2 - x1)  
Хотя при других перемещениях все нормально. Можно ли это исправить?
 
 
 
#18
02.08.2012 02:57:10
Эта часть кода не моя. Может быть ZVI заглянет...
 
 
 
#19
02.08.2012 07:52:34
Заглянул :-)  
В примере Юрия все работает и по горизонтали, и по вертикали - проверьте.  
Если что-то не работает в другой реализации, то нужен пример этой реализации с ошибкой.
 
 
 
#20
03.08.2012 02:31:05
Чудеса! Пришлось сегодня переустанавливать винду,и офис соответсвено.Перед тем как написать ответ,решил еще раз открыть файл, и ....оказалось что все уже работает.Пардон,за ложную тревогу.:)    
Юрий М и ZVI,спасибо за макрос.
 
 
 
#21
03.08.2012 11:23:40
Тревога не совсем ложная: у меня вертикальное перемещение тоже не работает.
 
 
 
#22
03.08.2012 13:55:07
Странно,но  у меня именно после переустановки начало нормально работать... Может еще кто-нибудь поиграет в пятнашки,и отпишется  как у него работает:)
 
 
 
#23
03.08.2012 14:01:55
Как проверялось: поместил фигуру в Е6, а затем пытаюсь переместить её в Е5 - получаю ту же ошибку, что и у Вас.  
P.S. Систему переустанавливать не буду :-)
 
 
 
#24
03.08.2012 15:24:52
Да уж,систему переустанавливать это уже слишком:)  
Возник еще один вопрос,если можно помогите пожалуйста.  
При перемещении фигуры в другую ячейку наименование подставляется в список по новому адресу,но старый адрес(в списке)не очищается. Возможно так сделать,чтобы в новом адресе подставлялось наименование,а в старом удалялась?
 
 
 
#25
03.08.2012 15:31:04
Всем хорошего дня!  
 
Отличный макрос =)  
 
Единственное "НО", если изменяется расположение таблицы с названием картинок (N:M), например, если нужно увеличить диапазон для вставки картинок, макрос перестает работать.  
 
Помогите, пожалуйста, разобраться, что нужно поменять в коде.  
 
Спасибо.
 
 
 
#26
03.08.2012 15:47:16
Ронни, для начала нужно определить координаты фигуры (над какой ячейкой она находится), затем проверить - пересекается ли это с нашей таблицей. Если да, то посмотреть номер в ячейке, найти это значение в правой таблице и очистить соседнюю ячейку.  
Ключевое здесь - определить координаты фигуры. Подобные темы на форуме были. Попробуйте поиском.
 
 
 
#27
03.08.2012 15:49:56
Valeriya, найдите в коде такую строку:  
Set Rng = Columns(13).Find(what:=iNumber, LookIn:=xlFormulas, lookAt:=xlWhole)  
13 - это номер столбца "М". Поменяйте под свои нужды.
 
 
 
#28
03.08.2012 16:13:53
Ронни, проверьте вариант с очисткой.
 
 
 
#29
03.08.2012 16:28:03
Спасибо Юрий,все отлично работает!
 
 
 
#30
03.08.2012 16:30:16
Valeriya,как у Вас с перемещением фигурок,ошибку не выдает?
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх