Date et heure de la dernière sauvegarde VBA pour une feuille de calcul spécifique

Niva

Salut, je suis tombé sur les dernières options de sauvegarde pour un classeur, dans lesquelles le code permet de suivre la date et l'heure de sa dernière modification et de son affichage dans une cellule.Je me demandais si vba pouvait permettre de suivre les données et l'heure de celui-ci étant modifié pour la dernière fois sur une feuille de calcul spécifique, disons Sheet1. Ainsi, chaque fois que des modifications ont été apportées et enregistrées dans la feuille 1, elles refléteraient uniquement l'heure et la date enregistrées sur cette feuille. Voici le code que j'ai pour le classeur jusqu'à présent, j'ai essayé d'ajouter .Sheets("Sheet 1")au code mais il suit l'heure à laquelle j'ai visité la page et non celle que j'ai modifiée. Ce sont les codes de mon classeur.

   Private Sub Workbook_Open()
  Call starttheClock
End Sub

Sub Workbooky()
ActiveWindow.ScrollRow = 1
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "Index" Then Exit Sub

    Application.EnableEvents = 0

    i = ActiveSheet.Index

    With Sheets("Index")

        .Cells(i, 1) = ActiveSheet.Name
        .Cells(i, 2) = Now

    End With

    Application.EnableEvents = 1

End Sub
Davesexcel

Juste pour ajouter un peu plus de confusion à la réponse ci-dessus, si vous avez une feuille nommée "Index" et que vous voulez avoir une date qui est ajoutée à une feuille chaque fois qu'elle est modifiée, peut-être un code qui entrera dans le module de classeur. Ensuite, vous n'aurez qu'un seul code à vérifier chaque fois que l'une des feuilles de calcul a un changement.

C'est là que se trouve le module de classeur et le code y appartient.

entrez la description de l'image ici

Cela suppose que vous ayez une feuille nommée "Index", nommez-la comme vous voulez une fois que vous l'avez faite correctement. Le nom réel de la feuille et le nom de la feuille dans le code doivent cependant correspondre exactement.

entrez la description de l'image ici

Voici le code qui ira dans le module de classeur. Copiez-le et collez-le dans le module de classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "Index" Then Exit Sub

    Application.EnableEvents = 0

    i = ActiveSheet.Index

    With Sheets("Index")

        .Cells(i, 1) = ActiveSheet.Name
        .Cells(i, 2) = Now

    End With

    Application.EnableEvents = 1

End Sub

Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.

En caso de infracción, por favor [email protected] Eliminar

Editado en
0

Déjame decir algunas palabras

0Comentarios
Iniciar sesiónRevisión de participación posterior

Artículos relacionados

Quel pourrait être le VBA pour copier une cellule spécifique d'une feuille de calcul à une autre dans Excel?

VBA pour importer des données à partir d'un classeur fermé et les coller dans une feuille de calcul spécifique en tant que valeurs

Lien de téléchargement Json (feuille de calcul Google) pour une feuille spécifique

Déplacement de cellules spécifiques de la dernière ligne vers une nouvelle feuille de calcul

Calculer le nombre de jours entre la colonne date / heure et une date spécifique - Pandas

Conversion de formules dans certaines colonnes pour une feuille de calcul spécifique

code vba pour créer une feuille de calcul temporaire et fusionner le courrier de données en mot, puis la feuille temporaire est supprimée

Code VBA pour masquer / afficher plusieurs lignes dans une autre feuille de calcul en fonction de la sortie de cellule d'une autre feuille de calcul

Comment copier le format et les valeurs, et non des formules, lors de la création d'une sauvegarde de feuille de calcul dans Google Apps Script?

Comment faire une requête pour obtenir les lignes spécifiques avec la dernière valeur de colonne d'heure

Enregistrer la feuille de calcul dans un nouveau classeur avec le même format et le même nom à partir d'une cellule spécifique

Restauration d'une version spécifique de la feuille de calcul à l'aide de l'API Google

Supprimer la ligne dans la feuille de calcul Google d'une plage spécifique en fonction des valeurs d'une plage de cellules spécifique

Pyspark Obtention de la dernière date / heure pour chaque jour

Comment diviser toutes les cellules fusionnées pour une feuille spécifique dans une feuille de calcul Google à l'aide de Python?

pandas: comment générer une nouvelle colonne pour obtenir la valeur d'une autre colonne de la dernière date-heure

Mettre à jour le compteur quotidien de la date à partir d'une heure spécifique

Comment sélectionner une cellule spécifique sur une feuille de calcul?

Comment obtenir la première connexion et la dernière déconnexion à partir de plusieurs connexions et déconnexion pour une seule date?

J'essaie de créer une macro VBA qui duplique une feuille de calcul, puis copie les données de la feuille de calcul dans une nouvelle colonne

utilisation des valeurs saisies dans une feuille de calcul pour référencer différentes feuilles de calcul vba

Comment trouver la vraie dernière cellule dans n'importe quelle feuille de calcul

Transposer la plage de copie Excel VBA à partir d'une autre feuille de calcul

Comment démarrer "appendRow" dans une colonne spécifique (feuille de calcul Google)

Comment Google Apps Script peut-il partager une feuille de calcul spécifique?

Supprimer les lignes X à Y dans une feuille de calcul Excel spécifique

Ajustement automatique des colonnes en commençant par une feuille de calcul spécifique

Comment convertir une feuille de calcul Google spécifique en Excel?

Comment créer une feuille de calcul dans un dossier spécifique?

TOP Lista

CalienteEtiquetas

Archivo