VBA- procedury

Odpowiedz Nowy wątek
2019-06-11 21:22
0

Witam mam pewien problem z VBA a mianowicie muszę zrobić następujące zadania:

1) Napisz program, który wszystkie zaznaczone komórki zamieni na wartości tekstowe.
2) Napisz procedurę, która przepisze wartości z komórek od A1 do A20 w odwrotnej kolejności do komórek B1 do B20.

Muszę w wordzie wkleić te kody i zrobić screeny i kroki działania.
Jeśli trzeba będzie zapłace

Pozostało 580 znaków

2019-06-12 16:27
0
Sub odwracanie()
    Dim i As Integer, kom As String   
         For i = 1 To 20    
            kom = Cells(i, 1).Value
               Cells(i, 2) = StrReverse(kom)
                 Cells(i, 1).Clear
          Next i
End Sub
Sub zaznaczenie()

'skopiowane z Walkenbacha

Dim UserRange As Range, prompt As String, title As String

    prompt = "Zaznacz wybrany zakres komórek."
        title = "Wybieranie zakresu komórek"

    On Error Resume Next

    Set UserRange = application.InputBox( _
    prompt:=prompt, title:=title, _
    Default:=ActiveCell.Address, _
    Type:=8)

    On Error GoTo 0

If UserRange Is Nothing Then
MsgBox "Operacja anulowana."
Else
UserRange.NumberFormat = "@"
End If

End Sub

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0