Αυτόματο paste σε Excel.

[unforgiven]

Δεν είναι αμιγώς θέμα προγραμματισμού, αλλά ίσως εμπλέκεται VBA, οπότε ζητώ την βοήθειά σας.
Θέλω να κάνω το εξής: Να έχω ένα κελί στο Excel στο οποίο να εμφανίζεται αυτόματα το περιεχόμενο του clipboard. Με άλλα λόγια, κάνω σε ένα πρόγραμμα των Windows copy τη λέξη "ABC", εμφανίζεται στο κελί το Excel που έχω προεπιλέξει "ABC". Χωρίς να πατήσω κάποιο πλήκτρο, γιατί δεν έχει νόημα, μιας και μπορώ να κάνω και ctrl-V και να γίνει το ίδιο.
Με το μαλακό τις οδηγίες, διότι είμαι άσχετος. Ένας τυφλοσούρτης θα ήταν ιδανικός.

[masteripper]

Λίγο αόριστο όπως το περιγράφεις

Λογικά χρειάζεσαι να τρέχει 1 timer και να ελέγχει σε τακτά χρονικά διαστήματα αν υπάρχει περιεχόμενο στο Clipboard και να το στο κοπιάρει στο κελί που θες...

Δεν ασχολούμαι πολύ με το Excel αλλά σε Access είναι σχετικά εύκολο....

[unforgiven]

47 λεπτά πριν, masteripper είπε

Λίγο αόριστο όπως το περιγράφεις

Λογικά χρειάζεσαι να τρέχει 1 timer και να ελέγχει σε τακτά χρονικά διαστήματα αν υπάρχει περιεχόμενο στο Clipboard και να το στο κοπιάρει στο κελί που θες...

Δεν ασχολούμαι πολύ με το Excel αλλά σε Access είναι σχετικά εύκολο....

ΝΑ στο εξηγήσω καλύτερα, θέλω σε ένα κελί να εμφανίζεται αυτόματα ό,τι έχω στο clipboard. Ήλπιζα σε κάποια formula που έτσι και αλλιώς "τρέχει" διαρκώς (δηλαδή αν αλλάξει το περιεχόμενο ενός κελιού Α, αλλάζουν  αυτόματα όλα τα κελιά που έχουν κάποια συνάρτηση που επηρεάζεται από το Α)

[masteripper]

Ρίξε μια ματιά εδώ : https://www.excelforum.com/excel-programming-vba-macros/563781-clipboard-monitor.html

και εδώ : https://stackoverflow.com/questions/38890541/excel-vba-paste-from-external-program

Επεξ/σία 20 Ιανουαρίου 2021 από masteripper

[_spirit_]

Διάβασε λίγο και για το autohotkey. Μπορείς να το επιτύχεις με τον συνδυασμό αυτόν.

[papmel]

 βαλε 2 Buttons στο excel σου.
μετα πηγαινε στο TOOLS-REFERENCES και κανε CHECK το Microsoft Forms 2.0 Objects Library.
αν δεν το βρισκεις πατα δεξια browse και επελεξε το απο το c:\windows\system32\FM20.DLL
και θα το δεις στην λιστα
Στα δυο Κουμπια βαλε αυτον τον κωδικα και εισαι ετοιμος.

 

Sub Button1_Click()
Dim EndTime As Single
Dim PrevText As String
Dim objDataObject As New DataObject

Do
objDataObject.GetFromClipboard
If objDataObject.GetText(1) <> PrevText Then
Range("A1") = objDataObject.GetText(1)
PrevText = objDataObject.GetText(1)
End If

Set objDataObject = Nothing
EndTime = Timer + 1   
Do While Timer < EndTime
DoEvents
Loop

Loop

End Sub


Sub Button2_Click()
End
End Sub

Sub Button1_Click()
Dim EndTime As Single
Dim PrevText As String
Dim objDataObject As New DataObject

Do
objDataObject.GetFromClipboard
If objDataObject.GetText(1) <> PrevText Then
Range("A1") = objDataObject.GetText(1)
PrevText = objDataObject.GetText(1)
End If

Set objDataObject = Nothing
EndTime = Timer + 1 'one second
Do While Timer < EndTime
DoEvents
Loop

Loop

End Sub