Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7

Автозаполнение ячеек Excel

29.08.2011, 01:36. Показов 1854. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
в общем суть сего макроса заключается в следующем.
У меня есть таблица В ней различные значения по вычислению сумм.Я хочу сделать так,чтобы в ячейка C90 и все остальные ячейки ниже нее C91,C91,C93 и тд автозаполнялись значениями,но есть условие ячейка C90 получается методом сложения цифр из ячеек E11+F32 в итоге в ячейке C90 получается число.Мне нужно сделать так ,чтобы это число сохранялось ,макрос переходил на следующую ячейку и записывал число полученное этим же путем E11+F32,снова сохранял и это число не изменялось независимо от того какие я буду вводить значения в дальнейшем в E11 и F32.

Надеюсь обяснил более не менне понятно.Ребята Помогите Плиз с решением данной задачи очень нужно.ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!!!!!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.08.2011, 01:36
Ответы с готовыми решениями:

Автозаполнение ячеек в Microsoft Excel
Здравствуйте, подскажите пожалуйста, возможно ли сделать так, чтобы при редактировании на листе номер 1 изменения были на всех листах...

Автозаполнение ячеек в Excel из другой таблицы данных
Нужна помощь в создании таблицы с авто заполнением определенными соответствиями по пересечению из двух других таблиц. Файл примера в...

Автозаполнение ячеек
Всем привет!Нужно чтобы в столбцах производилась одна и та же формула,но с разными ячейками,последовательно. То есть: C1 =СРЗНАЧ(A1:A2)...

11
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
29.08.2011, 08:33
Visual Basic
1
2
3
4
5
Sub QWERT()
  For j = 90 To 120 ' Сколько нада
      Range("C" & j).Value = Range("E11").Value + Range("F32").Value
  Next j
  End Sub
1
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 13:56  [ТС]
Alex77755 спасибо .Но есть одна загвоздка.сложность сей ситуации в том что оно то заполняет числами это хорошо,но помио этого каждое число должно сохраняться и защищаться от измененений .К примеру Я получили чило 10 сложение двух ячеек E11=5:F32=5 E11+F32=10 ,это число должно сохраниться в ячейке С90 ,затем я снова нажимаю на кнопку которой присвою этот макрос
и в ячейке C91 должно быть уже другое число котрое получилось в результате изменения значений в ячейках E11 и F32 пример E11=7 F32=8 E11+F32=15 - это значение должно быть в ячейке C91а не тоже самое что было до этого.Моя программа считает прибыль .Я хочу сделать так чтобы при нажатии на кнопку посчитать ,сумма этих прибылей плюсовалась и откладывалась в ячейке c90,C91 итд.в этом вся и сложность
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
29.08.2011, 14:07
То есть должна сохраниться история?
И каждое новое нажатие на кнопку будет записывать новый результат в следующую свободную ячейку не трогая ранее введённое значение?

Visual Basic
1
2
3
4
5
6
Sub QWERT()
Dim LR
LR = Cells(Rows.Count, 3).End(xlUp).Row + 1
If LR < 90 Then LR = 90
Range("C" & LR).Value = Range("E11").Value + Range("F32").Value
End Sub
1
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 14:23  [ТС]
Совершенно верно.Только ниче не работает((((
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
29.08.2011, 14:28
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Проверял, работает!
Здесь нет указания на лист - должен быть активе нужный лист или надо дописать имя листа
Visual Basic
1
2
3
4
5
6
Sub QWERT()
Dim LR
LR = Лист1.Cells(Rows.Count, 3).End(xlUp).Row + 1
If LR < 90 Then LR = 90
Лист1.Range("C" & LR).Value = Лист1.Range("E11").Value + Лист1.Range("F32").Value
End Sub
0
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 14:45  [ТС]
А можно вас попросить дописать имля листа ,потому что я в этом пока совсем зеленый.Просто так как есть ничего не работает почему не знаю
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
29.08.2011, 14:48
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

пример
Вложения
Тип файла: rar История.rar (5.8 Кб, 20 просмотров)
0
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 15:05  [ТС]
В общем вот моя прога.Я был бы очень признателен если бы вы записали мне макрос уже в существующей программе так как у меня самого ничего не выходит

Добавлено через 1 минуту
Как тут вставить архив?
0
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 15:12  [ТС]
Цитата Сообщение от Kingbeat1991 Посмотреть сообщение
В общем вот моя прога.Я был бы очень признателен если бы вы записали мне макрос уже в существующей программе так как у меня самого ничего не выходит

Добавлено через 1 минуту
Как тут вставить архив?
////////////'
Вложения
Тип файла: rar FAst CALC V2.0 Beta.rar (41.6 Кб, 16 просмотров)
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
29.08.2011, 16:59
лови!
Вложения
Тип файла: rar FAst CALC V2.0 Beta_2.rar (37.3 Кб, 18 просмотров)
0
0 / 0 / 0
Регистрация: 29.08.2011
Сообщений: 7
29.08.2011, 17:30  [ТС]
Друг я не знаю как тебя отблагодарить.Но просто сказочное спасибо тебе.Должен по гроб жизни тебе
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.08.2011, 17:30
Помогаю со студенческими работами здесь

Автозаполнение ячеек
Добрый день! Очень нужна Ваша помощь. Столкнулась со следующей ситуацией. Мне нужно сделать так, чтобы при вводе в одну ячейку...

Дублирование ячеек (автозаполнение)
Уважаемы знатоки, помоги пожалуйста с такой проблемой. Мне нужно из 1-й ячейки, что бы автоматически копировалось в указанные. Пример...

Автозаполнение ячеек формулами
Подскажите как сделать так чтобы ячейками автоматически заполнились формулами такого типа, =СЧЁТЗ(Лист1!C39:C68) последующая ячейка...

Автозаполнение ячеек в форме
необходимо сделать так, чтобы в форме &quot;Ввод&quot; в поле &quot;Водитель&quot; автоматически появлялось имя водителя при выборе соответствующего адреса....

Выравнивание высоты объединённых ячеек Excel по их содержимому. AutoFit для объединённых ячеек Excel.
В ячейку вставляется очень длинный текст, который при печати просто не виден. Нужно, чтобы продолжение текста переносилось в сторку ниже. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru