Visual Basic 6 - Aiuto Checkbox dinamici

Forum - Visual Basic 6 - Aiuto Checkbox dinamici

Alex80 (Normal User)
Newbie

Messaggi: 3
Iscritto: 21/10/2008

Postato alle 17:07
Martedì, 21/10/2008

Ciao a tutti e complimenti per il sito, mi sono appena iscritto.
Veniamo al punto: Sto creando una macro in vba che mi genera delle chkbox dinamiche, tante quante sono le celle che passano una determinata condizione.
Esempio:
Colonna A  Colonna B
"ciao"      chkbox1
"miao"      chkbox2

Vorrei fare in modo che una volta spuntata una qualsiasi chkbox, sia possibile copiare la relativa stringa a sinistra e incollarla altrove.
Le checkbox sono collegate alle celle che le ospitano. Il problema è che non avendo a priori il nome della checkbox,non riesco a definirla per associarla alla stringa che le sta di fianco.
Se volete posto il codice .. grazie

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 17:51
Martedì, 21/10/2008

Testo quotato

Postato originariamente da Alex80:
Se volete posto il codice .. grazie

Si forse è meglio :k:

Alex80 (Normal User)
Newbie

Messaggi: 3
Iscritto: 21/10/2008

Postato alle 18:09
Martedì, 21/10/2008

Questo è quanto..

Codice sorgente - presumibilmente VB.NET

Set ws = Worksheets("Foglio1")
      Set current=   Worksheets("Foglio1").Range("Z1")
    Worksheets("Foglio1").Select
    Selection.Sort Key1:=ws.Range("D1"),     Order1:=xlAscending, Header:=xlGuess, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
       i = 4
          For Each c In Worksheets("Foglio1").Range("D2:D300")
            Worksheets("Foglio1").Select
             If c <> current Then
                  c.Copy Destination:=Worksheets("Foglio2").Range("A" & i)
                  current = c
                  i = i + 1
                End If
               
             If current = 0 Then
                 Exit For
                End If
          Next c
  Set wks = Worksheets("Foglio2")
     With wks
        .OptionButtons.Delete
        .GroupBoxes.Delete
        Set myRng = .Range("C4:C" & (i - 2))
           For Each myCell In myRng.Cells
               With myCell
                 Set GrpBox = .Parent.GroupBoxes.Add(Top:=.Top, _
                       Left:=.Left, _
                       Width:=.Width, _
                       Height:=.Height)
                       GrpBox.Caption = ""
                       GrpBox.Visible = False
 
                 Set OptBtn = .Parent.CheckBoxes.Add(Top:=.Top, _
                 Left:=.Left, _
                 Width:=.Width / 2, _
                 Height:=.Height)
                 OptBtn.Caption = ""
                 OptBtn.LinkedCell = .Address(external:=True)
                 OptBtn.Display3DShading = True
                 .NumberFormat = ";;;"
               End With
            Next myCell
      Worksheets("Foglio2").Select
        For Each chkBox In ActiveSheet.CheckBoxes
                 chkBox.Select
                 Selection.OnAction = "Macro1"
           Next chkBox

Non è il massimo credo, ma funziona correttamente... dovrei fare l'aggiunta di cui parlo sopra, ma non so proprio da dove iniziare.
Dovrei creare una macro che si avvia ogni volta che si spunta la checkbox.. ma cosa mettere nella macro??

Ultima modifica effettuata da Alex80 il 21/10/2008 alle 18:16

Alex80 (Normal User)
Newbie

Messaggi: 3
Iscritto: 21/10/2008

Postato alle 14:13
Lunedì, 27/10/2008

Nessuno può aiutarmi??