Подсчитать количество пустых, текстовых ячеек и числовых ячеек

@sansaniche · Регистрация: 13.05.2010

Студворк — интернет-сервис помощи студентам

люди нужна ваша помощь, ничего толком в этом не понимаю(:

Ввести координаты ячейки и определить относительно нее текущий регион (CurrentRegion), в котором подсчитать количество пустых, текстовых ячеек и числовых ячеек (отдельно). Ниже последней строки этого диапазона вставить дополнительную строку и прописать в ней подсчитанные значения с комментария-ми.

Ну вот к примеру как ввести координату и выделить регион я знаю:

Visual Basic
1
2
3
4
5
Sub my()
a = InputBox("Текст сообщения")
Application.Cells.Range(a).Activate
ActiveCell.CurrentRegion.Select
End Sub

А вот что дальше делать(((....

@sansaniche · 17.05.2010, 16:27 **[ТС]**

подскажите плиз как выяснить что введено в ячейке: число, символ или пусто

@Vlanib · 17.05.2010, 16:54

If IsEmpty(Range("A1")) Then Пусто
If IsNumeric(Range("A1")) Then Число

@sansaniche · 17.05.2010, 16:57 **[ТС]**

спасибо сейчас попробую

Новые блоги и статьи Все статьи Все блоги /
Гайд по современным СУБД (небесспорный) Codd 26.06.2025 Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .	Использование C# с AWS S3: Примеры с AWS SDK для .NET stackOverflow 26.06.2025 Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .	Веб-автоматизация с Python и Selenium AI_Generated 25.06.2025 Selenium с Python — это комбинация, которая выдержала проверку временем. Несмотря на появление новых инструментов вроде Playwright или Puppeteer, связка Python-Selenium остаётся золотым стандартом. . .	CQRS и Event Sourcing на C# ArchitectMsa 25.06.2025 За последние несколько лет сложность корпоративных приложений выросла в геометрической прогрессии. Простые монолитные системы уступили место распределенным микросервисам, а нагрузка на корпоративные. . .	Хак домофона или как открыть дверь по номеру yariko 25.06.2025 Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .
Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .

@sansaniche 0 / 0 / 0 Регистрация: 13.05.2010 Сообщений: 5
	17.05.2010, 16:27 [ТС]
	подскажите плиз как выяснить что введено в ячейке: число, символ или пусто 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	17.05.2010, 16:54
	If IsEmpty(Range("A1")) Then Пусто If IsNumeric(Range("A1")) Then Число 1

@sansaniche 0 / 0 / 0 Регистрация: 13.05.2010 Сообщений: 5
	17.05.2010, 16:57 [ТС]
	спасибо сейчас попробую 0