VPF::Копирование ячеек - Форум программистов

-=Fox=-

Дата 4.5.2003, 02:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 5.2.2003

Репутация: нет
Всего: нет

Это снова я

Как из листа x на лист y, из диапазона Ai:Di в Au:Du соответственно скопировать данные. Где x и y произвольные листы. i и u переменные.

p.s. дело происходит в Excel+VB

=====
Так не работает

Worksheets("База").Range("A" & Str(i) & ":D" & Str(i)).Copy Destination:=Worksheets("Результаты").Range("A" & Str(u) & ":D" & Str(u))

Это сообщение отредактировал(а) -=Fox=- - 4.5.2003, 02:35

Step

Дата 5.5.2003, 08:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25

не работает по простой причине функция стр преобразовывает в строку символов, но вначале для положительных чисел она ставит пробел, а для отрицательных минус. Из за пробела и не работает

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

Step

Дата 5.5.2003, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 5151
Регистрация: 26.9.2002
Где: дурдом.UA

Репутация: нет
Всего: 25

вот с этим разбирись....

Цитата

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

a = Target.Row
b = Target.Column

Цитата

Преобразования чисел в текстовый адрес ячейки

y = Mid(Str((a)), 2)
k = Chr(b + 64) + y
e = Application.Range(k).Value
y1 = Mid(Str(2), 2)
k1 = Chr(b + 64) + y1
e1 = Application.Range(k1).Value
...............

End Sub

--------------------

- Дурак учится на своих ошибках, умный на чужих.
- умные учатся у дураков

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »