Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Выборка, копирование в новый лист xls Добавлено: 12.12.08 10:36  

Автор вопроса:  SoftBear | Web-сайт: softbear.livejournal.com | ICQ: 206956288 

Ответить

  Ответы Всего ответов: 20  

Номер ответа: 16
Автор ответа:
 SoftBear



ICQ: 206956288 

Вопросов: 1
Ответов: 11
 Web-сайт: softbear.livejournal.com
 Профиль | | #16
Добавлено: 12.12.08 12:27
Спасибо, понял :)
Вернул всё взад, вот так:
  1. Public str As Long
  2. Public filenumber As Long
  3. Public listnumber As Long
  4. Public znach As String
  5. Public testing As String
  6. Public tstr As Long
  7. Public nomersf As String
  8. Public model As String
  9. Public kolvo As Long
  10. Public itogstr As Long
  11.  
  12. Sub Main()
  13. '
  14. '
  15.  
  16.  
  17.  
  18. Workbooks.Open Filename:="c:\Èíôà\Íîìåðà ÃÒÄ.xls"
  19.     
  20.  For filenumber = 1 To 13
  21.   Workbooks.Open Filename:="c:\Èíôà\" & filenumber & ".xls"
  22.     
  23.     For listnumber = 1 To 10
  24.     Sheets("Ëèñò " & listnumber).Activate
  25.    
  26.       For str = 3 To 150
  27.       
  28.       Windows("Íîìåðà ÃÒÄ.xls").Activate
  29.       znach = Range("A" & str).Value
  30.       Windows(filenumber & ".xls").Activate
  31.       
  32.          For tstr = 19 To 100
  33.          
  34.             testing = Range("K" & tstr).Value
  35.             If znach = testing Then
  36.                 nomersf = Range("A7").Value
  37.                 model = Range("A" & tstr).Value
  38.                 kolvo = Range("C" & tstr).Value
  39.             
  40.                 Windows("Èòîã.xls").Activate
  41.                 Range("B" & itogstr).Select
  42.                 ActiveCell.FormulaR1C1 = testing
  43.                 Range("C" & itogstr).Select
  44.                 ActiveCell.FormulaR1C1 = nomersf
  45.                 Range("D" & itogstr).Select
  46.                 ActiveCell.FormulaR1C1 = model
  47.                 Range("E" & itogstr).Select
  48.                 ActiveCell.FormulaR1C1 = kolvo
  49.                 itogstr = itogstr + 1
  50.                 Windows(filenumber & ".xls").Activate
  51.              End If
  52.                                                                            
  53.          Next tstr
  54.        
  55.        Next str
  56.        
  57.     Next listnumber
  58.       
  59.   ActiveWindow.Close
  60.  Next filenumber
  61.     
  62. End Sub


Ругается на Range("B" & itogstr).Select в find() - "method 'range' of object '_global' failed"

как правильно значение в ячейку записать? я подглядел в "записи макроса".

Ответить

Номер ответа: 17
Автор ответа:
 SoftBear



ICQ: 206956288 

Вопросов: 1
Ответов: 11
 Web-сайт: softbear.livejournal.com
 Профиль | | #17
Добавлено: 12.12.08 12:34
К посту 13: После команды Windows("Èòîã.xls";).Activate, ты только активируешь окно. Поставь еще выбор листа.


А там один лист.
Я понял про "method 'range' of object '_global' failed" - я начальное значение itogstr не задал(((

Ответить

Номер ответа: 18
Автор ответа:
 Jasmin



Вопросов: 23
Ответов: 417
 Профиль | | #18 Добавлено: 12.12.08 12:36
Про лист, это на будущее.

Про itogstr правильно. Учишься. :-)

Ответить

Номер ответа: 19
Автор ответа:
 SoftBear



ICQ: 206956288 

Вопросов: 1
Ответов: 11
 Web-сайт: softbear.livejournal.com
 Профиль | | #19
Добавлено: 12.12.08 12:53
Ура, заработало!!!

GDK, Jasmin - спасибо большое!

Ответить

Номер ответа: 20
Автор ответа:
 Jasmin



Вопросов: 23
Ответов: 417
 Профиль | | #20 Добавлено: 12.12.08 12:56
А через поиск уже не надо ? Или надо ?

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам