-
IT café
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 DasBoot #21890 üzenetére
Esetleg így
=HA(ÉS(JOBB(G10;1)<>"k";JOBB(G10;1)<>"M");"Hol a mértékegység?!";HA(JOBB(G10;1)="k";2*PI()*BAL(G10;HOSSZ(G10)-1)*10^3;2*PI()*BAL(G10;HOSSZ(G10)-1)*10^6))
Szerk.: feltételezve, hogy a G10 cellában a "k", vagy "M" előtt létezik egy szám.
[ 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 DasBoot #21919 üzenetére
Talán így érthetőbb:
Ha jobb(g10;1)<>„k” ÉS jobb(g10,1)<>„M” (nincs prefixum a G10 végén)
akkor a cella értéke legyen g10*2*PI()
Ellenkező esetben
ha jobb(g10;1)=”k”
akkor a cella értéke legyen bal(g10;hossz(g10)-1)*2*PI()*1000
ellenkező esetben (itt már csak M lehet az utolsó karakter)
a cella értéke legyen bal(g10;hossz(g10)-1)*2*PI()*1000000
feltétel vége
Feltétel végeLehet még egy halom hiba, például nincs levédve az ellen, ha valaki a szám után egy J karaktert visz be, vagy akár egy szóközt.
[ 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 DasBoot #21926 üzenetére
=HA(ÉS(JOBB(G10;1)<>"k";JOBB(G10;1)<>"M");G10*2*PI() & " Hz";HA(JOBB(G10;1)="k";2*PI()*BAL(G10;HOSSZ(G10)-1)*10^3 & " Hz";2*PI()*BAL(G10;HOSSZ(G10)-1)*10^6&" Hz"))
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Apollo17hu
őstag
válasz DasBoot #22310 üzenetére
De válaszolok, nehogy legközelebb is miattam puffogj. A "Magyarul?" nálam meg sem közelíti a normális kategóriát.
Légy szíves? Vagy: megtennéd, hogy magyarul is leírod? Számos lehetőség van, én úgy válaszoltam, ahogy a kérdésed feltetted.Azon meg konkrétan beszarok, hogy még arra is vetted a fáradságot - ahelyett, hogy ideiglenesen angolra állítottad volna az Excel-ed -, hogy privát üzenetben személyeskedj.
-
Fferi50
őstag
válasz DasBoot #25265 üzenetére
Szia!
Dec2Bin csak 10 számjegyig jó. E fölött be kell vetned az általános iskolában tanult ötletet - maradékos osztással megkeresed a számjegyeket és egymás mellé írod egy szövegben.
Azaz kiindulsz az adott számból: A1 cella. Mellé írod (B1 cella) a = maradék(A1;2) képletet. Alá pedig az int(A1/2) képletet, ezt végighúzod az oszlopokon addig, hogy az osztás eredménye 1 legyen.
Ezután a B oszlop eredményét visszafelé haladva összefűzöd.Persze makróval ez gyorsabb.
Üdv.
-
félisten
válasz DasBoot #25262 üzenetére
Attól függ mekkora számokkal kellene dolgozni, mert pl ha elég 16bit (max 65535 a legnagyobb pozitív szám), akkor ez a képlet elintézi
=DEC.BIN(INT(A1/2^8);8) & DEC.BIN(MARADÉK(A1;2^8);8)
UI: Ezen elven "akárhány" bites számokat is át meg lehet jeleníteni binárisan.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz DasBoot #25262 üzenetére
Nézd meg ezt:
Function LongDec2Bin(ByVal nIn As Long, Optional nBits As Long = 0&) As Variant
'J.E. McGimpsey műve, és Harlan Grove módosítása
Dim nReqBits As Long
Dim sOut As String
Dim sBit As String
Dim bNeg As Boolean
Dim i As Long
If nIn < 0& Then
bNeg = True
nIn = -(nIn + 1&)
End If
If nIn = 0& Then
nReqBits = 1&
Else
nReqBits = Int(Log(nIn) / Log(2&)) + 1& - bNeg
End If
If nBits <= 0& Then nBits = nReqBits
If nBits >= nReqBits Then
If bNeg Then
sOut = String(nBits, "1")
sBit = "0"
Else
sOut = String(nBits, "0")
sBit = "1"
End If
For i = nBits To (nBits - nReqBits + 1&) Step -1
If (nIn - 2& * (nIn \ 2&)) > 0 _
Then Mid(sOut, i, 1&) = sBit
nIn = nIn \ 2&
Next i
LongDec2Bin = sOut
Else
LongDec2Bin = CVErr(xlErrNum)
End If
End FunctionProgramozó: 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 DasBoot #35117 üzenetére
Sheets(1).Shapes("Kép 1").Select
Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeftA két sor eredményeként a Kép 1 az eredeti méretéhez képest arányosan felére csökken.
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 DasBoot #51899 üzenetére
Kiegészítettem bela85 linkelt makróját úgy, hogy a számokat emelkedő sorrendbe rakja.
Sub LottoSzamok()
Dim Rng As Range, WorkRng As Range, xNumbers(49) As Integer, xTitleId As String
Dim xIndex As Integer, xNum As Integer, Cim As Range, Lapnev As String
Lapnev = Selection.Worksheet.Name
On Error Resume Next
xTitleId = "Véletlen számok"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Melyik cellában kezdődjön?", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
Set Cim = Range(WorkRng.Range("A1"), WorkRng.Offset(0, 5))
Range(Cim.Address).Select
ActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(Lapnev).Sort.SortFields.Add2 Key:=Range(Selection.Address), _
SortOn:=xlSortOnValues, Order:=xlAscending
With ActiveWorkbook.Worksheets(Lapnev).Sort
.SetRange Range(Selection.Address)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
karlkani
aktív tag
válasz DasBoot #51908 üzenetére
Meg kellene osztani a követelményeket, akkor tudnának segíteni a fórumtársak, akik értenek a makróhoz. Sajnos ez ügyben nem tudok segíteni (nem igazán értek hozzá), általában itt kérek segítséget, vagy privátban a topikgazdától, ha valamit meg szeretnék oldani makróval.
Új hozzászólás Aktív témák
- AMD Navi Radeon™ RX 7xxx sorozat
- Milyen egeret válasszak?
- Plazma TV topic
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Elektromos rásegítésű kerékpárok
- bitpork: Fogyasztásra ítélve
- Trollok komolyan
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Vírusirtó, Antivirus VPN kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )