Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 3 4 След.
RSS
изменение данных в ячейках на 1-ое число каждого месяца
 
#1
17.11.2011 16:36:47
Здравствуйте, не получается настроить столбец. Нужно настроить его так, чтобы данные с одного столбца, первого числа каждого месяца, автоматически переходили в другой столбец. За ранее благодарю.
 
 
 
#2
17.11.2011 16:58:34
так?
 
 
 
#3
17.11.2011 17:01:34
Правильное решение :-) Полагаю, тему можно закрывать.
 
 
 
#4
17.11.2011 17:02:31
Private Sub Workbook_Open()  
If Day(Now) = 1 Then  
Columns("D:D").Select  
Selection.Copy  
Columns("A:A").Select  
ActiveSheet.Paste  
End If  
End Sub  
 
Хотя решение выше намного лучше :)
 
 
 
#5
17.11.2011 17:04:50
{quote}{login=}{date=17.11.2011 04:58}{thema=}{post}так?{/post}{/quote}  
всё верно, именно так, но как это сделать?
 
 
 
#6
17.11.2011 17:07:15
{quote}{login=eliya}{date=17.11.2011 05:04}{thema=Re: }{post}{quote}{login=}{date=17.11.2011 04:58}{thema=}{post}так?{/post}{/quote}  
всё верно, именно так, но как это сделать?{/post}{/quote}  
 
ну если именно так, то только в пэинте или в любом другом графическом редакторе
 
 
 
#7
17.11.2011 17:08:12
{quote}{login=yoozhik}{date=17.11.2011 05:02}{thema=}{post}Private Sub Workbook_Open()  
If Day(Now) = 1 Then  
Columns("D:D").Select  
Selection.Copy  
Columns("A:A").Select  
ActiveSheet.Paste  
End If  
End Sub  
 
Хотя решение выше намного лучше :){/post}{/quote}  
не очень хорошо разбираюсь в Excel, но если не ошибаюсь, то выше написанный вами код, это макрос. Если вас не затруднит, не могли бы вы более подробно описать весь этот процесс? Благодарю за ранее
 
 
 
#8
17.11.2011 17:10:34
{quote}{login=yoozhik}{date=17.11.2011 05:07}{thema=Re: Re: }{post}{quote}{login=eliya}{date=17.11.2011 05:04}{thema=Re: }{post}{quote}{login=}{date=17.11.2011 04:58}{thema=}{post}так?{/post}{/quote}  
всё верно, именно так, но как это сделать?{/post}{/quote}  
 
ну если именно так, то только в пэинте или в любом другом графическом редакторе{/post}{/quote}  
ценю ваш юмор, но не в пэинте это нужно, а в Excel
 
 
 
#9
17.11.2011 17:10:39
eliya, за ЧТО Вы всё время благодарите?
 
 
 
#10
17.11.2011 17:12:05
Если нужно в Excel - почему же Вы примере даёте в виде рисунка? Вот Вам и ответили в аналогичном формате.
 
 
 
#11
17.11.2011 17:17:52
{quote}{login=Юрий М}{date=17.11.2011 05:12}{thema=}{post}Если нужно в Excel - почему же Вы примере даёте в виде рисунка? Вот Вам и ответили в аналогичном формате.{/post}{/quote}  
по ходу, только yoozhik смог понять, что мне нужно, а пример в виде рисунка потому, что на пэинте можно стрелкой нарисовать и показать, что конкретно мне нужно.
 
 
 
#12
17.11.2011 17:19:18
{quote}{login=yoozhik}{date=17.11.2011 05:02}{thema=}{post}Private Sub Workbook_Open()  
If Day(Now) = 1 Then  
Columns("D:D").Select  
Selection.Copy  
Columns("A:A").Select  
ActiveSheet.Paste  
End If  
End Sub  
 
Хотя решение выше намного лучше :){/post}{/quote}  
по-хорошему к этому макросу нужен триггер на скрытом листе на случай неоднократного открытия 1-го числа
 
 
 
#13
17.11.2011 17:21:30
Щелкаете правым мышом на ярлычке листа, выбираете исходный текст, слева вверху выбираете ThisWorkbook  и прям посередине вставляете код. И будет Вам счастье каждое первое число, и в течении всего первого числа, если книгу часто открывать будете.
 
 
 
#14
17.11.2011 17:26:39
>> по ходу, только yoozhik смог понять, что мне нужно  
 
Все всё прекрасно поняли, только никто не горит желанием рисовать таблицы. А она у Вас уже есть.
 
 
 
#15
17.11.2011 17:32:58
{quote}{login=yoozhik}{date=17.11.2011 05:21}{thema=}{post}Щелкаете правым мышом на ярлычке листа, выбираете исходный текст, слева вверху выбираете ThisWorkbook  и прям посередине вставляете код. И будет Вам счастье каждое первое число, и в течении всего первого числа, если книгу часто открывать будете.{/post}{/quote}  
там только Worksheet, а "ThisWorkbook" нету
 
 
 
#16
17.11.2011 17:36:48
26826
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#17
17.11.2011 17:43:28
90200
 
 
 
#18
17.11.2011 17:43:31
Оффтоп. Прочитал "по ходу" и подумалось - на Планете единственный слэнг, к-рый не вызывает отторгающих эмоций, это "Митьковский". "Дык", "это", "мож", "опаньки!" и т.д. За него, на моей памяти еще никто и никогда не делал замечаний:-)
Я сам - дурнее всякого примера! ...
 
 
 
#19
17.11.2011 17:47:32
{quote}{login=Владимир}{date=17.11.2011 05:36}{thema=Рисование стрелок в Excel}{post}26826{/post}{/quote}  
{quote}{login=}{date=17.11.2011 05:43}{thema=Рисование стрелок в Excel_2}{post}90200{/post}{/quote}  
ребята, обещаю, потом обязательно порисует, а сейчас помогите пожалуйста с таблицей.
 
 
 
#20
17.11.2011 17:47:33
Можно повесить макрос на кнопку, и 1 числа каждого месяца вручную нажимать
 
 
 
#21
17.11.2011 17:51:32
{quote}{login=}{date=17.11.2011 05:47}{thema=}{post}Можно повесить макрос на кнопку, и 1 числа каждого месяца вручную нажимать{/post}{/quote}  
пишет что "возможно некоторые из макросов отключены или отсутствуют", не выходит
 
 
 
#22
17.11.2011 18:11:02
включите макросы. а как?  
в 2003-м  
Tools-Options-Security-Macro Securyti-Medium.-ОК  
и откройте книгу заново
 
 
 
#23
18.11.2011 09:27:39
{quote}{login=yoozhik}{date=17.11.2011 06:11}{thema=}{post}включите макросы. а как?  
в 2003-м  
Tools-Options-Security-Macro Securyti-Medium.-ОК  
и откройте книгу заново{/post}{/quote}  
Здравствуйте, сколько не пробую, ничего не выходит. У меня Microsoft Office 2010
 
 
 
#24
18.11.2011 10:12:23
Привет от No_Name - *.xlsm ... ;)  
-19903-
 
 
 
#25
18.11.2011 11:35:23
{quote}{login=yoozhik}{date=17.11.2011 06:11}{thema=}{post}включите макросы. а как?  
в 2003-м  
Tools-Options-Security-Macro Securyti-Medium.-ОК  
и откройте книгу заново{/post}{/quote}  
на одном из ресурсов даётся эта формула - "=ВПР(A3;'01.02.2006'!$A$3:$G$153;4;0)"  
применила её, но ничего не получилось, посоветуйте пожалуйста как быть?
 
 
 
#26
18.11.2011 11:41:24
Для tliya!  
Пост выше вашего последнего с файлом 279333 смотрели - в нем макрос!  
ps Нет ничего проще и дороже, как сказать "Спасибо!" помогающим...
 
 
 
#27
18.11.2011 11:42:22
{quote}{login=Z}{date=18.11.2011 10:12}{thema=}{post}Привет от No_Name - *.xlsm ... ;)  
-19903-{/post}{/quote}  
спасибо вам огромное, кнопка работает, но нужно сделать так, чтобы значения изменялись автоматически
 
 
 
#28
18.11.2011 11:47:58
{quote}{login=}{date=18.11.2011 11:41}{thema=}{post}Для tliya!  
Пост выше вашего последнего с файлом 279333 смотрели - в нем макрос!  
ps Нет ничего проще и дороже, как сказать "Спасибо!" помогающим...{/post}{/quote}  
вы меня опередили. макрос прекрасно работает, но нужно чтобы система работала без кнопки.
 
 
 
#29
18.11.2011 11:57:19
Вы читаете, ЧТО вам пишут?!  
Было - "И будет Вам счастье каждое первое число, и в течении всего первого числа, если книгу часто открывать будете."  
Понятно? - Каждый раз при открытии файла!!!
 
 
 
#30
18.11.2011 12:37:27
{quote}{login=}{date=18.11.2011 11:57}{thema=}{post}Вы читаете, ЧТО вам пишут?!  
Было - "И будет Вам счастье каждое первое число, и в течении всего первого числа, если книгу часто открывать будете."  
Понятно? - Каждый раз при открытии файла!!!{/post}{/quote}  
 
делаю всё в точности так, как, было описано: открываю документ Excel(где и  
нужно сделать эти изменения), Файл-Параметры-Центр управления  
безопасностью-Параметры центра управления безопасностью-Параметры  
макросов-Включить все макросы(выбираю этот пункт)...вроде макросы запущены,  
дальше...  
Кликаю правым кликом мыши на ярлыке странички, выбираю пункт "Исходный  
текст", далее, запускается Microsoft Visual Basic for Applications...в левой  
части окна нахожу выбираю пункт "ЭтаКнига" кликую дважды, открывается окно  
ввода макроса и ввожу данные в следующем порядке поставив значения своей  
таблицы:  
 
 
Private Sub Workbook_Open()  
If Day(Now) = 1 Then  
Columns("I:6").Select  
Selection.Copy  
Columns("F:6").Select  
ActiveSheet.Paste  
End If  
End Sub  
 
жму "Сохранить", программа выдаёт следующее сообщение:  
Следующие компоненты не возможно сохранить в книге без поддержки  
макросов...а далее предлагает выбрать "Да" или "Нет", то есть предлагает  
сохранить с поддержкой макросов...сохраняю и закрываю программу, изменяю  
системную дату на первое число следующего месяца, но изменений в программе  
нет. Подскажите пожалуйста, что делаю не так?
 
 
 
Страницы: 1 2 3 4 След.
Читают тему
Наверх