|
|
| Тема |
 как да оптимизирам кода? |
|
| Автор | ACtron-B (Нерегистриран) | |
| Публикувано | 02.03.06 11:54 |
|
|
|
Някой може ли да ми помогне с идеи за оптимизация на долният код. Той служи за търсене в колоната G на Sheet1: Text1.Text = ExcelApp.Sheets("Sheet1").Range("G" & vertical). Проблемът ми е точно тук, много се бави докато прерови колоната с 2000 реда. Ясно ми е че много от вас ще кажач: "Защо използваш Ексел, глупаво е!" Няма как налага се да е Ексел!
Private Sub command1_click()
Screen.MousePointer = vbHourglass
DoEvents
If Text1.Text <> "" Then
vertical = 2
While ExcelApp.Sheets("Sheet1").Range("G" & vertical) <> ""
If Text1.Text = ExcelApp.Sheets("Sheet1").Range("G" & vertical) Then
Label1.Caption = ExcelApp.Sheets("Sheet1").Range("d" & vertical)
Label2.Caption = ExcelApp.Sheets("Sheet1").Range("b" & vertical) - _
ExcelApp.Sheets("Sheet1").Range("H" & vertical)
Label4.Caption = ExcelApp.Sheets("Sheet1").Range("f" & vertical)
If Label2.Caption <= 0 Then
Screen.MousePointer = vbNormal
DoEvents
Msg = "Няма налично количество"
End If
Text2.SetFocus
Screen.MousePointer = vbNormal
DoEvents
Exit Sub
End If
vertical = vertical + 1
Wend
End If
PROMPT = MsgBox("Стока с такъв код не е намерена!", 0, "Внимание!")
Text1.SetFocus
Screen.MousePointer = vbNormal
DoEvents
End Sub
| |
| |
| 
|
|
