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.
VBA, täytä nimetyssä alueessa, jossa on rivi ja sarake -otsikot, solu jonka otsikot tiedetään
7
206
Vastaukset
- 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 jayllapito eisaaasia ratkaistua...
@Kunde- Anonyymi
Anonyymi bannissa? Vaihda verkkokortin MAC (Media Access Control) osoite: https://www.google.com/search?q=how to change a computer's MAC address
- Anonyymi
Anonyymi kirjoitti:
Anonyymi bannissa? Vaihda verkkokortin MAC (Media Access Control) osoite: https://www.google.com/search?q=how to change a computer's MAC address
Ikävää vain että verkkokortin MAC -osoite ei näy www -palvelimille lainkaan...
- 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
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst20914135Ikävä sinua mies
Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i555537Mikä tämä henkilö mahtaa touhuta Parkanossa
Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58684855Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat2783878PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1143606Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1333576Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.852130Maajussi-Ville herättää kysymyksiä - Etsiikö oikeasti rakkautta vai mainostaako oliiviöljyä?
Mitä mieltä olet: etsiikö Ville rakkautta vai mainostaako oliiviöljyään? Maajussille morsian -ohjelmassa yksi maajusseis171467Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1581251Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun3001175