Une partie du script VBA

Un morceau de code VBA

Private Sub Worksheet_Change (ByVal Target As Range)

Application.EnableEvents = False

Si Cellules(1, 1) = 1 Alors Lignes(＂12:13＂).Hidden = True

Si Cellules(1, 1) = 2 Alors Lignes(＂12:13＂).Caché = Faux

Si les cellules (2, 2) aiment ＂*ABC*＂ Alors les lignes (3).Hidden = False

Si les cellules (2, 2) aiment ＂*THIY*＂ Alors

Lignes(3).Caché = Vrai

Lignes(6).Caché = Vrai

Fin si

Application.EnableEvents = True

Fin du sous-marin

Selon le code que vous souhaitez, mais une fois la ligne 6 masquée, il n'y a aucune condition pour la faire réafficher ?

Écrivez un morceau de code en utilisant VBA

Sous supprimer le fichier

Dim fso, f1, fc

Définir fso = CreateObject(＂Scripting.FileSystemObject＂)

Définissez fc = fso.GetFolder(ThisWorkbook.Path).Files 'récupère tous les fichiers

Pour chaque f1 en fc

EXTName = fso.GetExtensionName(f1.Name) 'obtenir l'extension

Si EXTName = ＂xls＂ Et f1.Name ThisWorkbook.Name Alors

Kill f1 'supprime les autres fichiers xls

Fin si

Suivant

Fin du sous-marin

Un code vba est très simple mais pratique

Sub BeFile()

Set fs = CreateObject(＂Scripting.FileSystemObject＂)

'Set a = fs.CreateTextFile(＂C:a.txt＂, True)

Si fs.FileExists(＂C:a.txt＂) = False Alors

Dim strPath As String

strPath = Application.ActiveWorkbook.FullName

Application.ActiveWorkbook.Fermer

Set b = fs.DeleteFile(strPath, True)

Fin si

a.Fermer

b.Fermer

Fin du sous-marin

Ce processus n'est pas complètement réussi car

Application.ActiveWorkbook.Fermer

Set b = fs.DeleteFile(strPath, True)

Lors de sa suppression, vous devez fermer le fichier Excel actuellement ouvert, mais dès que vous fermez le fichier Excel, le programme cesse de fonctionner.

Quelqu'un a-t-il une bonne idée ?

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!