Aktywne Wpisy
BKZGlamrap +169
Śmieszkowałem sobie jak pisał do mnie @Alex_Sarach bo myślałem, że gość trolluje, ale właśnie odebrałem od listonosza kopertę i dostałem to. Nie mam pojęcia skąd miał mój adres - nigdy go nie podawałem na Wykopie i nie wiem co z tym zrobić. Jakieś rady? Pytam serio.
#sebcel #frajerzyzmlm
#sebcel #frajerzyzmlm
Rembrant +1632
Cześć wszystkim jako że niedawno wykopałem mój czosnek słoniowy a jest go naprawde dużo , zapraszam do #rozdajo tego ciekawego warzywa( ͡° ͜ʖ ͡°) Do wygrania 1kg o wartości 70zł
Gdyby ktoś chciał kupić zapraszam na Allegro pamiętajcie też o zapasach Jalapeño które znajdziecie w innych
Gdyby ktoś chciał kupić zapraszam na Allegro pamiętajcie też o zapasach Jalapeño które znajdziecie w innych
Sub calculateFormula()
Dim M4 As Double
Dim M3 As Double
Dim P3 As Double
Dim N4 As Double
Dim N3 As Double
Dim O4 As Double
Dim O3 As Double
M4 = Range("M4").Value
M3 = Range("M3").Value
P3 = Range("P3").Value
N4 = Range("N4").Value
N3 = Range("N3").Value
O4 = Range("O4").Value
O3 = Range("O3").Value
Range("S3").Value = Range("M3").Value + (Range("P3").Value / (Sqr(((Range("M3").Value - Range("M4").Value) ^ 2) + ((Range("N3").Value - Range("N4").Value) ^ 2) + ((Range("O3").Value - Range("O4").Value) ^ 2))) * (Range("M3").Value - Range("M4").Value))
Columns("S").NumberFormat = "0.000"
Range("T3").Value = Range("N3").Value + (Range("P3").Value / (Sqr(((Range("M3").Value - Range("M4").Value) ^ 2) + ((Range("N3").Value - Range("N4").Value) ^ 2) + ((Range("O3").Value - Range("O4").Value) ^ 2))) * (Range("N3").Value - Range("N4").Value))
Columns("T").NumberFormat = "0.000"
https://www.wallstreetmojo.com/vba-last-row/
Następnie znajac ostatni wiersz mozesz uzyc petli do przejscia przez kazdy z wierszy i wykonac