[es] - pomoc za pocetnicki makro

pejja5
premier

Član broj: 187153
Poruke: 5
*.static.ikomline.net.

Profil

^{03.10.2008. u 19:44 - pre 189 meseci}

pokusavam da napravim neki pocetnicki makro koji ce mi selektovani tekst ( na primeru u prikacenom fajlu 1 - sheet 1) formatirati text sa arial bold 11,odseci b i f kolonu, odseci plave color redove i sloziti preostale podatke po vremenskom redosledu kao na primeru u prikacenom fajlu 1 ( u sheetu 2 ).Treba predvideti da ce se kolicina teksta nepredviđeno menjati, i u finalnom obliku kao u sheetu 2 , bice potrebno do 3 stranice.da li moze neko da mi pomogne malo bukvalnijim savetima s obzirom da sam pocetnik.hvala. da jos samo da mi objasnite gde se kace fajlovi?

Prikačeni fajlovi

2.xls - 123.5k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: pomoc za pocetnicki makro

^{03.10.2008. u 23:55 - pre 189 meseci}

Evo koda koji ce spisak utakmica sa prvog lista da kopira na Sheet3,
tebi ostaje da te celije formatiras i ako bas treba "prelomis" u vise kolona.

Code:

Private Sub Kopiraj()
Dim r As Long
Dim i As Long
Dim txtTime As String
Dim txtMatch As String
Dim txtChannel As String
Dim blnNewMatch As Boolean
Dim blnNewChannel As Boolean
    Range("C3").Select
    r = 3
    i = 2
    blnNewMatch = False
    blnNewChannel = False
    txtTime = ""
    txtMatch = ""
    txtChannel = ""
    Do While Cells(r, 5).Value & Cells(r, 6).Value <> ""
        blnNewMatch = Cells(r, 3).Value <> ""
        If blnNewMatch Then
            txtTime = Cells(r, 3).Value
            txtMatch = Cells(r, 4).Value
        End If
        blnNewChannel = Cells(r, 5).Value <> ""
        If blnNewChannel Then txtChannel = Cells(r, 5).Value
        If blnNewChannel Then
            Sheets("Sheet3").Cells(i, 2) = txtTime
            Sheets("Sheet3").Cells(i, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
            If blnNewMatch Then Sheets("Sheet3").Cells(i, 3) = txtMatch
            Sheets("Sheet3").Cells(i, 4) = txtChannel
            i = i + 1
        End If
        r = r + 1
    Loop
    Sheets("Sheet3").Columns("B:E").EntireColumn.AutoFit
End Sub

Pozdrav

Odgovor na temu

pejja5
premier

Član broj: 187153
Poruke: 5
*.static.ikomline.net.

Profil

Re: pomoc za pocetnicki makro

^{04.10.2008. u 12:17 - pre 189 meseci}

hvala, ali ja nemam pojma kako da upotrebim ovaj kod, odnosno gde da
ga ukljucim u kontekstu celog makroa?i kako se kopira kod u editoru?
copy-paste?

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: pomoc za pocetnicki makro

^{05.10.2008. u 08:24 - pre 189 meseci}

1. Otvori tvoj Excel fajl
2. Pritisni Alt+F11
3. Sa leve stane ekrana u Project Explorer prozoru pritisni dvaput na Sheet1
4. Copy/Paste-uj ovak kod
5. Vrati se u Excel na pogled na celije
6. Pritisni Alt+F8
7. Nadji na spisku Macro Kopiraj, selektuj ga i pritisni Run

Promeni u kodu u prvom redu Private u Public

Pozdrav

Odgovor na temu

pejja5
premier

Član broj: 187153
Poruke: 5
*.static.ikomline.net.

Profil

Re: pomoc za pocetnicki makro

^{05.10.2008. u 21:58 - pre 189 meseci}

Ovo sam uspeo,hvala mnogo, recite mi samo jos ovo:
kako da nastavim formatiranje sheeta3 u okviru ovog koda,
posle kopiranja utakmica u sheet3?
i necu vas vise zadrzavati.pozdrav

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: pomoc za pocetnicki makro

^{06.10.2008. u 11:05 - pre 189 meseci}

"Samo" pre End Sub dopisi tvoj kod za formatiranje.

Predlazem da prvo snimis makro koji radi formatiranje i ako fercera kako treba,
premesti taj kod na pomenuto mesto.

Pozdrav

Odgovor na temu