Avatar billede loonz Nybegynder
21. februar 2008 - 10:37 Der er 4 kommentarer og
1 løsning

Alternativknapper til Excel

Hejsa,
Jeg er interesseret i tre alternativknapper (A,B,C). Når f.eks. A vælges, benyttes cellerne 1-5 som x-koordinater til at konstruere en kurve, mens for B vælges 6-10 etc. Y-koordinaterne er det samme for alle tre. Er dette muligt?
Har ingen kendskab til indspilning af makroer eller kodning af nogen art, så jeg er helst fri for dette.

På forhånd tak :-)
Avatar billede loonz Nybegynder
21. februar 2008 - 10:41 #1
Det må iøvrigt gerne være en anden type knap, hvis det er nemmere. De må bare ikke kunne være aktiveret samtidigt.
Avatar billede loonz Nybegynder
21. februar 2008 - 11:35 #2
Jeg har muligvis selv fundet en løsning ved at optage en primitiv makro. Vender tilbage med en endelig løsning hvis det virker...
Avatar billede loonz Nybegynder
21. februar 2008 - 11:58 #3
Hmm, jeg fik lavet en makro (min første), der vælger x-koordinaterne ved tryk på én af knapperne. Men når jeg skrivebeskytter arket, fungerer knapperne ikke (den første, Alternativknap11 gør). Her er hvad der står i makroen:

Sub Alternativknap11_Klik()
'
' Alternativknap11_Klik Makro
' Makro indspillet 21-02-2008 af CUN
'

'
    ActiveWindow.SmallScroll Down:=-3
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).XValues = _
        "=Koncentrationsbestemmelse!R52C5:R56C5"
    ActiveWindow.Visible = False
    Windows("Test.xls").Activate
    ActiveSheet.Shapes("Option Button 11").Select
End Sub
Sub Alternativknap12_Klik()
'
' Alternativknap12_Klik Makro
' Makro indspillet 21-02-2008 af CUN
'

'
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).XValues = _
        "=Koncentrationsbestemmelse!R52C6:R56C6"
End Sub
Sub Alternativknap13_Klik()
'
' Alternativknap13_Klik Makro
' Makro indspillet 21-02-2008 af CUN
'

'
    ActiveWindow.SmallScroll Down:=-6
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    Windows("Test.xls").SmallScroll Down:=9
    ActiveChart.SeriesCollection(1).XValues = _
        "=Koncentrationsbestemmelse!R52C7:R56C7"
End Sub

Jeg er totalt nybegynder til dette, så enhver hjælp er virkelig påskønnet!
Avatar billede loonz Nybegynder
27. februar 2008 - 09:57 #4
Bump...
Avatar billede loonz Nybegynder
04. marts 2008 - 13:27 #5
Lukker uden løsning på problemet.
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

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