Hirdetés

2024. május 10., péntek

Lapcsaládunk:

Gyorskeresés

Legfrissebb anyagok

Általános témák

LOGOUT.hu témák

Szakmai témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD.hu témák

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Téma összefoglaló

Téma összefoglaló

  • Utoljára frissítve: 2023-11-13 08:31:56

LOGOUT.hu

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.

Összefoglaló kinyitása ▼

Hozzászólások

(#34874) Delila_1 válasza csferke (#34872) üzenetére


Delila_1
Topikgazda

Szóval a B oszlopban választasz ki egy cellát. Ez a kezdősor. A végző sor a kezdő + 16. Összegezni a Ckezdő:Dvégző tartományt kell, és ennek az összegnek a 17-ed része az eredmény.

A makró bekéri a kezdősort úgy, hogy rákattintasz a cellára, majd a G1-be beírja az eredményt.
Ha a Bvégvő cella üres, hibát jelez.

Sub mm()
Dim sorK, sorV As Integer, osszeg As Double

Set sorK = Application.InputBox(prompt:="Kérem a kezdő sort", Type:=8)
sorK = sorK.Row
sorV = sorK + 16
If Cells(sorV, "B") <> "" Then
osszeg = Application.WorksheetFunction.Sum(Range("C" & sorK & ":D" & sorV)) / 17
Range("G1") = osszeg
Else: MsgBox "Hiba"
End If
End Sub

[ 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.

Útvonal

Fórumok  »  OS, alkalmazások  »  Microsoft Excel topic (kiemelt téma)

Támogatóink

Copyright © 2000-2024 PROHARDVER Informatikai Kft.