Izbiranje v spustnih seznam v wordu ob določenih pogojih

[loubee]

Kako bi v wordu oz. v povezavi z excelom lahko naredil naslednjo stvar:

Rad bi imel tri spustne sezname.

V prvem seznamu bi izbral določeno kategorijo in potem bi v drugem seznamu imel možnosti izbrati samo vrednosti, ki se navezujejo na izbrano kategorijo v prvem seznamu.

V tretjem spustnem seznamu bi imel možnost izbrati samo tiste vrednosti, ki se navezujejo na vrednosti v drugem spustnem seznamu in s tem posledično na prvi spustni seznam.

[admin]

Pozdravljeni,

V Word-u morate pri seznam določiti tako, da se ob izhod sproži makro. V tem makru pa napolnite drugi seznam. Praktičen primer imate spodaj, kjer se v drug seznam napolnijo opcije B1, B2 in B3 v klikokor uporabnik v prvem seznamu izbere A1; v kolikor izbere A2, pa v drugem vidi C1, C2 in C3...

Koda: Izberi vse

'
'   www.matjazev.net
'      marec 2010
'
Sub PolniDrugiSeznam()
  If (ActiveDocument.FormFields("Spust1").Result = "a1") Then
    Selection.FormFields("Spust2").DropDown.ListEntries.Clear
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="b1"
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="b2"
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="b3"
  End If
  
  If (ActiveDocument.FormFields("Spust1").Result = "a2") Then
    Selection.FormFields("Spust2").DropDown.ListEntries.Clear
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="c1"
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="c2"
    Selection.FormFields("Spust2").DropDown.ListEntries.Add Name:="c3"
  End If
End Sub

Za povezavo z Excelom pa si poglejte tole tematiko.

PS: Tematiko z identičnim vprašanjem pa sem iz Excelovega podforuma izbrisal.