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
631
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
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070