-
Fototrend
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
-
zsotesz81
senior tag
Sziasztok!
Makrózásban tudtok segíteni?
-
zsotesz81
senior tag
válasz zsotesz81 #6640 üzenetére
Közben kicsit visszaolvastam, látom van itt minden.
Az volna a kérdésem, hogy VB-ben hogy kell hivatkozni excel cellára. Tehát azt hogy kell megírni, hogy HA L5<L6 akkor "esemény" egyébként "esemény".
Ill. hogy lehet írni olyan msgbox-ot aminek mondjuk van egy igen és egy nem gombja, nem-re történik semmi, igen-re pedig valamilyen esemény végrehajtódik. -
zsotesz81
senior tag
Egy régebbi problémámra keresnék megoldást. Munkatársammal csináltunk egy olyan táblázatot amiben a Forma1-es pilóták eredményeit lehet rögzíteni. A táblázat alá pedig csináltunk egy összesítést, amiben lehet követni a vb állását. Ezt akkor úgy csináltuk, hogy a nagy függvénnyel kigyűjtöttük egymás alá az összpontszámokat, majd fkeres-sel mellé írattuk a neveket. Ez így működött is, egy probléma volt ezzel, hogyha két vagy több egyforma pontszámú pilóta volt, akkor az összesítő táblázatba csak az először megtalált pilótát írta be, de azt annyiszor ahány pilóta épp adott azonos pontszámmal állt. Azt már tudom, hogy makróval könnyedén meg lehetne csinálni, de vajon valamilyen függvénnyel meg lehet valahogy oldani?
[ Szerkesztve ]
-
zsotesz81
senior tag
Az FKERES függvényt nem lehet rávenni valahogy arra, hogy egy táblázatban ne balról az első oszlopban keressen egy megadott értéket hanem mondjuk a harmadikban?
-
zsotesz81
senior tag
válasz Delila_1 #6674 üzenetére
Hát ez nekem nem jött be, azt írta, hogy körkörös hivatkozás. Mondjuk lehet én csesztem el valamit. Úgy van a táblázatom, hogy A oszlopban nevek, C oszlopban a pénzük, és egy külön táblában szeretném sorba rendezni őket pénz szerint. A pénzt sorba rakom a nagy függvénnyel és melléjük keresném ki a neveket.
-
zsotesz81
senior tag
Azt szeretném megcsinálni, ha egy cella tartalma (pl. A14) üres akkor az egész sort rejtse el.
Írtam rá makrót:
If Cells(14, 1) = "" Then
Row("14:14").Select
Selection.EntireRow.Hidden = True
End If
Viszont futáskor azt mondja, hogy sub or function not defined. Mi a gondja? -
zsotesz81
senior tag
válasz Fire/SOUL/CD #6691 üzenetére
így már jó, köszi. Pedig úgy emlékszem egyszer ma már kipróbáltam a rows-al
-
zsotesz81
senior tag
Azt meg lehet valahogy csinálni, hogy egy gombnyomásra bejöjjön egy olyan ablak amin van 10 név egymás alatt és mindegyik név mellett van egy jelölőnégyzet. Majd pl. a nevek alatt van egy újabb gomb, amit ha megnyomok akkor egy bizonyos összeget annyi felé oszt ahány jelölőnégyzet be van jelölve, és azoknak osztja akik nevénél be van jelölve?
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6698 üzenetére
Igen, egy ilyen formot kellene valahogy meghívni, a nevek és jelölőnégyzetek száma lehet állandó (a max az úgyis 10). Pontosabban a nevek attól függnek hogy az adott cellában milyen név van (A5-A14-ig vannak a nevek).
-
zsotesz81
senior tag
válasz Delila_1 #6705 üzenetére
Csak az a bajom, hogy már ezt nem tudom hova rakni, ennek nem akarok külön munkalapot sem. Egyébként ez arra kéne, hogy pókerben döntetlennél a kasszát azonos arányban ossza szét a döntetlent elérők között. Ez mondjuk elég ritka, ezért akarom úgy megcsinálni, hogy gombnyomásra feljöjjön egy form, ott bepipálni azokat a játékosokat akiknél döntetlen van, majd a formon megnyomni egy gombot és a lóvé eloszlik. A formot már megcsináltam csak nem tudom hogy kell meghívni. Az előbb próbáltam egy active x parancsgombbal, alapból be volt írva a kódba, hogy load userform1 (nem változtattam meg a form nevét), de nem történik semmi.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6708 üzenetére
Köszönöm a segítségeket, egyébként True értékkel tényleg hibát ad.
-
zsotesz81
senior tag
Még egy kérdés, a formomon a label-ek feliratánál hogy tudom azt megcsinálni, hogy mindig pl. az A1 cella értéke legyen. Addig eljutottam, hogy Label1.Caption és gondolom ez után kellene a cella. De egyenlőségjellel nem ment, ha simán utánaírtam úgy sem volt jó.
UI.: Nálam működik a helyesírás ellenőrzés
[ Szerkesztve ]
-
zsotesz81
senior tag
#6714-re nem tudtok valami megoldást?
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6728 üzenetére
köszöntem
-
zsotesz81
senior tag
Makróval azt hogy lehet leírni, hogy ha a P5-P14 közti cellák valamelyike egyenlő "all in"-el akkor esemény?
Ill. excel függvényekre hogy lehet hivatkozni makróval?
Pl. ezt hogy lehet leírni: A2-es cella legyen egyenlő MAX(D$5$14).[ Szerkesztve ]
-
zsotesz81
senior tag
válasz Delila_1 #6746 üzenetére
Szia!
Ez sajna csak részben működik úgy ahogy szeretném. Azt vettem észre, hogy akkor fut le jól a kód ha rögtön az első játékosnál szerepel az all in. Ha mondjuk a 2. és 3. játékos között van döntetlen (all in mellett) akkor olyan mintha símán kihagyná a for ciklust és számolna úgy ahogy egyébként akkor kell ha nincs all in. Így néz ki a kód:
For i = 5 To 14
If Cells(i, 16) = "All In" Then
Call döntetlenallin
Unload Me
Exit Sub
Else
Cells(1, 9) = Cells(1, 8) / pipaszam
Call döntetlenszamolasEnd If
NextValami 5let?
-
zsotesz81
senior tag
Nincs valami step by step mód?
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6752 üzenetére
ÁÁÁÁ saját magam szivattam. Nem kell az else ág, az a rész külön kell a next után
-
zsotesz81
senior tag
Két kérdésem lenne:
1.: excel függvényekre hogy lehet hivatkozni makróval?
Pl. ezt hogy lehet leírni: A2-es cella legyen egyenlő MAX(D$5$14).
2. cellákra lehet valami érvényességi szabályt adni? Pl. beírok a cellába egy értéket és ha az nagyobb mint egy másik cellában lévő érték akkor mondjuk adjon egy hibaüzenetet -
zsotesz81
senior tag
Olyat lehet csinálni, hogy egy msgbox-ba clipart vagy saját képet beszúrni? Vagy ehhez külön form kell?
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6798 üzenetére
Clipart képet hogy lehet formba beszúrni? Az image vezérlővel próbáltam de az nem tudja a png-t kezelni.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6800 üzenetére
Erre én is gondoltam, csak kíváncsi voltam meg lehet-e oldani másképp.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6802 üzenetére
Közben megcsináltam, még egy kérdés. Hogy lehet mindenképp új sorba kényszeríteni egy szövegrészt? Pl. Ez van kiírva, hogy "A játékot xy nyerte, gratulálunk!" A gratulálunk szót kellene új sorba rakni.
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6805 üzenetére
köszönöm mindkettőtöknek
-
zsotesz81
senior tag
Közben eszembe jutott még valami. Makróból fel lehet-e oldani ill. vissza lehet-e állítani lapvédelmet?
-
zsotesz81
senior tag
válasz Fire/SOUL/CD #6811 üzenetére
köszönöm, közben rájöttem, hogy ezt makrórögzítéssel is meg tudom nézni.
-
zsotesz81
senior tag
Hali!
Visszatérnék kicsit a #6768-as hsz-re. Szóval a kód amit Delila írt végülis jól működik, viszont amikor az a makró fut ami kiszámolja a nyereményeket akkor megáll Run Time error '13', Type mismatch hibával. Erről a kódról van szó:
If Target.Address = "$D$5" And Target.Value > Cells(5, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(5, 4).Select
End If
If Target.Address = "$D$6" And Target.Value > Cells(6, 3) Then
MsgBox ("Ennyi pénzed már nincs, tegyél kisebb tétet vagy mondj all in-t!")
Cells(6, 4).Select
End If
és így tovább egészen 14-ig.A makró azt csinálná, hogy az C5-be másolja a N5 tartalmát, a C614-be pedig az M6:M14 tartalmát. A C5-N5 másolást megcsinálja, viszont a többit nem, itt akad meg.
Gőzöm nincs mi akasztja meg, ha rányomok a debugra akkor az if-es sort jelöli ki.
Valami ötlet? -
zsotesz81
senior tag
válasz WildBoarTeam #6820 üzenetére
Kipróbáltam, azt még mindig nem tudom, hogy ott miért fut bele. Ez a kód:
Range("N5").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6:M14").Select
Application.CutCopyMode = False
Selection.Copy
Range("C6:_C14").Select - aláhúzás nincs benne csak a smile elkerülése miatt raktam bele
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("C15").SelectAmikor elér a Range("M6:M14")-hez, akkor ugrik az érvényesítőhöz, majd utána hiba, de miért megy oda? Akkor a Range ("C5")-nél miért megy tovább?
[ Szerkesztve ]
-
zsotesz81
senior tag
válasz zsotesz81 #6830 üzenetére
Kipróbáltam, úgy hogy soronként másoljon:
Range("N5").Copy
Range("C5").PasteSpecial Paste:=xlPasteValues
Range("M6").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
.
.
.
Range("M14").Copy
Range("C14").PasteSpecial Paste:=xlPasteValuesÍgy megcsinálta, legalábbis a számolást, viszont most a tétek törlésénél bukik meg,
ahol szintén nagyobb tartomány (D5:D14) van egyben megadva. Lehet, hogy ezekkel nem tud mit kezdeni?[ Szerkesztve ]
-
zsotesz81
senior tag
Itt van a file:
http://www30.zippyshare.com/v/36928913/file.html
[ Szerkesztve ]
-
zsotesz81
senior tag
Hali!
Két kérdésem volna:
1. Azt szeretném megcsinálni, hogy alul az összes munkalap rejtve legyen köztük pedig parancsgombbal lehessen váltani. Valami ilyesmire gondolok :2. Azt meg lehet-e csinálni, hogy ha pl. beírok A1-be 200-at, majd utána átírom ezt mondjuk 500-ra, akkor adódjon hozzá az előző összeg tehát a cellába 700 legyen (ezt már egyébként form hívással megoldottam, csak kíváncsi lennék van-e más megoldás).
-
zsotesz81
senior tag
válasz Delila_1 #6943 üzenetére
2007-es verzióban sajna ezt nem találtam meg, megoldanám akkor úgy, hogy a 3 munkalapból kettőt elrejtek, az elsőre meg teszek parancsgombot. Az a baj, hogy valamiért nem vált rá az elrejtett munkalapra (ha nincs elrejtve a munkalap akkor működik).
Ezt írtam:
Private Sub Cmdsúgó_Click()Sheets("Súgó").Activate
End Sub
Próbáltam select-tel is de arra hibaüzenetet kaptam (Worksheet osztály select metódusa hibás).
-
zsotesz81
senior tag
Hali!
Egy kis help kellene, hogy kell azt megcsinálni, hogy az alábbi makrót ismételje addig amíg a "nem" lesz a válasz?
k = MsgBox("Van másik győztese a körnek?", vbYesNo)
If k <> 7 ThenWith frmallinvictory
.Label1.Caption = Range("A5")
.Label2.Caption = Range("A6")
.Label3.Caption = Range("A7")
.Label4.Caption = Range("A8")
.Label5.Caption = Range("A9")
.Label6.Caption = Range("A10")
.Label7.Caption = Range("A11")
.Label8.Caption = Range("A12")
.Label9.Caption = Range("A13")
.Label10.Caption = Range("A14")
End Withfrmallinvictory.Show vbModal
A do-loop-pal próbáltam, de nem sikerült összehozni.
Új hozzászólás Aktív témák
- Canva Pro előfizetés - 1 éves
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz