-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
sonar
addikt
Sziasztok,
Hogy tudom azt megoldani, hogy egyik cella értékét és formátumát is átvigyem egy másik cellába?
Vagyis, van egy C2 cellám ahol dőlten, meg pirossal van irva vmi az mondjuk a D2-ben is ugyanúgy és ugyanaz legyen? Próbáltam a D2-be beirni, hogy =C2, de ez csak a benne tárolt értéket viszi át, nekem meg kéne a formátum.
Megoldható ez vhogy?üdv
sonar -
pentium4
senior tag
sziasztok!
egy kis segitséget kérnék!
van egy táblázatom
1 sor és 5 oszlop
A1 B1 C1 D1 E1
best ár, bolt1, bolt2, bolt3, bolt4
a bolt1-4 cellákba összegek vannak de van van oylan hogy 0 kerül bele, mert pont nincs az adott boltba!
az A1 cellába kell megjeleníteni a legkisebb összeget, ez sikerült is a =MIN() függvénnyel, csakhogy igy a 0át irj ki, és nemtudom hogy hogy kéne beleirni a függvénybe hogy a 0 kivétel legyen!
az hogy a 0 helyett azt irom hogy nincs rakt
ron stb. nem megy, mivel abból a ellából másik 3 számol és ha oda szöveget irok akkor a többi helyre ÉRTÉK-et ir!
remélem tudtok segiteni!
kösziP4
-
ferec
tag
Sziaszok!
A problémám a következő:Van egy táblázát amelynek minden oszlopába egy-egy munkalap adatai vannak. A 4. sor taralmazza az adott város kódját (BP,JB,JF). Hogy tudok úgy szűrni, hogy csak azok az oszlopok(!) jelenjenek meg amelyeknek a 4. sora az adott városhoz tartozik?
-
siti
őstag
"excel... kinyalja a s@gged, de közben leharapja a t@ködet" (Tsöpi)
sziasztok,
belefutottam a fenti szívásba. angol excelben, "írtam" egy makrót, lényege:
loop-al megnézi a következő üres cellát, majd bebiggyeszt oda egy szimpla =today() függvényt, ennyi. működik.Persze otthon magyar excelem van, az ezzel kezd:
A3 körökörös hivatkozás (innen indul a loop), persze nincs semmi, hibaüzenet leokéz, mert a körkörös hivatkozás nem dob fel semmit.
cellába pedig eddig három dolgot írt ki:
#Érték (random)
0 (ha cella formája Általános)
1900.01.01 (ha cella formája Dátum)
ha belekattintok, ott figyel a =Ma() függvény (persze lefordítottam neki) és ha kilépek a cellából, már adja is a jó értéket.Ez mi a túróért van? Ami angolban megy az miért dob hátast magyarban? Mit hagytam ki?
A makró amúgy:
r = 3
Do While Cells(r, 1).Value <> ""
r = r + 1
Loop
Cells(r, 1).FormulaR1C1 = "=MA()"és még csodálkoznak ha iszom...
-
#8287
opzozi
tag
Fire/SOUL/CD
#8286
opzozi
tag
válasz
Fire/SOUL/CD
#8286
üzenetére
Ez lesz az. Köszönöm szépen.
-
#8286
Fire/SOUL/CD
félisten
opzozi
#8285
Hali!
A példa kedvéért A1 : A100 tartományban vannak a linkek. Készítünk egy GetURL függvényt (ALT+F11/Insert menu/Module) a megjelenő ablakba illeszd be ez a kódot
Function GetURL(My_Range As Range) As String
If My_Range.Hyperlinks.Count > 0 Then
GetURL = My_Range.Hyperlinks(1).Address
Else: GetURL = My_Range
End If
End FunctionEzt követően B1 cellába meg írd be =GetURL(A1) , majd másold le ameddig szükséges.
Fire.
-
#8285
opzozi
tag
Fire/SOUL/CD
#8284
opzozi
tag
válasz
Fire/SOUL/CD
#8284
üzenetére
"Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?"
Nem akarom beilleszteni a képet, elég csak a hiperhivatkozás szövegként."Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
(pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)"Pontosan.
-
#8284
Fire/SOUL/CD
félisten
opzozi
#8283
Hali!
Hát ebből a megfogalmazásból megint 2 dologra tudok gondolni
1. "A Link szó valóban egy link, és amire mutat, azt szeretném megjeleníteni."
Tehát ha a link egy pl képre mutat, akkor a képet akarod beillszteni a cellába?2. "Tehát a tényleges linket egyik cella sem tartalmazza csak maga a "Link" hivatkozása."
Ezek szerint meg az a cél, hogy a korábbi Link feliratú hiperhivatkozás megszűnjön létezni és helyette(ugyanabban a cellában) csak sima szövegként jelenjen meg a hiperhivatkozás címe?
(pl egy kép hiperhivatkozása van ott és csak a LINK felirat látszik, ezt kell lecserélni egy sima szöveggé, amire a hiperhivatkozás hivatkozott korábban pl http://www.valami.hu/kep1.jpg)Fire.
-
#8282
opzozi
tag
Fire/SOUL/CD
#8281
opzozi
tag
válasz
Fire/SOUL/CD
#8281
üzenetére
Akkor úgy látszik, ma én nem vagyok formában.
Köszönöm szépen. -
#8281
Fire/SOUL/CD
félisten
opzozi
#8280
-
#8280
opzozi
tag
Fire/SOUL/CD
#8274
opzozi
tag
válasz
Fire/SOUL/CD
#8274
üzenetére
Ez az alap állapot:
Egy hivatkozás egy képre.És amire szeretném:
A "Link" helyett maga hivatkozás jelenjen meg. Tehát a "Link" szöveget szeretném cserélni az adott hivatkozásra.Lényegében ennyi.
-
motinka
tag
Köszi perfag ( és bocs a múltkori elírásért), közben aludtam egyet és az alábbi szerint működik ahogy szeretném:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3") = ""
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End Sub -
-
motinka
tag
válasz
motinka
#8264
üzenetére
Egy régi megoldásotokat felhasználva majdnem megoldottam a problémámat, az alábbiakkal:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
Range("E2").Select
Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
End If
End SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$E$2" Then
Range("E3").Select
Selection.AutoFilter Field:=5
End If
End SubA vastagított rész akkor lenne igazán jó, ha ekkor erre a cellára ugrás után törölné annak tartalmát és aktiv cella lenne, azaz a kurzor benne van.
Mit kell beleírni még ehhez?köszi előre is a választ
-
aclandiae
senior tag
Sziasztok!
A, az Auto-szűrő html formátumban is működik? ha nem, hogy lehet működésre bírni?
B, hogy lehet a ki nem használt cellákat kitörölni, hogy csak az látszódjon amiben van adat?
C, hogyan lehet levédeni a cellákat, hogy ne lehessen módosítani?
D, hogy lehet az Excelbe olyat megoldani: a weboldal formátumában kijelölgetni 1-1 tétel amit meg akar valaki venni/el akar cserélni, és ez a weboldal pl. jobb szélen - ahol már nincs táblázat, mert csak 6 oszlopos - egy kis listába bekerül a jelölés hatására, majd ha végzett ezt a listát e-mailben elküldi nekem? -
#8274
Fire/SOUL/CD
félisten
opzozi
#8273
Hali!
Ma nehéz a felfogásom...
Dobj be 2 képet a cellákról, az elsőt hogy most milyen, a másodikat meg hogy ilyenre, akkor meg fogom érteni és módosítom a makrót...
Fire.
UI: Most is sejtem, mit szeretnél, csak a megerősítés jó lenne, mert nem akarom 5x átírni a makrót...
-
#8273
opzozi
tag
Fire/SOUL/CD
#8267
opzozi
tag
válasz
Fire/SOUL/CD
#8267
üzenetére
Link névvel szerepel, ami egy hivatkozás, csak ugye ez mondjuk txt-be konvertálva nem látszik. Ezért szeretném ezt a Linket a valós hivatkozásra lecserélni.
Tehát
Link (http://...) erre a hivatkozásra mutat
és ezt kéne erre:
http://... (http://...) -
#8268
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#8267
válasz
Fire/SOUL/CD
#8267
üzenetére
Hali!
Na még1x, szóval ha így néz ki a dolog és abból ilyet szeretnél készíteni, akkor ez a makró megfelel. A makró kód elején add meg, hogy melyik munkalap, melyik oszlopában vannak a linkek. Itt a példában a Munka1 lap A oszlopában vannak a linkek.
Fontos
Először legyen egy másolatod a kívánt munkafüzetről, mert ha mégsem azt csinálná a makró, amit szerettél volna, akkor nem lehet használni az undo parancsot...Private Sub CommandButton1_Click()
Dim SrcSheet As Object
Dim My_Range As Range
My_Sheet = "Munka1" 'Itt megadod, hogy melyik munkalapon van az oszlop
My_Column = "A" 'Itt megadod, hogy melyik oszlopban vannak a linkek
Set SrcSheet = ThisWorkbook.Sheets(My_Sheet)
Set My_Range = SrcSheet.Range(My_Column & "1:" & Range(My_Column & "1").End(xlDown).Address)
Application.ScreenUpdating = False
SrcSheet.Select
On Error Resume Next
For Each CurrCell In My_Range
CurrCell.Hyperlinks(1).TextToDisplay = CurrCell.Hyperlinks(1).Address
Next CurrCell
Set My_Range = Nothing
Set SrcSheet = Nothing
Application.ScreenUpdating = True
End SubFire.
-
#8267
Fire/SOUL/CD
félisten
opzozi
#8262
-
motinka
tag
Lenne egy újabb kérdésem, biztosan tud valaki rá valami jó megoldást.
Adott táblázat A oszlopának sorait egy vonalkód beolvasóval töltünk ki egy egyedi azonosító számsorral.
Az a papír alap, amiről beolvastuk a vonalkódot az másnap visszaérkezik, és vannak rajta újabb adatok.
Azért hogy a táblázatban ne kelljen keresni a papírt adatait, a vonalkód olvasóval kikeressük a megfelelő sort CTRL+F billentyű azaz kereséssel.Az lenne a kérdésem, hogy lehetne-e ezt egyszerűsíteni, hogy ez a kereső ablak ne ugorjon fel, amennyiben a vonalkód olvasóval beolvastatok egy kódot, hanem egyszerűen csak a tábláztaban ugorjon a megfelelő sorra az aktív ablak, majd ha egy másik kódot olvasok be akkor arra ugorjon, minden felugró ablak nélkül.
örülnék ha lenne megoldás így 1xübb lenne a keresés.
előre is köszönöm segítségeteket
üdv
-
opzozi
tag
Szükségem lenne a segítségetekre. Excel makrókban nem vagyok jártas.
Adott egy excel tábla van benne egy oszlop, amiben linkek vannak. Ez úgy néz ki, hogy a cellában "Link" névvel szerepel és ugye ott van alatta a hivatkozás. Ezt a hivatkozást szeretném megjeleníteni úgy, hogy a "Link" nevet kicserélje az adott hivatkozásra, tehát "http://...."
-
Delila_1
veterán
válasz
bnorci71
#8252
üzenetére
Eszembe jutott valami, de megint csak este tudom kipróbálni. Érdekes feladat, biztosan más is próbálkozik addig a megoldással.
Hogy ne kelljen a lehetséges megoldóknak visszakeresni:
Az A2:A14 tartományban focicsapatok nevei vannak. A teljes tartomány címsorral együtt A1:AI14, ami az AI oszlop értékei szerint van csökkenő sorrendbe rendezve. Az AI változik, emellé kellenének a nyilak az AJ, vagy AK oszlopba. -
csferke
senior tag
Sziasztok!
Excel 2007 macróban hogyan lehet megállítani a macró futását adatbevitel céljából?
Futtatok egy macrót amely végig kell, hogy járjon bizonyos cellákon amelyekbe adatokat kellene bevinni. Minden ilyen cellán meg szeretném állítani, beírni az adatot és Enter leütésére folytatódjon a macró futása a következő cellára.köszi
-
-
biker
nagyúr
Delila: elküldtem a kérdéses filet. excel alatt (2004 for mac) még annyira sem jó, mint openoffice alatt, ugyanis ott vagy #hiányzik, vagy a helyes érték jön vissza.
Excelben vagy #n/a vagy #href jön vissza, sosem a helyes érték.Ha véletlen lesz időd rá, nagyon megköszönném
És az excel is úgy sorrendezi a szám jellegű mezőimet (kétszer is elenőriztem, számra van állítva, az sql exportnál is INT alapú mező volt!) hogy pl 42998, 42999, 43, 4300, 43000, 43001 stb
ez viszont text-re utal...
wtf? -
Delila_1
veterán
Ez azért van, mert bár szám külleműek az adataid, szöveg formátumúak. Körülményesen úgy tudnád átalakítani, hogy az egész tartományt szám formátumúra állítod, de egyenként le kellene enterezni utána mindet.
Egyszerűbben is lehet, szorozd meg az adatokat 1-gyel. Excelben ennek a módja: beírsz egy cellába egy 1-est, másolod, kijelölöd a felszorzandó tartományt, jobb klikk, Irányított beillesztés, Szorzás.
Figyelj arra, hogy mindegyik táblázatodban számként szerepeljenek az összehasonlítandó adatok. -
-
bnorci71
addikt
válasz
Delila_1
#8251
üzenetére
szuper köszönöm
következő full extra kérés és ezzel szerintem 100%-ra kész a tabella
az utolsó oszlopba ha felfelé mozdult a csapat felfelé nyíl ha lefelé lefelé nyíl ha marad akkor nyégyszög vagy karika kerüllne.
Ennek megoldására elképzelésem sincs
, gondolom szintén makró kell. -
Delila_1
veterán
válasz
bnorci71
#8225
üzenetére
Tényleg elsiklottunk a régi kérdésed fölött.
A laphoz kell rendelned egy makrót -> lapfülön jobb klikk, Kód megjelenítése. A képernyő jobb oldalán kapott üres lapra másold be:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 28 And Target.Row >= 2 And Target.Row < 15 And _
Target.Column Mod 2 <> 0 Then
Range("A1:AI14").Sort Key1:=Range("AI2"), Order1:=xlDescending, Key2:= _
Range("AH2"), Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End If
End Sub -
-
perfag
aktív tag
válasz
motinka
#8244
üzenetére
A + jelnem jó. A cellatartalmat Delete-tel törlöd és üres lesz, ennyi elég.
Tegnap volt a hosszú napom, ma reggelről egy megoldás:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("C2:C20")) Is Nothing Then
If ActiveCell.Value = Empty Then ActiveCell.FormulaR1C1 = "=IF(OFFSET(RC,0,-2)=""SC"",""SC"",""-"")"
End If
Application.EnableEvents = True
End Sub
A VBA "adat" lapjára kell tenned.Műxik, egy apró szépséghibával: Delete, Enter ezzel kitörlöd a cellát, pontosabban üres lesz, majd vissza kell rá kattintani, akkor beírja a képletet. Most mennem kell dolgozni, de du. megnézem mi a francért nem csinálja ezt meg elsőre, a Delete, Enter-re.
Már 2-3 éve nem programozok, berozsdáltam. -
-
Delila_1
veterán
válasz
motinka
#8244
üzenetére
Akkor mégis a laphoz kell rendelni a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Target.Column = 3 And Target.Value = "W" Then
Range(Target.Address).Formula = "=IF(A" & Target.Row & "=""SC"",""SC"",""-"")"
End If
End SubA "TECHN" és "tipus" névadásokat egy OFSZET függvénnyel átírtam úgy, hogy az érvényesítések legördülőjében mindig annyi adat jelenjen meg, ahány éppen van a két listában - bővítés vagy szűkítés esetén az aktuális adatmennyiséghez igazodnak (Beszúrás/Név/Név megadása).
A + jel nem jó, mert azt az Excel egy képlet kezdetének érzékeli, helyette W-t tettem, és beírtam a TECHN lista első tagjának, vagyis azt is a legördülőből lehet kiválasztani. Ezt választva a C oszlopba beíródik a képlet, csak az aktuális sorba.
-
motinka
tag
válasz
Delila_1
#8235
üzenetére
Igazán az lenne a megoldás, ha a C oszlopban a lenyílóban egy karakter (pl:+ jel)bevitele váltaná ki az eredeti állapot visszaállítását (képlet szerinti cella)
A lényeg hogy a visszaállítás mindig csak az adott cellára legyen érvényes, és nem az összesre.Most hogy így is átgondolom, a C cellába alapban benne van a képlet. Ez ugye egy mozdulattal átírható, azaz képlet eltünt.
És most: ha egy + jelet írunk a cellába akkor a képlet újra beírodik.
Na talán most érthetőbb voltam, bár nem vagyok sem ebben biztos, sem abban hogy van megoldás erre
-
Delila_1
veterán
Mindig új dolgot kérsz! Először két lap volt (az is űrlap), majd 3, más nevekkel, és más oszlopokból akartad kinyerni az adatokat, most a lapnév nem stimmel.
Amit ooo-nak nézel, az O betű, kettőspont, újabb O betű, a pontosvessző után pedig nulla.
Próbáld meg eszerint. Ha nem jön össze, küldd el a füzetet. Ígérem, hogy ma bele sem nézek, legfeljebb holnap.
-
biker
nagyúr
válasz
Delila_1
#8226
üzenetére
ooo-ban nem ! kell, hanem . így ezeket átarva, és a J:J-t sem fogadja el, ezt átírva így most a #hiányzik eredményt kapom
=INDIRECT("importsql.A"&MATCH(termekkek.A2;importsql.J1:J50000;0))(ja, a lap neve termekkek, nem termekek, de ez nem gond, erre figyelek én...
elírtam az elején -
Delila_1
veterán
válasz
motinka
#8231
üzenetére
Szia, megjöttem.
Azért nem működött a makró, mert nem jó helyre tetted. Az adat laphoz rendelted, pedig ezt egy új modulba kellett volna.
A füzetben Eszközök/Makró/Visual Basic Editor (vagy ezek helyett Alt+F11). Bejön a VBE. Bal oldalon kiválasztod a füzetedet, Insert menü, Module. A jobb oldalon kapott üres lapra kellett volna bemásolni.
Közben az is kiderült a füzetedből, hogy a C oszlopot szövegként formáztad az általános formátum helyett. A makró első sora ezértColumns("C:C").NumberFormat = "General"
kell legyen, mert az előállított függvény sem működne szövegként. Elküldöm a címedre a módosított fájlt.
Delila
-
motinka
tag
szia, köszi hogy foglalkozol vele.
szóval:
- az A oszlopba egy lenyíló listából kerül be egy szöveg (2 betü)
- a C oszlopban egy függény van (alapból =HA(A2="SC";"SC";"-" )
tehát ha az A-ban a SC kerül kiválasztásra akkor a C is az lesz
na de:
- a C oszlopban is egy lenyíló lista van, amiből szintén ki lehet választani egy szöveget
- amennyiben ezt kell tenni, akkor a lenyílóból kiválasztva beíródik( felüllíródik a képlet)
ez sok esetben csak időleges adat, azaz ha ez az állapot megszűnik, akkor a listából
kiválasztott beírás töröljük ( de mivel már nincs ott a képlet üres lesz a cella),
akkor kellene hogy működjön a képlet és újra beírja az A oszlopban látható SC- ha az
SC, ha nem akkor - jelet.A kis táblázat fent van a http://www.hunsurf.hu/1.xlsoldalon, letölthető, a képlet nincs benne, azt betettem VB -be, ahogy Delila tanácsolta, de nem működik, minta nem aktiválná semi a futását, de én ehhez már nem értek
köszi előre is a segítségedet!
-
perfag
aktív tag
válasz
motinka
#8223
üzenetére
Érdekes a problémád, én is szívesen együtt gondolkodnék veletek, de nem teljesen értem a probléma leírást.
A és C oszlopokban adatérvényesítéssel van egy-egy listád, ok. Az adatbeírási sorrendet kellene jobban körülírni:
- hol kezded a beírást: előbb A-ba kerül adat, majd C-be?
- A oszlopba csak a listából kerülhet adat, vagy felülírható a lista?
- az A-ba beírttól függően a C változzon meg?
- C-ben miért és mikor törölsz? -
perfag
aktív tag
válasz
bnorci71
#8225
üzenetére
Ötlet: makró rögzítéssel felveszed a sorba rendezést, valami ilyesmit kapsz:
With ActiveWorkbook.Worksheets("Munka1").Sort
.SetRange Range("E3:E7")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Elvileg az Apply elvégzi a melót, ha nem, akkor tegyél alá egy .Calculate metódust. -
biker
nagyúr
válasz
Delila_1
#8220
üzenetére
igen, nem tábla, munkafüzet, csak adatbázis táblák exportja van benne
sajnos nem jó a képlet, még a szükséges mezőjavításokkal sem, lehet rosszul határoztam meg a kérést amellett, hogy a cellákat is félrenéztem
tehát: a kepek lap A1 cellájába szeretném megkeresni azt a számot az importsql lap A oszlopából, ahol az importsql J oszlopában lévő cikkszámok egyike egyezik a termekek lap A2 mezőjében lévő cikkszámmal.
(a sor eltéréstől függetlenül a termekek és kepek tábla sorrendje azonos, az importsql a kevert sorrendű tábla) -
motinka
tag
válasz
Delila_1
#8210
üzenetére
Köszönöm, a gyors válaszodat, bemásoltam, sajnos nem működik.
feltettem ide: http://www.hunsurf.hu/1.xlsa lényeg az lenne, hogy amennyiben az A oszlopban SC kerül akkor azt írja be a C oszlopba,
de amennyiben a C oszlopban a lenyílóból választunk ki, akkor az kerüljön beírásra.Na a csavar most lenne, amennyiben a C oszlopból kitöröljük a beírást, akkor ismét az első feltétel működjön.
A gondom az hogy amennyiben a képletet a C oszlopba rakom, akkor ha beírás történik ide akkor természetesen a képlet törlődik, így ha újra üres lesz a mező a képlet nincs már ott.
Köszönöm hogy foglalkozol a problémával.
-
mr.nagy
tag
válasz
Delila_1
#8221
üzenetére
A World körlevél funkcióját szoktam is használni, de most kellene bele tenni egy olyan megoldást amire Worldben nem jöttem rá.
Valamikor régebben itt kaptam egy megoldást arra, hogy egy külső (internetes) linken található képet tegyen be az excel táblába. A linknek van egy fix része és van egy változó, ami szintén a táblában van. A kettőből generálódik az URL amit a makró betesz egy megadott helyre.
Na most is erre lenne szükségem csak a körlevélnél erre nem találtam megoldást, ezért kérdeztem, hogy excelben megoldható lenne-e?Huh, remélem érthető voltam! Ha nem bocsánat!
-
Delila_1
veterán
-
mr.nagy
tag
Sziasztok!
Még idáig ilyenre nem volt szükségem ezért ha a következő probléma megoldható keresnék hozzá valami leírást :
Excelben lehet e World-höz hasonló körlevél megoldást csinálni? Arra gondolok itt, hogy mondjuk az egyik fülön lenne egy adatbázis. A másik fülön pedig egy elkészített sablon, ami alapján egy gombnyomással kinyomtathatóak lennének az adatok a megadott sablon formátumban.
-
biker
nagyúr
válasz
Delila_1
#8208
üzenetére
szia
ooo, tehát angol kellA lényeg, a termekek táblában az A oszlopban vannak az ID-k, az O-ban a cikkszámok
az sqlimport táblában az A1 mező kell legyen egyenlő azzal az ID-vel a termekek táblából, ahol az sqlimport O1 cellában lévő cikkszám egyenlő a termekek táblában valahol az O oszlopban lévő cikkszámmal.A gond az, hogy egy táblából elkészült az import az sql táblába, ez 1900 sor.
de ezeket nem sorban illesztette be az sql, így ha kiveszem a sorokat, amiknek már van ID-je (auto increment) akkor lesz két táblám, amiben azonos cikkszámok is megvannak, de nem sorban, és ehhez kell összepárosítsak egy 1200 képet tartalmazó táblát, amit a sor nemegyezés miatt nem sorrendezhetek szimplán.Remélem érthető volt
-
-
Fboy
aktív tag
válasz
Delila_1
#8215
üzenetére
Rájöttem, hogy ez nekem nagyon bonyolult ez a makrózás
Helyette megoldottam diagrammal (tudom, favágó módszer), úgy hogy a diagramm hátterének a választott térképet raktam be, a diagramm elemek körök, a méretüket pedig egy táblázatból választom ki, a diagrammon pedig szabadon rakosgathatom.
Azért köszi a fáradozást. -
Delila_1
veterán
Kicsit kibővítve az előző:
[M](C)Sub Nagysag()
Dim a As Integer
Dim nev As String
For a = 2 To 13
nev = "Oval " & a
ActiveSheet.Shapes(nev).Select
With Selection
.ShapeRange.Height = Cells(a, 2) / 50
.ShapeRange.Width = Cells(a, 2) / 50
.Characters.Text = Cells(a, 1) & Chr(10) & Cells(a, 2) & " MFt"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.Characters.Font.Size = 6
End With
Next
End Sub(/C)[/M] -
Delila_1
veterán
Makróval megoldható.
Beszúrtam egy térképet, aminek az Excel automatikusan a Kép 1 nevet adta. Utána elhelyeztem a térképen 12 kört, amiknek a neve Ellipszis 2 -Ellipszis 13 lett. A makróban Oval 2 - Oval 13 néven kell rájuk hivatkozni.
Az első kör a piros, az óramutató járásával ellenkező irányban helyeztem el a többit.Makró:
Sub Nagysag()
Dim a As Integer
Dim nev As String
For a = 2 To 13
nev = "Oval " & a
ActiveSheet.Shapes(nev).Select
Selection.ShapeRange.Height = Cells(a, 2) / 80
Selection.ShapeRange.Width = Cells(a, 2) / 80
Next
End SubKép:
Szerk.: a Cells(a,2)/80 helyett olyan osztót adj, ami egy jó méretet ad az ábrán.
-
Fboy
aktív tag
Sziasztok,
egy olyan feladatom lenne, hogy egy alaprajzon/térképen kellene elhelyeznem köröket, amik az épületek értékét szimbolizálják. Tehát a kör területe akkora legyen, mint az épület értéke.
Ezt megtudom oldani valahogy excelben, úgy hogy egy táblázatban leírom az épület nevét és a hozzátartozó értéket vagy egyéb módon? -
motinka
tag
sziasztok,
Ismét segítségre szorulok, mivel nem vagyok nagy excel-es, de dolgoznom néha kell benne
Szóval azt szeretném, ha egy képlet =HA(C1="SC";"SC";"-" ) nem a cellában, hanem VB-ben lenne benne az Y1 cellában, azaz lefelé húzva az összesben =HA(C2000="SC";"SC";"-") az Y2000-ben.
Azért kellene így, hogy ne lehessen a képletet semmi esetben sem kitörölni, de kézzel lehessen más értéket beírni, és amennyiben "törlik" a beírt értéket akkor a képlet működjön.
Hű de bonyolult vagyok, azért talán érthető. -
-
perfag
aktív tag
-
Hequila
őstag
Keresek egy képletet az alábbi problémára.
_|____A____|____B____|____C____|
1| 3242.........:..... 1....... :................
2| 2452.........:..... 2 .......:...............
3| 3452 ........:..... 1........:...............
4| 5345 ........:..... 2 .......:...............(nagy nehezen csak sikerült összehozni)
szóval olyan képletet szeretnék, ami a C1 mezőben összesíti azokat az A oszlop azon elemeit, ami mellett a B oszlopban 1-es szerepel. A C2 mezőben pedig összesíteni szeretném azokat az elemeket, amelyek az A oszlopban vannak, és a B oszlopban mellettük 2-es szerepel.
, gondolom szintén makró kell.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Sweet.tv - internetes TV
- Gurulunk, WAZE?!
- Teljes verziós játékok letöltése ingyen
- Nyaralás topik
- Macska topik
- bambano: Bambanő háza tája
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Nem várt platformon a OnePlus Nord 5
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- HP Laptop 15-fc0026nh (AY7E1EA)
- Országosan a legjobb BANKMENTES részletfizetési konstrukció! Lenovo ThinkPad L16 Gen 1 Prémium
- AKCIÓ! Dell Alienware M17 R3 Gamer notebook - i7 10750H 16GB DDR4 1TB SSD RTX 2070 8GB WIN10
- Kingmax 2x2GB DDR3 1333 RAM eladó
- AKCIÓ! nVidia Quadro P4000 8GB GDDR5 videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: CAMERA-PRO Hungary Kft
Város: Budapest