Maison > Article > tutoriels informatiques > Une partie du script 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 ?
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
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!