Keresés

Részletes keresés

Linuska7 Creative Commons License 2011.03.23 0 0 14455

Ugyan nem excel, hanem Google docs, de lehet tud nekem segíteni valaki..

Nemrég kezdtem el használni a Google docs-ot, azon belül is a táblázatot. Elég nagy táblázatban dolgozom, így van, hogy több száz sora is van egy munkalapnak, viszont mentés után újra megnyitáskor mindig az A1-es cellára (vagyis a legtetejére)ugrik vissza, nem úgy mint az Excel, ahol, ha elmentem és megnyitom, akkor az ugyanott állok. Néztem a beállításokat, de nem találtam erre beállítást. Létezik vajon erre megoldás?

Köszi előre is!

Sznida Creative Commons License 2011.03.22 0 0 14454

Szia,

 

Akkor próbálkozz ezzel:

 

If Range("a1").Font.Size = 12 Then
    Range("D1").Font.Size = 12
Else
    Range("D1").Font.Size = 10
End If

Ezt bemásolod a worksheet_selectionchange eseménybe, és akkor minden egyes cellamódosításnál beállítja a D1-es cella betűméretét!

 

Üdv: Sznido

Előzmény: CsRob1 (14453)
CsRob1 Creative Commons License 2011.03.22 0 0 14453

Köszi, ez nálam "Overflow" hibával leáll.

Igazából a következőre lenne szükségem:

Adott egy táblázat, aminek az első oszlop celláinak értékét és formátumát (jelen esetben csak a betűméret a fontos) bizonyos feltétel teljesülése esetén egy másik oszlopba kell másolni. Az értéket "ha" függvénnyel meg tudom oldani:

pl. a D1 cellában lévő képlet: HA(A1=5;A1;" "). A formátumot (betűméretet) így képzeltem el: "ha A1 betűmérete 12, akkor D1 betűmérete is 12 legyen, egyébként 10-es" Megoldható ez így?

 

Előzmény: Delila_1 (14452)
Delila_1 Creative Commons License 2011.03.21 0 0 14452

Rossz napom van. Valaki az előbb azt kérte (nem itt), hogy az egyik lapról a másik lap utolsó adata alá szeretné bemásolni az első lap értékeit és formátumát.

CsRob1 is értéket és formátumot említett, de nem volt szó a másolás helyéről.

 

Sub Bevisz()
Dim usor As Integer

Sheets("Kezdő_lap").Select

 

'Ehelyett fixen megadhatod a másolandó területet

'Pl. Range("A3:F50").Copy
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


Sheets("Másik_lap").Select

'Ehelyett konkrét helyet is meg lehet adni,

'pl. Range("B5").Select
usor = Range("A1").End(xlDown).Row + 1
Range("A" & usor).Select

 

Selection.PasteSpecial Paste:=xlPasteFormats

Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

Előzmény: Delila_1 (14450)
Delila_1 Creative Commons License 2011.03.21 0 0 14451

Az egyik megjegyzés sorban kimaradt a Copy-ból az o.

Előzmény: Delila_1 (14450)
Delila_1 Creative Commons License 2011.03.21 0 0 14450

Sub Bevisz()
Dim usor As Integer

Sheets("Kezdő_lap").Select

 

'Ehelyett fixen megadhatod a másolandó területet

'Pl. Range("A3:F50").Cpy
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


Sheets("Másik_lap").Select
usor = Range("A1").End(xlDown).Row + 1
Range("A" & usor).Select
Selection.PasteSpecial Paste:=xlPasteFormats

Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

A Firefoxban nem enged beírni, a gugliban meg ilyen tagolatlan lesz a programkód. :(

Előzmény: CsRob1 (14447)
CsRob1 Creative Commons License 2011.03.21 0 0 14449

Köszi, de automatikusan kellene...

Előzmény: Delila_1 (14448)
Delila_1 Creative Commons License 2011.03.21 0 0 14448

Fent az ikonok között alapbeállításban megtalálod a formátumfestő ecsetet. Erre kattintva kijelölöd az eredeti formátumot tartalmazó-, majd a formázandó tartományt.

Előzmény: CsRob1 (14447)
CsRob1 Creative Commons License 2011.03.21 0 0 14447

Sziasztok!

A következő megoldásához kérném a segítségeteket:

Egy táblázatból az adott feltételeknek megfelelő cellák értékeit egy másik táblázatban szeretném megjeleníteni az eredeti cellák formátumában. Az eredeti táblázatban különböző formátumú cellák vannak. Ha 10-es betűméretű az érték akkor így, ha pl. 12-es félkövér dőlt, akkor abban a formátumban. Az értékek átvitelét megoldottam függvényekkel, de hogy lehet megoldani a formátumok átvitelét? Létezik erre függvény?

 

Delila_1 Creative Commons License 2011.03.19 0 0 14446

Szívesen, bár a felét Jimmy írta.

Igaz, nálam az is működött, ami teljesen az enyém volt.

Előzmény: yxc432 (14445)
yxc432 Creative Commons License 2011.03.19 0 0 14445

Nagyon köszönöm, ez csont nélkül megcsinált mindent.;)

 

Előzmény: Delila10 (14429)
Törölt nick Creative Commons License 2011.03.19 0 0 14444

Ej, de meg van ez bonyolítva...

Persze nem tudom, mi a cél.. :)

Előzmény: Delila_1 (14441)
Törölt nick Creative Commons License 2011.03.19 0 0 14443

Ha syntax error, akkor az nem a makró hibája. Annál is inkább, mert a "dim wb1 as workbook" sor tökéletesen hibátlan.

Szerintem inkább arról van szó, hogy valami összegubancolódott a munkafüzetedben. Office dokumentumoknál előfordul az ilyesmi. Accessben is viszonylag gyakran megesik, hogy egy űrlap ismeretlen okból tönkremegy, és utána csak akkor tudod használni az adatbázist, ha minden egyes táblát, űrlapot és egyéb objektumot egyenként átviszel egy üres adatbázisba.

 

A helyedben azt tenném, hogy:

1) nyitok egy új, üres munkafüzetet

2) átmásolom a problémás munkafüzet lapjainak tartalmát egyenként az újba

3) bemásolom a használt makrót/makrókat is az újba

4) bezárom a régi munkafüzetet

5) elmentem az új munkafüzetet új néven

6) újraindítom az Excelt

7) megnyitom az új munkafüzetet és kipróbálom a hibásnak tűnő makrót

 

Esélyes, hogy működni fog, de ne kérdezd, hogy miért.

Előzmény: yxc432 (14440)
tt65 Creative Commons License 2011.03.18 0 0 14442

köszi! még sosem használtam ...

Előzmény: SQLkerdes (14439)
Delila_1 Creative Commons License 2011.03.18 0 0 14441

Végül sikerült Skype útján tisztázni a dolgot.

X db makróval bevitt szám közül 40% legyen -50, 29% 0, 15% 50, stb.

 

Megoldás: egy (A) oszlopba beviszek 40 db -50-et, meg a többit, összesen 100 db számot.

A makró egy cellában véletlenszámot generál 1 és 100 között, az A oszlop ennyiedik sorából viszi be a számokat a makró egy másik oszlopba. A bevitt mennyiség módosítható.

Nagyjából stimmel a százalékos arány, minél nagyobb a bevitt mennyiség, annál inkább.

 

Egy kis cifraság hozzá, hogy az új számsor tagjai mellé beírja, melyik kategóriába tartoznak (1-es a -50, 6-os az utolsó, a 200-as érték).

Előzmény: Törölt nick (14433)
yxc432 Creative Commons License 2011.03.18 0 0 14440

Üdv, megírtam, hogy második sorban áll le "dim wb1 as workbook" kékkel kiemelve

a hibaüzenet syntax error

(első soron "sub transzponalas()" áll sárga nyil, sor sárgán kiemelve, ha ez segit)

 

Előzmény: Törölt nick (14434)
SQLkerdes Creative Commons License 2011.03.18 0 0 14439

Nem kell makró, a HYPERLINK függvény pont ezt csinálja...

Előzmény: tt65 (14438)
tt65 Creative Commons License 2011.03.18 0 0 14438

Én az A oszlopba betenném a szöveget (Céges Indormáció) a B oszlopba a link címét (www.micegunk.hu) textben, és csinálék egy makrót, ami az A-ban lévő szöveghez Beszúrás-Hivatkozás beteszi a B-ben lévő linket. Utána B törölhető.

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

ez lenne a végeredmény ha rákattint a delikvens megnyilik az alapértelmezett böngésző a keresett oldalal.

 

A linkek sima txt ben vannak kigyűjtve, de tehetem word be ha úgy egyszerűbb.

 

A linkek címét ha egyesével át tudom írni de jó lenne ha csak ezzel kellene bajlódnom s mással nem.

Biztos látott már mindenki ilyen excel lapot amiben voltak ilyen linkek :(

Előzmény: tt65 (14404)
Törölt nick Creative Commons License 2011.03.18 0 0 14436

=INT(VÉL()*100)+1

 

Előzmény: tuono045 (14435)
tuono045 Creative Commons License 2011.03.18 0 0 14435

Közben összeállt a fejemben, és éppen rátapintottál a lényegére, amire nekem szükségem van. 1-100 ig számokra, amik véletleszerű sorrendben vannak. Ehhez utána hozzárendelem a kategóriákat. Hogy tudom előállítani a véletlen sorrendű 1-100-ig terjedő számsort?

Előzmény: Törölt nick (14433)
Törölt nick Creative Commons License 2011.03.18 0 0 14434

Ilyenkor célszerű megadni a hibaüzenetet, és hogy melyik sornál akad ki a futás. Úgy könnyebben tudnánk diagnosztizálni a problémát.

Előzmény: yxc432 (14421)
Törölt nick Creative Commons License 2011.03.18 0 0 14433

Valószínűleg totál nem értem a kérdést, de a következő gondolatom támadt.

Mi lenne, ha 1-100 közötti véletlenszámokat generálnál?

Ha az eredmény 1-40 között van, akkor 1. kategória. Ha 41-69 között, akkor 2. kategória, stb.

Előzmény: tuono045 (14411)
Delila10 Creative Commons License 2011.03.18 0 0 14429

Nálam rendesen működött, de átírtam a Jimmy féle formára.

 

Sub Transzponalas()
    Dim wbSource As Workbook
    Dim SourcePath As String, FName As String
    
    SourcePath = "C:itt_vannak_a_fájlok_mappa"
    FName = Dir(SourcePath & "*.xls", vbNormal)
    While Not FName = ""
        Workbooks.Open Filename:=SourcePath & FName
        Set wbSource = ActiveWorkbook
        Range("A1:DF120").Copy
        Range("A121").Activate
        Selection.PasteSpecial Transpose:=True
        Rows("1:120").Delete
        wbSource.Save
        wbSource.Close
        FName = Dir()
    Wend
End Sub

Most még az lehet baj, hogy Jimmy makrójávan összegyűjtötted 1 füzetbe az adatokat. Ez a gyűjtő füzet ne legyen a megadott könyvtárban.

Előzmény: yxc432 (14421)
Delila_1 Creative Commons License 2011.03.18 0 0 14428

Megpróbálom egyszerűbben, de el is küldöm a füzetet.

 

Tehát az 1:40 cella képlete az A oszlopban:

=RANDBETWEEN(RANDBETWEEN(1;20);RANDBETWEEN(21;30))

Ez 40 db 1 és 30 közötti véletlenszámokat állít elő.

 

A 41:69-ben: =RANDBETWEEN(RANDBETWEEN(31;40);RANDBETWEEN(41;50))

31 és 50 közötti számok, 29 db.

 

70:84-be: =RANDBETWEEN(RANDBETWEEN(51;60);RANDBETWEEN(61;70))

85:93-ba: =RANDBETWEEN(RANDBETWEEN(71;80);RANDBETWEEN(81;90))

94:98-ba: =RANDBETWEEN(RANDBETWEEN(91;100);RANDBETWEEN(101;110))

99:100-ba: =RANDBETWEEN(RANDBETWEEN(111;120);RANDBETWEEN(121;130))

 

Ezután egy makró a C oszlopot feltölti a véletszámokkal, a C2:C1001 tartományban (címnek hagyva helyet a C1-ben).

 

Sub rand()

Dim i As Long

For i = 1 To 1000

Cells(1, 10) = "=RANDBETWEEN(1,100)"

Cells(i + 1, 3) = Cells(Cells(1, 10), 1)

Next

End Sub

 

Természetesen az A oszlop véletlen tartományait a saját igényednek megfelelően add meg.

Előzmény: tuono045 (14420)
tt65 Creative Commons License 2011.03.18 0 0 14427

ill. ki tudja mire gondolt, de lehet így is. igaz a cond formatting sokkal jobb és több mindent tud. és a 2010ben még többet tud ...

Előzmény: tt65 (14426)
tt65 Creative Commons License 2011.03.18 0 0 14426

ő nem conditional formatting- ra gondolt, hanem cella egyéni formázásra, pl.: [Kék]0;[Piros]-0;[Zöld]0;[Sárga]" semmi szám"

 

Előzmény: SQLkerdes (14424)
Törölt nick Creative Commons License 2011.03.17 0 0 14425

"Kezdőlap" ("Home"?) és ott a "stílusok" (style?) és azon a feltételes formázás (conditional formatting?)

a használata más, mint 2003-ban de könnyű rájönni

Előzmény: Gavriel (14423)
SQLkerdes Creative Commons License 2011.03.17 0 0 14424

Home tab - Conditional formatting

Előzmény: Gavriel (14423)
yxc432 Creative Commons License 2011.03.17 0 0 14422

sajna rádió kavart meg, a webesek azt irták, egész héten szép idő lesz, majd először azt közölték a rádióban, hogy szerdától eső, majd webes előrejelzés és esti tv is azt mondta, hogy hétfőtől négy napig eső. Hát a hétfő-keddi kamu esőre sokalltam be, pláne a hétfői napomat kellett átszervezni, mert a csoport lemondta a kirándulást, hogy esőben nem jüó menni - simán mehettünk volna hétfőn, erre kedd-szerda kellett a hétfői dolgokat is megcsinálnom, napi 20 órás loholás értelmetlenül.:-((

 

szóval, nem én, hanem a csoport többsége, és nem öltem meg egy meteorológust ser, mert egyrészt a weboldalak mögött többnyire nem meteorológusok vannak, hanem reklámmarketingetek, akik bevételt akarnak, ehhez nagy kattintási arány kell, másrélszt annyit kapnék értük is, mint egy rendes emberért, nem éri meg.:-(

Előzmény: _Nyuszi (14397)

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