Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Копирование ячеек

Автор: -=Fox=- 4.5.2003, 02:33

Это снова я

Как из листа 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))

Автор: Step 5.5.2003, 08:23

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

Автор: Step 5.5.2003, 08:33

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

Цитата

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