2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    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

  • #35034 Delila_1 Topikgazda logitechh #35027
    Új Válasz #35034
    Ú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

    Topikgazda

    válasz logitechh #35027 üzenetére

    Sub mm()
    Dim usor As Long

    usor = Range("B" & Rows.Count).End(xlUp).Row + 1

    'ide jön a "4 oszlopnyi adat" másolása, például
    'range("B" & usor-1 & ":E" & usor-1).copy
    'Fontos, hogy az irányított beillesztés előtt legyen Copy parancs

    Range("B" & usor).PasteSpecial xlPasteValues

    usor = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & usor) = Range("A" & usor - 1) + 1
    End Sub

    A keretezéshez a tartomány kijelölése

    Range("A1").CurrentRegion.Select

    Még a select sem szükséges.

    With Range("A1").CurrentRegion
    .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium
    .Borders(xlInsideVertical).Weight = xlThin
    .Borders(xlInsideHorizontal).Weight = xlThin
    End With

    Ez a makró körbe vastagabb, belül véknyabb szegélyt ad a tartományodnak.

    [ Szerkesztve ]

    Programozó: 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