Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Автор Тема: Удаление ячейки после того как число выпало и сдвиг в верх  (Прочитано 959 раз)

0 Пользователей и 1 Гость просматривают эту тему.

impaktoff

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 1

У меня есть данный макрос,в нем у меня после активации выпадает рандомное число и считает сколько у меня используется строк,мне нужно чтобы в данном макросе это рандомное число удалялось и сдвигалось вверх
Sub qq()
   Dim i As Integer: Application.ScreenUpdating = False
   
   a = 1

   Do While IsEmpty(Cells(a, 1)) = False
        a = a + 1
   Loop

   a = a - 1
   Cells(1, 3) = a
   
   For i = 1 To 1
       Randomize Timer
       Cells(i, 2) = Cells(CInt(1 + (a - 1) * Rnd), 1)
   Next i
End Sub
« Последнее редактирование: 29.05.2019, 12:44:36 от vikttur »
Записан

vikttur

  • Глобальный модератор
  • Ветеран
  • *****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 1 016

Число выпало. Что зачить "сдвинуть вверх число"? Откуда его удалить?

Дубль темы
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=117563&TITLE_SEO=117563-udalenie-yacheyki-posle-togo-kak-chislo-vypalo-i-sdvig-v-verkh
« Последнее редактирование: 29.05.2019, 13:50:09 от vikttur »
Записан
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4990
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4407
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5964
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3110
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4910
15.03.2017 15:45 автозамена картинок PowerPoint 3833
11.03.2017 13:43 Изменить нумерацию страниц 3761
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2869
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3374
07.08.2016 17:33 Определить нумерацию как элемент стиля 3587





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.085 секунд. Запросов: 86.