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

• #52228 andreas49 senior tag

  Új Válasz 2024-02-27 09:07:20 #52228

  Ú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

  

  andreas49

  senior tag

  Van egy VBA-m, de nem egészen azt az eredmény adja, mint amit vártam volna

  
  A helyes sorrend ez lenne: 1,2,3, .. vagy vissza is 3,2,1Akkor jó a sorrend, ha 01, 02, 03..a lap nevek szerepelnek. Köszi a segítséget előre is. Lehet ezt erre módosítani?

  Sub Munkalapok_ABC()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
iAnswer = MsgBox("A lapok rendezése növekvő sorrendben?" & Chr(10) _
& "A Nem gombra kattintva csökkenő sorrendben rendezheti", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
'
' If the answer is No, then sort in descending order.
'
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub

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