Maison  >  Article  >  tutoriels informatiques  >  Une partie du script VBA

Une partie du script VBA

WBOY
WBOYavant
2024-01-23 20:03:041145parcourir

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!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer