-
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 .Farkas. #34877 üzenetére
Nem írtad, melyik oszlopban vannak ezek az adatok.
Írtam egy makrót, ami az A oszlopban lévő adatoknál végzi el az általad leírt feladatot. Ha nem ott található adatokról van szó, a makróban minden helyen az "A"-t írd át ennek megfelelően.A makrót modulba másold be a Téma összefoglaló szerint. Ha 2003-nál magasabb verziójú az Exceled, a füzetet makróbarátként kell mentened.
Sub Szazalek()
Dim sor As Long, usor As Long, ertek As Integer
Dim k As Integer, v As Integer
Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 6 Step -1
If Left(Cells(sor, "A"), 1) = "<" Then
k = Application.WorksheetFunction.Search(">", Cells(sor, "A"), 2) + 1
v = Application.WorksheetFunction.Search("<", Cells(sor, "A"), 2) - 1
ertek = Mid(Cells(sor, "A"), k, v - k + 1)
Rows(sor + 1).EntireRow.Insert
Cells(sor + 1, "A") = "<Statisztikai ertek>" & Int(ertek * 9.2 / 100) & "</Statisztikai ertek>"
End If
Next
Application.ScreenUpdating = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs