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

• #6788 Delila_1 veterán Badb0y #6785

  Új Válasz 2010-04-06 08:21:44 #6788

  Ú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 Badb0y #6785 üzenetére

  Nagyon jó, amit Fire írt, de ahhoz, hogy minden laptophoz a saját képe jöjjön be, előbb le kell futtatni az alábbi makrót:

  Sub tipus()
  Dim sor As Integer
  Dim b As Integer
  Dim szoveg As String
  
  Sheets("DB").Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  szoveg = Left(Cells(sor, 2), Len(Cells(sor, 2)) - 4)
  For b = Len(szoveg) To 1 Step -1
  If Mid(szoveg, b, 1) = "/" Then
  Cells(sor, 1) = Mid(szoveg, b + 1)
  Exit For
  End If
  Next
  Next
  End Sub

  Ez a DB lap B oszlopából (URL címekből) előállítja az A oszlopban az egyenként választható típusokat. Igaz, csupa kisbetűs név lesz, nem az eredeti mutatós Dell Adamo 13, hanem dell-adamo-13-laptop.
  Biztosan ki lehetne csicsázni, kérdés, hogy megéri-e. Sok sornál jó hosszú időbe telik.

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