Показать полную графическую версию : [архив] Microsoft Excel 2003 и более ранние версии
CyberDaemon
22-06-2007, 16:37
Установи защиту листа.
При попытке отредактировать/скопировать ячейку получат окошко "ячейка защищена от изменений".
конечно же можно и так.
но первоначальные данные должны вводить сотрудники второго отдела, а сотрудники третьего отдела получают только результат
vai1019
Выделяем нужные ячейки
Формат ячейки=>Защита. Галку защищаемая ячейка убираем, галку скрыть формулы ставим. Ставим защиту листа, выставляя все галки (разрешаем изменения по макс.)
Формулы при этом копировать не получится, на листе их не видно.
vai1019: "внаглую копируют формулы" - ??? ничего вроде криминального...
CyberDaemon
22-06-2007, 21:32
vai1019
Нужно сразу ставить полные условия задачи! Штатные телепаты нашего форума давно уже заработали мозговую эмболию... :(
a_axe
+1
CyberDaemon
a_axe
+1
Дык благодарности жесть на это...;)
Неожиданно перестали открываться книги Excell с кодом на VBA.
Сообщение: "В результате сбоя компонент перестал работать правильно.
Восстановить его?".
В пояснении вижу: "Ошибка инициализации библиотеки VBA (1004)".
Восстанавливаю, вроде открылся. При закрытии файла появляется стандартное сообщение об ошибке приложения. Повторное открытие файла повторяет ситуацию. Много раз переустанавливал офис с расширенным списком компонент, но никак!
Может кто подскажет, в чем дело?
офис 2003.
Заранее благодарен!
Petya V4sechkin
28-06-2007, 16:52
WChek
А другие офисные приложения что выдают при попытке запуска редактора Visual Basic (по Alt+F11)?
begemotuk
12-07-2007, 13:36
Привет...
Есть проблемка. С VBA знаком недавно, поетому не могу реализовать кое что. Кто чо может подсказать плз?
Проблема заключается в следующем:
Есть форма 1 в которой пользователь вводит число периодов. По нажатию кнопки, выводится форма 2, на которой находятся два поля для ввода и две кнопки (Ок и Close).
Нужно реализовать все так чтобы форма 2 не исчезала до тех пор пока пользователь не введет данные столько раз (нажатие на Ок), сколько он ввел периодов на форме 1.
Вот что пришло в голову:
Private Sub CommandButton1_Click()
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
For k = 0 To n - 1 Step 1
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
Next k
End Sub
вроде как работает, но не могу придумать условие для выхода.
Может кто что поможет, подскажет. Заранее благодарен.
если я правильно понял, CommandButton1_Click() соответствует нажатию кнопки ок на userform2. (Если понял неправильно - извиняюсь!)
Тогда при каждом нажатии кнопки CommandButton1 программа будет записывать значения {datu(k) = CDate(UserForm2.TextBox1.Text) symu(k) = CDbl(UserForm2.TextBox2.Text)} n раз вместо 1 раза, т.к. цикл запускается при 1 нажатии и выполняется n раз (Все значения, кроме как при к=0 равны нулю). Решений на мой взгляд два - первое:
Private Sub CommandButton1_Click()
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
k=k+1
if k=n then UserForm2.hide
End Sub
Причем сдедующие строки кода:
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
а также k=0
- переносим в процедуру, соотв. нажатию кнопки на userform1 (которая выводит userform2).
Вариант 2:
при нажатии кнопки на userform1 процедура выводит userform2 не 1 раз, а n раз подряд:
Private Sub CommandButton0_Click()
n = 3 'CInt(UserForm1.TextBox16.Text)
ReDim datu(n - 1) As Date
ReDim symu(n - 1) As Double
For k = 0 To n - 1 Step 1
userform2.show
next k
end sub
Private Sub CommandButton1_Click()
datu(k) = CDate(UserForm2.TextBox1.Text)
symu(k) = CDbl(UserForm2.TextBox2.Text)
UserForm2.TextBox1.Value = 0
UserForm2.TextBox2.Value = 0
UserForm2.hide
End Sub
Код писал на коленке, может не совсем рабочии, но по мотивам написать что-то толковое можно...
PS Может тему следовало в программирование писать?
PPS с инетом сейчас проблемы, если долго не появлюсь - заранее извините...
Возникла такая трабла. При указании заливки цветом для любой из ячеек, цвета не отображаются. На просмотре документа заливка видна. В обычном виде - нет. Причем шрифты цвет меняют без проблем.
Butunin Klim
15-08-2007, 16:42
Драйвера для видео обнави
e-not1989
05-09-2007, 13:41
Трабла заключается в следующем. На компе были вирусы. Почистил антивирусником - всё стало пучком, вирусни нет. Но появилась проблема с открытием файлов *.xls. При открытии файла *.xls запускается "программа-оболочка" Excel, а содержимое самого файла не запускается. Приходится перетаскивать файл на серый фон "программы-оболочки" Excel. Вот тогда он запускается нормально. Переустановка Office не помогла.
e-not1989,
Для начала проверьте запуск программ Office 2003, загрузившись в другой учетной записи.
Переустановка была с полным предварительным удалением и без ошибок?
iam_alex
06-09-2007, 13:37
используя функцию ТЕКСТ можно указывать формат отображения данных например как "дд мм гг" для дат. у меня при установленном office 2003 sp2 и ссылке на ячейку с любой датой, например 11-07-2007, в ячейке с ф-цией ТЕКСТ отображается 11 00 07 - то есть месяц никак не хочет читаться, вместо числа - нули. в различных вариациях... причем насколько я помню в XP это работало, в 2007 и сейчас работает (только латиницей) кто-нибудь сталкивался с таким? спасибо.
В формате надо писать дд ММ гг, т.е. про месяц большими буквами.
Маленькие буквы "м" в формате не для месяца, а для минут.
iam_alex
07-09-2007, 04:38
Точно! Спасибо. Хотя в 2007 и маленькие mm работают...
e-not1989
07-09-2007, 11:18
Переустановка была с полным предварительным удалением и без ошибок. По поводу другой учётки скажу попозже...
Petya V4sechkin
08-09-2007, 18:42
e-not1989, проверьте в меню Сервис -> Параметры -> вкладка Общие -> снять галочку Игнорировать DDE-запросы от других приложений.
Возможно ли настроить Excel (2003) таким образом, чтобы при русской/украинской раскладке можно было вводить апостроф - ' при помощи заданной комбинации клавиш?
В ворде такая возможность есть: Вставка- Символ- и там есть кнопка назначения комбинации, например CTRL-' , а в Excel такой кнопки нет...
Vowan, Добавьте в параметры автозамены новое правило. Тоесть заменять какое-то сочетание знаков (которое теоретически в тексте встречаться не может) знаком апострофа. Лично у меня установлено правило: заменить "" на '. Тоесть, набирая к примеру украинское слово звя""зок, автоматически получится зв'язок. Причём замена происходит сразу после набора за сочетанием "" следующего символа или пробела.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2024, Jelsoft Enterprises Ltd.