AWtnb

' 参照設定 Microsoft VBScript Regular Expressions
' 参照設定 Microsoft Scripting Runtime
Function Variation(myRng As Range) As Long
' 引数内の範囲に何種類のデータが有るかカウント
    
    '連想配列を利用
    Dim myDict As New Scripting.Dictionary
    Dim cl As Variant
    For Each cl In myRng.Cells
        If cl.Value <> "" And myDict.Exists(cl.Value) = False Then

AWtnb

/*
slack の特定チャンネルで古くなったファイルを自動的に削除する
http://lyncs.hateblo.jp/entry/2017/06/04/191421 を参考に見よう見まねで実装中
*/

// スクリプトのプロパティからトークンの値をグローバル変数として取得
var SLACK_ACCESS_TOKEN = PropertiesService.getScriptProperties().getProperty("TOKEN_PERSONAL");

// チャンネルIDを取得する関数
// mode : public(パブリックチャンネル) or private (プライベートチャンネル)

AWtnb

/*
今日のトレーニングを slack で確認してカレンダーに登録
*/

///////////////////////////////////////////////////////
// グローバル変数
///////////////////////////////////////////////////////

// シート
var SHEET_ID = PropertiesService.getScriptProperties().getProperty("SHEET_ID");

AWtnb

/*
slack 経由で辞典のデータを参照
*/

/////////////////////////////////////////////
// グローバル変数
/////////////////////////////////////////////

// シート
var SHEET_ID = PropertiesService.getScriptProperties().getProperty("SHEET_ID");

AWtnb

/*
slash command
  言いたいことをロボットに代弁してもらう
scope
  chat:write:bot
  interactive components
*/

/////////////////////////////////////////////////////////////////////////
// グローバル変数

AWtnb

/*
slash command
投稿された絵文字のURLを返すことでスタンプのように投稿する
*/

/////////////////////////////////////////////////////////////////////////
// グローバル変数
/////////////////////////////////////////////////////////////////////////

// token

AWtnb

/*
  slash command
  Microsoft Excel からコピペしたタブ区切りの複数行文字列を名寄せする
*/

// 名寄せ関数
function nayose (str) {
  var table = {};
  var lines = str.split(/[\r\n]+/g);
  // 集約

AWtnb

;; Wheel Scroll Tabs for Google Chrome 

#If WinActive ("ahk_class Chrome_WidgetWin_1") || WinActive ("ahk_class SUMATRA_PDF_FRAME")
~$WheelUp::
    MouseGetPos, x, y
    If (y < 45) {
        Send, ^+{Tab}
    }
    else {

AWtnb

hotkeys:
  shell:
    powershell:
      - - Ctrl-T
  profile: {}
  new-tab: []
  close-tab:
    - - Ctrl-W
  rename-tab: []
  split-right: []

AWtnb

/*
  slash command
  ISBN から書誌情報を取得する
  自社の本であれば5桁のみでマッチ 
*/

// ISBN 12桁の末尾にからチェックディジットを追加する関数
function appendCheckDigit (isbn12) {
  var array = String(isbn12).split("")
  var total = 0;