Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
Ha egy hosszú oszlopban minden egyes szám elé be kell írnom azt, hogy D, azt hogyan tudom a leggyorsabban megcsinálni? Tehát pl. az van a cellában, hogy '3423', de nekem az kellene, hogy 'D3423', és így tovább minden szám elé az egész oszlopban. Próbáltam azt, hogy az előtte lévő oszlopba írom a D-t, aztán egyesítem a két cellát, de nem hajlandó összevonni a két oszlop beírt adatait, hanem törli a jobboldalit.
Bevallom töredelmesen, hogy a makrókhoz nagyon nem értek. Az írt javítással működik, el is indul, le is fut, de csak a számok felét használja fel. 13 csoport helyett csak 7db 5ös csoportba osztja a számok. Megpróbáltam a kódból kitalálni, hogy mit kéne átírnom, de sajna nem sikerült megtalálnom.
Szóval, tényleg köszönöm a segítséget. Elkészítettem a makrót, de a Dst.Offset((i - 1) 5, (i - 1) Mod 5) = Val(Selected) sornál nálam sintaktikai hibát ír.
Sub izé() Dim i As Long, Maxi As Long, Randi As Long Dim Numbers As String, Selected As String Dim Rng As Range, c As Range, Dst As Range
Set Rng = Range("C4:G15") Set Dst = Range("K4") For Each c In Rng If InStr(Numbers, c.Value) = 0 Then Numbers = Numbers & "," & c.Value Maxi = Maxi + 1 End If Next
For i = 1 To UBound(Split(Numbers, ",")) Randi = Int(Rnd() * Maxi) + 1 Selected = Split(Numbers, ",")(Randi) Dst.Offset((i - 1) 5, (i - 1) Mod 5) = Val(Selected) Numbers = Replace(Numbers, "," & Selected & ",", ",") Maxi = Maxi - 1 Next End Sub
Az első vastagított sor a forrás tartomány definíciója, a második pedig a céltartomány bal felső sarka.
Nem ellenőriztem alaposan az eredményt, de szerintem jó.
Egy búzatáblában a szálak magassága normális eloszlású valószínűségi változó 70 cm várható értékkel és 5 cm szórással. Mennyi a valószínűsége, hogy egy véletlenszerűen kiválasztott szál magassága 68 és 75 cm között van?
Valószínűséget kiszámoltam, az 0,4968.
Melyik értéknél lesz a standard normális eloszlásfüggvény értéke 0,8? Na ez nem megy. Valaki tud segíteni? Hogy kell, milyen fv-el.
