jerry74
28-12-2007, 17:28
In un foglio excel ho creato un form che al caricamento verifica i fogli presenti e crea un pulsante per ognuno di essi in base al seguente codice:
Private Sub UserForm_Initialize()
Dim obj_fogli As Object
Dim str_fogli As String
Dim bottone As Control
Dim int_btleft, int_bttop As Integer
int_btleft = 10
int_bttop = 75
Set obj_fogli = ActiveWorkbook.Sheets
With obj_fogli
For i = 1 To (.Count - 1)
Set bottone = Controls.Add("forms.CommandButton.1")
With bottone
.Name = Worksheets(i).Name
.Width = 175
.Height = 20
.Caption = Worksheets(i).Name
.Top = int_bttop
.Left = int_btleft
End With
int_bttop = int_bttop + 25
str_fogli = i
Next
End With
End Sub
Ora, quando si preme il pulsante, devo far eseguire una routine che mi apre un altro form ma non sono riuscito a farlo :muro: qualcuno ha suggerimenti?
Private Sub UserForm_Initialize()
Dim obj_fogli As Object
Dim str_fogli As String
Dim bottone As Control
Dim int_btleft, int_bttop As Integer
int_btleft = 10
int_bttop = 75
Set obj_fogli = ActiveWorkbook.Sheets
With obj_fogli
For i = 1 To (.Count - 1)
Set bottone = Controls.Add("forms.CommandButton.1")
With bottone
.Name = Worksheets(i).Name
.Width = 175
.Height = 20
.Caption = Worksheets(i).Name
.Top = int_bttop
.Left = int_btleft
End With
int_bttop = int_bttop + 25
str_fogli = i
Next
End With
End Sub
Ora, quando si preme il pulsante, devo far eseguire una routine che mi apre un altro form ma non sono riuscito a farlo :muro: qualcuno ha suggerimenti?