ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / работа с формами
15 сообщений из 15, страница 1 из 1
работа с формами
    #37393414
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Привет ребята! Сейчас мучаюсь в ЕКСЕЛЬ над созданием маленькой БД и типа "автоматизации" своей работы...
Есть файл у меня. Там есть форма с закладкой ОБРАБОТКА. В который есть ComboBox1 - это название "планограммы" и ListBox1 - там находится список магазинов. Суть проблемы такова. Нужно каким-то образом в Екселе сделать таблицу типа Ид_планограммы и Идмагазина.
То есть при выборе планограммы определенной. мне нужно проставить галочки напротив магазинов.
Это будет так:
ид-планограммы и-магазина
3 10
3 15
3 26
4 10
4 15
и т.д.
не могу сейчас придумать как это сделать... помогите кто может ))) в Акссес это легко
...
Рейтинг: 0 / 0
12.08.2011, 18:42
| Ответить | Цитировать | Написать  
работа с формами
    #37393426
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Таблица соответствия планограмма-город - отдельным листом заводить?
...
Рейтинг: 0 / 0
12.08.2011, 18:53
| Ответить | Цитировать | Написать  
работа с формами
    #37393437
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
AndreTM,
ну можно и отдельным ))) а можно и на том же. planogramm
...
Рейтинг: 0 / 0
12.08.2011, 19:02
| Ответить | Цитировать | Написать  
работа с формами
    #37393475
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Типа так... тупо и прямо реализовано, но вроде работает...
...
Рейтинг: 0 / 0
12.08.2011, 19:42
| Ответить | Цитировать | Написать  
работа с формами
    #37393618
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Так, до кучи: заодно ведь надо и привязывание изменений сделать?
Так что другой вариант приложен, опять же тупой, но работающий
...
Рейтинг: 0 / 0
12.08.2011, 22:59
| Ответить | Цитировать | Написать  
работа с формами
    #37395432
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
AndreTM,
спасибо за помощь... Пока не особо разобрался как оно работает Мне нужно сейчас черновой вариант склепать...
Подскажите по такой штуке. Есть у меня такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim Vb, firstAddress
Dim d, s, c
Vb = Me.ComboBox2.Value
With Worksheets( 1 ).Range("f1:f500")
    Set c = .find(Vb, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address(ReferenceStyle:=xlR1C1)
           Do
           c.Delete Shift:=xlUp
          
       Loop While c Is Nothing
    End If
End With
К примеру firstAddress = R3C6 . Код очищает значение по этому адресу и удаляет его со сдвигом в вверх. А мне бы еще хотелось бы удалить значение которое находится рядом, то есть R3C7
и того удалить R3C6 и R3C7 вместе. Не знаю как можно переменную firstAddress сдвинуть на один столбец в право...
подскажите.
спс
...
Рейтинг: 0 / 0
15.08.2011, 11:52
| Ответить | Цитировать | Написать  
работа с формами
    #37395477
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
-O_o-,

range(c,c.offset(,1)).Delete Shift:=xlUp
...
Рейтинг: 0 / 0
15.08.2011, 12:09
| Ответить | Цитировать | Написать  
работа с формами
    #37395492
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
-O_o-, строку
firstAddress = c.Address(ReferenceStyle:=xlR1C1)
удалите вообще. Она там не нужна. Просто мусор.
...
Рейтинг: 0 / 0
15.08.2011, 12:12
| Ответить | Цитировать | Написать  
работа с формами
    #37395516
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
kuklp,
а не могли бы вы мне расписать это - range(c,c.offset(,1))
range( c - это равно к примеру "5", c.offset(,1) - это мне не понятно чему оно равно)
спасибо.
...
Рейтинг: 0 / 0
15.08.2011, 12:21
| Ответить | Цитировать | Написать  
работа с формами
    #37395678
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
-O_o-kuklp,
а не могли бы вы мне расписать это - range(c,c.offset(,1))
range( c - это равно к примеру "5", c.offset(,1) - это мне не понятно чему оно равно)
спасибо.
про offset я почитал. там можно задать несколько колонок или строк подряд удалять, разобрался...
Подскажите еще по одной фишке. Как обновить массив в Combobox3 (создание форматов).
Просто когда добавляю/удаляю группу там инфа не обновляется... как ее обновить после событий удаления/добавления?
Спасибо.
...
Рейтинг: 0 / 0
15.08.2011, 13:09
| Ответить | Цитировать | Написать  
работа с формами
    #37396493
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
-O_o-,

насколько понял:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub CommandButton2_Click() ' добавление групп
Dim name As String
...
              Me.TextBox1.Value = ""
    End If
End With
[color=red]Call UserForm_Initialize[/color]
End Sub
так же на удаление.
...
Рейтинг: 0 / 0
15.08.2011, 18:51
| Ответить | Цитировать | Написать  
работа с формами
    #37396521
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
kuklp,
шо за остатки:
End If
End With
...
Рейтинг: 0 / 0
15.08.2011, 19:09
| Ответить | Цитировать | Написать  
работа с формами
    #37396597
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Ципихович Эндрю,
Нет смысла ради одной строки приводить весь макрос автора. А остатки для того, чтоб было понятно КУДА вставлять строку.
...
Рейтинг: 0 / 0
15.08.2011, 20:18
| Ответить | Цитировать | Написать  
работа с формами
    #37396660
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
kuklp,
спасибо. просто не знал как обратиться к форме что бы ее обновить
...
Рейтинг: 0 / 0
15.08.2011, 21:19
| Ответить | Цитировать | Написать  
работа с формами
    #37413208
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
Ребятки привет!
Выручайте пожалуйста... Нет на новой работе Access Сижу тр****ю себе мозГ в Excel...
То что я писал в начале топика:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Есть файл у меня. Там есть форма с закладкой ОБРАБОТКА. В который есть ComboBox1 - это название "планограммы" и ListBox1 - там находится список магазинов. 
Суть проблемы такова. Нужно каким-то образом в Екселе сделать таблицу типа Ид_планограммы и Идмагазина (что-то на подобии как реляционных БД "связующую таблицу"). 
То есть при выборе планограммы определенной. мне нужно проставить галочки напротив магазинов. 
Это будет так: 
ид-планограммы и-магазина
 3   10  
 3   15 
 3   26 
 4   10 
 4   15 
и т.д.
Мне предложили вариант... но мне так же нужно что бы если планограмма удалялась, то сносились все связи которые связаны с этой планограммой... как-то так )))
...
Рейтинг: 0 / 0
26.08.2011, 11:50
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / работа с формами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37413208&tid=2176556]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 233ms
total:  395ms
созд. / загр.: 395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]