Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/зная номер строчки и номер столбца определить значение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » зная номер строчки и номер столбца определить значение (Макросы/Sub)
зная номер строчки и номер столбца определить значение
Lion79 Дата: Среда, 26.04.2017, 08:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
доброе утро

не могли бы вы посмотреть вложенный рисунок

там ситуация такая, что в след. столбце нужно получить данные из файла B.xls, лист b, зная номер строчки и номер столбца.
К сообщению приложен файл: 1630823.jpg (40.4 Kb)
 
Ответить
Сообщениедоброе утро

не могли бы вы посмотреть вложенный рисунок

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

Автор - Lion79
Дата добавления - 26.04.2017 в 08:36
китин Дата: Среда, 26.04.2017, 08:54 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
лично я на рисунке ничего не вижу


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениелично я на рисунке ничего не вижу

Автор - китин
Дата добавления - 26.04.2017 в 08:54
Lion79 Дата: Среда, 26.04.2017, 09:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
китин, Добрый день

http://www.excelworld.ru/forum/10-33417-1

если пройти по ссылке все будет понятно

рисунок не качественный в связи ограничением 100Kb
 
Ответить
Сообщениекитин, Добрый день

http://www.excelworld.ru/forum/10-33417-1

если пройти по ссылке все будет понятно

рисунок не качественный в связи ограничением 100Kb

Автор - Lion79
Дата добавления - 26.04.2017 в 09:03
Pelena Дата: Среда, 26.04.2017, 09:20 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Lion79, не надо гонять по ссылкам, приложите файл сюда


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеLion79, не надо гонять по ссылкам, приложите файл сюда

Автор - Pelena
Дата добавления - 26.04.2017 в 09:20
Lion79 Дата: Среда, 26.04.2017, 09:38 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
есть такой макрос:

Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub

см.приложенный файл
К сообщению приложен файл: 7735208.xls (38.5 Kb)
 
Ответить
Сообщениеесть такой макрос:

Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub

см.приложенный файл

Автор - Lion79
Дата добавления - 26.04.2017 в 09:38
Pelena Дата: Среда, 26.04.2017, 11:20 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Lion79, Вы так и не прочитали Правила форума, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеLion79, Вы так и не прочитали Правила форума, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 26.04.2017 в 11:20
Lion79 Дата: Среда, 26.04.2017, 12:12 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, извиняюсь заранее

правила я читал, что не так сделал?
подскажите как правильно оформить?
 
Ответить
СообщениеPelena, извиняюсь заранее

правила я читал, что не так сделал?
подскажите как правильно оформить?

Автор - Lion79
Дата добавления - 26.04.2017 в 12:12
китин Дата: Среда, 26.04.2017, 12:24 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение Как оформлять сообщения?

Автор - китин
Дата добавления - 26.04.2017 в 12:24
Lion79 Дата: Среда, 26.04.2017, 12:41 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
есть такой макрос:

[vba]
Код
Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = [vba][code]ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
[/vba]

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub[/code][/vba]

см.приложенный файл
К сообщению приложен файл: 0320580.xls (38.5 Kb)
 
Ответить
Сообщениеесть такой макрос:

[vba]
Код
Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = [vba][code]ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)
[/vba]

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub[/code][/vba]

см.приложенный файл

Автор - Lion79
Дата добавления - 26.04.2017 в 12:41
Lion79 Дата: Среда, 26.04.2017, 12:42 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
есть такой макрос:

[vba]
Код
Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub
[/vba]
см.приложенный файл
К сообщению приложен файл: 1215697.xls (38.5 Kb)
 
Ответить
Сообщениеесть такой макрос:

[vba]
Код
Sub ertert33()
Dim x, i&, rw&
With Sheets("data")
With .Range("C4:D" & .Cells(Rows.Count, 3).End(xlUp).Row)
x = .Value
For i = 1 To UBound(x)
rw = x(i, 1) 'номер строки, который записан в ст. С
x(i, 1) = "=SMALL('D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,RC[-2])"
x(i, 2) = "=ADDRESS(RC[-4],MATCH(RC[-1],'D:\Загрузки\[D.xls]d'!R" & rw & "C10:R" & rw & "C26,0)+9,4)"

нужно сюда дописать след формулу: = ИНДЕКС('D:\Загрузки\[B.xlsx]b'!$A$1:$Z$100;C4;G4)

Next i
With .Offset(, 3)
.Value = x
.Value = .Value 'и можно ли сразу вставлять как значение? Можно )
End With
End With
End With
End Sub
[/vba]
см.приложенный файл

Автор - Lion79
Дата добавления - 26.04.2017 в 12:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » зная номер строчки и номер столбца определить значение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!