Мелочи вызывают затруднение - Microsoft Office Excel - Страница 10

Freddy19 · 21.12.2010, 09:48

Очень интересно! Спасибо! А если шаг 0,1 и округлю до десятых, так же юыстро будет? Щас попробую! Еще раз спасибо!!!!

Freddy19 · 21.12.2010, 10:08

А куда это можно вставить, чтобы отказаться от кнопки. В worksheet calculate тормозит сильно. Больше ни как это нельзя автоматизировать?

Freddy19 · 21.12.2010, 14:31

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Äóáîâñêîå" Then
Sheets("Ëèñò1").[D17] = Sheets("Ëèñò2").Range("F3")
End If
If ComboBox1.Value = "Ðåìîíòíîå" Then
Sheets("Ëèñò1").[D17:O20] = Sheets("Ëèñò2").Range("F9:Q12")
End If
End Sub

Когда задаю диапазон, ни чего не переносится, а по одной ячейке работает.

OMEN_6666 · 22.12.2010, 00:47

Здравствуйте. Налетел на следующую проблему: есть документ Word с текстовым описанием процесса (исходные данные, расчет, показатели и т.д.). В тексте очень много меняющихся в соответствии с выбранным вариантом показателей, но сама структура текста, в общем, неизменна. Все данные содержатся в книге Excel. Я заменил в документе все непостоянные показатели объектами "Надпись". Подскажите, пожалуйста, как сделать, чтобы вставленные надписи заполнялись значениями из соответствующих ячеек книги Excel?

Freddy19 · 22.12.2010, 09:10

Как то искал связь между книгами экселя и наткнулся на http://www.allsport-goldwin.ru/5.html Может поможет. С вёрдом не знаю как, а между книгами экселя связь работает.
Вот такая она: При ссылке на ячейку, содержащуюся в другой рабочей книге, используется следующий синтаксис: [Книга]Лист!Ячейка. Вводя формулу связывания для ссылки на ссылку из другой рабочей книги, используйте имя этой книги, заключенное в квадратные скобки, за которыми без пробелов должно следовать имя рабочего листа, затем восклицательный знак (!), а после него -- адрес ячейки (ячеек). Например 'C:\Petrov\[Журнал1.хls]Литература'!L3.

Freddy19 · 23.12.2010, 09:21

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Ремонтное" Then
Sheets("лист1").[D17] = Sheets("лист2").Range("F3")
End If
If ComboBox1.Value = "Дубовское" Then
Sheets("лист1").[D17:O20] = Sheets("лист2").Range("F9:Q12")
End If
End Sub

Народ ну подскажите что не так? почему диапазон не переносит? а по одной работает

nilem · 23.12.2010, 09:37

Sheets("Лист1").[D17:O20].Value = Sheets("Лист2").Range("F9:Q12").Val ue

Freddy19 · 23.12.2010, 09:54

Спасибо! А я думал это значение по умолчанию стоит!

Freddy19 · 17.04.2012, 17:16

Всем здрасти. Давно я тут не был.
Такой вот вопрос. Есть выражения одинаковые:
Round((3.14 * 0.5 * 0.5) / (0.0024 * (WorksheetFunction.Ln(80 / 0.7) - 1)))
и
(3,14*0,5*0,5)/(0,0024*(LN(80/0,7-1)))
Они же одинаковые? или я уже туплю. Так вот!
Почему не совподают вычисления этих выражений? Не работает логарифм в коде?

DiemonStar · 17.04.2012, 17:58

Цитата:

Почему не совподают вычисления этих выражений?

наверное, из-за этого:

Код:

Round(

22.12.2010, 09:10	#95
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Как то искал связь между книгами экселя и наткнулся на http://www.allsport-goldwin.ru/5.html Может поможет. С вёрдом не знаю как, а между книгами экселя связь работает. Вот такая она: При ссылке на ячейку, содержащуюся в другой рабочей книге, используется следующий синтаксис: [Книга]Лист!Ячейка. Вводя формулу связывания для ссылки на ссылку из другой рабочей книги, используйте имя этой книги, заключенное в квадратные скобки, за которыми без пробелов должно следовать имя рабочего листа, затем восклицательный знак (!), а после него -- адрес ячейки (ячеек). Например 'C:\Petrov\[Журнал1.хls]Литература'!L3. Последний раз редактировалось Freddy19; 22.12.2010 в 09:23.

23.12.2010, 09:21	#96
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Комбобокс Private Sub ComboBox1_Change() If ComboBox1.Value = "Ремонтное" Then Sheets("лист1").[D17] = Sheets("лист2").Range("F3") End If If ComboBox1.Value = "Дубовское" Then Sheets("лист1").[D17:O20] = Sheets("лист2").Range("F9:Q12") End If End Sub Народ ну подскажите что не так? почему диапазон не переносит? а по одной работает Последний раз редактировалось Freddy19; 23.12.2010 в 09:34.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вопрос по мелочи	Syltan	Общие вопросы C/C++	6	29.09.2009 00:19
Вопрос по мелочи	Golovastik	Общие вопросы C/C++	8	23.07.2009 22:47
Задачи вызывают затруднение... матрица и сумма ряда.	GorNikSar	Паскаль, Turbo Pascal, PascalABC.NET	2	21.12.2008 12:51
Задачи вызывают затруднение... матрица и сумма ряда.	GorNikSar	Помощь студентам	2	19.12.2008 07:11

21.12.2010, 09:48	#91
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Очень интересно! Спасибо! А если шаг 0,1 и округлю до десятых, так же юыстро будет? Щас попробую! Еще раз спасибо!!!!

21.12.2010, 10:08	#92
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	А куда это можно вставить, чтобы отказаться от кнопки. В worksheet calculate тормозит сильно. Больше ни как это нельзя автоматизировать?

21.12.2010, 14:31	#93
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Private Sub ComboBox1_Change() If ComboBox1.Value = "Äóáîâñêîå" Then Sheets("Ëèñò1").[D17] = Sheets("Ëèñò2").Range("F3") End If If ComboBox1.Value = "Ðåìîíòíîå" Then Sheets("Ëèñò1").[D17:O20] = Sheets("Ëèñò2").Range("F9:Q12") End If End Sub Когда задаю диапазон, ни чего не переносится, а по одной ячейке работает.

22.12.2010, 00:47	#94
OMEN_6666 Пользователь Регистрация: 26.10.2010 Сообщений: 34	Здравствуйте. Налетел на следующую проблему: есть документ Word с текстовым описанием процесса (исходные данные, расчет, показатели и т.д.). В тексте очень много меняющихся в соответствии с выбранным вариантом показателей, но сама структура текста, в общем, неизменна. Все данные содержатся в книге Excel. Я заменил в документе все непостоянные показатели объектами "Надпись". Подскажите, пожалуйста, как сделать, чтобы вставленные надписи заполнялись значениями из соответствующих ячеек книги Excel?

23.12.2010, 09:37	#97
nilem Форумчанин Регистрация: 25.04.2010 Сообщений: 616	Sheets("Лист1").[D17:O20].Value = Sheets("Лист2").Range("F9:Q12").Val ue

23.12.2010, 09:54	#98
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Спасибо! А я думал это значение по умолчанию стоит!

17.04.2012, 17:16	#99
Freddy19 Пользователь Регистрация: 08.07.2010 Сообщений: 81	Всем здрасти. Давно я тут не был. Такой вот вопрос. Есть выражения одинаковые: Round((3.14 * 0.5 * 0.5) / (0.0024 * (WorksheetFunction.Ln(80 / 0.7) - 1))) и (3,140,50,5)/(0,0024*(LN(80/0,7-1))) Они же одинаковые? или я уже туплю. Так вот! Почему не совподают вычисления этих выражений? Не работает логарифм в коде?