Ищу подсказок по VBA excel новичку

[VictorM]

а как сделать по enter'у

Смотрите мультик

[stasun]

Сделал что то удобоваримое, работает. Но, моя процедура не суммирует содержимое ячейки с новым введенным значением. Просто тупо добавляет вперед число (скорее и текст)...
Что делать?! Помогите, плиз!!!
Ладно, еще можно параметры ввода ограничить только циферками, но вот еще обнаружилось, что поиск тоже не корректно работает! Он ищет не по всему стрингу, а по первому числу.... т.е. если "код товара" = 10, а в поиске ввести 1 - то он все 10ки заменит, т.к. есть 1 в содержимом

И да, спасибо за мультики, уж сам разобрался ))

[stasun]

Извините за беспокойство, порылся в справичнике, нашел свои ошибки.
Спасибо люди добрые!
Если интересно что я сделал - (а мне еще и комментарии ваши необходимы) я выложу, что у меня получилось

[stasun]

Снова ищу информацию... Для начала, прошу потратить 2 минуты на скачивание файла и его открытие.
Дело в том, что если число больште (в примере 50000 шт), то при попытке прибавить/отнять выдает Overflow Runtime-error 6. (я делал так: в форме по кнопке расход вводил количество 500, код товара 101)
Что может быть?!
Нет, ну почему нельзя было сделать человеческую адресацию и обращение к ячейкам не через зад, ну почему, объясните умные и опытные программисты?!

[doober]

Замените код,и все будет класс

Private Sub CommandButton1_Click()
'ActiveWorkbook.Save
 Dim value As Double
 
    Worksheets("Warehouse").Activate
With Worksheets("Warehouse").Range("a3:a56")
    Set c = .Find(TextBox2, LookAt:=xlWhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            value = c.Offset(0, 2).value
          
            
            c.Offset(0, 2).value = value - val(TextBox1.Text)   ' содержимое + вновь введенное количество
            
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
' Worksheets("Кнопки").Activate

End Sub

[IgorGO]

Что может быть?!

написано же - переполнение

цитата из справки:
Integer Data Type
Integer variables are stored as 16-bit (2-byte) numbers ranging in value from -32,768 to 32,767.
а Вы пытаетесь в val, которую обьявили как Integer затолкать 50тыс., что явно больше 32тыс. - это все равно (как бы это доходчивее обьяснить), что в стакан пытаться влить поллитра водки - произойдет переполнение стакана, разлив водки на стол, от боевых товарищей можно в глаз получить и другие траблы... ексель то же воспринял Вашу затею в штыки.

адресацию и обращение к ячейкам не через зад

а не затруднит Вас рассказать как нормально адресовать обращение к ячейкам, ну... чтобы не через зад?

[Hugo121]

Где-то я видел примерно 50 вариантов обращения к ячейкам. Вот там думаю точно есть "через зад"
Нашёл: http://www.msoffice.nm.ru/faq/macros/range.htm#faq14
Только там не 50 - там 100

[DiemonStar]

Сообщение от Hugo121

Где-то я видел примерно 50 вариантов обращения к ячейкам. Вот там думаю точно есть "через зад"
Нашёл: http://www.msoffice.nm.ru/faq/macros/range.htm#faq14
Только там не 50 - там 100

ну да... самое прикольное, что на форуме примерно 2/3 вариантов встречаются)))

[stasun]

Спасибо за подсказку! Всегда был уверен, что integer не есть word (кстати ворд = 16 бит, а минус плюс - как трактовать) а есть целое число... Кстати, если дробные числа будут - что тогда использовать?
Не знаю как в экселе правильно, просто зачем делать 5 видов адресации? Но видимо с опытом придет...
Для того, чтобы не приставал с глупыми вопросами, что стоит почитать по теме VBA для EXCEL?

[doober]

Сообщение от stasun

Кстати, если дробные числа будут - что тогда использовать?

Из моего поста выше

Dim value As Double