|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.05.2013, 14:50 | #1 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
Ищу подсказок по VBA excel новичку
Помогите начинающему! пытаюсь сделать следующее:
по артикулу найти в списке (sheet1) позицию (допустим, столбик 1 - артикул, столбик 2 - наименование, столбик 3 - количество), форму и кнопки сделал - открывается окно, где вводится артикул, вторым идет количество. По нажатию кнопки запись надо найти по артикулу на первом листе, взять кол-во из этой же строки, увеличить на новое количество, записать в ячейку. Далее тоже не просто, надо по количеству пересчитать остатки на складе ))) Но с этим позже )) |
27.05.2013, 16:08 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Find
Это подсказка
webmoney: E265281470651 Z422237915069 R418926282008
|
27.05.2013, 17:17 | #3 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
Спасибо за помощь!!!
Последний раз редактировалось stasun; 27.05.2013 в 20:01. |
27.05.2013, 17:21 | #4 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
О!!!
Кстати помогло! Еще маааленький вопрос! Мона? 8) Если в TextBox ввели что то - это что то будет доступно для других модулей и функций??? |
27.05.2013, 17:22 | #5 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Я не понял - это сарказм или благодарность?
По делу - если бы Вы приложили пример файла с наработанным - уже вероятно был бы готовый код, там работы меньше, чем писать обстоятельное обьяснение как это можно сделать если например данные вот такие, а как если вот такие...
webmoney: E265281470651 Z422237915069 R418926282008
|
27.05.2013, 17:24 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
"Если ввели..." - зависит как, куда и чем закончилось...
Но всегда можно привлечь публичных P.S. Вот наваял топором... Без публичных. Покликайте там...
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 27.05.2013 в 17:29. |
27.05.2013, 19:03 | #7 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
Это не сарказм! Благодарю!!!!
Кода как такового нет еще - это лишь форма,, обработка работает лишь при нажатии на кнопки в листе и кнопка отмена в форме (unload me) ) Я, как человек не писавший ни на чем (кроме асма, классического бейсика, си) не могу понять вообще - зачем так сложно примитив делать ))) Собственно вот, пример из справки мелкософта и тот выдет ошибку Private Sub TextBox2_Change() Dim barcode As String barcode = TextBox1.Text With Worksheets("Warehouse").Range("a3:a 56") Set c = .Find(barcode, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End Sub Не могу еще понять, я нашел товар по коду, надо сделать смещение в таблице вправо на две ячейки с.offset (0,2)? А затем мне надо добавить туда quantity (переменная из другого поля ввода - кол-во) - как?! |
27.05.2013, 19:07 | #8 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
Если я вышлю код - не плюйтесь, ок? )
Private Sub TextBox2_Change() Dim barcode As String barcode = TextBox1.Text With Worksheets("Warehouse").Range("a3:a 56") Set c = .Find(barcode, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Offset(0, 2) = quantity Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End Sub Private Sub TextBox1_Change() Dim quantity As String quantity = TextBox1.Text End Sub Знаю, что с типами я накосячил.. Последний раз редактировалось stasun; 27.05.2013 в 19:39. Причина: новая редакция |
27.05.2013, 20:37 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Вышлите нам файл. А то плеваться будем
И зачем Вам искать на change? Это ведь событие изменения, срабатывает на каждый символ. Для теста: Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
27.05.2013, 21:30 | #10 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 10
|
Как vba сделал - change, так и есть 8) Хотя понимаю, что не подходит, а как сделать по enter'у - хз пока. Я профан в VBA
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Совместимость Excel 2007 VBA - Excel 2010 VBA | Genas | Microsoft Office Excel | 2 | 28.11.2012 15:33 |
VBA Word,VBA Excel решить 2 задачи | fafolo4ka | Фриланс | 6 | 05.03.2012 01:15 |
пару советов новичку из Excel в Access | VestES | Microsoft Office Access | 2 | 27.03.2010 15:54 |
ищу заказы на проекты (VBA EXCEL) | dondoctor | Microsoft Office Excel | 1 | 30.09.2009 00:53 |
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 | kovalevskivf | Microsoft Office Excel | 2 | 15.05.2009 16:47 |