Vīpsnas Kakts -

> Jaunākais
> Arhivētais
> Draugi
> Par sevi

Jūlijs 3., 2009

Previous Entry Add to Memories Tell A Friend Next Entry
11:21
man ir tik augsti-intelektuāls darbs paveicams, ka taisni riebjas.
30 faili, kurā katrā ir jāizdzēš divi šīti, atlikušajos trīs šītos divreiz jāveic komanda find->replace all, šītiem jānomaina nosaukums un jāiekopē viens jauns šīts no cita faila.
sūdīga no manis rūpnīcas strādniece sanāktu.
es nupat piecus failus pabeidzu, trīsreiz saputrojos, un jau gribas iet nošauties.
vēl divdesmit pieci.

UPD: vēl divdesmit trīs. vajadzētu papildināt CV un ielikt pie additional skills, ka varu veikt tupu darbu.

UPD2: izrādāska tā tabula no cita faila nav pareiza!!!

UPD3: uzvara!

(4 izteicās | m?)

Comments:

From:[info]lodzinjsh
Date:3. Jūlijs 2009 - 11:41
(Link)

Sheets("šīta nosaukums").Select
ActiveWindow.SelectedSheets.Delete

Cells.Replace What:="sameklējam", Replacement:= _
"aizvietojam", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False

Windows("dokuments no kura kopē").Activate
Sheets("vajadzīgais šīts").Select
Cells.Select
Selection.Copy
Windows("dokuments, kur jākopē iekšā").Activate
Sheets("sīts kur jāiekopē").Select
ActiveSheet.Paste

Sheets("Šīts, kur ir virsraksts jāmaina").Select
Range("šūna, kur ir vecais virstaksts").Select
ActiveCell.FormulaR1C1 = "jaunais virsraksts"
[User Picture]
From:[info]viipsna
Date:3. Jūlijs 2009 - 11:43
(Link)
un ko lai es ar šito iesāku??
From:[info]lodzinjsh
Date:3. Jūlijs 2009 - 11:45
(Link)
uj, nu tad labāk uzskati, ka neko neesmu teicis.
vēl ilgāk sanāks čakarēties.
[User Picture]
From:[info]viipsna
Date:3. Jūlijs 2009 - 11:45
(Link)
nuvotā.

> Go to Top
Sviesta Ciba