VBA选择工作表问题
我正在尝试制作一个应用程序,当我点击工作表(“Accueil”)中的“添加供应商”按钮时,您可以向工作表(“Fourniseurs”)添加新供应商(法语为Fourniseurs) 我想添加一个新的供应商,但不打开工作表(“Fourniseurs”)。选择并只保留在工作表(“Accueil”) 有什么想法吗VBA选择工作表问题,vba,excel,Vba,Excel,我正在尝试制作一个应用程序,当我点击工作表(“Accueil”)中的“添加供应商”按钮时,您可以向工作表(“Fourniseurs”)添加新供应商(法语为Fourniseurs) 我想添加一个新的供应商,但不打开工作表(“Fourniseurs”)。选择并只保留在工作表(“Accueil”) 有什么想法吗 Sub NouveauFournisseur() 'OK Dim i As Integer Worksheets("Fournisseurs").Select 'sélection de l
Sub NouveauFournisseur() 'OK
Dim i As Integer
Worksheets("Fournisseurs").Select 'sélection de la feuille
creation_fournisseur.Show 'affichage de l'userform
If OK Then
i = 0 'boucle pr trouver la ligne vide où copier les données dans le formulaire
Do
i = i + 1
Loop Until Cells(i, 1) = "" 'jusqu'à ce qu'une ligne soit vide
Cells(i, 1) = creation_fournisseur.zt_nom
Cells(i, 2) = creation_fournisseur.zt_adresse
Cells(i, 3) = Val(creation_fournisseur.zt_tel)
Cells(i, 4) = Val(creation_fournisseur.zt_fax)
End If
Unload creation_fournisseur 'fermer l'userform
Worksheets("Accueil").Select 'retour page d'acceuil après avoir rentré le fournisseur
结束Sub类似的内容
Sub NouveauFournisseur() 'OK
Dim i As Integer, shtF As WorkSheet
Set shtF = ThisWorkbook.Worksheets("Fournisseurs")
creation_fournisseur.Show 'affichage de l'userform
If OK Then
i = 0 'boucle pr trouver la ligne vide où copier les données dans le formulaire
Do
i = i + 1
Loop Until shtF.Cells(i, 1) = "" 'jusqu'à ce qu'une ligne soit vide
shtF.Cells(i, 1) = creation_fournisseur.zt_nom
shtF.Cells(i, 2) = creation_fournisseur.zt_adresse
shtF.Cells(i, 3) = Val(creation_fournisseur.zt_tel)
shtF.Cells(i, 4) = Val(creation_fournisseur.zt_fax)
End If
Unload creation_fournisseur 'fermer l'userform
End Sub
您还可以添加:
亚新潮足球俱乐部()'好的
端接头
其中ModuleX或FormY分别包含用于创建的子项
因此,您只需直接调用表单,而无需打开另一张表单,就像他们在这里建议的那样:
(所有的激活和选择都有点过分,但你明白了)
Dim i As Integer, shtF As WorkSheet
Set shtF = ThisWorkbook.Worksheets("Fournisseurs")
Worksheets("Accueil").activate
Worksheets("Accueil").Select
call moduleX.creation_fournisseur.Show
call formY.creation_fournisseur.Show
'creation_fournisseur.Show 'affichage de l'userform
If OK Then
i = 0 'boucle pr trouver la ligne vide où copier les données dans le formulaire
Do
i = i + 1
Loop Until shtF.Cells(i, 1) = "" 'jusqu'à ce qu'une ligne soit vide
shtF.Cells(i, 1) = creation_fournisseur.zt_nom
shtF.Cells(i, 2) = creation_fournisseur.zt_adresse
shtF.Cells(i, 3) = Val(creation_fournisseur.zt_tel)
shtF.Cells(i, 4) = Val(creation_fournisseur.zt_fax)
End If
Worksheets("Accueil").activate
Worksheets("Accueil").Select
Unload creation_fournisseur 'fermer l'userform
Worksheets("Accueil").activate
Worksheets("Accueil").Select