2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #6788 Delila_1 veterán Badb0y #6785
    Új Válasz #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