Küsimus Excel 2010 kohta

[saformo]

Tere!
Võibolla keegi on tegelenud sellega. Pusin juba tükk aega, aga pole lahendust leidnud.
Kõrval töölehel "A" veerus lahtrites 1-5 on sõnad. Esimesele töölehele oleks vaja saada "A" veergu mõnesse lahtrisse (1 kuni 20 piires) valikuliselt neid etteantud sõnu hiirega klõpsides.
Tegin nagu pildil, aga midagi jääb puudu. Lahtrisse (1 kuni 20) ei tule noolekest valiku tegemiseks.
Ehk on mõtteid? Tänu ette!

[kaspar99]

Vs: Küsimus Excel 2010 kohta

Kas peab kindlasti valemit kasutama?

Lihtne ja valmis Exceli lahendus.
Märgi ära lahtrid, kuhu tahad "list valikuid" ja ülevalt menüüst võta Data validation.
Sealt Allow lahtrist vali List. Source määra lahtrid, kust listi andmed võetakse.

* Ei lasknud source puhul minna teisele sheetile, et sealt lahtreid valida, aga panin käsitsi sheeti nime ette. Ilmselt aitab ka Name määramine ja selle kasutamine.

Testisin Excel 2007 peal, aga eeldan, et see võimalus ka 2010 alles.

K

[saformo]

Vs: Küsimus Excel 2010 kohta

Tänud kaspar99, see töötab ka Excel 2010-s!

[saformo]

Vs: Küsimus Excel 2010 kohta

Sama teema.
Aga seekord on vaja jätta lahtris olev varasem tekst alles ja 'listist' sinna lahtrisse midagi juurde valida, aga nii et varasema ja lisatava teksti vahel oleks koma.
Tänud ette, kes leiab lahenduse ...

[x7Mark]

Vs: Küsimus Excel 2010 kohta

Aga kas selline variant ei sobi - veerg A tekst, B valid lisa, C tulemus?

[saformo]

Vs: Küsimus Excel 2010 kohta

Varasem tekst, mis lahtris juba olemas ja mis tuleb alles jätta (millele tuleb lisada koma ja listist valida midagi juurde), ei ole listi sisuga seotud.
Aga uurin asja, ei ole leidnud veel lahendust.

[saformo]

Vs: Küsimus Excel 2010 kohta

Leidsin võimaluse, aga sellel ei ole enam Data Validation'i ja List-iga midagi pistmist.

  'siin määratakse kursorile veerg ja read, kuhu tohib midagi lisada:
  For Each rX In Selection
    If rX.Column <> 6 Then Exit Sub
    If rX.Row < 6 Or rX.Row > 55 Then Exit Sub
  Next rX
  '
  'siin leian t(koht) väärtuse InputBox abil, andmed on teisel töölehel
  '...
  '
  'siin täidetakse aktiivne lahter
  For Each rX In Selection
    If rX.Value <> "" Then rX.Value = rX.Value & ", " & t(koht)
    If rX.Value = "" Then rX.Value = t(koht)
  Next rX
  '

[kaspar99]

Vs: Küsimus Excel 2010 kohta

Ma ei ole kindel, kas sain täpselt aru, mida vaja.
Aga pakuks ka x7Mark toodule sarnast lahendust.
Näiteks: A1 lahter "vana tekst". B1 lahter "Listi" valik. C1 lahter =A1&", "&B1. C1 lahtris pannakse siis A ja B lahter kokku ja koma vahele neile.

[saformo]

Vs: Küsimus Excel 2010 kohta

Jah, ka selline kooslus töötab kenasti. On veel üks võimalus, kus B1 oleks nt listi sisust vajaliku rea valimine ja ükskõik kuhu lisatud nupp "ADD" võtab B1 ja lisab aktiivsesse lahtrisse.
Aga asi on selles, et pole niipalju ruumi, et kusagil ühte lahtrit vabaks teha. Ülaltoodud minu koodiga aga pole ühtegi lahtrit vaja reserveerida. LIST on kõrval töölehel ja sisu kuvatakse sobiva rea valimiseks InputBox-iga ja see oli kõige sobivam.
Igal juhul tänud kaasamõtlejaile!

[A.R.]

Vs: Küsimus Excel 2010 kohta

Kas sellist tabelit ei oleks lihtsam ise algusest lõpuni kirja panna?
Mõnes kõrgkeeles (C) pole see eriti keeruline aga üsnagi õpetlik.

[saformo]

Vs: Küsimus Excel 2010 kohta

Kas sellist tabelit ei oleks lihtsam ise algusest lõpuni kirja panna?
Mõnes kõrgkeeles (C) pole see eriti keeruline aga üsnagi õpetlik.

See tabel on pisike osa suuremast programmist, kui selle vastu suurem huvi peaks olema, siis võiks jah lausa .exe faili teha.

[A.R.]

Vs: Küsimus Excel 2010 kohta

See tabel on pisike osa suuremast programmist, võiks jah lausa .exe faili teha.

Võiks ju olla ka SuurProgramm.html koos JavaScriptiga.