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





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Первое что пришло в голову..., вроде работает :) 17.05.05 13:17  Число просмотров: 1552
Автор: 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-2022 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach