Új hozzászólás Aktív témák

• #38308 Mutt senior tag Peddy789 #38297

  Új Válasz 2018-06-11 12:04:05 #38308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Peddy789 #38297 üzenetére

  Szia,

  Irányított szűrést (Advanced filter) is ki lehet próbálni.
  http://www.contextures.com/xladvfilter01.html

  Mondjuk annyiszor kell használni, ahány azonosítód van.

  üdv

• #38299 Pakliman tag Peddy789 #38297

  Új Válasz 2018-06-11 08:58:53 #38299

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  válasz Peddy789 #38297 üzenetére

  Üdv!

  Valami ilyesmi módon IS lehet:

  Public Sub Kitölt()
Dim sor1 As Long
Dim sor2 As Long
Dim sor3 As Long

Dim sFile As String
Dim FF As Long

Dim temp

Set ws1 = ThisWorkbook.Worksheets(1)
Set ws2 = ThisWorkbook.Worksheets(2)
Set ws3 = ThisWorkbook.Worksheets(3)

sFile = "c:\A szövegfálj.txt"
FF = FreeFile
Open sFile For Input Access Read Shared As #FF
Do While Not EOF(FF)
Line Input #FF, temp
Select Case Left(temp, 3)
Case "MB1": sor1 = sor1 + 1: ws1.Cells(sor1, 1) = temp
Case "MB2": sor2 = sor2 + 1: ws2.Cells(sor2, 1) = temp
Case "MB3": sor3 = sor3 + 1: ws3.Cells(sor3, 1) = temp
End Select
Loop
Close #FF

End Sub

  Természetesen ez egy elnagyolt kód, lehet még rajta finomítani bőven

• #38127 ny.janos tag Peddy789 #38125

  Új Válasz 2018-05-29 15:52:49 #38127

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ny.janos

  tag

  válasz Peddy789 #38125 üzenetére

  Az itt rendszeresen segítséget nyújtó személyekhez képest én legfeljebb gyenge haladó szinten vagyok.
  Viszont örülök, hogy néha olyan kérdés is felmerül, amiben a szerény tudásommal is tudok segíteni.

• #38118 ny.janos tag Peddy789 #38116

  Új Válasz 2018-05-28 20:33:46 #38118

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ny.janos

  tag

  válasz Peddy789 #38116 üzenetére

  Egy felhasználói függvény nélküli lehetséges megoldás:

  

  H2 cella képlete:
  =SZUMHA($E$2:$E$17;SOROK(H$2:H2)*1111;ELTOLÁS($E$2:$E$17;1;0))/DARABTELI($E$2:$E$17;$G2)

  Az $E$2:$E$17 hivatkozást értelemszerűen cserélned kell (mindhárom helyen) a táblázatod teljes tartományára.

• #38117 Delila_1 veterán Peddy789 #38116

  Új Válasz 2018-05-28 18:02:44 #38117

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Peddy789 #38116 üzenetére

  Egy felhasználói függvénnyel megoldható. Modulba másold (lásd a Téma összefoglalóban)

  Function Alatta(mit As Range, oszlop As Variant)
Dim sor As Integer, osszeg As Long, db As Long

sor = 1: oszlop = Asc(oszlop) - 64
Do While Cells(sor, oszlop) <> ""
If Cells(sor, oszlop) = mit Then
osszeg = osszeg + Cells(sor + 1, oszlop)
db = db + 1
End If
sor = sor + 1
Loop
Alatta = osszeg / db
End Function

  A kép L1 cellájában láthatod az alkalmazást.

  

Új hozzászólás Aktív témák