Vypisanie textu podla hodnoty premennych Vyřešeno

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

Moderátor: Mods_senior

arasid
nováček
Příspěvky: 39
Registrován: říjen 11
Pohlaví: Nespecifikováno
Stav:
Offline

Vypisanie textu podla hodnoty premennych

Příspěvekod arasid » 01 srp 2012 10:27

Cawte..
mam mensi problem s ktorym si neviem rady, teda napadaju ma len velmi zlozite a zdlhave riesenia cez IFka
budem mat asi 20 chekckboxov a potrebujem aby sa nasledne ich hodnoty vypisali do jednej bunky v tvare: hodnota1+hodnota2+..... ..
problem je, ze neviem ako spravit aby mi pri prazdnej premennej nespravilo: hodnota1++hodnota3+.... cize chcem dosiahnut aby pri prazdnej premennej hodnota2 pisalo hodnota1+hodnota3+..
nie je na to daka kratka funkcia?

Kód: Vybrat vše

If chkhodnota1 = True Then

        check1 = "hodnota1"

    Else

        check1 = ""

    End If
   
    If chkhodnota2= True Then

        check2 = "hodnota2"

    Else

        check2 = ""

    End If
   
    If chkhodnota3 = True Then

        check3 = "hodnota3"

    Else

        check2 = ""

    End If
   

   
all = check1 & "+" & check2 & "+" & check3

Reklama
Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Vypisanie textu podla hodnoty premennych

Příspěvekod Azuzula » 01 srp 2012 11:53

Ahoj, myslím si že to jinak nepůjde než přes podmínky If
Každopádně bych podmínku napsala takto:

Kód: Vybrat vše

If chkhodnota1 = True Then
        check1 = "hodnota1"
        all = check1
End If
If chkhodnota2 = True Then
    check2 = "hodnota2"
    If all = "" Then
        all = check2
    Else
        all = "+" & check2
    End If
End If
If chkhodnota3 = True Then
    If all = "" Then
        check3 = "hodnota3"
        all = check3
    Else
        all = "+" & check3
    End If
End If

atd...
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

arasid
nováček
Příspěvky: 39
Registrován: říjen 11
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Vypisanie textu podla hodnoty premennych

Příspěvekod arasid » 01 srp 2012 12:24

jo supr toto je skratenie mojho povodneho planu :).. diky


este by som mal taku otazku.. vzdy ked macrom prehodim pivot tabulku zoradenu podla Total od Z po A tak mi to poprehadzuje hocijak..
ako nastavit aby to nerobilo?
pripadne aky prikaz vie usporiadat posledny stlpec (Total) od Z po A (zhora nadol)?

Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Vypisanie textu podla hodnoty premennych

Příspěvekod Azuzula » 01 srp 2012 14:12

Nedokážu si to představit, chtělo by to ukázkový sešit s tou tabulkou. Potom bude snažší s tím něco udělat.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

arasid
nováček
Příspěvky: 39
Registrován: říjen 11
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Vypisanie textu podla hodnoty premennych

Příspěvekod arasid » 01 srp 2012 15:09

mno to nepojde :/.. firemny file.. ide o stlpcovi graf ktory cerpa z pivot.. a ma byt zoradeny od A-Z (najmensieho cisla po najvecsie), na to vzdy musim dat v pivote usporiadanie v stlpci Total - od Z po A..
proste vzdy ked makrom filtrujem prvky pivotu sa mi zoradenie v tomto stlpci zrusi..

ted som to vyriesil, ze som si nahral makro ked to zoradujem rucne a to som vlozil do svojho, cize mi to zoradi po kazdom skonceni makra, ale je to dost blbe riesenie..

Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Vypisanie textu podla hodnoty premennych  Vyřešeno

Příspěvekod Azuzula » 01 srp 2012 15:36

Pokud to funguje jak má, tak je to dobrý řešení.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Sejmuti textu ve win 11 - vystřižky Příloha(y)
    od L.L » 08 říj 2024 21:17 » v Programy ke stažení
    1
    2538
    od petr22 Zobrazit poslední příspěvek
    10 říj 2024 11:22

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

Kdo je online

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