Comment avez-vous copier le contenu d'une Cellule dans le presse-papiers
Je suis en train de copier le contenu de la cellule dans le presse-papiers.
J'ai lu et essayé exactement l'exemple fourni dans Excel 2007 fichier d'Aide. Cependant, pour une raison quelconque, le DataObject objet n'est pas valide. Donc l'exemple:
Dim MyData As DataObject
Private Sub CommandButton1_Click()
Set MyData = New DataObject
MyData.SetText TextBox1.Text
MyData.PutInClipboard
TextBox2.Paste
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = "Move this data to a " _
& "DataObject, to the Clipboard, then to " _
& "TextBox2!"
End Sub
Ne fonctionne pas dans mon cas. J'ai cherché un bon moment maintenant et je ne peux pas trouver une réponse sur le pourquoi de la DataObject objet n'est pas disponible.
Voici mon code:
Dim MyData As DataObject
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 3 Then
Set MyData = New DataObject
MyData.SetText ActiveCell.Offset(-1, -1).Text
MyData.PutInclipboard
End If
End Sub
Erreur dans la Compilation est: "type Défini par l'Utilisateur non défini" et il met en évidence la "MyData Comme DataObject" de ligne.
Est-il une autre méthode pour simplement copier le texte dans une cellule dans le presse-papiers?
Vous devez vous connecter pour publier un commentaire.
Ok, peu de choses:
Abord, vous devez Ajouter une référence à "Microsoft Forms 2.0 Object Library", si vous ne vous sentez pas comme la recherche par le biais, il suffit d'ajouter un formulaire utilisateur pour le projet, puis supprimez-le immédiatement, la référence ne séjour. Vous avez besoin de cette référence à l'utilisation DataObject
Je vais joindre un peu de code que j'ai eu à travailler, j'ai changé les décalages, mais faire tout ce dont vous avez besoin...