VBA, täytä nimetyssä alueessa, jossa on rivi ja sarake -otsikot, solu jonka otsikot tiedetään

Anonyymi

Tarvitsisin VBA velhon apua, kuinka tämä saadaan aikaan tyylikkäästi? Työsivulla on nimetty alue: "munTietokanta". Siinä on ensimmäisellä rivillä on sarakeotsikot ja ensimmäisellä sarakkeella on riviotsikot.

VBA:ssa riviotsikko, sarakeotsikko, sekä data joka pitää laittaa siihen soluun joka on ko rivi/sarake risteyskohdassa, ovat kaikki tiedossa.

Yritän rakentaa CSV tiedostosta, jossa on rivi riviltä erotettuja tietoalkiota, 2-uloitteista Excel taulukkoa. CSV on rivi riviltä muotoa: "Artikkeli; turhaa; Ominaisuus; turhaa; Määrä; turhaa" ja sen saan helposti VBA luupissa Array() muotoon ja siitä "Artikkeli" on riviotsikko, "Ominaisuus" on saraketosikko ja "Määrä" on se mikä pitää panna ko risteyskohtaan.

Mutta, en voi uskoa että VBA:ssa ei ole valmista toimintoa siihen, että saisin helposti mätkäistyä "Määrä" arvon siihen soluun joka on "Artikkeli" ja "Ominaisuus" otsikkojen risteyksessä, en löydä sellaista toimintoa, enkä edes osaa kysyä Goolesta siten että koodia löytyisi.

7

188

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Yksinkertaistan: Työsivulla on nimetty alue "munTietokanta" jonka riviotsikot (vasemmassa laidassa) ovat artikkelien nimiä, ja sarakeotsikot (ensimmäisellä rivillä) ovat sanoja jotka kuvaavat erilaisia ominaisuuksia.

      Sitten, luen VBA:lla tekstitiedostoa rivi kerrallaan ja kultakin riviltä lötyy jokin "Artikkeli", ja sen jokin "Ominaisuus" ja kyseinen arvo.

      Nyt kaipaisin sellaista koodia joka panisi kyseisen arvon siihen soluun joka on kyseisin "Artikkeli" rivin ja kyseisen "Ominaisuus" sarakkeen risteyksessä. Siis funktiota tarkalleen ottaen jonka argumentteina olisi alueen nimetty nimi, rivin otsikkonimi, sarakkeen otsikkonimi sekä arvo.

    • Anonyymi

      Kiva olisi vastata, mutta​ kun oon jo kohta puolivuotta bannissa ja​yllapito ei​saa​asia ratkaistua...
      @Kunde

      • Anonyymi

      • Anonyymi

      • Anonyymi
        Anonyymi kirjoitti:

        Ikävää vain että verkkokortin MAC -osoite ei näy www -palvelimille lainkaan...

        Tietenkin MAC näkyy www _serverillä_, vaikka ei näy http(s) _protokollassa_. Palvelunveloittaja näkee jokaisen konjakinottajan MAC:n serveriltään, ja kun palvelunveloittaja haluaa bannata konjakinottajan, niin se blokkaa hänet MAC:n avulla. IP:n blokkaaminen ei ole tehokasta/hyödyllistä koska konjakinottaja voi vaihtaa IP:nsä noin silmänräpäytyksen aikana.


    • Testi

    • tota Excelin omaa natiivikieltä voi käyttää sitten suoraan excelin solukaavoissa
      eli jos haluat tuotteen 8 ominaisuuden 3
      soluun vaan kaava = tuote8(välilyönti tässä)ominaisuus3

      Valitse "mun tietokanta" ja menusta FORMULAS/CREAT FROM SELECTION määrittele
      TOP ROW ja LEFT COLUMN
      tekstitiedosto muotoa( voit käyttää haluamaasi erotinta,muista fiksata myös koodissa)
      tuote15;ominaisuus15;15
      tuote14;ominaisuus14;14
      tuote13;ominaisuus13;13
      tuote12;ominaisuus12;12
      tuote11;ominaisuus11;11
      tuote10;ominaisuus10;10
      tuote9;ominaisuus9;9
      tuote8;ominaisuus8;8
      tuote7;ominaisuus7;7
      tuote6;ominaisuus6;6
      tuote5;ominaisuus5;5
      tuote4;ominaisuus4;4
      tuote3;ominaisuus3;3
      tuote2;ominaisuus2;2
      tuote1;ominaisuus1;1


      Sub TäytäMunTietokanta()
      Dim Rivi As String
      Dim iFile As Integer
      Dim a
      Dim Tuote As String
      Dim Ominaisuus As String
      'muuta taulukon nimi sopivaksi
      Worksheets("Sheet1").Activate
      iFile = FreeFile
      'muuta polku ja tiedostonnimi sopivaksi
      Open "C:\Kunde\koe.csv" For Input As #iFile
      Do Until EOF(1)
      Line Input #1, Rivi
      ' fiksaa tarvittaessa erotin
      a = Split(Rivi, ";")
      Tuote = a(0)
      Ominaisuus = a(1)
      Intersect(Range(Tuote), Range(Ominaisuus)) = a(2)
      Loop
      Close #iFile
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      45
      3141
    2. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      508
      1917
    3. Päivieni piristys, missä olet?

      Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei
      Ikävä
      17
      1900
    4. Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia

      jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si
      Maailman menoa
      78
      1690
    5. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      18
      1502
    6. Jos sinä olisit pyrkimässä elämääni takaisin

      Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo
      Tunteet
      43
      1388
    7. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      26
      1322
    8. Millainen kaivattusi luonne on?

      Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?
      Ikävä
      90
      1319
    9. Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.

      Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.
      Kotimaiset julkkisjuorut
      116
      1157
    10. UPM suunnittelee paperintuotannon lopettamista LPR:ssa

      Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa
      Lappeenranta
      110
      1123
    Aihe