От ячейки к ячейке (Worksheets('Лист2').Range(Ard).Copy Worksheets('Лист1').Cells(1, 8).Paste)

@Hawk_Skywalker · Регистрация: 07.10.2008

Студворк — интернет-сервис помощи студентам

Пишу код:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
Val = ActiveCell.Value
Adr = ActiveCell.Address
End Sub
 
Private Sub CommandButton1_Click()
Worksheets('Лист2').Range(Ard).Copy 
Worksheets('Лист1').Cells(1, 8).Paste
End Sub

Нверное понятно что я хочу сделать !!!
(Выбираю ячейку тыкаю на Button2 потом значения заносятся в переменные, потом тыкаю на Button1 должно быть так: на втором листе комирует Value из ячейки эквивалентной первой по адресу и вставляет на Лист1 в ячейку 1,8 ) В идеале должно быть так, но че-то не выходит !!!

Кто знает как ето сделать, или что исправить ???

14.10.2008, 14:46

Во-первых, нельзя назвать переменную как 'Val' - это имя занято VBA-функцией. Во-вторых, зачем она вам нужна?! Вы же пишете, что отталкиваетесь только от АДРЕСА ячейки листа 'Лист1'.

Вот исправленный код, работающий с буфером обмена:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' Поместите в МОДУЛЬ:
Public Adr
'
Sub Main()
  UserForm1.Show 0
End Sub
'
' Поместите в ФОРМУ:
'
Private Sub CommandButton2_Click()
  Adr = ActiveCell.Address
End Sub
 
Private Sub CommandButton1_Click()
  Worksheets('Лист2').Range(Adr).Copy
  Worksheets('Лист1').Activate ' вставить из буфера можно только на активный лист
  Worksheets('Лист1').Cells(1, 8).Select ' выбираем ячейку для вставки
  ActiveSheet.Paste ' метод Paste применим к объекту WorkSheet, но не к Range
End Sub

А вот изменения в коде процедуры CommandButton1_Click(), если не использовать буфер обмена, - на случай, если вам надо переносить только значения (без форматирования):

Visual Basic
1
  Worksheets('Лист1').Cells(1, 8) = Worksheets('Лист2').Range(Adr)

(это единственная строка, которая будет в этой процедуре)

14.10.2008, 23:19

Вы пишете:

Visual Basic
1
Worksheets('Лист2').Range(Ard).Copy

Может быть, всё-таки, должно быть Range(Adr), а не Range(Ard) ?!

@anjey · 15.10.2008, 13:32

насчет совпадения имени переменной VAR с именем функции это верно, но вот ведь какая штука , переменные VAR и ADR ты инициализируешь в одном Sub-е а пытаешься их использовать в другом , но есть такая штука как 'ОБЛАСТЬ ВИДИМОСТИ ПЕРЕМЕННОЙ' это значит что переменная проинициализированная (а значит и автоматически объявленная) в одной процедуре НЕ БУДЕТ достпна в другой процедуре т.е. в Sub-е. Для этого нужно объявить обе твои переменные ГЛОБАЛЬНЫМИ c помощью оператора DIM и желательно с суффиксом AS после имени переменной за которым указывается ТИП переменной. Объявление выглядит так
DIM adr AS String - например и должно распологаться В САМОЙ ПЕРВОЙ строке модуля, эта область носит название Global Declaration

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@anjey 3 / 3 / 0 Регистрация: 16.01.2008 Сообщений: 359
	15.10.2008, 13:32
	насчет совпадения имени переменной VAR с именем функции это верно, но вот ведь какая штука , переменные VAR и ADR ты инициализируешь в одном Sub-е а пытаешься их использовать в другом , но есть такая штука как 'ОБЛАСТЬ ВИДИМОСТИ ПЕРЕМЕННОЙ' это значит что переменная проинициализированная (а значит и автоматически объявленная) в одной процедуре НЕ БУДЕТ достпна в другой процедуре т.е. в Sub-е. Для этого нужно объявить обе твои переменные ГЛОБАЛЬНЫМИ c помощью оператора DIM и желательно с суффиксом AS после имени переменной за которым указывается ТИП переменной. Объявление выглядит так DIM adr AS String - например и должно распологаться В САМОЙ ПЕРВОЙ строке модуля, эта область носит название Global Declaration 0