-
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
-
Delila_1
Topikgazda
válasz the radish #19096 üzenetére
"A Munka1 lap A1 cellájába írd be idézőjelek nélkül a >=0:00:45 szöveget", de az is jó, amit most írtál, csak akkor a cellában ne szerepeljenek relációs jelek (=, >, <).
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19098 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19101 üzenetére
A változót így add meg:
kr1= ">=" & sheets("Munka1").range("a1")Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19101 üzenetére
Az R3 képlete =HA($C3="A";KICSI($A:$A;SOR()-2);"")
Ezt másold az S3-ba, és az "A"-t írd át "B"-re.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19104 üzenetére
kr1 = ">=" & CDate(Sheets("Munka1").Range("A1"))
kr2 = "<=" & CDate(Sheets("Munka2").Range("B2"))Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz the radish #19108 üzenetére
Megjegyzel?!!!
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz 81lendo$ #19113 üzenetére
Lusta vagyok kikeresni (nem írtad meg a hsz. számát, ahol Mutt javasolt valamit), de úgy rémlik, formátumot akarsz másolni.
Selection.PasteSpecial Paste:=xlPasteFormats
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19115 üzenetére
Ha előtte más meghajtó volt aktuális, előbb át kell váltanod a chdir paranccsal a D-re.
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="export.txt", FileFormat:=xlTextMSDOSRemélem, jól írtam, mert nem próbáltam ki.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz ElemiKoczka #19120 üzenetére
A lapodhoz rendeld a makrót, ilyen módon.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:B]) Is Nothing Then
If Target = 6 Then Range(Target.Address) = "6:00"
If Target = 14 Then Range(Target.Address) = "14:00"
End If
End SubEz a makró az A és B oszlopba beírt 6-ot írja át 6:00-ra, és a 14-et 14:00-ra.
Ha nem az A és B oszlopban van a két időpontod, azIf Not Intersect(Target, [A:B]) Is Nothing Then
sorba írd be a módosítást.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19119 üzenetére
Sub direktor()
Dim utvonal$
utvonal$ = Range("B1")
ChDir utvonal$
ActiveWorkbook.SaveAs Filename:=utvonal$ & "proba.xls"
End SubNem szerencsés dolog személy szerint valakinek címezni a kérdésedet. Ha nincs itt a címzett, vagy nem tud-, nem akar válaszolni, akkor várhatsz a sorodra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz ElemiKoczka #19120 üzenetére
Rájöttem, hogy a #19121-ben nem azt a választ adtam, amire vártál.
Kerek óránál 600-t írj, 12:42-höz elég 1242-t írnod, 0:54-nél 054-et.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ido, ertek
If Not Intersect(Target, [A:B]) Is Nothing Then
If Range(Target.Address) = "" Then Exit Sub
Application.EnableEvents = False
On Error GoTo Hiba
ertek = Target * 1
If ertek > 2359 Or ertek < 0 Or Right(ertek, 2) > 59 Then
GoTo Hiba
Else
Select Case Len(ertek)
Case 1, 2
ido = "00:" & ertek
Case 3
ido = "0" & Left(ertek, 1) & ":" & Right(ertek, 2)
Case Else
ido = Left(Target, 2) & ":" & Right(Target, 2)
End Select
Range(Target.Address) = Format(ido, "hh:mm")
End If
End If
Application.EnableEvents = True
Exit Sub
Hiba:
MsgBox "Hiba!" & Chr(10) & "Ilyen időpont nem létezik", vbInformation
Range(Target.Address).Select
Application.EnableEvents = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
-
Delila_1
Topikgazda
válasz DopeBob #19150 üzenetére
Nem tudod a másolás előtt rendezni az adatokat aszerint, hogy hova kell menteni?
Akkor a hol.van (match) függvénnyel kikereshetnéd az első, és utolsó előfordulási sorát a táblázatodban, és 1-1 tartományt másolhatnál egyszerre.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ez a függvény nálam sosem jött be.
A helyedben egy nyúlfarknyi makróval oldanám meg. Az első lap A oszlopába beírnám az egyes lapok nevét, a makró meg melléjük tenné a B oszlopba a hiperhivatkozást.Sub hiper()
Dim i As Integer
For i = 2 To Worksheets.Count
Cells(i - 1, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:=Sheets(i).Name & "!A1"
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Nálam tényleg soha nem sikerült működésre bírni ezt a függvényt.
Két megoldás marad.
1. cellán jobb klikk, és végigmész a Hiperhivatkozás menüponton.
2. haza viszed a fájlt, lefuttatod a makrót, törlöd a makrót, visszaviszed a fájlt.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Scytha #19158 üzenetére
Első lépésként létre kell hoznod annyi lapot, ahány neved van, és ezeket a neveknek megfelelően érdemes elnevezni.
Ehhez célszerű a neveket tartalmazó oszlopból létrehozni egy újat a speciális-, vagy régebbi verziókban irányított szűrő menüpont segítségével, a verziótól függetlenül legyen bejelölve a "Csak az egyedi rekordok megjelenítése" kapcsoló.
Ha kész a szűrés, mondd meg, melyik oszlopba szűrted a neveket, akkor már tovább tudunk lépni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Scytha #19163 üzenetére
Remélem, nem vesztek el az adataid!
Azt nem írtam, hogy a "Más helyre másolja" opciót is kapcsold be.Ha már megvan a névsor, egy makróval elő lehet állítani annyi lapot, amennyi szükséges, és el is lehet nevezni az emberek nevével.
Mikor ez is megvan, egy másik makró széthajigálja a sorokat a megfelelő lapokra.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19207 üzenetére
D1 cella -> =MAX(A:A)
E1 cella -> =INDEX(A:B;HOL.VAN(D1;A:A;0);2)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19209 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A VB szerkesztőben a füzeted ThisWorkbook lapjához rendeld a makrót.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Munka1").Protect Password:="HűDeMilyenTitkosJelszó"
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19219 üzenetére
A példában az E1 cella tartalmazza azt a számot, aminél kisebb max értékre van szükséged.
=HA(MAX(A:A)<E1;MAX(A:A);NAGY(A:A;2))
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19221 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19223 üzenetére
Akkor feltétel (Ha függvény) nélkül írd be a NAGY függvényt.
A kérdésed az előbb nem így szólt.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19225 üzenetére
Írtam hozzá egy kis makrót. Mivel ez funkció, úgy kell alkalmaznod, mint bármelyik függvényt.
A cellába, ahol az eredményt akarod megkapni, az=Max_1(A1:A7;E1)
képletet írd be. A képlet 2 paramétere a keresés területe (hol As Range), és a kritérium helye (krit As Range).
A felsorolt értékeidet az A1:A7 tartományba írtam, a 120-at az E1-be.
Function Max_1(hol As Range, krit As Range)
Dim szam As Single, CV As Object
If WorksheetFunction.Max(Range("A:A")) > krit Then
For Each CV In hol
If CV < krit And CV > szam Then szam = CV
Next
Else
Max_1 = krit.Value
End If
Max_1 = szam
End Function[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19225 üzenetére
A
If WorksheetFunction.Max(Range("A:A")) > krit Then
sor helyesen:
If WorksheetFunction.Max(hol) > krit Then
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz the radish #19228 üzenetére
Ugyanannyiszor szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz autox3c #19242 üzenetére
A képlet arra az esetre vonatkozik, mikor a költségek a B oszlopban vannak.
Ha a B oszlopban a számításkor figyelmen kívül hagyandó adatok is vannak, akkor a B:B (teljes oszlopra hivatkozás) helyett a pontos hivatkozást add meg, a sorok feltüntetésével.=SZUMHA(B:B;">25000";B:B)*25000+SZUMHA(B:B;"<25000";B:B)*DARABTELI(B:B;"<25000")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Eastman #19269 üzenetére
Vegyük, hogy az első a címsorod, a másodikban kezdődnek az adataid.
Az ÁFA mértéke a D1 cellában van, % formában.L2 -> =F2*(1+$D$1)
J2 -> =2*L2Ezeket másolhatod a többi sorodba.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Eastman #19271 üzenetére
Ráállsz a képletet tartalmazó cellára.
Ha vannak a balra mellette lévő oszlopban adatok a sok sorban, akkor az ábra szerinti kis fekete négyzeten duplaklikk végig lemásolja a képletet addig, ameddig a mellette lévő oszlopban valamilyen adatot talál.
Ha nincs adat mellette, ugyanezt a kis négyzetet megfogod az egérrel, és lehúzod, ameddig szükséges.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz alfa20 #19272 üzenetére
Igazad van, nem figyeltem az A1 teljes szövegét.
Legjobb, ha a "Szövegből oszlopok" funkciót használod, ahol határoló jeleknek a szóközt, és az Egyéb kategóriában a kötjelet adod meg. Ez oszlopokba írja át a szövegedet, onnan már tudsz a cellákra hivatkozni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A makró elejére beírt ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True sor eredményeként a makróból módosíthatod a védett lap védett celláit, és a makró végén sem kell visszaállítanod a védelmet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Írj egy üres cellába egy egyest, és másold Ctrl+c-vel.
Jelöld ki a szövegként szereplő, számjegyeket tartalmazó cellákat.
Jobb klikk, Irányított beillesztés, a Művelet Szorzás.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs