EXCEL makró/visual basic editor

Látom megy a barter üzlet

Szívesen, hát msn-t mostanában ritkán használom. De majd persze, meg két játék közt is lehet kérdezni. Aztán ha engedsz nyerni akkor lesz válasz :D

kösz még dumálunk msn-en

Szia sharp!

Q3 alatt amit elárultál a feladatról ezekből már meg tudod oldani:

'valtozok

  Dim objFSO As Object 'fájl
  Dim objFile As Object 'fájl
  Dim strLine   'ebbe tarolok 1 sort 
  Dim r   'ebbe a sorba fogok írni az excelbe

'fájl megnyitás
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile("Fájl neve", 1)
'1 sornál kezdek       
  r = 1
'fejléceket beírom
  Cells(r, 1) = "Fejléc 1"
  Cells(r, 2) = "Fejléc 2"
'beállítom a formátumot
  Columns("B:B").Select
  Selection.NumberFormat = "#,##0"
'fájl feldolgozása
  Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine '1 sor beolvasása
    If Mid(strLine, 1, 4) = "Valami" Then 'fej 'fel kell dolgozni
      r = r + 1     'kovetkező sor
      Cells(r, 1) = Mid(strLine, 5, 10)  'beírja az értékeket
      Cells(r, 2) = Mid(strLine, 15, 10) 
    End If

    Cells(r, 7) = Left(strLine, Len(s) - 3) 'ez csak úgy, ilyen is van :) 
    Cells(r, 8) = Right(strLine, 3)  'szintén
 Loop      
 objFile.Close

Mit nem tuszd?

Mit akasrz?

Ott a help, tele példával. A neten is kis millió példa van... azokból is össze tudsz copypastezni egy programot és máris nagy programozó lettél :D

Alt+F11 és bejön a VB editor :D aztán mehet a móka.

De abból is tanulhastz, felveszed makrónak aztán megnézed a makró kódját.

no