Sub aaa()
'***** 部門.マスター *****
Dim 部門辞書 As Object
Set 部門辞書 = CreateObject("Scripting.Dictionary")
For Each セル In range("B2:G2") 'range("部門識別子")
部門辞書.Add セル.Value, セル.Interior.Color
Next
Debug.Print 部門識別カラー("HO")
End Sub
Automatorで設定した変数をAppleScript内で変数名を指定することはできない なので、AppleScriptでinputの値を変数に格納する on run {input, parameters} set val1 to item 1 of input set val2 to item 2 of input set cnt to (count of input) end run 参考サイト AutomatorでAppleScriptに値を渡す http://ameblo.jp/softwaredeveloper/entry-11988473204.html AppleScriptのサンプル on run {input, parameters} set pictFol to path to pictures folder from user domain as text --ピクチャフォルダのパスを取得 set searchCha to item 1 of input --Automatorで受け渡された変数値(ファイル名)を取得 set the clipboard to searchCha --クリップボードにコピー return input end run