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

<50

Äänestä

    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.

    • kunde

      Testi

    • kunde

      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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. En ole rakastunut

      Tai ihastunut sinuun. Kiinnostuin kyllä heti koska erotut massasta.
      Ikävä
      376
      3441

    2. Miksi suomalaisia vainajia säilytetään kylmäkonteissa ulkona? Näin kuolleita kohdellaan Suomessa

      Suomesta ei löydy enää tilaa kuolleille. Tänä päivänä vainajia säilytetään ympäri maata ulkona kylmäkonteissa. Kontit
      Maailman menoa
      179
      1498

    3. Olen ärtynyt koska

      minulla on tunteita sinua kohtaan. Tunteita joita en voi ilmaista. Kaipaan kaikkea sinussa. Siksi olen välillä hankala.
      Ikävä
      66
      1267

    4. Suomalaiset marjat loppuvat

      Suomalaiset marjat mätänevät metsään, koska ulkomaalaiset, lähinnä thaimaalaiset poimijat ovat huolehtineet suomalaisten
      Maailman menoa
      144
      1142

    5. Puhutko toisista ihmisistä

      pahaa, jotta näyttäytyisit itse jotenkin paremmassa valossa?
      Ikävä
      117
      853

    6. Joku tukeva täti syyttää suomalaisia rasisteiksi Hesarissa

      ”Kaikki valkoiset ihmiset Suomessa ovat kasvaneet rasistiseen ajatteluun”, sanoo Maija Laura Kauhanen: https://www.hs.
      Maailman menoa
      164
      815

    7. Mitä teen väärin?

      Alkaa pikku hiljaa tympäsemään ainainen pakkien saanti. Eka ennen kun nähdään, miehet ovat kiinnostuneita viestittelemää
      Sinkut
      115
      792

    8. Haluaisin tietää

      mikä saa sinut tuntemaan olosi rakastetuksi. Ja sitten haluaisin mahdollisuuden tehdä juuri niin. 💔
      Ikävä
      46
      782

    9. Oli mukava tavata irl

      Sattuma toi sinut matkani varrelle. Ihmettelin sitä silloin, ehkä vähän vieläkin. Oli ilo jutella ja tuntea, vaikka nyt
      Ikävä
      24
      779

    10. Yhteiskuntaa hyväksi käyttäjät

      Kyllä täällä Suomussalmellakin osaavat käyttää näitä Suomen etuja hyväksi. Vuokrataan ns. asunto lapselle että saa asu
      Suomussalmi
      46
      765
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt