Excel Office Script Examples

Content

Introduction

Since July 2020, Microsoft 365 users can record their actions in Excel on-line into Office Script macros. Earlier, I've posted an article that shows you how to get started. On this page, I will list some example scripts which you cannot record but might come in handy.

Some of these scripts contain literal values, (the values between quotes). This means things like worksheet names are hard-coded into the example scripts: "ToC". So if you need a different worksheet name, edit the script accordingly. Because Microsoft has not yet given us a way to prompt the user for a value, we must edit the script to change what sheet it affects.

Download the full code (zip file with all scripts) here.

Video

I've presented parts of this page during Excel Virtually Global 2022. Here's the Youtube recording:

Entering zeroes in empty cells

Suppose you want to enter a zero in each empty cell in the selection:

Range of cells with empty cells

This code does exactly that.

function main(workbook: ExcelScript.Workbook) {
    // Your code here
    let emptyAreas = workbook.getSelectedRange().getSpecialCells(ExcelScript.SpecialCellType.blanks);
  emptyAreas.getAreas().forEach(r => {
    r.setValue(0);
  });

}

Last Used Row

The function getLastRow shown below, returns the last used row of any range (assuming the cell on row 1048576 is empty!)

function main(workbook: ExcelScript.Workbook) {
  const sht = workbook.getWorksheet("Sheet2");
  const lastRow = getLastRow(sht, sht.getRange("H:H"));
  console.log(lastRow);
  sht.getRange("H2:H" + lastRow).select();
}

function getLastRow(sht: ExcelScript.Worksheet, rng: ExcelScript.Range) {
  let lastCell = sht.getCell(rng.getEntireColumn().getCellCount() - 1, rng.getColumnIndex());
  return lastCell.getExtendedRange(ExcelScript.KeyboardDirection.up).getRowIndex() + 1;
}

Adding a table of Contents to your workbook

Working in Excel Online and need a table of Contents for your workbook quickly? Here's an Office Script that produces one. It generates a list for all worksheets and all charts, with hyperlinks pointing to their locations.

First let me show the main function and explain it step by step.

function main(workbook: ExcelScript.Workbook) {
  
  if (workbook.getWorksheet("ToC")) {
    let temp = workbook.getWorksheet("ToC")
    temp.delete();
  }

  let allSheets = workbook.getWorksheets();
  let tocSheet = workbook.addWorksheet("ToC");
  let reportCell = tocSheet.getRange("B2");
  let newTable = addTocTable("Worksheets", workbook, reportCell);
  reportCell = reportCell.getOffsetRange(20);
  reportCell.getResizedRange(01).setValues([["Worksheet""Link"]]);

  for (let i = 0; i < allSheets.length; i++) {
    reportCell.getOffsetRange(i + 10).setValue(allSheets[i].getName());
  }
  reportCell.getOffsetRange(11).setFormulaR1C1("=HYPERLINK(\"#'\"&RC[-1]&\"'!A1\",RC[-1])");

  reportCell = reportCell.getOffsetRange(newTable.getRowCount() + 20)
  newTable = addTocTable("Charts", workbook, reportCell);
  reportCell = reportCell.getOffsetRange(20)
  reportCell.getResizedRange(0,3).setValues([["Worksheet""Name""Location""Link"]]);
  let k = 0;
  for (let i = 0; i < allSheets.length; i++) {
    let allCharts = allSheets[i].getCharts();
    for (let j = 0; j < allCharts.length; j++) {
      k++;
      let theSheet = allSheets[i];
      reportCell.getOffsetRange(k, 0).setValue(allSheets[i].getName());
      reportCell.getOffsetRange(k, 1).setValue(allCharts[j].getName());
      let topLeftCell = getCellUnderChart(allCharts[j], allSheets[i]);
      let topLeftAddress = topLeftCell.getAddress();
      if( topLeftAddress.charAt(0)=="'"){
        topLeftAddress="'" + topLeftAddress;
      }
      reportCell.getOffsetRange(k, 2).setFormula(topLeftAddress);
    }
  }
  reportCell.getOffsetRange(13).setFormulaR1C1("=HYPERLINK(\"#\"&RC[-1],\"Link\")");

  tocSheet.activate();
}

These are the important steps in this code:

  • check whether a worksheet called ToC exists and if it does, delete it.
  • Fetch a list of all worksheets and store that in a variable called allSheets
  • Add a worksheet called "ToC" and assign it to a variable called tocSheet
  • Assign cell B2 to the variable reportCell
  • Add a table to the table of contents using the function addTocTable (see below)
  • To ensure we start adding the sheet names on the first empty row of the table, we offset the reportCell with two so it now points to cell B4
  • We add the headings (Worksheet and Link) to the newly inserted table
  • Now it is time to loop through the allSheets collection and list the name of each sheet in the first column of the table
  • After looping through the sheets, we add the HYPERLINK formula to the second column, using the name of the worksheet in the first column to create a link to each worksheet
  • We offset the reportCell position by adding the number of rows in the worksheet table (plus two rows extra for spacing)
  • Now we add the heading for the charts table and an empty table to hold them, using that addTocTable function again
  • The Charts table has four columns: Worksheet, Name, Location and Link
  • We run through all worksheets and for every worksheet we
    • run through all charts
    • fill the chart table with the appropriate information: Worksheet, Name and Location (location required me to design a function called getCellUnderChart because Office Script does not have a TopLeftCell property of a chart like VBA has)
    • There's a snag for charts on sheets which contain a space in their name; the correct address of the topleftCell in sheets like that have apostrophes around the name: 'Blad 2'!F1. However, if you write 'Blad 2'!F1 to a cell, Excel strips that first apostrophe. Hence the if statement that adds an additional apostrophe in such cases.
  • Once we've done all charts on all worksheets, we place the HYPERLINK formula in the last column again using the address information in the third column

The main function uses two helper functions, here's the addTocTable one:

function addTocTable(caption: String, workbook: ExcelScript.Workbook, location: ExcelScript.Range): ExcelScript.Table {
//1. adds a caption in reportCell and formats that as Heading 1
//2. Adds a table below reportCell to hold ToC entries
//Returns: the table
  location.setValue(caption);
  location.getResizedRange(01).setPredefinedCellStyle(ExcelScript.BuiltInStyle.heading1);
  location = location.getOffsetRange(20);
  let newTable = workbook.addTable(location, true);
  return newTable;
}

All it does is add the caption in the location cell, style it as "Heading 1" and add a new one-column table. The function returns the table as an object so we can use that object in our calling routine.

Note that you can also address a style by its name. But be aware that built-in style names are language-dependent. So only assign a style by its name if it is a custom style.

And here is the getCellUnderChart function:

function getCellUnderChart(cht: ExcelScript.Chart, ws: ExcelScript.Worksheet): ExcelScript.Range {
  let topLeftCell = ws.getRange("A1");
  do {
    topLeftCell = topLeftCell.getOffsetRange(0, 1)
  }
  while (topLeftCell.getLeft() < cht.getLeft());
  do {
    topLeftCell = topLeftCell.getOffsetRange(1, 0)
  }
  while (topLeftCell.getTop() < cht.getTop());

  return topLeftCell.getOffsetRange(-1, -1);
}

The basic principle is simple: the function first loops through the cells of the worksheet horizontally, starting from cell A1, until it has found a cell with a Left value that is greater than or equal to the chart's Left position. After that it does the same vertically to find the Top position. Because the two loops take us one column too far to the right and one row too far down, we offset the found cell by (-1, -1) so we return the correct cell which denotes where the top-left corner of the chart is located.

Adding a list of Range names

Desktop Excel has a simple feature to add a list of range names to your workbook (Formulas tab, Use in Formula drop-down, Paste List). But Excel on-line does not (yet) have that feature. Here is an Office script which adds a worksheet called "Names List" to your workbook, listing all range names and some of their properties.

function main(workbook: ExcelScript.Workbook) {
  var RowCt = 1;
  var sheetName = "";
  let MyNames = workbook.getNames();
  let selectedSheet = workbook.getWorksheet("Names list");
  if (selectedSheet) {
    selectedSheet.delete();
  }
  let worksheets = workbook.getWorksheets();
  selectedSheet = workbook.addWorksheet("Names list");
  selectedSheet.getRange("B2:E2").setValues([["Scope""Name""RefersTo""Visible"]]);
  for (let i = 0; i < MyNames.length; i++) {
    RowCt++
    selectedSheet.getCell(RowCt1).getResizedRange(03).setValues([
      ["Workbook"MyNames[i].getName(), "'" + MyNames[i].getFormula(), "'" + MyNames[i].getVisible()]]);
  }
  for (let i = 0; i < worksheets.length; i++) {
    sheetName = worksheets[i].getName();
    var myNames = worksheets[i].getNames();
    for (let j = 0; j < myNames.length; j++) {
      RowCt++;
      selectedSheet.getCell(RowCt1).getResizedRange(03).setValues([
        [sheetName, myNames[j].getName(), "'" + myNames[j].getFormula(), "'" + myNames[j].getVisible()]
      ]);
    }
  }
  let newTable = workbook.addTable(selectedSheet.getRange("B2").getSurroundingRegion(), true);
  newTable.getRange().getFormat().autofitColumns();
}

The resulting table looks like this:
List of range names

Prompting for user input

OfficeScript does not have a feature like the VBA InputBox, nor can you design input screens. So we need a work-around to get information from the user. The script below checks for presence of a worksheet called "Script_Input". If that sheet is not in the workbook, it gets added. Next a function is called which allows you to pass it a prompt and an array of inputs, which will be added to the Script_Input sheet. The resulting input sheet looks like this:

An input sheet for Office Script

If the script detects that the "Script_Input" sheet is available, it assumes all input has been completed and runs an action with that input (writes to the console).

This is the entire script:

function main(workbook: ExcelScript.Workbook) {
  if (workbook.getWorksheet("Script_Input")) {
    //we assume input is there, here are your script's main actions
    let inputSheet = getInputSheet(workbook, "Script_Input");
    let name = inputSheet.getRange("B3").getValue();
    let dob = inputSheet.getRange("B4").getValue();
    console.log(name + " " + dob);
  }
  else {
    createPromptSheet(workbook, "Please enter your details below", ["Name""DoB"])
    //It may be a good idea to delete the Script_Input sheet now
  }
}

function createPromptSheet(workbook: ExcelScript.Workbook, prompt: string, questions: string[]) {
  let inputSheet = getInputSheet(workbook, "Script_Input");
  let titleCell = inputSheet.getRange("A1")
  titleCell.setValue(prompt);
  titleCell.setPredefinedCellStyle("Heading 1");
  titleCell.getFormat().autofitColumns();
  let questionCell = inputSheet.getRange("A3");
  let rw = 0;
  for (let i = 0; i < questions.length; i++) {
    rw++;
    questionCell.getOffsetRange(i, 0).setValue(questions[i]);
    questionCell.getOffsetRange(i, 0).setPredefinedCellStyle("Heading 4");
    questionCell.getOffsetRange(i, 1).setPredefinedCellStyle("Input");
  }
  inputSheet.activate();
  questionCell.getOffsetRange(rw + 20).setValue("After entering all data, click the script button again.");
  questionCell.getOffsetRange(rw + 20).setPredefinedCellStyle("Heading 4");
  questionCell.getOffsetRange(01).select();
}

function getInputSheet(workbook: ExcelScript.Workbook, name: string) {
  if (workbook.getWorksheet(name)) {
    return workbook.getWorksheet(name);
  }
  else {
    return workbook.addWorksheet(name);
  }

}

Download

Download the full code (zip file with all scripts) here.

Next step: Call this script from a Power Automate Flow

In my next article I describe how to apply the Table Of Content script to all Excel files in a Sharepoint folder using Power Automate


Comments

Showing last 8 comments of 34 in total (Show All Comments):

 


Comment by: Vali Gibson (24-3-2023 22:57:00) deeplink to this comment

Hi Jan,

Thank you very much for you post, it has been very helpful.

I am having a really hard time trying to create multiple selection for dropdown lists using Excel Online. Since only Office Script is allowed, I have not been able to figure out a code that works, like there is for using VBA.
Is it possible to create multi-select dropdown list with Office Script?



Comment by: Jan Karel Pieterse (27-3-2023 10:36:00) deeplink to this comment

Hi Vali,

Given that Office On-line does not allow you to add controls to worksheets such as the combo-box or a listbox, I expect the answer is no.


Comment by: Ana (20-4-2023 22:17:00) deeplink to this comment

Looking for an office script to remove all formulas and data connection from an excel file and keep the values


Comment by: Jan Karel Pieterse (24-4-2023 11:34:00) deeplink to this comment

Hi Ana,

Have you tried to record those actions using Script recorder?


Comment by: James Lewis (3-8-2023 13:59:00) deeplink to this comment

I am looking to run a script to do something very simple whereby every week I need to increase the range of a formula by 1 cell from another sheet within the excel file so that it can compare previous year month to date against current year month to date, but I don't want to have to go through every formula for YTD, QTD, MTD and MAT and do this manually, but I really can't work out how I would run a script to do this.

Can you help with this?


Comment by: Jan Karel Pieterse (3-8-2023 14:32:00) deeplink to this comment

Hi James,

Thanks for the question. I expect this shouldn't be too much of a problem, but I would need to have an idea of the exact setup of the sheet. Do you want to "take this off-line" and discuss it directly rather than through my site perhaps?


Comment by: Paul (24-11-2023 13:37:00) deeplink to this comment

I want to delete all rows present in my worksheet using script. The current script deletes all rows one by one, I want to do it in one step

In vba I can easily do that by finding the last row and then providing the range but in office script I'm unable to find it.

Rows("3:" & lastRow).Delete
Ineed same type of code for script


Comment by: Jan Karel Pieterse (24-11-2023 19:53:00) deeplink to this comment

Hi Paul,

I think like this:



function main(workbook: ExcelScript.Workbook) {
    // Get the active cell and worksheet.
    workbook.getActiveWorksheet().getUsedRange().getEntireRow().delete(ExcelScript.DeleteShiftDirection.up);
}


Have a question, comment or suggestion? Then please use this form.

If your question is not directly related to this web page, but rather a more general "How do I do this" Excel question, then I advise you to ask your question here: www.eileenslounge.com.




To post VBA code in your comment, use [VB] tags, like this: [VB]Code goes here[/VB].