Concatenado
Region: BR
Thursday 10 September 2026 17:30:07 GMT
3270
127
3
20
Music
Download
Comments
Mauri :
Rpz. O Excel se supera. Impressionante. Parabéns pelo vídeo
2026-09-10 21:33:04
1
Concatenado :
Sub SpinWheel() Dim ch As Chart Dim inicio As Double, destino As Double Dim t As Double, p As Double Set ch = Sheets("Planilha2").ChartObjects(1).Chart Randomize inicio = ch.ChartGroups(1).FirstSliceAngle destino = inicio + 5 * 360 + Rnd * 360 t = Timer Do p = (Timer - t) / 3 If p > 1 Then p = 1 p = 1 - (1 - p) ^ 3 ch.ChartGroups(1).FirstSliceAngle = _ (inicio + (destino - inicio) * p) Mod 360 DoEvents Loop While p < 1 End Sub
2026-09-10 17:38:57
1
yelpacinno98 :
Tava querendo mesmo pra colocar temas pra eu estudar
2026-09-10 17:43:06
1
To see more videos from user @concatenado, please go to the Tikwm
homepage.
