ウィークリーチャレンジリポジトリ

AYXAcademy · ‎04-02-2024

こんにちは、Maveryxのみなさん。

先週のチャレンジの回答はこちらで見つけることができます。

コミュニティメンバーであるNathan Purvis (@DataNath) とLuke Cornetta (@Luke_C)が今週のチャレンジを送付してくれました。このチャレンジはマクロのスキルを磨きたい人にはうってつけです。NathanさんとLukeさん、ありがとうございます。

年間で利用できるリソースの数が決まっているある企業が、事業を展開している複数の地域にわたってリソース配分を戦略的に行いたいと考えています。彼らはそれぞれの地域の現在のリソースと各期間で必要と予想されるリソースの詳細のリストをあなたに提供しました。

このチャレンジでは、それぞれの期間、それぞれの地域にリソースをアサインし、ニーズにマッチしない期間にフラグ付を行ってください。リソースは、特定のリージョン内で１回のみ割当ができることに注意してください。

アカデミーでは、このチャレンジを解決するのに役立つマクロについてのいくつかのレッスンが公開されています。バッチマクロの作成と反復マクロの作成が絶対に役に立つでしょう。

健闘を祈ります！

gawa · ‎04-02-2024

久しぶりにマクロ in マクロ　作りました。反復マクロが期待通りに動くと、嬉しいですね

スポイラ

Yoshiro_Fujimori · ‎04-02-2024

お題には反しますが、取り急ぎマクロなしで行きました。（すみません）

スポイラ

Workflow

Formula Tool 1

Resources = Replace([Resources], ",", " ")

Multi-Row Formula 1

NextWordIndex = [Row-1:NextWordIndex] + [ResourcesNeeded]

Multi-Row Formula 2

StartWordIndex = [Row-1:NextWordIndex]

Formula Tool 2

Count = CountWords([Resources])

Resource Need Met =

IF [StartWordIndex] < [Count] AND

[NextWordIndex] <= [Count] AND

[StartWordIndex] != [NextWordIndex]

THEN "Yes"

ELSE "No"

ENDIF

StartPos =

IF [StartWordIndex] < [Count]

THEN FindString([Resources], GetWord([Resources], [StartWordIndex]))

ELSE Length([Resources])

ENDIF

EndPos =

IF [NextWordIndex] < [Count]

THEN FindString([Resources], GetWord([Resources], [NextWordIndex]))

ELSE Length([Resources])

ENDIF

Resources = Substring([Resources],[StartPos],[EndPos] - [StartPos])

Resources = TrimRight([Resources]," ")

Resources = Replace([Resources], " ", ",")

Resources =

IF IsEmpty([Resources])

THEN Null()

ELSE [Resources]

ENDIF

WorkflowFormula Tool 1Resources = Replace([Resources], ",", " ")Multi-Row Formula 1NextWordIndex = [Row-1:NextWordIndex] + [ResourcesNeeded]Multi-Row Formula 2StartWordIndex = [Row-1:NextWordIndex]Formula Tool 2Count = CountWords([Resources])Resource Need Met = IF [StartWordIndex] < [Count] AND [NextWordIndex] <= [Count] AND [StartWordIndex] != [NextWordIndex] THEN "Yes" ELSE "No" ENDIFStartPos = IF [StartWordIndex] < [Count] THEN FindString([Resources], GetWord([Resources], [StartWordIndex])) ELSE Length([Resources]) ENDIFEndPos = IF [NextWordIndex] < [Count] THEN FindString([Resources], GetWord([Resources], [NextWordIndex])) ELSE Length([Resources]) ENDIFResources = Substring([Resources],[StartPos],[EndPos] - [StartPos])Resources = TrimRight([Resources]," ")Resources = Replace([Resources], " ", ",")Resources = IF IsEmpty([Resources]) THEN Null() ELSE [Resources] ENDIF