| Вопрос: Очень нужна помощь VBA+Excel | Добавлено: 08.12.06 13:02 |
Автор вопроса:  murrr
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  murrr Вопросов: 2 Ответов: 10 |
Профиль | | #16 | Добавлено: 13.12.06 05:19 |
|
Спасибо, HACKER!
Ты, конечно, прав!!!! Проблема-то была, собственно: - в правильном TabIndex; - и даже при правильном TabIndex не стоит использовать .SetFocus перед .Show 0. А женская логика у женщин не потому, что у них женская логика, а потому, что они женщины. Если бы у бабушки был...а мужская логика, то это был...о бы не бабушка, а дедушко. Любая моно-пол-ия не полезна для общества. У меня, похоже, возникает еще одна проблема с макросом, так что не прощаюсь ... С уважением, murrr |
||
|
Номер ответа: 17 Автор ответа: murrrВопросов: 2 Ответов: 10 |
Профиль | | #17 | Добавлено: 13.12.06 17:34 |
|
Ребята!
Горю!!!!!! Подскажите, пожалуйста, код, буквально 4 строчки, как обменять местами содержимое двух ячеек, по моему мнению: Range("A1"  .copy
Range("A2" .cut destination:=Range("A1"
?????.paste destination:=Range("A2"
Вот на .paste и вопрос, и ошибка! ActiveSheet.Paste не воспринимается аще. Возможен и второй путь - через DataObject. Однако, не могу понять, как для него правильно установить пользвательский формат данных (а именно, что копирую ячейку). Помогите!!!!! ОГРОМНОЕ СПАСИБО! |
||
|
Номер ответа: 18 Автор ответа: GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #18 | Добавлено: 13.12.06 18:07 |
|
Поменять местами две ячейки:
Range("B1" .Cut
Range("A1" .Insert Shift:=xlToRight
|
||
|
Номер ответа: 19 Автор ответа: murrrВопросов: 2 Ответов: 10 |
Профиль | | #19 | Добавлено: 15.12.06 13:23 |
|
Спасибо всем за помощь!
Одну задачу решила. А для того, чтобы одновременно абсолютно пользоваться и клавиатурой, мышкой для в ввода, есть прекрасный контрол RefEdit - это именно то, что мне было нужно. Ребята, честное слово, совсем недостаточно времени для того, чтобы писать встроенный калькулятор-функцию. Может быть, кто-нибудь не пожалеет подарить мне его код или подскажет, как подключить как функцию {по типу i=Excel.Calc(моя_строка)} то, что встроено в Excel (это предпочтительней, т.к. понимает функции Excelя). С огромным уважением и благодарностями, murrr |
||