Mun pitäis tehdä tämmönen tehtävä mutta en osaa.
Voisko joku viisaampi auttaa.
Pitäis tehdä exceliin vba sovellus jonka avulla tiedostosta joka on tallennettu levykkeelle asiakkaat.txt saataisiin asiakkaan yhteystiedot.
(eli etunimi, sukunimi, postinumero ja postitoimipaikka)
Mukaan otetaan vain ne tietueet jotka täsmää käyttäjän inputbox:iin)antaman postitoimipaikan kanssa.
Toivottavasti joku osaa auttaa!
Visainen tehtävä
Taru
1
638
Vastaukset
- Kunde
Hakee tiedot sarakkaisiin A-D ja tyhjentää aluksi sarakkeet.Muuta itselle sopivaksi.
Private Sub Hae(Postinumero As Variant)
Dim iInputFilenum As Integer
Dim sLineData As String
Dim a As Variant
On Error GoTo virhe
Range("A1:D1000") = ""
Range("A1").Select
iInputFilenum = FreeFile
Open "A:\Asiakkaat.txt" For Input As #iInputFilenum
Do Until EOF(iInputFilenum)
Line Input #iInputFilenum, sLineData
a = Split(sLineData, ",")
If a(2) = Postinumero Then
ActiveCell = a(0)
ActiveCell.Offset(0, 1) = a(1)
ActiveCell.Offset(0, 2) = a(2)
ActiveCell.Offset(0, 3) = a(3)
ActiveCell.Offset(1, 0).Select
End If
Loop
Close
Exit Sub
virhe:
On Error Resume Next
Close #iInputFilenum
End Sub
Sub Haku()
Hae InputBox("Haku postinumerolla")
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?
Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k1745242- 2024158
SDP haluaa 40 000 nettomaahanmuuttajaa
SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah1423745Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat703087Mikä tuota vasemmistolaisista jankkaavaa vaivaa?
Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia533020- 1482015
Nyt meni lopulliset lämmöt.
Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta441767Hienoa! 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.431539Onko erityinen paikka jossa haluaisit nyt olla
Onko joku spesiaali lempipaikka missä mieluiten olisit?661462Orpo loukkaantui fasismiin viittaavasta sanavalinnasta
Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk271331