информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Spanning Tree Protocol: недокументированное применениеЗа кого нас держат?
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Microsoft прикрывает Visual Studio... 
 Умер Кевин Митник 
 Массовое внедрение вредоносного... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / beginners
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Первое что пришло в голову..., вроде работает :) 17.05.05 13:17  Число просмотров: 1645
Автор: jiZo <Александр> Статус: Member
<"чистая" ссылка>
> Господа, посмотрите пожалуйста и подскажите, что я делаю не
> так. На EXCEL листе набиты Ф.И.О. около 900 записей, в
> каждой строке в таком порядке:
> Борисов
> Владимир
> Викторович
> Петров
> Петр
> Петрович
> и т.д. Надо их переписать на другой лист так,
> чтобы Ф.И.О. стояли в разных столбцах:
> Борисов Владимир Викторович
> Петров Петр
> Петрович
> Private Sub CommandButton2_Click()
> Worksheets("Лист1").Activate
> NumStr = 4
> For i = 1 To 900
> s = Worksheets("Лист1").Cells(NumStr, 1) '
> вся строка
> If s = "" Then Exit For
> f = Left(s, 15)
> Worksheets("Лист 2").Cells(NumStr, 1) = f
> NumStr = NumStr + 1
> i = Left(s, 15)
> Worksheets("Лист2").Cells(NumStr, 2) = i
> NumStr = NumStr + 1
> Next
> End Sub

Не мудровствая лукаво..... :)))

Private Sub CommandButton1_Click()
y = 1
t = 0
i = 0
While ActiveSheet.Cells(y, 1).Value <> ""
RemoveCell = ActiveSheet.Cells(y, 1).Value
Worksheets("Лист2").Cells(y - t - i, 1 + t).Value = RemoveCell
y = y + 1
t = t + 1
If t = 3 Then
t = 0
i = i + 2
End If
Wend
End Sub
<beginners>
Как в VBA из массива записей сделать выборку на другой лист? 17.05.05 11:01  
Автор: SLS Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Господа, посмотрите пожалуйста и подскажите, что я делаю не так. На EXCEL листе набиты Ф.И.О. около 900 записей, в каждой строке в таком порядке:
Борисов
Владимир
Викторович
Петров
Петр
Петрович
и т.д. Надо их переписать на другой лист так, чтобы Ф.И.О. стояли в разных столбцах:
Борисов Владимир Викторович
Петров Петр Петрович
Private Sub CommandButton2_Click()
Worksheets("Лист1").Activate
NumStr = 4
For i = 1 To 900
s = Worksheets("Лист1").Cells(NumStr, 1) ' вся строка
If s = "" Then Exit For
f = Left(s, 15)
Worksheets("Лист 2").Cells(NumStr, 1) = f
NumStr = NumStr + 1
i = Left(s, 15)
Worksheets("Лист2").Cells(NumStr, 2) = i
NumStr = NumStr + 1
Next
End Sub
Спасибо Вам большое,все работает как нам надо. 17.05.05 15:24  
Автор: sls Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Первое что пришло в голову..., вроде работает :) 17.05.05 13:17  
Автор: jiZo <Александр> Статус: Member
<"чистая" ссылка>
> Господа, посмотрите пожалуйста и подскажите, что я делаю не
> так. На EXCEL листе набиты Ф.И.О. около 900 записей, в
> каждой строке в таком порядке:
> Борисов
> Владимир
> Викторович
> Петров
> Петр
> Петрович
> и т.д. Надо их переписать на другой лист так,
> чтобы Ф.И.О. стояли в разных столбцах:
> Борисов Владимир Викторович
> Петров Петр
> Петрович
> Private Sub CommandButton2_Click()
> Worksheets("Лист1").Activate
> NumStr = 4
> For i = 1 To 900
> s = Worksheets("Лист1").Cells(NumStr, 1) '
> вся строка
> If s = "" Then Exit For
> f = Left(s, 15)
> Worksheets("Лист 2").Cells(NumStr, 1) = f
> NumStr = NumStr + 1
> i = Left(s, 15)
> Worksheets("Лист2").Cells(NumStr, 2) = i
> NumStr = NumStr + 1
> Next
> End Sub

Не мудровствая лукаво..... :)))

Private Sub CommandButton1_Click()
y = 1
t = 0
i = 0
While ActiveSheet.Cells(y, 1).Value <> ""
RemoveCell = ActiveSheet.Cells(y, 1).Value
Worksheets("Лист2").Cells(y - t - i, 1 + t).Value = RemoveCell
y = y + 1
t = t + 1
If t = 3 Then
t = 0
i = i + 2
End If
Wend
End Sub
Извините, но у меня ничего не копируется 17.05.05 13:42  
Автор: sls Статус: Незарегистрированный пользователь
<"чистая" ссылка>
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2023 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach