Just nu i M3-nätverket
Jump to content

Inputbox


fibban23

Recommended Posts

Guest idgadmin

[KOD]

Public Sub demo()

ActiveSheet.Range("A1")=InputBox("Skriv något", "Hej")

End Sub

[/KOD]

 

Det som står till vänser om "=" skall vara något slags cell-adress, det kan naturligtvis vara en absolut adress också.

 

Link to comment
Share on other sites

Tack för svar!

men det var inte så jag hade tänkt mig. Jag har alltså en Inputbox, där man uppmanas skriva in ett datum och det detta datum som jag vill ha kopierat till en cell, när jag trycker på OK.

Hej och tack

 

Link to comment
Share on other sites

Guest idgadmin

Tja, det är ju det jag tror att jag svarat på...

 

Var kommer din inputbox ifrån? Så vitt jag vet måste man använda VBA. Eller pratar du om någonting helt annat?

 

om vi antar att din inputbox skall fråga efter ett datum så kan det se ut någonting i den här stilen:

svar = InputBox("ange ett datum")

då kommer variabeln "svar" att innehålla dit datum i form av en sträng, sedan kopierar du helt enkelt "svar" till en cell, exempel cell A1:

Range("A1") = CDate(svar)

där CDate omvandlar strängen till ett datum.

eller ett töntigt exempel med goto och allt :-) :

 

[KOD]Public Sub demo()

Line1:

svar = InputBox("ange ett datum")

'hämta in svar från användaren

If svar = "" Then Exit Sub

'Om användaren trycker avbryt, ähhh avbryt

 

If IsDate(svar) = False Then

MsgBox ("felaktigt datumformat, försök igen")

GoTo Line1

End If

' om datumet är inmatat på felaktigt sätt, börja om

 

Range("A1") = CDate(svar)

'se till att cell A1 får samma värde som "svar" (fast omvandlat till datum)

End Sub[/KOD]

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...