Как это запустить?

[po4emu4ka]

Все действительно заработало. Вот так я переделала код:

Sub sort()
Dim L As Integer
Dim n As Integer
Dim i As Integer
Dim x As Integer

Range("A1:C11").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste

For n = 1 To 7
For L = n + 1 To 7

If Cells(n, 1) > Cells(L, 1) Then
k = Cells(L, 1)
Cells(L, 1) = Cells(n, 1)
Cells(n, 1) = k
z = Cells(L, 2)
Cells(L, 2) = Cells(n, 2)
Cells(n, 2) = z
x = Cells(L, 3)
Cells(L, 3) = Cells(n, 3)
Cells(n, 3) = x

End If
Next L
Next n
End Sub

На первом листе находятся данные(первые 3 столбца по 7 строк), они копируются на новый лист где и сортируется первый столбец по возрастанию(соответствующие данные в соседних столбцах не сортируются,а просто перемещаются соответственно первому - лучше сформулировать не смогла )) ). Классно. Потом по идее с этих данных строится график в AutoCad'e (это я знаю как делать) и второй лист удаляется. Т.е. необходимо оставить данные на первом листе нетронутыми. Посмотри пожалуйста Ruble, может что-то можно усовершенствовать. Заранее благодарю ))

[Ruble]

Сообщение от po4emu4ka

Все действительно заработало. Вот так я переделала код:

Sub sort()
Dim L As Integer
Dim n As Integer
Dim i As Integer
Dim x As Integer

Range("A1:C11").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste

For n = 1 To 7
For L = n + 1 To 7

If Cells(n, 1) > Cells(L, 1) Then
k = Cells(L, 1)
Cells(L, 1) = Cells(n, 1)
Cells(n, 1) = k
z = Cells(L, 2)
Cells(L, 2) = Cells(n, 2)
Cells(n, 2) = z
x = Cells(L, 3)
Cells(L, 3) = Cells(n, 3)
Cells(n, 3) = x

End If
Next L
Next n
End Sub

На первом листе находятся данные(первые 3 столбца по 7 строк), они копируются на новый лист где и сортируется первый столбец по возрастанию(соответствующие данные в соседних столбцах не сортируются,а просто перемещаются соответственно первому - лучше сформулировать не смогла )) ). Классно. Потом по идее с этих данных строится график в AutoCad'e (это я знаю как делать) и второй лист удаляется. Т.е. необходимо оставить данные на первом листе нетронутыми. Посмотри пожалуйста Ruble, может что-то можно усовершенствовать. Заранее благодарю ))

лучше не куда, мОлодЦЦа

[po4emu4ka]

Снова прошу помощи )) И т.к. я эту тему создала, то тут и продолжу ))
Никак не пойму как пользоваться listbox'ом. У меня при запуске модуля появляется листбокс с, допустим, пятью строчками и кнопкой ОК. Как сделать чтотбы при выборе строчки(каждой соответствует определенный диапазон ячеек на листе Excel), выбирался этот диапазон, который потом пойдет для рисования графика.

P.S. To Ruble - прошу позволения отсылать тебе в ЛС сообщения.

[Ruble]

P.S. To Ruble - прошу позволения отсылать тебе в ЛС сообщения.

спасибо. женат.

//шутчу,воляй пеши

[Ruble]

Сообщение от po4emu4ka

Снова прошу помощи )) И т.к. я эту тему создала, то тут и продолжу ))
Никак не пойму как пользоваться listbox'ом. У меня при запуске модуля появляется листбокс с, допустим, пятью строчками и кнопкой ОК. Как сделать чтотбы при выборе строчки(каждой соответствует определенный диапазон ячеек на листе Excel), выбирался этот диапазон, который потом пойдет для рисования графика.

вот у меня работает :

PHP код:

сам ты PHP код
это VisualBasic умникнах
Dim SelectedRange As String

Private Sub CommandButton1_Click()
    Select Case ListBox1.ListIndex + 1
        Case 1
        SelectedRange = "Range 1"
        Case 2
        SelectedRange = "Range 2"
        Case 3
        SelectedRange = "Range 3"
        Case 4
        SelectedRange = "Range 4"
        Case 5
        SelectedRange = "Range 5"
        Case Else
        SelectedRange = "Any Range"
        Label1.Caption = "Selected :" & SelectedRange
    End Select
    Label1.Caption = "Selected Range:" & SelectedRange
End Sub
Private Sub UserForm_Initialize()
    SelectedRange = ""
    CommandButton1.Caption = "OK"
    Label1.Caption = "Please, Select Range, NOW!!!"
    Dim I As Integer
    For I = 1 To 5
    ListBox1.AddItem ("Range < " & Str(I) & " >")
    Next I
End Sub 


[po4emu4ka]

Чтобы я без тебя делала )) Все скопировала, пойду разбираться. Благодарствую ))