|
|
|
Visual Basic & Exel
|
|||
|---|---|---|---|
|
#18+
я новичок в этом деле так что не смейтесь. в Экселе еще более мение понимаю что к чему. Для примера составил простую прогаммку: Sub arvut() Dim a As Single, b As Sigle, c As Single Dim x1 As Single, x2 As Single a = cells(2, 2) b = cells(3, 2) c = cells(4, 2) If (b ^ 2 - 4 * a * c) > o Then x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a) cells(3, 4) = x1 cells(4, 4) = x2 Else MsgBox "Проверь данные!" End If End Sub как в MVB6 заменить "cells" на что то другое? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.01.2004, 19:28:40 |
|
||
|
Visual Basic & Exel
|
|||
|---|---|---|---|
|
#18+
понятней вопрос сформулируй..... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.01.2004, 03:27:19 |
|
||
|
Visual Basic & Exel
|
|||
|---|---|---|---|
|
#18+
1. Всегда устанавливай в VB/VBA проекте Option Explicit, тогда IDE заставит тебя отлаживать код ДО его запуска и подскажет, что доступно в конкретном контексте. 2. Используй объект Excel.Range, тогда узнаешь, к чему привязано свойство .Cells(,) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.01.2004, 19:40:47 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=388&tid=2170195]: |
0ms |
get settings: |
11ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
29ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
2ms |
| others: | 208ms |
| total: | 326ms |
| 0 / 0 |
