Здравейте,
Тренирам преместването на листове,но ми дава грешка "Compile error : expected function or variable" за (Sheets.Count) при положение, че редът от инструкцията за преместване ми е същия като във урока. Къде греша?
Public Sub Sheets()
ActiveWorkbook.Sheets.Add Before:=Worksheets(1) Worksheets(1).Name = "Събота" Sheets("Събота").Move After:=Sheets(Sheets.Count)
End Sub
Разбрах какъв е проблема. Във файла има само worksheets, няма sheets и затова дава грешка на "Sheets".
Здравейте, как да сменя локалните настройки на лаптопа, за да разчита кирилицата в коментарите на VBA ( Alt + F11) и в същото време езика на компютъра да си остане английски? Аз съм с Уиндоус 7. Благодаря предварително
Здравейте, Валентина.
Ето тези теми от форума са по отношение на това какви точно настройки на Windows 7 трябва да направите за да не излиза кирилицата като "шльоковица"
Как да оправя надписите на кирилица в отворен автоматично .csv файл?
Здравейте, имам същия въпрос - може ли да покажете как да настроим само VBA да чете кирилицата без да се налага да променяме настройките на Уиндоус изцяло. Английският език трябва да остане основен, а българският - допълнителен. И аз съм с уиндоус 7.
Опитайте с една частична промяна в Windows 7. От Control Panel, изберете групата Region and Language.
В таба Format - English(Unated States)
За да се чете българския език в Редактора на VBA, в двата таба Location and Administrative трябва да се избере Bulgaria, Bulgarian:
Надявам се това да помогне!
благодаря, ще опитам
Здравейте, бих искала да разбера от къде идва разликата в оцветяването на клетките между урока и моя компютър. В посочения пример " ... rng_cell.Interior.Color = 43 .... " използвате код 43 за оцветяване на клетките със определена стойност, който код при вас изглежда приятно зелено. Когато аз използвам същия код, клетките ми се оцветяват в доста неприятен тъмен цвят. От къде идва тази разлика? Windows, настройка на Windows или от версията на Excel....?
Разликата според мен идва от графичната резолюция на монитора.
Не разбирам тези два реда:
'изтрива лист с номер 10 от колекцията Worksheets Worksheets(10).Delete
'изтрива лист с номер 10 от колекцията Sheets Sheets(10).Delete
Обърнете внимание, Worksheets и Sheets са две различни колекции. Worksheets включва само екселските листове, a Sheets - екселските листове и листовете диаграми, Charts. Препоръчвам да изгледате още веднъж видеото.
Искам да добавя нов sheet след последния, до тук добре. Но искам да ме пита как да се казва новия sheet?
Това става с функцията InputBox, която разглеждам в следващите уроци. За сега малко търпение.
Здравейте! Мислех си, че сама мога да стигна до отговора, но започнах да се заплитам - може ли малко помощ?
Успях!!! Все пак ми е интересно дали имате и други предложения :)
Здравейте, Виолета. Чудесно е, че сама сте намерила решение. Достатъчно е да дефинирате диапазона (обект Range), който трябва да се копира в нов файл и за него да се изпълни команда Copy. Предполагам, че това е и Вашето решение. Пишете, ако имате въпроси.