HELP VBA
5 отговора
0 прегледа
HELP VBA
Здравейте, моля помогнете , защото ще откача вече;-(
в клетка B7 има лист с имената на листове /worksheets/ които се променят
клетка А6 =получено чрез формула число, което оказва ред
Клетка C7=полученa чрез формула буква
Задачата е, чрез VBA да се вземе адреса от горепосочените данни и да се отиде на въпросния адрес
т.е ако беше формула щеше да е това =INDIRECT("'"&B7&"'!"&C7&A6)
Надявам се да ме разберете
Благодаря предварително
Теди
в клетка B7 има лист с имената на листове /worksheets/ които се променят
клетка А6 =получено чрез формула число, което оказва ред
Клетка C7=полученa чрез формула буква
Задачата е, чрез VBA да се вземе адреса от горепосочените данни и да се отиде на въпросния адрес
т.е ако беше формула щеше да е това =INDIRECT("'"&B7&"'!"&C7&A6)
Надявам се да ме разберете
Благодаря предварително
Теди
Re: HELP VBA
Аз от vba много не разбирам, но ако помня добре има някакъв масив наречен cell или cells с които можеш да четеш от спредшита.
Re: HELP VBA
Пробвай да прочетеш това:
[линк]
Обект Range("B3").Value
за да прочетеш клетка B3
[линк]
Обект Range("B3").Value
за да прочетеш клетка B3
Re: HELP VBA
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
ако нещо не е ясно - питай
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 на