- Friss információk és képek a OnePlus új órájáról
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- One mobilszolgáltatások
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Huawei Watch Fit 5 Pro - jó forma
- Képeken a Sony WF-1000XM5
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Szaporodik és sokasodik a One UI 8.5
- Fotók, videók mobillal
- Google Pixel topik
-
Mobilarena
Mobilarena
Új hozzászólás Aktív témák
-
matekmatika
tag
-
p4t4
csendes tag
Persze, az első beírt számnál tedd ki az egyenlőségjelet + a számot.
Tehát az esetedben =464
Ezután ha visszetérsz ehhez a cellához nyomsz egy F2-t és csak beírod +656 stb.Akkor nem értem....
Akkor azon a gépen volt valami mahinálva... mert most megnéztem...
Ha beirsz egy számot, mondjuk 11... ugyanabba a cellába beirsz egy másikat... mondjuk 14... akkor nem a 14-et fogja kiirni, hanem 25-t ír... érted???
EZ KELL NEKEM!!!
-
matekmatika
tag
-
p4t4
csendes tag
Most ahol vagyok office2000 van és alapból = jel van ott, átállítani nem lehet, ezért mondtam ezt a ''hüleséget''.
Ha du. hazamentem megnézem a 2003-t találok-e valami beállítást. -
matekmatika
tag
-
p4t4
csendes tag
Szedd le az office 2003-at vagy újabb verziót a gépről, és tedd fel az office2000-et
![;]](//cdn.rios.hu/dl/s/v1.gif)
Más megoldás???
Nem hiszem el, hogy nem létezik más....
-
matekmatika
tag
Sziasztok...
Lenne egy kérdésem... Excel.. szerkesztőléc... Hogy tudom azt megcsinálni, hogy ott ne a fx (tehát a függvény legyen), hanem egyből egyenlőségjel = legyen...
Tudom, hogy meg lehet csinálni, mert az egyik user gépén ilyen volt és a másik is hozzá van már szokva ehhez... Ugyhogy pls HELP!!!
Szedd le az office 2003-at vagy újabb verziót a gépről, és tedd fel az office2000-et
-
p4t4
csendes tag
Sziasztok...
Lenne egy kérdésem... Excel.. szerkesztőléc... Hogy tudom azt megcsinálni, hogy ott ne a fx (tehát a függvény legyen), hanem egyből egyenlőségjel = legyen...
Tudom, hogy meg lehet csinálni, mert az egyik user gépén ilyen volt és a másik is hozzá van már szokva ehhez... Ugyhogy pls HELP!!! -
ssrobi
csendes tag
Passz. Amit leírtál kódot az jó. Nálam működik.
Esetleg próbáld meg ezt:
[link]
Bár ezt én nem próbáltam.Hát akkor nem értem, na majd megpróbálom újra feltepeíteni a progit amit adtál, hátha ott csesztem el valamit, mert az nekem egy PDF szerkesztőt akar megnyitni valamiért, ahelyet, hogy csak simán megcsinálná a PDF-et.
Ez a link nekem kicsit nagyon bonyolult amit adtál
Majd nézegetem még egy kicsikét
köszi mindenesetre!
-
Dictator^
veterán
Visszatérve egy korábbi hozzászólásodra, hogy annyira nem lehet nehéz megcsinálni..., lehet, hogy van akinek nem. Nekem azért kellett vele bírkozni egy kicsit. Nem lehetett volna a tételeket cellánként kezelni?
Itt a végeredmény, hozz létre egy új makrót és illeszd be:
Sub Szinezos()
'Hivatkozni szeretnék majd az aktuális munkalapra
'és mivel nem tudom mi most a neve nálad ezért
'először átnevezem ''Tételek''-re
ActiveSheet.Name = ''Tételek''
'Az utolsó sor száma
sor = ActiveSheet.UsedRange.Rows.Count
'Az utolsó oszlop száma
oszlop = ActiveSheet.UsedRange.Columns.Count
'Alapértelmezett szín
szin = 0
'Létrehozunk egy segéd munkalapot
Worksheets.Add.Name = ''seged''
'melyre a ''seged''-del fogunk hivatkozni
Set seged = Worksheets(''seged'')
'Aktívvá tesszük ismét a Munka1-t
Worksheets(''Tételek'').Activate
x = 0
'Két ciklussal végigmegyünk a cellákon
For j = 1 To oszlop
For i = 1 To sor
'aktuális cella
cella = Cells(i, j)
'cella karaktereinek száma
h = Len(cella)
''',''-t keres a szövegben
a = InStr(cella, '','')
'Ha nincs ''a'' értéke: 0 lesz
'Ha van akkor '','' pozícióját adja
If a > 0 Then
elso = Left(cella, a - 1)
masodik = Right(cella, h - a - 1)
'Ha nem talál '',''-t a beírt szövegben
Else
'Akkor az első legyen maga a cella tartalma
elso = cella
'Második tétel pedig nincs
masodik = 0
End If
'A kapott tételeket eltároljuk a segéd munkalapon
If elso <> Empty Then
x = x + 1
seged.Cells(x, 1) = elso
End If
If masodik <> Empty Then
x = x + 1
seged.Cells(x, 1) = masodik
End If
Next i
Next j
'Tételek átnézése azonosak megjelölése
Application.ScreenUpdating = False
Sheets(''seged'').Select
Columns(''A:A'').Select
Selection.Sort Key1:=Range(''A:A''), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Do While Cells(1, 1) = Empty
Cells(1, 1).Select
Selection.Delete Shift:=xlUp
Loop
a = 2
b = 1
Cells(1, 2) = Cells(1, 1)
Do While Cells(a, 1) <> Empty
If Cells(a + 1, 1) = Cells(b, 2) Then
Cells(b, 3) = Cells(b, 3) + 1
Else
Cells(b + 1, 2) = Cells(a + 1, 1)
Cells(b, 3) = Cells(b, 3) + 1
b = b + 1
End If
a = a + 1
Loop
Sheets(''Tételek'').Select
i = 1
szin = 2
Do While seged.Cells(i, 2) <> Empty
If seged.Cells(i, 3) > 1 Then
For j = 1 To sor
For k = 1 To oszlop
cella = Cells(j, k)
If cella Like ''*'' & seged.Cells(i, 2) & ''*'' Then
kezd = InStr(cella, seged.Cells(i, 2))
hossz = Len(seged.Cells(i, 2))
h = InStr(cella, '','')
If h > 0 Then
With Cells(j, k).Characters(Start:=kezd, Length:=hossz).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
If Left(cella, h - 1) = Right(cella, Len(cella) - h - 1) Then
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
Else
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
End If
Next k
Next j
End If
i = i + 1
szin = szin + 1
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Worksheets(''seged'').Delete
Application.DisplayAlerts = True
End Sub
vagy dolgozd át ezt, itt megnézheted konkrétan mit csinál: [link]
[Szerkesztve] -
matekmatika
tag
-
Lacir
csendes tag
A darabteli fv.-t DARABTELI(tartomány;kritérium) alakban kell megadni.
Bár kicsit megtekerve itt használható, ha a kritériumot úgy alakítjuk hogy a ''nemüres'' celláknak feleljen meg, de szerintem itt a DARAB2(tartomány) egyszerűbb lenne.
Ez utóbbi fv. a megadott tartomány területen található kitöltött cellák számát adja eredményül.fero02-nek is köszönöm.
Valóban a feltett kérdésemre az általatok megadott fv a megoldás, de közben mégis az üres cellák számolása mellett döntöttem, így a darabüres fv lett a megoldás, amit így már könnyű volt megtalálnom
Köszönöm az útbaigazítást és a segítségeteket
-
matekmatika
tag
-
Sziasztok!
Milyen fügvényekkel lehet elérni , hogy bizonyos oszlopokra értve azonos sorokat mutasson nekem?
Pl
Ha az A B és C oszlopok a figyelt részek:
...........A..............B.............C............D Függvény
1.....ablak.........ajtó..........ház..........3........... EZT Mutatja
2......ablak..........ajtó .......ház..........6...........EZT Mutatja
3.......fa .............ablak......ház.........23.........
4.......ablak...........tú........fefa..........2.............
?
Köszi -
bumper
senior tag
Sziasztok!
Milyen fügvényekkel lehet elérni , hogy bizonyos oszlopokra értve azonos sorokat mutasson nekem?
Pl
Ha az A B és C oszlopok a figyelt részek:
...........A..............B.............C............D Függvény
1.....ablak.........ajtó..........ház..........3........... EZT Mutatja
2......ablak..........ajtó .......ház..........6...........EZT Mutatja
3.......fa .............ablak......ház.........23.........
4.......ablak...........tú........fefa..........2.............
?
Köszi -
matekmatika
tag
-
lapa
veterán
Visszatérve egy korábbi hozzászólásodra, hogy annyira nem lehet nehéz megcsinálni..., lehet, hogy van akinek nem. Nekem azért kellett vele bírkozni egy kicsit. Nem lehetett volna a tételeket cellánként kezelni?
Itt a végeredmény, hozz létre egy új makrót és illeszd be:
Sub Szinezos()
'Hivatkozni szeretnék majd az aktuális munkalapra
'és mivel nem tudom mi most a neve nálad ezért
'először átnevezem ''Tételek''-re
ActiveSheet.Name = ''Tételek''
'Az utolsó sor száma
sor = ActiveSheet.UsedRange.Rows.Count
'Az utolsó oszlop száma
oszlop = ActiveSheet.UsedRange.Columns.Count
'Alapértelmezett szín
szin = 0
'Létrehozunk egy segéd munkalapot
Worksheets.Add.Name = ''seged''
'melyre a ''seged''-del fogunk hivatkozni
Set seged = Worksheets(''seged'')
'Aktívvá tesszük ismét a Munka1-t
Worksheets(''Tételek'').Activate
x = 0
'Két ciklussal végigmegyünk a cellákon
For j = 1 To oszlop
For i = 1 To sor
'aktuális cella
cella = Cells(i, j)
'cella karaktereinek száma
h = Len(cella)
''',''-t keres a szövegben
a = InStr(cella, '','')
'Ha nincs ''a'' értéke: 0 lesz
'Ha van akkor '','' pozícióját adja
If a > 0 Then
elso = Left(cella, a - 1)
masodik = Right(cella, h - a - 1)
'Ha nem talál '',''-t a beírt szövegben
Else
'Akkor az első legyen maga a cella tartalma
elso = cella
'Második tétel pedig nincs
masodik = 0
End If
'A kapott tételeket eltároljuk a segéd munkalapon
If elso <> Empty Then
x = x + 1
seged.Cells(x, 1) = elso
End If
If masodik <> Empty Then
x = x + 1
seged.Cells(x, 1) = masodik
End If
Next i
Next j
'Tételek átnézése azonosak megjelölése
Application.ScreenUpdating = False
Sheets(''seged'').Select
Columns(''A:A'').Select
Selection.Sort Key1:=Range(''A:A''), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Do While Cells(1, 1) = Empty
Cells(1, 1).Select
Selection.Delete Shift:=xlUp
Loop
a = 2
b = 1
Cells(1, 2) = Cells(1, 1)
Do While Cells(a, 1) <> Empty
If Cells(a + 1, 1) = Cells(b, 2) Then
Cells(b, 3) = Cells(b, 3) + 1
Else
Cells(b + 1, 2) = Cells(a + 1, 1)
Cells(b, 3) = Cells(b, 3) + 1
b = b + 1
End If
a = a + 1
Loop
Sheets(''Tételek'').Select
i = 1
szin = 2
Do While seged.Cells(i, 2) <> Empty
If seged.Cells(i, 3) > 1 Then
For j = 1 To sor
For k = 1 To oszlop
cella = Cells(j, k)
If cella Like ''*'' & seged.Cells(i, 2) & ''*'' Then
kezd = InStr(cella, seged.Cells(i, 2))
hossz = Len(seged.Cells(i, 2))
h = InStr(cella, '','')
If h > 0 Then
With Cells(j, k).Characters(Start:=kezd, Length:=hossz).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
If Left(cella, h - 1) = Right(cella, Len(cella) - h - 1) Then
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
Else
With Cells(j, k).Font
.FontStyle = ''Félkövér''
.ColorIndex = szin
End With
End If
End If
Next k
Next j
End If
i = i + 1
szin = szin + 1
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Worksheets(''seged'').Delete
Application.DisplayAlerts = True
End Sub
vagy dolgozd át ezt, itt megnézheted konkrétan mit csinál: [link]
[Szerkesztve]miért kell a segéd? a keres & színez elv az oké, én lusta voltam hozzá...
-
matekmatika
tag
á várj hülyén irtam le:
1Pepsi Cola 3dl, Coca-Cola 3dl >ez egy cella
2Pepsi Cola 4dl, Coca-Cola 4dl >ez egy cella
3Pepsi Cola 5dl, Coca-Cola 5dl >ez egy cella
4Pepsi Cola 3dl, Coca-Cola 4dl >ez egy cella
tehát látod 2x szerepel a Pepsi Cola 3dl, ez mondjuk legyen kék, a többi Colákra is más szint szeretnék.
hü de hülyén lehet ezt leirni
-
De amit Te mondasz az csak 1 rekordot nézz meg az ''1' fülön?
És nekem egyszerre kell az összes. Vagy most lehet, hogy én nem fogom mert péntek du van
[Szerkesztve]próbáld ki!
a C oszlopban (adatbázisban)
keresi a D aktuélis értékét, egyszerre egyet...
de persze nem tudom ez kell-e Neked, illetve, hogy ez jó e Neked! -
-
amit írtam az azt csinálja, hogy mindig a CX cellában (X a sorok száma) lévő cellát nézi meg, hogy megvan-e a másikban és ha megvan akkotr a DX-be beírja.
Vagy ha ez nem jó akkor nem értem
)tök világos amit írtál csak én nem egyet szeretnék keresni hanem több 100-at akarok keresni (egyszerre) a másik fülön.
-
nekem nem csak egy adatot kell keressek egyszerre hanem több százat hasonlítson össze a másik fülön lévővel.
[Szerkesztve]amit írtam az azt csinálja, hogy mindig a CX cellában (X a sorok száma) lévő cellát nézi meg, hogy megvan-e a másikban és ha megvan akkotr a DX-be beírja.
Vagy ha ez nem jó akkor nem értem) -
Szia!
Fkeres fügyvényt próbáltad már!? Szerintem az Neked tökéletes!
A munka2 D1 cellájában:
=FKERES(C1;Munka1!C : C;1;0)
és aa D cellában így megjelenik az a szám ami itt is ott is megvan.
[Szerkesztve]nekem nem csak egy adatot kell keressek egyszerre hanem több százat hasonlítson össze a másik fülön lévővel.
[Szerkesztve] -
Sziasztok, van nekem excel fájlom ahol az ''1''-fülön vannak adatok és a ''2''-n is vannak adatok.Azt szeretném megcsinálni, hogy a ''2'' fülön lévő adatok C oszlopában lévő adatokat hasonlítsa össze az ''1'' fülön lávő C oszlopával és ha talál ugyanolyat akkor az ''1'' fülön talált azonos adatok sorait szinezze be vagy jelőlje meg nekem vhogyan PL. a D oszlopba rakjon a találatokhoz egy ''flag''-et. Vki esetleg tud nekem mondani egy egyszerű megoldást?
Köszi előre is. -
Dictator^
veterán
Hányféle variáció van, már csak azért, hogy hányféle színt keressek hozzá?
nemtudom hogy lesz e még amit ki akarok emelni, nem tudod levezetni a folymatatot? plnak csináld mondjuk 4-el
aztán jó lenne ha átadnád a tudást pls köcc -
matekmatika
tag
-
ssrobi
csendes tag
Milyen hibával, melyik sorban?
Ja bocsi csak a lényeget hagytam ki
hibaüzi:
ActiveX component can't create object
jelölt sor:
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
Köszi -
febi
tag
1. Nem valószínű, ha neked 500 db összefűzendő cellád van, hogy az mind beleférjen majd B1-be. Csak szólok.
2.Hozz létre egy új makrót. (Eszközök-Makró-Makrók..., adj meg valami nevet neki pl. osszefuz, Létrehozás) Majd másold be a Sub osszefuz() és az End Sub közé ezt:
i = 2
Cells(1, 2) = Cells(1, 1)
Do While Cells(i, 1) <> Empty
Cells(1, 2) = Cells(1, 2) & ''|'' & Cells(i, 1)
i = i + 1
Loop
3. Zárd be a makroszerkesztőt. Ugyanott ahol létrehoztad indítsd el.Köszi szépen. megcsinálta a több, mint 5000 soromat is rendben
Jól müködik a makró
-
Dictator^
veterán
Sajnos majd csak délután lesz időm rá.
2 kérdés:
Mindíg így kettesével szereplenek?
Ill. ha igen akkor mindíg vesszővel vannak elválasztva?
Mert ha igen akkor jó. (Ha nem akkor nehéz lesz kitalálnia meddig tart egy tétel). -
matekmatika
tag
á várj hülyén irtam le:
1Pepsi Cola 3dl, Coca-Cola 3dl >ez egy cella
2Pepsi Cola 4dl, Coca-Cola 4dl >ez egy cella
3Pepsi Cola 5dl, Coca-Cola 5dl >ez egy cella
4Pepsi Cola 3dl, Coca-Cola 4dl >ez egy cella
tehát látod 2x szerepel a Pepsi Cola 3dl, ez mondjuk legyen kék, a többi Colákra is más szint szeretnék.
hü de hülyén lehet ezt leirni -
Dictator^
veterán
Hát lehet, hogy rosszul gondolkodom, de ha egy programnak végig kell néznie egy adott területet, hogy van-e egyforma szó, akkor valahogy keresnie kell. Igaz nem neked, hanem a programnak.
A példádat nézve viszont nekem úgy tűnik megsem szavakat kell összehasonlítani, hanem cellákat. Az én eredeti elképzelésem szerint pl. Coca-Cola 3dl és a Coca-Cola 4dl összehasonlítva a Coca-Cola azonos lenne, a 3dl és a 4dl különböző. De neked nem ez kell ezek szerint, hanem hogy az összes Coca-Cola 3dl egy színű legyen illetve az összes Coca-Cola 4dl is csak mondjuk másmilyen színű. Ha jól értem.á várj hülyén irtam le:
1Pepsi Cola 3dl, Coca-Cola 3dl >ez egy cella
2Pepsi Cola 4dl, Coca-Cola 4dl >ez egy cella
3Pepsi Cola 5dl, Coca-Cola 5dl >ez egy cella
4Pepsi Cola 3dl, Coca-Cola 4dl >ez egy cella
tehát látod 2x szerepel a Pepsi Cola 3dl, ez mondjuk legyen kék, a többi Colákra is más szint szeretnék.
hü de hülyén lehet ezt leirni -
matekmatika
tag
Kösziii megkaptam!
de persze mivel igen béna vagyok... továbbra is problémám van.. beírom amit a linket adtál, átjavítgatom, és megáll hibával. Ezt hoztam össze:
Private Sub CommandButton5_Click()
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
PDF.StartEngine ''demo@demo'', ''demo''
PDF.Filename = Cells(2, 2)
PDF.AutoLaunch = True
PDF.BeginDoc
ActiveSheet.PageSetup.PrintArea = ''$B$4:$J$49''
ActiveWindow.SelectedSheets.PrintOut
PDF.EndDoc
Set PDF = Nothing
End Sub
Mi lehet a gond? Azon kívül, hogy béna vagyok! -
matekmatika
tag
én nem keresni akarok csak átállitani az egyes szavak szinét, ezt 1x kell megcsinálni a proginak és nem hiszem, hogy nehéz lenne, mert amikor 1 név szerepelt a cellába akkor megcsinálta a feltételes formázással.
a szavak amik sokszor elfordulnak pl: Coca-Cola 3dl és ezt vedd hogy elég sok helyre van másolva (cellába), de néha van Coca-Cola 4dl, ezt is más szinnel kéne (és ez is több helyen szerepel). ez csak egy pl volt -
Dictator^
veterán
Tudod előre mely szavak szerepelnek többször több cellában is, mert az nagyban megkönnyítené a keresést, vagy ezt is a programnak kellene megkeresni. Ez utóbbi esetben, ha hosszabb a szöveg baromira lelassítja a keresést.
Milyen szavakról lenne szó? Pl. magánhangzók szerepelnek-e benne, vagy számok?én nem keresni akarok csak átállitani az egyes szavak szinét, ezt 1x kell megcsinálni a proginak és nem hiszem, hogy nehéz lenne, mert amikor 1 név szerepelt a cellába akkor megcsinálta a feltételes formázással.
a szavak amik sokszor elfordulnak pl: Coca-Cola 3dl és ezt vedd hogy elég sok helyre van másolva (cellába), de néha van Coca-Cola 4dl, ezt is más szinnel kéne (és ez is több helyen szerepel). ez csak egy pl volt -
ssrobi
csendes tag
Küldtem mailt.
Kösziii megkaptam!
de persze mivel igen béna vagyok... továbbra is problémám van.. beírom amit a linket adtál, átjavítgatom, és megáll hibával. Ezt hoztam össze:
Private Sub CommandButton5_Click()
Set PDF = CreateObject(''PDFCreatorPilot2.piPDFDocument'')
PDF.StartEngine ''demo@demo'', ''demo''
PDF.Filename = Cells(2, 2)
PDF.AutoLaunch = True
PDF.BeginDoc
ActiveSheet.PageSetup.PrintArea = ''$B$4:$J$49''
ActiveWindow.SelectedSheets.PrintOut
PDF.EndDoc
Set PDF = Nothing
End Sub
Mi lehet a gond? Azon kívül, hogy béna vagyok! -
Djatus
csendes tag
Application.DisplayAlerts = False
Worksheets(''MUNKALAP NEVE'').Delete
Application.DisplayAlerts = TrueKöszi
-
matekmatika
tag
-
matekmatika
tag
-
matekmatika
tag
-
matekmatika
tag
Sziasztok!
Lehet, hogy már volt ilyen kérdés, de sajnos nincs most időm végignyálaszni az összes hozzászólást. A kérdésem a következő. Hogy lehetne azt megoldani? Pl
az A oszlopban vannak számok és betük vegyesen (500db) azeket szeretném a B1-es mezőben látni egymás mellett, de úgy, hogy el vannak választva egymástól egy | karakterrel.
PL; A1, A2...stb. értékek vannak.
b105554,c554455 és én a B1 cellában ezt szeretném: b105554|c554455
húú. remélem érthetően írtam le?
köszi előre is a segítséget. -
-
ha 3-4 szóval kell müködnie, akkor nálam müködik, a lényeg, hogy jelöld ki az egész munkafüzet tartományát, aztán feltételes formázás, cella értéke legyen egynlő a szóval, aztán pedig hogy mit csináljon vele.
az a gond vele, hogy csak akkor szüri ki ha a Cellában 1 szó van amit én egyenlővé teszek fele és annak is csak a háttér szinét tudod állitani.
-
Sziasztok!
Lehet, hogy már volt ilyen kérdés, de sajnos nincs most időm végignyálaszni az összes hozzászólást. A kérdésem a következő. Hogy lehetne azt megoldani? Pl
az A oszlopban vannak számok és betük vegyesen (500db) azeket szeretném a B1-es mezőben látni egymás mellett, de úgy, hogy el vannak választva egymástól egy | karakterrel.
PL; A1, A2...stb. értékek vannak.
b105554,c554455 és én a B1 cellában ezt szeretném: b105554|c554455
húú. remélem érthetően írtam le?
köszi előre is a segítséget.Szia!
Hát van egy ötletem..de elég körülményes..és nem istudom, hogy működik-e 500 db-nál
Összefűf fügvénnyel összefűzögeted...
gondolom nem erre gondoltál -
ssrobi
csendes tag
Hát...bocs, nem láttam, hogy fizetős, de szerintem ez nem okozhat olyan nagy gondot....
Ha nem boldogulsz vele és érdekel dobj meg egy e-maillel.
például:
ActiveSheet.PageSetup.PrintArea = ''$C$46:$C$59''
ActiveWindow.SelectedSheets.PrintOut
természetesen a tartományt írd át ahogy neked megfelelSZia Sajna nem lelem a progit sehol sehogy
Valami ötlet?
Köszi!!! -
Sziasztok!
Egy kis segítségre lenne szükségem:
Az Űrlapokból a Kombi panelt szeretném használni, csak éppen egymás alatt 140 cellába kellene beszúrnom, és mindegyiknél a csatolt cellát is módosítanom kellene.
Hogyan lehetne ezt automatizálni, mert a Ctrl+C Ctrl+V csak egyesével működik.
Macrohoz nem értek.
A másik kérdésem:
Ha egy cella formátumát beállítom pl. ÉÉÉÉ.HH.NN-ra, hogyan tudnám kötelezővé tenni, hogy a tábla kitöltője ne tudjon más formát, pl.szöveget beleírni?
Köszi. -
matekmatika
tag
-
Aljas
csendes tag
Egy tapasztalati eloszlás függvényt kellene megjelenítenem, ehhez kéne segítség.
Igazándiból mindegy is, a lényeg, hogy egy olyan diagramot szeretnék létrehozni, amin azt kell ábrázolni, hogy pl. a vízszintes tengelyen 2 és 3 között a ''függvény'' értéke 4.
Ideális esetben üres és teli karika jelöli azt, hogy félig nyít intervallumról van szó, de ez annyira nem fontos...
Tulajdonképpen egy ''lépcsős'' függvényt kéne ábrázolnom.
Jöhet megoldás Excelre, vagy OpenOffice-ra is.
Mindenesetre egy kis ábrát beszúrtam azért, valami ilyesmit szeretnék:![[kép]](http://ktamas.uw.hu/lpdiag.bmp "[kép]")
Köszi -
ssrobi
csendes tag
PDF.FileName = ''HelloPDF_VB.pdf''
sorban a HelloPDF_VB.pdf-t cseréld le erre: Cells(2,2)
(idézőjelek nélkül, tehát: PDF.FileName = Cells(2,2))
Ja, természetesen a B2-be ilyenkor a kiterjesztéssel együtt kell szerepelnie a leendő pdf fájlnévnek. Tehát valami.pdf
Ha kiterjesztés nélkül van akkor azt a fenti sort így módosítsd:
PDF.FileName = Cells(2,2) & ''.pdf''
[Szerkesztve]
Ez a Pdf készítő fizetős...így ráirkálja, hogy TRIAL versióval készült..
Illetve még egy gond lenne... aszem fáradt vagyok..mit kell átírni, hogy az excelemet (nyomtatandó területet) küldje PDF re?
[Szerkesztve] -
ssrobi
csendes tag
PDF.FileName = ''HelloPDF_VB.pdf''
sorban a HelloPDF_VB.pdf-t cseréld le erre: Cells(2,2)
(idézőjelek nélkül, tehát: PDF.FileName = Cells(2,2))
Ja, természetesen a B2-be ilyenkor a kiterjesztéssel együtt kell szerepelnie a leendő pdf fájlnévnek. Tehát valami.pdf
Ha kiterjesztés nélkül van akkor azt a fenti sort így módosítsd:
PDF.FileName = Cells(2,2) & ''.pdf''
[Szerkesztve]
oksi értem, viszont akkor ehhez mindenkképpen ez a PDF Creator Pilot kell uugye? Mert én most nyomtatóként feltelepített CUTE Pdf -et használok.
Na de megnézem aztán jelentkezek! -
matekmatika
tag
-
ssrobi
csendes tag
Köszi! De sajna nem oldja meg ez sem maradéktalanul a problémám, ami az lenne, hogy pl a B2-es cella tartalmát használja mint név amikor elmenit a pdf-t. A B2 mindig változik, tehát nem ugyanaz a név kellene.. Meglehet ezt egyáltlaán csinálni?
Kösz -
matekmatika
tag
-
Köszi! viszont hmm
))
érdekes nekem nem pont ezt menti el Iletve az a baj, hogy nem irtam le rendesenmit is szeretnék
Tehát még azt szeretném, hogy az egyik cellában lesz egy ''egyedi'' azonosító, ami aztán a pdf file neve kéne hogy legyen..de ezt nem csinálja meg. Próbáltam, hogy másolás, aztán beillesztés..de ezt a makró rögzitő már nem veszi be
Odáig megcsinálja, hogy megnyitja a pdf nyomtatóba, de a file nevét már nekem kell bemásolja (persze nem esik legy az aranygyűrű az ujjamról, de nem így lenne az igazi..no meg a file nevét sem kézzel szeretném bepötyögni....
Nem tudom mennyire sikerült érthetően irjam a gondom
Köszi!Sziasztok!
Korábbi kérdésemre sehol senki semmi válasz? Ne mááár Naa valaki csak tud valami megoldást! Vagy nincs?
köszi előre is! -
matekmatika
tag
-
matekmatika
tag
Sziasztok. Akadt egy excel problémám, megpróbálom illusztrálni:
A cella tartalma formailag: ''1/5/2004,18.45,18.49,17.44,17.49'' , vagyis egy dátum, és 4 szám, az értékeket vesszők választják el egymástól. Hogyan lehetne ebből 5 cellát csinálni úgy, hogy ne nekem kelljen külön mindent beírogatni?
Van valami ötletetek rá?
[Szerkesztve]Kijelölöd azt az oszlopot amelyiket fel akarod darabolni cellákra, majd: Adatok - Szövegből oszlopok - Tagolt kapcsoló bejelölve <Tovább> - Vessző jelölőnégyzet kiválasztva <Tovább> - Itt formázhatod melyik oszlop milyen formátumú legyen (ha nem akarod formázni akkkor az előbbi <Tovább> helyett <Befejezés>-t is nyomhatsz.
Jah, hogy ez már meg van válaszolva
[Szerkesztve] -
Köszi! viszont hmm
))
érdekes nekem nem pont ezt menti el Iletve az a baj, hogy nem irtam le rendesenmit is szeretnék
Tehát még azt szeretném, hogy az egyik cellában lesz egy ''egyedi'' azonosító, ami aztán a pdf file neve kéne hogy legyen..de ezt nem csinálja meg. Próbáltam, hogy másolás, aztán beillesztés..de ezt a makró rögzitő már nem veszi be
Odáig megcsinálja, hogy megnyitja a pdf nyomtatóba, de a file nevét már nekem kell bemásolja (persze nem esik legy az aranygyűrű az ujjamról, de nem így lenne az igazi..no meg a file nevét sem kézzel szeretném bepötyögni....
Nem tudom mennyire sikerült érthetően irjam a gondom
Köszi!Hmm hmm sehol senki? Vagy csak ennyire értelmetlenül irtam le
-
Sziasztok. Akadt egy excel problémám, megpróbálom illusztrálni:
A cella tartalma formailag: ''1/5/2004,18.45,18.49,17.44,17.49'' , vagyis egy dátum, és 4 szám, az értékeket vesszők választják el egymástól. Hogyan lehetne ebből 5 cellát csinálni úgy, hogy ne nekem kelljen külön mindent beírogatni?
Van valami ötletetek rá?
[Szerkesztve]Szia!
Adatok/szövegből oszlopok/ menü, aztán
Tagolt->határoló jelek: , (vagy ami szerint szeretnéd tagolni) -> oszlop adatipusa ha meg akarod adni, majd Befejezés
leglaábis ha jól látom
Üdv: -
próbáltad már makrorögzítővel?
nekem megadja a printert is, szal ha a pdf writer látszik a nyomtatólistában, akkor műxenie kéne... pl:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
''\\szerver\nyomató a(z) Ne01: kimeneten'', Collate:=TrueKöszi! viszont hmm
))
érdekes nekem nem pont ezt menti el Iletve az a baj, hogy nem irtam le rendesenmit is szeretnék
Tehát még azt szeretném, hogy az egyik cellában lesz egy ''egyedi'' azonosító, ami aztán a pdf file neve kéne hogy legyen..de ezt nem csinálja meg. Próbáltam, hogy másolás, aztán beillesztés..de ezt a makró rögzitő már nem veszi be
Odáig megcsinálja, hogy megnyitja a pdf nyomtatóba, de a file nevét már nekem kell bemásolja (persze nem esik legy az aranygyűrű az ujjamról, de nem így lenne az igazi..no meg a file nevét sem kézzel szeretném bepötyögni....
Nem tudom mennyire sikerült érthetően irjam a gondom
Köszi! -
Hy ! Sürgős segítségre lenne szükségem... A feleadat az , hogy van egy évszám, de nincs közte semmilyen elválasztó : 20011123 Egy üres oszlopba be kell tenni az évszámot nevezetesen 2001 és ezt 80-szor elismételni különböző dátummal... Nincs erre valami függvény? Délig kellene válasz-,- Előre kösz
[Szerkesztve] -
Sziasztok!
Telejesen kezdő vagyok makrókban, mégis próbálkozok vele Eddig ami kellet azt makrórögzitővel megcsináltam vagy sikerült itt a fórumban megtaláljam hála nektek
Most azonban megakadtam
Kérdésem lenne, hogy valahogy meg lehet-e oldani (gondolom makróval) hogy 1 gomb megnyomásával PDF-et csináljon. Tehát kiválassza az excel az egyik nyomtatót (PDF nyomtatóra gondolok) és ki is ''nyomtassa''?
Majd lesz még más is De most ez lenne a legfontosabb
Előre is köszi!
ÜDv: ssrobi -
ssrobi
csendes tag
Sziasztok!
Telejesen kezdő vagyok makrókban, mégis próbálkozok vele Eddig ami kellet azt makrórögzitővel megcsináltam vagy sikerült itt a fórumban megtaláljam hála nektek
Most azonban megakadtam
Kérdésem lenne, hogy valahogy meg lehet-e oldani (gondolom makróval) hogy 1 gomb megnyomásával PDF-et csináljon. Tehát kiválassza az excel az egyik nyomtatót (PDF nyomtatóra gondolok) és ki is ''nyomtassa''?
Majd lesz még más is De most ez lenne a legfontosabb
Előre is köszi!
ÜDv: ssrobi -
matekmatika
tag
másik hülye kérdésem, hogy az első sorba irott dolgokat, szeretném ugy felállitani mintha az a 0. sor lenne, és az elsőtől kezdödjenek a felsorolások, ez egy dvd lista lesz, tehát az első sorba van pl hogy film cime, hangsávok stb és az rögzitve van, igy lapozásnál is látszik hogy az első sorba lévő rögzitett dolog, de hogy csináljam meg hogy az első sor a 0. sor legyen és csak utána kezdödjön a felsorolás?
bocsi ha hülyén fogalmaztam de fáradt vok, remélem érthető kkthx -
másik hülye kérdésem, hogy az első sorba irott dolgokat, szeretném ugy felállitani mintha az a 0. sor lenne, és az elsőtől kezdödjenek a felsorolások, ez egy dvd lista lesz, tehát az első sorba van pl hogy film cime, hangsávok stb és az rögzitve van, igy lapozásnál is látszik hogy az első sorba lévő rögzitett dolog, de hogy csináljam meg hogy az első sor a 0. sor legyen és csak utána kezdödjön a felsorolás?
bocsi ha hülyén fogalmaztam de fáradt vok, remélem érthető kkthx
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Majd nézegetem még egy kicsikét 
)
Előre is köszi 
Új hozzászólás Aktív témák
Fferi50- Elképesztő rajt a Forza Horizon 6-nál - Steamen már most népszerűbb elődjénél
- Autós kamerák
- Friss információk és képek a OnePlus új órájáról
- Parci: Milyen mosógépet vegyek?
- Hogy is néznek ki a gépeink?
- BestBuy topik
- Kamionok, fuvarozás, logisztika topik
- Projektor topic
- Óra topik
- AMD FX
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Forza horizon 6 prémiumot vásárolnék
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 45.000 ft
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Star Wars The Old Republic Collectors Edition
- Telefon felvásárlás!! Samsung Galaxy S25, Samsung Galaxy S25 Plus, Samsung Galaxy S25 Ultra
- AKCIÓ! Apple MacBook Air 13 M1 8GB RAM 256GB SSD notebook garanciával hibátlan működéssel
- Honor laptop i5-12500H / RTX 2050 / 16GB RAM / 512GB SSD / 2K kijelző Erős, prémium gép!
- ÚJ HP All in One 24-cr1234na PC - 24"FHD IPS - Ultra 5 125U - 16GB - 512GB SSD - Win11 - Garancia
- Honor 200 Lite 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest