excel - Handle many ComboBox_Change Event -

-

well i'm new in vba programming. i'm creating form helps me quotations, , there part of form shows items i've registered, this:

my form comboboxes

so purpose of comboboxes change or delete correponding item according option choose, , have lot of them in userform, making hard create many combobox event programs (like combobox1_change, combobox2_change, ... combobox50_change). , then, main question is: how in vba without loosing lot of time making same code different objects? create 1 code comboboxes.

i understand can in way below, i'm sure has better way do.

sub combobox1_change()   call mycode end sub  sub combobox2_change()   call mycode end sub  sub combobox50_change()   call mycode end sub  sub mycode() i=1 50    if controls("combobox" & i).value = "change"       call mysecondcode    end if next end sub

i spent 30 minutes searching question, didn't find me. hope guys understood question. in advance.

update:

axel richter, said in comments, i'm having problem in this:

private function isnoktest()  if prod1.value = "" or _     prod2.value = "" or _     tecido.value = "" or _     tamanhos.value = "" or _     unitario.value = "" or _     quantidade.value = ""          isnoktest = true end if  end function   private mycbswithevents collection private sub userform_initialize()  set mycbswithevents = new collection  each c in me.controls   if left(c.name, 8) = "combobox"    c.additem "change"    c.additem "delete"    set mycbwithevents = new clscbwithevents    set mycbwithevents.mycb = c    mycbswithevents.add mycbwithevents   end if  next   end sub  ' ' ' 'datatext.value = format(now, "dd/mm/yyyy") 'bordadoqty.value = 1 'estampaqty.value = 1 'itemlab.caption = 1 '

when code added project, event in class module doesn't work, apparently isn't linked "events", don't know happened.

this can achieved using class module handles events.

insert class module in project. name clscbwithevents. in class module have following code:

public withevents mycb combobox  private sub mycb_change()  if me.mycb.value = "change"   msgbox me.mycb.name & " has changed ""change"""  elseif me.mycb.value = "delete"   msgbox me.mycb.name & " has changed ""delete"""  end if end sub

in user form have following code:

private mycbswithevents collection  private sub userform_initialize()  set mycbswithevents = new collection  each c in me.controls   if typename(c) = "combobox"    c.additem "change"    c.additem "delete"    set mycbwithevents = new clscbwithevents    set mycbwithevents.mycb = c    mycbswithevents.add mycbwithevents   end if  next end sub

now every combobox in user form use event handling.


Comments

Post a Comment

Popular posts from this blog

c++ - llvm function pass ReplaceInstWithInst malloc -

-
#include "llvm/pass.h" #include "llvm/ir/module.h" #include "llvm/ir/function.h" #include "llvm/support/raw_ostream.h" #include "llvm/ir/legacypassmanager.h" #include "llvm/ir/instrtypes.h" #include "llvm/transforms/ipo/passmanagerbuilder.h" #include "llvm/ir/irbuilder.h" #include "llvm/transforms/utils/basicblockutils.h" using namespace llvm; namespace { struct replacepass : public functionpass { static char id; replacepass() : functionpass(id) {} virtual bool runonfunction(function &f) { allocainst* insttoreplace = ??? basicblock::iterator ii(insttoreplace); replaceinstwithinst(insttoreplace->getparent()->getinstlist(), ii, new allocainst(type::int32ty, 0, insttoreplace)); return true; } }; } char replacepass::id = 0; static void registerreplacepass(const passmanagerbuilder &, legacy::passmanagerbase &pm) { pm.add(new re
Read more

java.lang.NoClassDefFoundError When Creating New Android Project -

-
i've tried installing (and re-installing) android studio several times now, , each time, studio isn't able create new android project. when attempt initial android studio window (ie. basic 'create', 'open', 'import' etc options), i'm asked of questions in wizard, brief progress dialog, followed nothing @ all. if open incomplete project process creates choosing 'open' list, can try choosing create new android project menu. this has same issue, error message in output console time... java.lang.noclassdeffounderror: com/sun/xml/internal/bind/v2/model/annotation/annotationreader (wrong name: com/sun/xml/internal/bind/v0/model/qnnotation/annotationreader) note: when installed android studio, installed incompatible jdk (1.8, not 1.7). have had go default project settings change jdk uses 1.8. does know how can avoid this? there place should downloading jxb classes? missing in java paths? this appears have been caused cor
Read more

Decoding a Python 2 `tempfile` with python-future -

-
i'm attempting write python 2/3 compatible routine fetch csv file, decode latin_1 unicode , feed csv.dictreader in robust, scalable manner. for python 2/3 support, i'm using python-future including imporing open builtins , , importing unicode_literals consistent behaviour i'm hoping handle exceptionally large files spilling disk, using tempfile.spooledtemporaryfile i'm using io.textiowrapper handle decoding latin_1 encoding before feeding dictreader this works fine under python 3. the problem textiowrapper expects wrap stream conforms bufferediobase . unfortunately under python 2, although have imported python 3-style open , vanilla python 2 tempfile.spooledtemporaryfile still of course returns python 2 cstringio.stringo , instead of python 3 io.bytesio required textiowrapper . i can think of these possible approaches: wrap python 2 cstringio.stringo python 3-style io.bytesio . i'm not sure how approach - need write such wrapper or 1 ex
Read more