Keresés

Részletes keresés

Törölt nick Creative Commons License 2011.03.15 0 0 14381

sziasztok.

 

Van egy csomó linkem s html formátumban -tehát aktív kattintható linkként- szeretném behelyezni excelbe, egyszerre az egészet.

 

Van rá lehetőség?

Delila_1 Creative Commons License 2011.03.15 0 0 14380

Továbbra is sumákol a fórummotor, duplázva sem jeleníti meg az Alt+92-t, pedig az előlnézetben jól mutatta.

 

xyc432 biztosan nincs netközelben.

Előzmény: szkripnyik (14379)
szkripnyik Creative Commons License 2011.03.15 0 0 14379

yxc432 köszöni szépen....

:-))

Előzmény: Delila10 (14377)
Delila_1 Creative Commons License 2011.03.15 0 0 14378

Helyesen "E:Temp"

 

A fórummotor mindig elsumákolja a jeleket. :)

Előzmény: Delila10 (14377)
Delila10 Creative Commons License 2011.03.15 0 0 14377

Itt a teljes makró, az utvonal változóban kell megadnod a saját fájljaid elérését az "E:Temp" helyére.

 

Sub Transzponalas()
    Dim wb1 As Workbook
    Dim utvonal As String, FN As String
    
    Application.ScreenUpdating = False
    utvonal = "E:Temp"
    FN = Dir$(utvonal & "*.*", vbDirectory)
    
    Do While (Len(FN) > 0)
        If Not (FN = "." Or FN = "..") Then
            Workbooks.Open Filename:=utvonal & FN
            Set wb1 = ActiveWorkbook
            Range("A1:DF120").Copy
            Range("A121").Activate
            Selection.PasteSpecial Transpose:=True
            Rows("1:120").Delete
            wb1.Save
            wb1.Close
        End If
        FN = Dir$()
    Loop
    
    Application.ScreenUpdating = True
End Sub

Előzmény: szkripnyik (14374)
tt65 Creative Commons License 2011.03.15 0 0 14376

Náalm A1:DF120 csak 110 oszlop. 

de tényleg jobb lenne az egészet makroval, nem rég volt itt egy kód ami az könyvtár összes fájlját megnyitja, abból el lehetne indulni...

Előzmény: szkripnyik (14374)
Delila10 Creative Commons License 2011.03.15 0 0 14375

Arra van itt a fórumon több példa, hogyan lehet egyenként megnyitni az azonos könyvtárban lévő füzeteket, és a megfelelő művelet elvégzése után mentéssel bezárni.

A művelethez ezt iktatsd be:

 

    Range("A1:V120").Copy
    Range("A121").Activate
    Selection.PasteSpecial Transpose:=True
    Rows("1:120").Delete

Az első sorban a V oszlopot kell átírnod a saját utolsó oszlopod betűjelére.

Előzmény: yxc432 (14371)
szkripnyik Creative Commons License 2011.03.15 0 0 14374

1. Kijelölsz egy 120*120-s üres területet

2. "Képletsorba" beírod a képletet =transzponálás(A1:DF120)

3. Nem "Enter"-rel fejezed be, hanem a mondott CTRL-SHIFT_Enter billentyűkombinációval.

A kijelölt üres területen ott lesz az eredeti transzponáltja.

Előzmény: yxc432 (14373)
yxc432 Creative Commons License 2011.03.15 0 0 14373

Ezt nem teljesen értem, és a súgóban se találtam példát rá.

Adva van pár száz munkafüzet, A-DF oszlopokban 120 sor adat. Ezeket kell transzponálni, mindet ugyan úgy, 120 sorból legyen oszlop. Most egyesével kell végigcsinálnom, elvagyok vele...

Előzmény: tt65 (14372)
tt65 Creative Commons License 2011.03.14 0 0 14372

Tömbképlettel!

=TRANSZPONÁLÁS(tömb) bevitel Control Shift Enter;az egész tarnszponált tömb területére

és ezt fogod látn:{=TRANSZPONÁLÁS(tömb)}

Előzmény: yxc432 (14371)
yxc432 Creative Commons License 2011.03.14 0 0 14371

Transzponálás automatizálására tudna valaki tippet?

Kellemetlen, hogy csak másolás kijelölése utáni "írányított beillesztés" -nél lehet külön bepipálva másolni. Kellemetlen emiatt megnyitni az összes táblázatot.:-(

yxc432 Creative Commons License 2011.03.14 0 0 14370

jogos, adatbáziskezelésben gondolkoztam, ott azonnal megvan a recordszám, itt nincs, trükközni kell.;)

Előzmény: _Nyuszi (14353)
tt65 Creative Commons License 2011.03.14 0 0 14369
Előzmény: szkripnyik (14368)
szkripnyik Creative Commons License 2011.03.14 0 0 14368

1900 év elejei dátumokkal vigyázat!!!!

1900.02.24

1900.02.25

1900.02.26

1900.02.27

1900.02.28

1900.02.29

1900.03.01

1900.03.02

1900.03.03

Talán itt súgta meg valaki, vagy máshol olvastam, még valamilyen Lotus1-2-3 (.wqs) "örökség"!!!!!

Nekem van egy Excel rutinkészletem 1900 előtti dátumok és Julianus naptár kezelésére.

Delila_1 Creative Commons License 2011.03.14 0 0 14367

A 2003 előtti verziókban még jó volt a dátum bevitele, de ott is a szerkesztőlécen állva, Ctrl+. -tal.

 

A Shift+Ctrl+,  most is beviszi számformátumban – az 1900.01.00 (!) dátumot és aktuális órát, percet. :D

Előzmény: Törölt nick (14366)
Törölt nick Creative Commons License 2011.03.14 0 0 14366

jut eszembe,

help szerint is van shortcut az aktuális dátum bevitelére, de nem müxik. ki tudja mi ennek az oka?

az idű müxik (ctrl+shift+.)

a dátum nem: (ctrl+;)

 

Előzmény: imray (14364)
Delila10 Creative Commons License 2011.03.14 0 0 14365

Sub datum()
    Selection = "Date: " & Date
End Sub

Erre gondoltál? Ez az éppen kijelölt területre viszi be a Date: kifejezést és az aktuális dátumot.

Előzmény: imray (14364)
imray Creative Commons License 2011.03.14 0 0 14364

Sziasztok; egyszerű kérdésem van: makró rögzítésekor (Excel 2002) hogy lehet megoldani, hogy lejátszáskor a művelet ne abban a cellában hajtódjon végre, mint ahol felvettem?

Pl. ebben az egyszerű esetben hogy kellene átírni a makrót? Köszönöm előre is a segítséget!

 

Range("F11:H11").Select
ActiveCell.FormulaR1C1 = "Date:"
Range("F11:H11").Select
Range("H11").Activate
ActiveCell.FormulaR1C1 = "=TODAY()"

real08 Creative Commons License 2011.03.13 0 0 14363

Legvégső esetben, ha abszolút ki van zárva az A1 cellás kivitel.

Előzmény: _Nyuszi (14362)
_Nyuszi Creative Commons License 2011.03.13 0 0 14362

Párbeszédablak, textboxszal (vagy simán szövegdoboz) bizti, hogy nem jó? :S

Előzmény: real08 (14361)
real08 Creative Commons License 2011.03.13 0 0 14361

Egyféle keresőmezőt szeretnék létrehozni.

Azért gondoltam a problémát megoldhatónak, mert az Excel használja a helyzetérzékeny kiegészítést. Pl. ha egy oszlopban városnevek vannak, akkor felkínálja a felette lévők közül azt, amelyik egyedül egyezik meg az éppen szerkesztett mezővel.

És köszönöm hogy foglalkoztok ezzel az üggyel.

Előzmény: Törölt nick (14359)
real08 Creative Commons License 2011.03.13 0 0 14360

Szerkesztés közben kellene kiírnia.

Előzmény: Sznida (14358)
Törölt nick Creative Commons License 2011.03.13 0 0 14359

Ez ebben a formában szerintem nem fog menni. Az Excel cella objektumának (legalábbis 2003-as verzióig) nincs olyan eseménye, ami a billentyűleütésekre reagálna. Kerülő megoldásként elképzelhető, hogy az A1 cellát pontosan lefeded egy TextBox-szal, mert azzal szerintem lehetségessé válik, amit akarsz. De a probléma-leírásod ugyebár "sarkított", és gyanítom, hogy a részletek ismeretében ez sem elegendően jó megoldás...

Előzmény: real08 (14357)
Sznida Creative Commons License 2011.03.13 0 0 14358

Szia,

 

B1-es cella képlete: =HOSSZ(A1), angol excel =len(A1)

 

Igaz ez csak az A1-es cella szerkesztése után írja ki...

 

Erre gondoltál?

 

Üdv: Sznido

Előzmény: real08 (14357)
real08 Creative Commons License 2011.03.13 0 0 14357

Sziasztok!

Excel programozásban járatlan vagyok. Problémám a következő (sarkítva), subrutint szeretnék írni:

Az A1-es cella szerkesztésekor minden billentyűleütésre jelenjen meg a B1 cellában az A1 karaktereinek száma.

 

Delila_1 Creative Commons License 2011.03.13 0 0 14356

Szívesen.

Előzmény: energy01 (14355)
energy01 Creative Commons License 2011.03.13 0 0 14355

Sziasztok

Köszönöm a hozzászólásokat :)

Delila 1-nek külön köszönet  nagyon jó megoldást írt :)

Delila_1 Creative Commons License 2011.03.13 0 0 14354

Két segédoszlopot kell felvenned. Feltételezem, hogy az ábrázolandó oszlopod az A, és a 2. sorban kezdődnek az adatok.

A B2 cella értéke legyen 2, a B3-é =B2+3. Ez utóbbit másold le az A oszlop adatai mellé.

A C2 legyen =INDIREKT("A" &B2). Ezt is másold le, ez az oszlop lesz a grafikon bemeneti értéke.

 

Előzmény: energy01 (14351)
_Nyuszi Creative Commons License 2011.03.13 0 0 14353

Kipróbáltad? (Mert sztem - fejben megcsinálva - így nem lesz jó.... :S)

Előzmény: yxc432 (14352)
yxc432 Creative Commons License 2011.03.12 0 0 14352

Ez mire jó? Nem hármasával akarod átalgolni?

Amúgy egyszerű, egy másik oszlopba átmásolod az első cellát, utána a hárommal lejjebbi cellát, és ezt másolod, amíg az utolsó értékhez érsz, és erre az oszlopra ráereszted a grafikon készítőt.

Előzmény: energy01 (14351)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!