|
|
|
Тема
|
 HELP VBA
|
|
| Автор |
teoiva (непознат) |
| Публикувано | 15.04.13 17:56 |
|
|
Здравейте, моля помогнете , защото ще откача вече;-(
в клетка B7 има лист с имената на листове /worksheets/ които се променят
клетка А6 =получено чрез формула число, което оказва ред
Клетка C7=полученa чрез формула буква
Задачата е, чрез VBA да се вземе адреса от горепосочените данни и да се отиде на въпросния адрес
т.е ако беше формула щеше да е това =INDIRECT("'"&B7&"'!"&C7&A6)
Надявам се да ме разберете
Благодаря предварително
Теди
| |
|
Тема
|
 Re: HELP VBA
[re: teoiva]
|
|
| Автор |
grg (ентусиаст) |
| Публикувано | 25.04.13 22:49 |
|
|
Аз от vba много не разбирам, но ако помня добре има някакъв масив наречен cell или cells с които можеш да четеш от спредшита.
| |
|
Тема
|
Re: HELP VBA
[re: teoiva]
|
|
| Автор |
grg (ентусиаст) |
| Публикувано | 25.04.13 23:03 |
|
|
Пробвай да прочетеш това:
http://msdn.microsoft.com/en-us/library/office/dd553655(v=office.12).aspx
Обект Range("B3").Value
за да прочетеш клетка B3
| |
|
Тема
|
 Re: HELP VBA
[re: teoiva]
|
|
| Автор |
Naki (Company PC Guy) |
| Публикувано | 26.04.13 11:17 |
|
|
Точна версия на MS Excel - 2000, XP, 2003, 2007, 2010, 2013?
| |
|
|
|
Sub Macro1()
Dim Red4e As Long
Dim Kolonka As String
Dim List4e As String
Dim ListDanni As String
ListDanni = "NASTROIKI" 'там както ти се казва листа в който са клетките
List4e = Sheets(ListDanni).Cells(7, 2).Value 'ред 7,колона 2 - B7
Red4e = Sheets(ListDanni).Cells(6, 1).Value 'ред 6 колона 1 - клетка A6
Kolonka = Sheets(ListDanni).Cells(7, 3).Value 'ред 7 колона 3 - клетка C7
Sheets(List4e).Select 'избира новия лист
Kolonka = Kolonka + "" & Red4e 'залепя към буквата, цифрата
Range(Kolonka).Select 'избира клетката в избрания вече лист
End Sub
ако нещо не е ясно - питай
Редактирано от БaтиГoгo на 26.04.13 12:04.
| |
|
|
|
БЛАГОДАРЯ !!!
П.с по-добре късно, от колкото никога
| |
|
| 
|
|
