Excel kérdés
Jelentkezz be a hozzászóláshoz.
#964
#963
Bocsi de nálam most sincs kép....
Megpróbálom még egyszer!
Megpróbálom még egyszer!
#962
A kép lemaradt...
#961
Helló!
Diagram, 2003 Excelben.
Kihagyások jelentek meg a vonal digrammokban:
Nem tudom mi okozhatja?
Ha van tipp, elõre is köszi!
Diagram, 2003 Excelben.
Kihagyások jelentek meg a vonal digrammokban:
Nem tudom mi okozhatja?
Ha van tipp, elõre is köszi!
#960
jaa, mert megköszönte és nem mondta, pedig odaírtam hogy 07.
jó Neked hogy meg teheted mind kettõ használatát 😉
jó Neked hogy meg teheted mind kettõ használatát 😉
¥ xfire: kistekila
#959
Sgsamu 2003-at használ, én meg mindegyiket, de az újabbat csak akkor, ha muszáj. 😊
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#958
az övére gondoltam, a tiéd tudom, már beszéltük 😊
¥ xfire: kistekila
#957
2003-as Excel.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#956
<#eljen>
"törölni nem kellett..." ezt nem tudtam.
amúgy ctrl+z és megint van mind 😉))
/ha jól értelmeztem mso o7, oda írhatsz 1048575-t sornak a range-be/
"törölni nem kellett..." ezt nem tudtam.
amúgy ctrl+z és megint van mind 😉))
/ha jól értelmeztem mso o7, oda írhatsz 1048575-t sornak a range-be/
¥ xfire: kistekila
#955
Megtörtént. Törölni nem kellett a sorokat, csak idõlegesen eltüntetni. Mint kiderült (privátban), az adatok listába vannak foglalva. Két makrót írtam, az elsõ csak azokat a sorokat mutatja, ahol az A oszlop adatai egyediek, a másik mindent felfed.
Sub Egyedi_rekordok()
usor = Range("A65536").End(xlUp).Row
Range("A1:A" & usor).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub
Sub Minden_rekord()
ActiveSheet.ShowAllData
End Sub
Sub Egyedi_rekordok()
usor = Range("A65536").End(xlUp).Row
Range("A1:A" & usor).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub
Sub Minden_rekord()
ActiveSheet.ShowAllData
End Sub
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#954
talán makró, de ebben Delila segít.
sub töröl()
ActiveSheet.Range("tartomány").RemoveDuplicates Columns:="amelyik oszlop szerint keresed, számként"
End Sub
sub töröl()
ActiveSheet.Range("tartomány").RemoveDuplicates Columns:="amelyik oszlop szerint keresed, számként"
End Sub
¥ xfire: kistekila
#953
köszi!
ezt nem lehet automatizálni egy függvénnyel?
ezt nem lehet automatizálni egy függvénnyel?
#952
thx.
e6550, HD6670 1GB, 4GB "Minden játék annyit ér, amennyire a játékos tartja!" "Olyan ember nincs aki nem warezol, csak aki nem vallja be." "A warez-ra kifogás nincs, csak magyarázat!" "Nem mindegy!"
#951
mso 'o7:
Adatok - Ismétlõdések eltávolítása
Adatok - Ismétlõdések eltávolítása
¥ xfire: kistekila
#950
vlookup - fkeres
iserror - hibás
FUNCS.XLS fájlt keress itt:
C:\Program Files\Microsoft Office\Office10\1038
mso 'o7
C:\Program Files\Microsoft Office\Office12\1038
mind meg lesz, angol-magyar és kereshetsz is közte
iserror - hibás
FUNCS.XLS fájlt keress itt:
C:\Program Files\Microsoft Office\Office10\1038
mso 'o7
C:\Program Files\Microsoft Office\Office12\1038
mind meg lesz, angol-magyar és kereshetsz is közte
¥ xfire: kistekila
#949
google:
excel függvények angol megfelelõ
2. találat nerobol
xls táblában több nyelven megtalálod
üdv.
Samu
excel függvények angol megfelelõ
2. találat nerobol
xls táblában több nyelven megtalálod
üdv.
Samu
#948
hy nekem angol az office 2010.
angolul meik az fkeres fügvény megfelelõje.
és a hibás fügvény is kellene angolul.
THX.
angolul meik az fkeres fügvény megfelelõje.
és a hibás fügvény is kellene angolul.
THX.
e6550, HD6670 1GB, 4GB "Minden játék annyit ér, amennyire a játékos tartja!" "Olyan ember nincs aki nem warezol, csak aki nem vallja be." "A warez-ra kifogás nincs, csak magyarázat!" "Nem mindegy!"
#947
Sziasztok!
Van egy azonosító egy oszlopban, némelyik ismétlõdik Pl.:
ads23
rlh12
1324478
rfhalédfh1
2010/12
ads23
rfhalédfh1
ezekbõl szeretnék egy listát generálni úgy, hogy a listában ne ismétlõdjenek az azonosítók
Köszi
Samu
Van egy azonosító egy oszlopban, némelyik ismétlõdik Pl.:
ads23
rlh12
1324478
rfhalédfh1
2010/12
ads23
rfhalédfh1
ezekbõl szeretnék egy listát generálni úgy, hogy a listában ne ismétlõdjenek az azonosítók
Köszi
Samu
#946
ment is a file...
3Ds MAX :)
#945
Küldd el privátban a fájlodat.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#944
Így is nullát ír vagy pedig valami Név problémát. Ha =nukunév írom be akkor nem történik semmi. Viszont ha a függvényeknél megkeresem akkor a felhasználóinál megtalálható de akkor is név hiba.. és ez a függvény neve: =névlista.xls!Module1.NukuNév()
3Ds MAX :)
#943
Feltöltöd a képet (Pl. http://imagerz.com/), itt a KÉP BESZÚRÁSÁnál megadod a direkt linket.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#942
C1-be jön a képlet:
=NukuNév(A2:Z2)
=NukuNév(A2:Z2)
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#941
Az Alt+F11-gyel bejutsz a VB szerkesztõbe. Bal oldalon kiválasztod a saját fájlodat (nálam Munkafüzet1). Insert menü, Module. A jobb oldalon kapott üres lapra másold be, amit a képen látsz.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#940
Na.. bedobtam egy képet,hogy néz ki az egész..
Oszlopokban 3 sortól vannak a nevek. Fölötte érték,hogy hány név van az oszlopban. piros összesítés. hány név van összesen.
A szürkébe akarom azt kiíratni,hogy melyik betûnél nem szerepel még név egyáltalán.
Oszlopokban 3 sortól vannak a nevek. Fölötte érték,hogy hány név van az oszlopban. piros összesítés. hány név van összesen.
A szürkébe akarom azt kiíratni,hogy melyik betûnél nem szerepel még név egyáltalán.
3Ds MAX :)
#939
Sikerült elvileg megcsiálni de nullát ír ki akár melyik sort adom meg neki. ha van név benne ha nincs
3Ds MAX :)
#938
Hali.. Köszi a helpet de excelbõl nagyon láma vagyok. Kb tudok szöveget írni a kockákba meg pár laap függvényt használni 😊
Ha jól gondolom saját függvényt kéne létrehoznom ahova beírom amit elsõnek küldtél.. Ezt nem tudom, hogyan kell.
Ha jól gondolom saját függvényt kéne létrehoznom ahova beírom amit elsõnek küldtél.. Ezt nem tudom, hogyan kell.
3Ds MAX :)
#937
nem tom beszúrni ide a képet 😊 XD
#936
Az A1 képlete: =DÁTUM(ÉV(MA());HÓNAP(MA());NAP(1))
Az A2-é: =A1+1, ezt másold le.
Lehet még cifrázni egy HA függvénnyel, hogy ne írja be egy 30 napos hónap végére a következõ hónap elsõ napját.
Az A2-é: =A1+1, ezt másold le.
Lehet még cifrázni egy HA függvénnyel, hogy ne írja be egy 30 napos hónap végére a következõ hónap elsõ napját.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#935
Egy oszlopban szeretném egymás alatt megjeleníteni az aktuális hónap napjait. Pl: 2010.04.01 ... 2010.04.30 formában
Köszi
Köszi
#934
Tegyél ki valami példát, mert ebbõl nem lehet érteni, mit is szeretnél.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#933
hello!
hogyan lehetne megoldani, hogy pl 6 cellából kiválasztunk egyet egyet 6 helyre de ne legyen 2 ugyanolyan? Elõre is köszi
hogyan lehetne megoldani, hogy pl 6 cellából kiválasztunk egyet egyet 6 helyre de ne legyen 2 ugyanolyan? Elõre is köszi
#932
A függvény alkalmazása:
=NukuNév(A1:Z1)
Ezt a képletet lemásolod az adataid mellé.
Ha nem akarod kiíratni, hogy "Nincs üres oszlop", hagy el az Else ágat.
=NukuNév(A1:Z1)
Ezt a képletet lemásolod az adataid mellé.
Ha nem akarod kiíratni, hogy "Nincs üres oszlop", hagy el az Else ágat.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#931
Ez a függvény soronként megadja az elsõ oszlopot, ahol üres cellát talál.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#930
Hali.. Egy kérdésem lenne..
Csináltam egy táblázatot amiben A-Z ig nevek vannak az oszlopokban.. Egy oylan függvény kéne amivel meg tudom azt cisnálni,hogy kiírja melyik oszlopban nincs név.. Csak annyit,hogy Pl: Q,P,W
Ezz meg lehet oldani?
Csináltam egy táblázatot amiben A-Z ig nevek vannak az oszlopokban.. Egy oylan függvény kéne amivel meg tudom azt cisnálni,hogy kiírja melyik oszlopban nincs név.. Csak annyit,hogy Pl: Q,P,W
Ezz meg lehet oldani?
3Ds MAX :)
#929
Nincs mit.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#928
ok köszi. csak lényeg az hogy a pont fontos :-) de sikerült megoldanom :-)
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
#927
Ha a számok után pontot teszel, már szövegként értelmezi az Excel. Igazítsd az oszlopot jobbra, és helyiértéküknek megfelelõen jelennek majd meg.
Pont nélkül a számok alapértelmezésben jobbra igazodnak.
Pont nélkül a számok alapértelmezésben jobbra igazodnak.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#926
helló!
elfelejtettem, hogy kell beállítani hogy a számok az oszlopokban helyérték szerint jelenjenek meg. azaz ha nézek egy oszlopot akkor egymás alá kerüljenek a helyértékek. (a 0 a számok elõtt ne jelenjenek meg. :
001.
002.
.
.
.
010.
011.
.
.
.
100.
101.
.
.
.
köszy szépen!
elfelejtettem, hogy kell beállítani hogy a számok az oszlopokban helyérték szerint jelenjenek meg. azaz ha nézek egy oszlopot akkor egymás alá kerüljenek a helyértékek. (a 0 a számok elõtt ne jelenjenek meg. :
001.
002.
.
.
.
010.
011.
.
.
.
100.
101.
.
.
.
köszy szépen!
Az Élet nem más mint egy hosszú Halál! \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!
#925
Szívesen.
Létezik még
á .--.- (akácméznyalás)
ä .-.-
é ..-.. (Elemér gyere, vagy evezõ nyele)
ö ---. (õrállások)
ü ..-- (üvegállvány)
Létezik még
á .--.- (akácméznyalás)
ä .-.-
é ..-.. (Elemér gyere, vagy evezõ nyele)
ö ---. (õrállások)
ü ..-- (üvegállvány)
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#924
Köszi, sikerült
#923
Ezek mûködõképesek:
Option Explicit
Option Base 1
Function Moorse(Betu As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Betu = UCase$(Betu)
M = WorksheetFunction.Match(Betu, CNorm, 0)
Moorse = CMorse(M)
End Function
Function InverseMoorse(Jel As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
M = WorksheetFunction.Match(Jel, CMorse, 0)
InverseMoorse = CNorm(M)
End Function
Az Option Base 1 azt adja meg, hogy a tömbök pozíciója 1-tõl kezdõdjön.
Option Explicit
Option Base 1
Function Moorse(Betu As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Betu = UCase$(Betu)
M = WorksheetFunction.Match(Betu, CNorm, 0)
Moorse = CMorse(M)
End Function
Function InverseMoorse(Jel As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
M = WorksheetFunction.Match(Jel, CMorse, 0)
InverseMoorse = CNorm(M)
End Function
Az Option Base 1 azt adja meg, hogy a tömbök pozíciója 1-tõl kezdõdjön.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#922
Megvan a hiba. Az M = WorksheetFunction.Match(Betu, CNorm) utolsó paramétere kimaradt.
Helyesen:
M = WorksheetFunction.Match(Betu, CNorm, 0)
Helyesen:
M = WorksheetFunction.Match(Betu, CNorm, 0)
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#921
Kicsit túlbonyolítottad a függvényeket. A CNorm()-nál a "D" és "E" között hiányzik egy vesszõ, a CMorse() csoportból pedig kimaradt egy morse jel. A MORSE funkciód nálam magát a betût, ill. a számot adta eredményül.
A módosított funkció:
Function Moorse(Betu As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Betu = UCase$(Betu)
M = WorksheetFunction.Match(Betu, CNorm)
Moorse = CMorse(M)
End Function
Az inverse-nél úgy gondoltam, hogy a CMorse()-ban kerestetem meg a jel helyét, és a CNorm() azonos helyén lévõ karaktert íratom ki. Ám valamiért a "..--" jelet, ami a 3. a sorban, a 15. helyen lévõnek találja meg a MATCH, számomra érthetetlen módon. Ezen még rágódom egy kicsit.
A módosított funkció:
Function Moorse(Betu As String) As String
Dim CMorse, CNorm, C As String
Dim M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Betu = UCase$(Betu)
M = WorksheetFunction.Match(Betu, CNorm)
Moorse = CMorse(M)
End Function
Az inverse-nél úgy gondoltam, hogy a CMorse()-ban kerestetem meg a jel helyét, és a CNorm() azonos helyén lévõ karaktert íratom ki. Ám valamiért a "..--" jelet, ami a 3. a sorban, a 15. helyen lévõnek találja meg a MATCH, számomra érthetetlen módon. Ezen még rágódom egy kicsit.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#920
Sziasztok
Egy kis segitségre lenne szükségem. Irtam egy függvényt, ami a morze jeleket irja ki, de megirtam az inverzét is de nem mükxik.
Itt az egyik: Function MORSE(ByVal Text As String) As String
Dim CMorse, CNorm, C As String
Dim I, L, M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D""E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Text = UCase$(Text)
L = Len(Text)
On Error Resume Next
For I = 1 To L
C = Mid$(Text, I, 1)
If C Like "<.->" Then MORSE = CVErr(xlErrValue): Exit Function
M = WorksheetFunction.Match(C, CNorm) - 1
If CNorm(M) = C Then
MORSE = MORSE & CMorse(M)
Else
MORSE = MORSE & C
End If
If I < L And C <> "" Then MORSE = MORSE & ""
Next I
End Function
és itt a másik ami nem mükxik:
Function MORSEINVERSE(Texte As String) As String
Dim CMorse, CNorm, C As String
Dim I, L, M, J As Integer
CMorse = Array("-", "--", "---", "-----", ".", "-.", "--.", "----.", ".-", "-.-", "--.-", ".--", "-.--", ".---", ".----", "..", "-..", "--..", "---..", ".-.", "-.-.", ".--.", "..-", "-..-", "..---", "...", "-...", "--...", ".-..", "..-.", "...-", "...--", "....", "-....", "....-", ".....")
CNorm = Array("T", "M", "O", "0", "E", "N", "G", "9", "A", "K", "Q", "W", "Y", "J", "1", "I", "D", "Z", "8", "R", "C", "P", "U", "X", "2", "S", "B", "7", "L", "F", "V", "3", "H", "6", "4", "5")
L = Len(Texte)
On Error Resume Next
I = 1
Do
Do
J = InStr(I, Texte, "")
If J <> I Then Exit Do
MORSEINVERSE = MORSEINVERSE & " "
I = I + 1
Loop
C = Mid$(Texte, I, IIf(J, J, L + 1) - I)
M = WorksheetFunction.Match(C, CNorm) - 1 'Hol.van(Ké,T,Et)
If CMorse(M) = C Then MORSEINVERSE = MORSEINVERSE & CNorm(M) Else MORSEINVERSE = MORSEINVERSE & C
I = J + 1
Loop While J
End Function
elöre is köszönöm a segitséget
Egy kis segitségre lenne szükségem. Irtam egy függvényt, ami a morze jeleket irja ki, de megirtam az inverzét is de nem mükxik.
Itt az egyik: Function MORSE(ByVal Text As String) As String
Dim CMorse, CNorm, C As String
Dim I, L, M As Integer
CNorm = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D""E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
CMorse = Array("-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.", ".-", "-...", "-.-.", "-..", ".", "..-", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..")
Text = UCase$(Text)
L = Len(Text)
On Error Resume Next
For I = 1 To L
C = Mid$(Text, I, 1)
If C Like "<.->" Then MORSE = CVErr(xlErrValue): Exit Function
M = WorksheetFunction.Match(C, CNorm) - 1
If CNorm(M) = C Then
MORSE = MORSE & CMorse(M)
Else
MORSE = MORSE & C
End If
If I < L And C <> "" Then MORSE = MORSE & ""
Next I
End Function
és itt a másik ami nem mükxik:
Function MORSEINVERSE(Texte As String) As String
Dim CMorse, CNorm, C As String
Dim I, L, M, J As Integer
CMorse = Array("-", "--", "---", "-----", ".", "-.", "--.", "----.", ".-", "-.-", "--.-", ".--", "-.--", ".---", ".----", "..", "-..", "--..", "---..", ".-.", "-.-.", ".--.", "..-", "-..-", "..---", "...", "-...", "--...", ".-..", "..-.", "...-", "...--", "....", "-....", "....-", ".....")
CNorm = Array("T", "M", "O", "0", "E", "N", "G", "9", "A", "K", "Q", "W", "Y", "J", "1", "I", "D", "Z", "8", "R", "C", "P", "U", "X", "2", "S", "B", "7", "L", "F", "V", "3", "H", "6", "4", "5")
L = Len(Texte)
On Error Resume Next
I = 1
Do
Do
J = InStr(I, Texte, "")
If J <> I Then Exit Do
MORSEINVERSE = MORSEINVERSE & " "
I = I + 1
Loop
C = Mid$(Texte, I, IIf(J, J, L + 1) - I)
M = WorksheetFunction.Match(C, CNorm) - 1 'Hol.van(Ké,T,Et)
If CMorse(M) = C Then MORSEINVERSE = MORSEINVERSE & CNorm(M) Else MORSEINVERSE = MORSEINVERSE & C
I = J + 1
Loop While J
End Function
elöre is köszönöm a segitséget
#919
mso 'o7-ben
Nézet menü; Panelek rögzítése;
a folyamat ugyanaz
Nézet menü; Panelek rögzítése;
a folyamat ugyanaz
¥ xfire: kistekila
#918
A sor alá és az oszlop mögé állsz, amiket állandóan látni akarsz. Ablak menü, Ablaktábla rögzítése.
Ha A2-bõl rögzítettél, a felsõ sor marad állandóan a képernyõn. Ha B2-bõl indulsz, akkor a felsõ sor, és az A oszlop látszik folyton.
Ha A2-bõl rögzítettél, a felsõ sor marad állandóan a képernyõn. Ha B2-bõl indulsz, akkor a felsõ sor, és az A oszlop látszik folyton.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#917
Sziasztok
Azt hogy lehet megoldani, hogy excelben, egy adott sor mindég látszódjon, akármeddig is tekerem le a táblázatot, azt mindég lehessen látni?
Kösszi
Azt hogy lehet megoldani, hogy excelben, egy adott sor mindég látszódjon, akármeddig is tekerem le a táblázatot, azt mindég lehessen látni?
Kösszi
#916
Szívesen.
Program az, ami az adatokat hibaüzenetté konvertálja. Lassú munkához idő kell.
#915
Köszönöm a gyors választ Delila!!!
Üdv: ANP
Üdv: ANP