Как создать список пуль в Excel с помощью VBA

Если часть работы включает в себя создание письменных отчетов из данных Excel, невозможность автоматизировать точки может разочаровать. Обычно необходимо вставить текстовое поле, а затем создать маркеры вручную.

В этой статье объясняется, как автоматизировать ваши собственные путевые точки в Excel с помощью VBA.

Создать точку маркера из набора данных

Мы будем использовать пример квартальной сводки продаж с разбивкой по продуктам и количеству продаж. Данные могут выглядеть как этот список, разделенные запятыми.

Продукт, продажа

Widget1,100
Widget2,130
Widget1,150
и т.д.

Нам нужно изменить данные в следующем формате:

  • Виджет1: 100
  • Виджет2: 130
  • Виджет 3: 150

Конвертируйте данные, вставляя символ для маркера перед каждым значением и добавляя сумму из соседней ячейки. Сначала мы выбираем ассортимент.

дим рнг как диапазон

установить rng = диапазон ("a1"). currentRegion.columns (1)
для x = 2 до rng.rows.count

Для каждой ячейки добавьте маркер в начале и перепишите новое значение для каждой ячейки. Значение маркера составляет 149.

    rng.Rows (x) = Chr (149) & "" & rng.Rows (x) & ":" & rng.row (x) .offset (0.1)

после

Иногда полезно использовать текстовое поле, чтобы придать большую гибкость дизайну отчета. Вы можете вручную добавить список в поле, выделив текст, щелкнув правой кнопкой мыши и выбрав соответствующие параметры списка маркеров.

Добавление списка в текстовое поле

Если вы хотите автоматизировать список в текстовом поле, используется аналогичный код, но вы должны установить флажок и добавить текст в одну переменную, используя возврат каретки "chr (10)".

для x = 2 до rng.rows

myStr = myStr & Chr (149) & "" & rng.Rows (x) & chr (10)

после

Теперь код может вставить строку символов в виде текстового значения в текстовое поле.

    ActiveSheet.Shapes.AddTextbox (1, ileft, itop, iwidth, iheight). выбрать

Selection.Characters.Text = strg

Вышеупомянутая процедура вставляет тот же маркированный список в текстовое поле, которое вы можете изменить, установив свойства типа, цвета и размера шрифта. Если ваши электронные таблицы хорошо разработаны, вы даже можете автоматизировать комментарии и объяснения, связанные с данными.

резюме

Возможность вставки списка маркеров означает, что вы можете создавать хорошо составленные отчеты без использования дополнительных приложений, таких как Word или Power Point. Это означает, что автоматизация и VBA могут быть более эффективными и повышать производительность.

Как создать список пуль в Excel с помощью VBA: 0 комментариев

  • 24.05.2020 в 15:46
    Permalink

    Ваш комментарий ожидает проверки.

    Играя бесплатно вы окажетесь в старой шахте в которой и расположились барабан слота. Появившиеся апельсины в масках либо кокосы-барабанщики имеют множители соответственно 15, 75, 250. Pragmatic Play решили не оставаться в стороне и подготовили для своих поклонников слот Gold Rush с пятью барабанами с тремя рядами и двадцатью пятью фиксированными линиями выплат. Максимальное melbet начисление можно получить при выпадении на всех пяти барабанах одинакового рисунка. Бонусные игры в онлайн автомате. В этом увлекательном путешествии компанию вам составит прекрасная и гордая русалка, которая будет подсказывать верные направления для более частых выигрышей. Немало времени рекомендуется уделить изучению символики.

    Ответ

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *