Avatar billede sbmoller Nybegynder
29. januar 2010 - 13:50 Der er 5 kommentarer

.CopySelection - Value skal overføres til en variable??

Hej eksperter,

jeg sidder og forsøger at programmere noget VBA til WRQ Reflection.

Jeg vil gerne markere en værdi på skærmen - værdien skal så overføres til en variable så jeg kan bruge værdien til andet end bare at paste et andet sted på skærmen.

se min kode herunder: koden herunder giver selvfølgelig en fejl når den kommer til inv_umoms = ... da jeg ikke ved hvordan jeg skal smide værdien i inv_moms?

Sub BALL()

Dim inv_umoms, inv_mmoms As String

    With Session
        .WaitForEvent rcEnterPos, "30", "0", 3, 11
        .WaitForDisplayString ":", "30", 3, 9
        .TransmitTerminalKey rcIBMPf3Key
        .WaitForEvent rcKbdEnabled, "30", "1", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 10, 2
        .TransmitTerminalKey rcIBMPf2Key
        .WaitForEvent rcKbdEnabled, "30", "1", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 10, 2
        .TransmitTerminalKey rcIBMPf2Key
        .SetMousePos 2, 77
        .WaitForEvent rcKbdEnabled, "30", "1", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 19, 7
        .SelectWord rcMouseRow, rcMouseCol
        .CopySelection
        .SetMousePos 12, 10
        .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
        .GraphicsMouse rcLeftClick, rcCurrentGraphicsCursorX, rcCurrentGraphicsCursorY
        .Paste
       
'lav msgbox med inv værdi
       
        .SetSelectionStartPos 23, 10
        .WaitForEvent rcEnterPos, "30", "0", 12, 23
        .WaitForDisplayString "no", "30", 12, 20
        .ExtendSelectionRect 23, 16
        .CopySelection
        inv_umoms = CopySelection.value
       
       
        MsgBox "dette er en test " & inv_umoms & ""
    End With
End Sub
Avatar billede sbmoller Nybegynder
30. januar 2010 - 23:47 #1
det kan da ikke passe der ikke er nogen der kan svare på denne???
Avatar billede excelent Ekspert
31. januar 2010 - 21:45 #2
inv_umoms = Selection.value
Avatar billede sbmoller Nybegynder
01. februar 2010 - 14:36 #3
Hej!

Den giver bare en fejl "Object required"?

Skal min variable declareres på en anden måde end string?
Avatar billede kabbak Professor
02. februar 2010 - 16:51 #4
jeg er ikke sikker, men du mangler i hvert fald et punktum i linen
  inv_umoms = CopySelection.value

skal være

  inv_umoms = .CopySelection.value
Avatar billede sbmoller Nybegynder
02. februar 2010 - 20:09 #5
Det virker stadig ikke.. Nu skriver den "invalid qualifier" ?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat