|
|
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Всем доброго времени суток, Вот столкнулся с такой проблемой: В хелпе по функции Copy сказано: "If you don't specify either Before or After, Microsoft Excel creates a new workbook that contains the copied sheet.", т.е. если я копирую лист вникуда (Worksheets("List1").Copy), то Эксел должен содать новый документ с этим листом, НО, этого не происходит. Подскажите, в чем проблема? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 12:58 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
А что происходит? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 15:35 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
vkodorА что происходит? Ничего (( даже ошибки не выдает. Тут еще одна гадость: В текстбоксе есть цифровое значение, когда присваиваю это значение ячейке, то присваивается как текст. Делаю это так: Код: plaintext 1. 2. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 15:42 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Делаю это так: > > .Cells(lngNewLastRow, 6) = Me.TextBox1.Value > 'Summ > .Cells(lngNewLastRow, 6).NumberFormat = "#,##0.00" > 'Formating Summ > А тут в чем беда? Не правильный порядок строк :) Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 15:48 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Игорь Горбонос Не правильный порядок строк :) Posted via ActualForum NNTP Server 1.4 Что, просто поменять местами строки? Код: plaintext 1. 2. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 15:56 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Нет не убьюсь, надо еще выяснить почему лист не копируется. Помогите с копированием плизззз. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 15:57 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Вообще-то, действительно при выполнении строки Код: plaintext мной этот код ни раз использовался и все работало в порядке А вы пробовали отдельно эту строку? Осмелюсь предположить, что у вас в коде стоит Код: plaintext Уберите эту строку и посмотрите что за ошибка. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:15 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Уважаемый vkodor, строки on error... у меня нет. Более того, записываю макрос в одну строку, потом нажимаю выполнить и ничего (( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:23 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
dd44 Игорь Горбонос Не правильный порядок строк :) Posted via ActualForum NNTP Server 1.4 Что, просто поменять местами строки? Код: plaintext 1. 2. Поменял строки местами, НЕ РАБОТАЕТ. ААААААА ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:29 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Прикрепите пример. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:34 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
vkodorПрикрепите пример. Пример чего? С числами я разобрался: Если ячейке присваиваешь числовое значение тексбокса с дробным разделителем "," то он воспринимает это как текст, дальнейшее форматирование ячейки не помогает, остается текстом. Если дробный разделитеь "." то все ОК. НО тут проблема заключается в проверке значения тексбокса на число, так например, при дробном разделителе "." функция IsNumeric(me.textbox1) выдает ошибку. Как с этим бороться? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:39 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
Если после нажатия на кнопку не сформируется новая книга, выкиньте Excel ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:46 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
> НО тут проблема заключается в проверке значения тексбокса на число, > так например, при дробном разделителе "." функция IsNumeric(me.textbox1) > выдает ошибку. > Как с этим бороться? Использовать Val и наконец-то воспользоватся кнопкой F1 ;) МСДНFor example, you cannot perform any arithmetic operations on the value U2 even though it contains a numeric character, because the entire value is not a valid number. Likewise, you cannot perform any calculations on the value 1040EZ; however, you can perform calculations on the values +10 or -1.7E6 because they are valid numbers. For this reason, you often want to determine if a Variant variable contains a value that can be used as a number. The IsNumeric function performs this task: Do anyNumber = InputBox("Enter a number") Loop Until IsNumeric(anyNumber) MsgBox "The square root is: " & Sqr(anyNumber) When Visual Basic converts a representation that is not numeric (such as a string containing a number) to a numeric value, it uses the Regional settings (specified in the Windows Control Panel) to interpret the thousands separator, decimal separator, and currency symbol. Thus, if the country setting in the Windows Control Panel is set to United States, Canada, or Australia, these two statements would return true: IsNumeric("$100") IsNumeric("1,560.50") While these two statements would return false: IsNumeric("DM100") IsNumeric("1.560,50") However, the reverse would be the case — the first two would return false and the second two true — if the country setting in the Windows Control Panel was set to Germany. If you assign a Variant containing a number to a string variable or property, Visual Basic converts the representation of the number to a string automatically. If you want to explicitly convert a number to a string, use the CStr function. You can also use the Format function to convert a number to a string that includes formatting such as currency, thousands separator, and decimal separator symbols. The Format function automatically uses the appropriate symbols according to the Regional Settings Properties dialog box in the Windows Control Panel. For More Information See "Format Function" and topics about the conversion functions in the Language Reference. For information on writing code for applications that will be distributed in foreign markets, see "International Issues." МСДНNote The Val function recognizes only the period (.) as a valid decimal separator. When different decimal separators are used, as in international applications, use CDbl instead to convert a string to a number. Posted via ActualForum NNTP Server 1.4 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 16:51 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
dd44 vkodorПрикрепите пример. Пример чего? С числами я разобрался: Если ячейке присваиваешь числовое значение тексбокса с дробным разделителем "," то он воспринимает это как текст, дальнейшее форматирование ячейки не помогает, остается текстом. Если дробный разделитеь "." то все ОК. НО тут проблема заключается в проверке значения тексбокса на число, так например, при дробном разделителе "." функция IsNumeric(me.textbox1) выдает ошибку. Как с этим бороться? Лучше не проверять, а разрешать вводить только нужные символы. Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.03.2008, 17:06 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
vkodor dd44 vkodorПрикрепите пример. Пример чего? С числами я разобрался: Если ячейке присваиваешь числовое значение тексбокса с дробным разделителем "," то он воспринимает это как текст, дальнейшее форматирование ячейки не помогает, остается текстом. Если дробный разделитеь "." то все ОК. НО тут проблема заключается в проверке значения тексбокса на число, так например, при дробном разделителе "." функция IsNumeric(me.textbox1) выдает ошибку. Как с этим бороться? Лучше не проверять, а разрешать вводить только нужные символы. Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. Большое спасибо за ответ. Я ут покопался в литературе и нашел более короткий вариант: Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2008, 15:05 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
vkodorЕсли после нажатия на кнопку не сформируется новая книга, выкиньте Excel АААААААААААА Не работает, ничего не происходит (((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.03.2008, 19:14 |
|
||
|
Копирование листав Экселе
|
|||
|---|---|---|---|
|
#18+
dd44 vkodorЕсли после нажатия на кнопку не сформируется новая книга, выкиньте Excel АААААААААААА Не работает, ничего не происходит (((( Создайте новую чистую книгу, поставьте на лист кнопку и скопируйте в лист такой код: Private Sub CommandButton1_Click() Dim oSht As Worksheet Set oSht = ActiveSheet oSht.Copy End Sub Если ничего не произойдет, выкиньте свой Экселе и поставьте нормальный Excel. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.03.2008, 18:25 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=35173848&tid=2162562]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
50ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
68ms |
get tp. blocked users: |
1ms |
| others: | 236ms |
| total: | 400ms |

| 0 / 0 |
