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

• #14015 Delila_1 veterán buherton #14010

  Új Válasz 2012-06-12 17:33:38 #14015

  Ú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 buherton #14010 üzenetére

  Az A1:A10 tartomány rövidítését beírja a B1:B10 tartományba, és megvizsgálja a COUNTIF (darabteli) függvénnyel, hogy hány db ilyen van a B oszlopban. Ha 1-nél több, akkor a B oszlopba az A megfelelő cellájának az első és harmadik betűjét írja. Lehetne cifrázni, mert előfordulhat, hogy több azonos alakul ki így is. Ahhoz újabb ciklusok kellenek, egy Do-Loop, és egy For-Next. Ha több időm lesz, és szükséges, megírom.

  Sub rovidites()
  Dim sor%, szo$, betu%
  For sor% = 1 To 10
  szo$ = Cells(sor%, "A")
  If InStr(1, szo$, " ") Then 'ha van benne szóköz
  For betu% = 1 To Len(szo$)
  If Asc(Mid(szo$, betu%, 1)) > 64 And Asc(Mid(szo$, betu%, 1)) < 91 Then 'nagybetű
  Cells(sor%, "B") = Cells(sor%, "B") & Mid(szo$, betu%, 1)
  End If
  Next
  Else
  Cells(sor%, "B") = Left(szo$, 2)
  End If
  If WorksheetFunction.CountIf(Columns(2), Cells(sor%, "B")) > 1 Then _
  Cells(sor%, "B") = Left(szo$, 1) & Mid(szo$, 3, 1)
  Next
  End Sub

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