superyngo

// ==UserScript==
// @name         PDD订单导出表格
// @namespace    https://www.pinduoduo.com/
// @version      1.1
// @description  导出拼多多订单信息
// @AuThor       ForkedFrom吾愛破解yiqifeng
// @match        https://mobile.yangkeduo.com/orders.html*
// @require      https://cdn.staticfile.org/jquery/3.5.0/jquery.min.js
// @grant        GM_download
// @run-at       document-end

superyngo

name: 'Data types:cards'
description: Create a new snippet from a blank template.
host: EXCEL
api_set: {}
script:
  content: >
    /**
     * @customfunction
     * @param {string} query The string to search for in the sample JSON data.
     * @param {boolean} [completeMatch] Define whether the search should be a match of the whole product name or part of the product name. If omitted, completeMatch = false.

superyngo

name: 'Data types: Custom functions'
description: >-
  This sample shows how to write custom functions that return entity value data
  types.
host: EXCEL
api_set: {}
script:
  content: >
    /**
     * Search for products that match a given substring. Try =SCRIPTLAB.DATATYPESCUSTOMFUNCTIONS.PRODUCTSEARCH("chef", false).

superyngo

name: WenUDF
description: UDF
host: EXCEL
api_set: {}
script:
  content: |
    //20220503

    /**
     * Get Range.

superyngo

name: UDF_sample
description: Create a new snippet from a blank template.
host: EXCEL
api_set: {}
script:
  content: |2
      /**
       * Get text values that spill both right and down.
       * @customfunction
       * @returns {string[][]} A dynamic array with multiple results.

superyngo

name: Blank snippet
description: Create a new snippet from a blank template.
host: EXCEL
api_set: {}
script:
  content: |
    name: UDF_sample
    description: UDF
    host: EXCEL
    api_set: { }

superyngo

Function Int2d(rowLookup As Double, colLookup As Double, lookupRange As Range) As Double
'This function performs 2 dimensional linear interpolation using built-in linear functions
'Lookup range includes column and row lookup values
Dim Row, col As Integer
Dim RowVals, ColVals, lookup As Variant
Dim sl1, sl2, sl3, int1, int2, int3, col1, col2 As Double
    Row = 1
    col = Row
    On Error Resume Next
    Row = WorksheetFunction.Match(rowLookup, lookupRange.Offset(1, 0).Columns(1), 1)