wolfram-mathematica - セルコンテンツに依存するCellFrameLabelsを実現する方法

Question

より一般的な質問は次のとおりです。スタイリング オプション内でカーネル計算を実行する方法と、スタイリング オプションの 1 つ (CellFrameLabels など) でセルのコンテンツにアクセスする方法。

私がやりたいのは、スタイルシートで定義された CellFrameLabels を使用して、セルの CellTags の内容に基づいて CellFrameLabels を作成することです。「CellDingbat を取得して Mathematica セッション間の状態を記憶する」から、ダイナミック コントロールとコントロールを使用して、セル スタイル設定オプション内でカーネル計算を実行できることを確認しましたが、現在フォーマットされているセルを参照するにはどうすればよいでしょうか? 書式設定アクションの EvaluationCell に相当するものはありますか? 「FormattedCell」などがあっても、おそらく使えないことはSelectionMove[EvaluationNotebook[],All,FormattedCell]わかっていますが、私が何を得ようとしているのかを理解していただければ幸いです。CurrentValue を使用しようとしましたが、$Failed が返されます。

---

わかりにくくてすみません。私が達成しようとしていることを説明する方法として、ここで私の質問に部分的に答えます。しかし、私が本当に欲しいのは、セルのスタイルが設定されるのと同じ結果をリアルタイムで提供するスタイルシート コードです。

NotebookFind[EvaluationNotebook[], "TAG1", All, CellTags];
SetOptions[NotebookSelection[],
  CellFrameLabels->{{Cell[TextData[{"T1"}],CellBaseline->Baseline,BaseStyle->Text],
      Inherited},{Inherited, Inherited}}];
NotebookFind[EvaluationNotebook[], "TAG2", All, CellTags];
SetOptions[NotebookSelection[],
  CellFrameLabels->{{Cell[TextData[{"T2"}],CellBaseline->Baseline,BaseStyle->Text],
      Inherited},{Inherited, Inherited}}];

スタイルシートで、上記のコードで行われているように、セル自体のタグに依存する CellFrameLabels の値を設定できますか (上記のコードでは、ノートブックの各セルで事後処理を繰り返すことによって) 多分それは不可能です。ただ尋ねる。