###前提・実現したいこと
セル毎に式を入れていたのですが、毎度同じ事なのでVBAで外部関数を組みました。
勤務が9-17ならS17、15時から深夜までなら15M等と表記した表をつくり、Vlookupで参照させています。
イレギュラーのときは1820等と数値で入れるので、この場合、上に桁を出勤、下二桁を退勤としているので、最初に数値がどうかを判別し、数値なら計算、文字列なら表参照しています。
###発生している問題・エラーメッセージ
言語が違うので当たり前ですが、そのままGASに貼り付けた所
ステートメントの前に ; がありません。(行 3、ファイル「コード」)となっており何のことだか分かりません。
GASでは組み込み関数は使えないと見たのですが、そもそもこういった関数は作れないのでしょうか。
###該当のソースコード
function worka(tm) { If (IsNumeric(tm) = True) Then If ((tm Mod 100) - Int(tm / 100) >= 9) Then worka = (tm Mod 100) - Int(tm / 100) - 1 Else: worka = (tm Mod 100) - Int(tm / 100) End If Else If ((tm = "×") Or (tm = " ")) Then worka = "×"; Else worka = WorksheetFunction.VLookup(tm, Range("area"), 2); End If End If End Function } ###試したこと 課題に対してアプローチしたことを記載してください ###補足情報(言語/FW/ツール等のバージョンなど)
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。