|
Начинающий : Не могу понять в чем дело???
|
||
|---|---|---|
Участник
Откуда: Moscow
Сообщения: 1 809 |
||
| 30.11.2009, 08:50 |
|
|
|
|
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
Sub ttt() s_name = 1 / 3 With Parent.Parent.Parent.ActiveCell .Cells(1, 0).Value = s_name .Cells(1, 1).Formula = "=" & s_name & "/1000" .Cells(1, 2).Formula = "=" & .Cells(1, 0).Address & "*" & .Cells(1, 1).Address End With End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2009, 00:09 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
Мне всегда нравились такие посты, тренируют телепатические способности. Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2009, 10:45 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
Спасибо за "Replace(s_name, ",", ".")"-помогло, но в остальном - не согласен: 1 -мне нужно вводить данные около активной ячейки 2-в справке по vba : Application.ActiveWindow.ActiveCell ... в итоге оказался рабочем след. код: Sub ttt() s_name = 1 / 3 With Parent.Parent.ActiveCell .Cells(1, 0).Value = s_name .Cells(1, 1).Formula = "=" & Replace(s_name, ",", ".") & "/1000" .Cells(1, 2).Formula = "=" & .Cells(1, 0).Address & "*" & .Cells(1, 1).Address End With End Sub ----------------------- Есть следующий вопрос, можно ли получить относительные адреса ячеек всей формулы то есть не писать Cells(1,1).Formula=Cells(1, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "*" & _ Cells(1, 3).Address(RowAbsolute:=False, ColumnAbsolute:=False) ' & ........ а преобразовать адреса итоговой формулы типа Cells(1,1).Formula."adres style xlA1" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2009, 11:27 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
ТСно в остальном - не согласен ...... ТС1 -мне нужно вводить данные около активной ячейки используется функция offset ТСв справке по vba : Application.ActiveWindow.ActiveCell что именно написано в справке ? ТСЕсть следующий вопрос, можно ли получить относительные адреса ячеек всей формулы а что в справке написано, можно ?... вообщем не понятно, для чего это надо, если подойдет, то можно попробовать Application.ConvertFormula... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2009, 15:29 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
Код: plaintext Пользуйтесь кнопкой SRC. Есть ветка "тест", там можно потренироваться. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2009, 08:50 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
vkodor, Ценно), спасибо. А что такая за кнопочка SRC ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2009, 23:14 |
|
||
|
Начинающий : Не могу понять в чем дело???
|
|||
|---|---|---|---|
|
#18+
Vasilisk_andА что такая за кнопочка SRC ? Когда пишешь собщение на этом форуме, то вверху куча разных кнопочек, в частности и SRC Если нажать на кнопку SRC, в тексте собщения появится теги [SRС vba][/SRС] Нужно помещать код Visual Basic который хочешь опубликовать внутри сообщения, между этими тегами. Например если написать [SRС vba]MsgBox "Hello World!!!"[/SRС] то результат будет таким Код: plaintext Т.е. эти теги нужны для более понятного отображения кода. P.S. Не стоит копировать теги из этого сообщения, т.к. в них принудительно всталена русская буква, чтобы они не обрабатывались и были видны. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.11.2009, 23:34 |
|
||
|
|
start [/forum/topic.php?fid=61&fpage=178&tid=2178773]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
56ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
| others: | 224ms |
| total: | 368ms |
| 0 / 0 |
