Přepínací políčka Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

Přepínací políčka

Příspěvekod crgo77 » 07 dub 2014 17:53

Zdravím všechny,
prosil bych o radu,nebo alespoň popostrčení,jak bych to mohl udělat.
Jde o to,že ve formuláři mám 4 přepínací políčka která mi zapisují do buňky to,co které obsahuje,ale nevím si rady s odkazem každého z nich.
Rozvedu blíže - každé přepínací políčko má svůj název ( viz code ),každé políčko má svou složku ( název je stejný jako přep.pol. a do této složky bych potřeboval zapisovat hodnotu,kterou zapíšu v buňce "A" podle toho jaké přep.políčko zvolím bude to vedeno jako textový soubor( každý zápis nový textový soubor).

Přikládám výpis kódu,který prozatím mám

Kód: Vybrat vše

If OptionButton1.Value = True Then Cells(DalsiRadek, 2) = "S7-300"
If OptionButton2.Value = True Then Cells(DalsiRadek, 2) = "S7-200"
If OptionButton3.Value = True Then Cells(DalsiRadek, 2) = "S5"
If OptionButton4.Value = True Then Cells(DalsiRadek, 2) = "PL7"



předem vám všem děkuji za pomoc.Snažil jsem se googlit,ale nic podobného jsem nanašel.

--- Doplnění předchozího příspěvku (07 Dub 2014 21:46) ---

Zdravím všechny,po napsání prosby jsem ještě googlil a zkoušel.
Vytvořil jsem všechno co jsem potřeboval ( viz code níže).Je to sice krkolomný kód a docela obsáhlý,ale je funkční

Kód: Vybrat vše

If OptionButton1.Value = True Then Cells(DalsiRadek, 2) = "S7-300"
    fso.CopyFolder "D:\plc\*", "D:\S7-300\", True
    Set objSoubor4 = fso.GetFolder("D:\S7-300\nová")
    objSoubor4.Name = TextBox1.Text
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
        "D:\S7-300\" & TextBox1.Text, TextToDisplay:=TextBox1.Text

If OptionButton2.Value = True Then Cells(DalsiRadek, 2) = "S7-200"
    fso.CopyFolder "D:\plc\*", "D:\S7-200\", True
    Set objSoubor4 = fso.GetFolder("D:\S7-200\nová")
    objSoubor4.Name = TextBox1.Text
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
        "D:\S7-200\" & TextBox1.Text, TextToDisplay:=TextBox1.Text

If OptionButton3.Value = True Then Cells(DalsiRadek, 2) = "S5"
    fso.CopyFolder "D:\plc\*", "D:\S5\", True
    Set objSoubor4 = fso.GetFolder("D:\S5\nová")
    objSoubor4.Name = TextBox1.Text
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
        "D:\S5\" & TextBox1.Text, TextToDisplay:=TextBox1.Text

If OptionButton4.Value = True Then Cells(DalsiRadek, 2) = "PL7"
    fso.CopyFolder "D:\plc\*", "D:\PL7\", True
    Set objSoubor4 = fso.GetFolder("D:\PL7\nová")
    objSoubor4.Name = TextBox1.Text
ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 1), Address:= _
        "D:\PL7\" & TextBox1.Text, TextToDisplay:=TextBox1.Text




Nakonec jsem si trochu upravil požedavky a zakládám nové složky ( kód který jsem použil není můj - poradil mi ho uživatel Azuzula )čímž tímto děkuji za pomoc a rady,které jsem za kratičkou chviličku (co jsem na tomhle fóru ) získal. Děkuji :thumbup:

Reklama
crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

Re: Přepínací políčka

Příspěvekod crgo77 » 10 dub 2014 21:33

Zdravím všechny,
Moje radost,byla bohužel předčasná.Kód,který jsem sem vložil jsem ještě trochu upravoval,protože je nefunkční.Kód,který v současné době mám je
tenhle:

Kód: Vybrat vše

If OptionButton1.Value = True Then Cells(DalsiRadek, 2) = "S7-300"
   fso.CopyFolder "F:\výchozí\plc\*", "F:\PLC\S7-300\", True
   Set objSoubor4 = fso.GetFolder("F:\PLC\S7-300\nová")
   objSoubor4.Name = TextBox6.Text
   
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
        "Z:\PLC\S7-300\*" & TextBox6.Text, TextToDisplay:="S7-300"



If OptionButton2.Value = True Then Cells(DalsiRadek, 2) = "S7-200"
   fso.CopyFolder "F:\výchozí\plc\*", "F:\PLC\S7-200\", True
   Set objSoubor4 = fso.GetFolder("F:\PLC\S7-200\nová")
   objSoubor4.Name = TextBox6.Text
   
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
        "Z:\PLC\S7-200\*" & TextBox6.Text, TextToDisplay:="S7-200"



If OptionButton3.Value = True Then Cells(DalsiRadek, 2) = "S5"
   fso.CopyFolder "F:\výchozí\plc\*", "F:\PLC\S5\", True
   Set objSoubor4 = fso.GetFolder("F:\PLC\S5\nová")
   objSoubor4.Name = TextBox6.Text
   
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
        "Z:\PLC\S5\*" & TextBox6.Text, TextToDisplay:="S5"



If OptionButton4.Value = True Then Cells(DalsiRadek, 2) = "PL7"
   fso.CopyFolder "F:\výchozí\plc\*", "F:\PLC\PL7\", True
   Set objSoubor4 = fso.GetFolder("F:\PLC\PL7\nová")
   objSoubor4.Name = TextBox6.Text

   ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
        "Z:\PLC\PL7\*" & TextBox6.Text, TextToDisplay:="PL7"



If OptionButton5.Value = True Then Cells(DalsiRadek, 2) = "Jiné"
   fso.CopyFolder "F:\výchozí\plc\*", "F:\PLC\Jiné\", True
   Set objSoubor4 = fso.GetFolder("F:\PLC\Jiné\nová")
   objSoubor4.Name = TextBox6.Text
   
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
        "Z:\PLC\Jiné\*" & TextBox6.Text, TextToDisplay:="Jiné"



má to ale problém se kterým si nevím rady-složku mi sice vytvoří,bohužel mi ji vytvoří ve všech složkách a vůbec nebere v potaz můj výběr.

Už nevím kde mám chybu. Poradíte mi prosím někdo?
Nevím si s tím rady.Děkuju předem

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Přepínací políčka

Příspěvekod cmuch » 11 dub 2014 06:08

Tak zkus toto, upraveno pro dvě řízení siemensu.

Kód: Vybrat vše

If OptionButton2.Value = True Then
       Cells(DalsiRadek, 2) = "S7-300"
       fso.CopyFolder "D:\výchozí\plc\*", "F:\PLC\S7-300\", True
       Set objSoubor4 = fso.GetFolder("F:\PLC\S7-300\nová")
       objSoubor4.Name = TextBox6.Text
       
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
            "Z:\PLC\S7-300\" & TextBox6.Text, TextToDisplay:="S7-300"
           
    ElseIf OptionButton2.Value = True Then
       Cells(DalsiRadek, 2) = "S7-200"
       fso.CopyFolder "D:\výchozí\plc\*", "F:\PLC\S7-200\", True
       Set objSoubor4 = fso.GetFolder("F:\PLC\S7-200\nová")
       objSoubor4.Name = TextBox6.Text
       
       ActiveSheet.Hyperlinks.Add Anchor:=Cells(DalsiRadek, 2), Address:= _
            "Z:\PLC\S7-200\" & TextBox6.Text, TextToDisplay:="S7-200"
    End If

crgo77
Level 1
Level 1
Příspěvky: 68
Registrován: duben 14
Pohlaví: Muž
Stav:
Offline

Re: Přepínací políčka  Vyřešeno

Příspěvekod crgo77 » 11 dub 2014 20:20

Mockrát děkuju,funguje to přesně tak jak potřebuju.Doplnil jsem si to do počtu který potřebuju.Všechno funguje perfektně.
Ještě jednou děkuju :thumbup:


Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti