間接式を使用して値と書式を表示する方法は？

Question

私の説明が明らかでない場合に備えて、サンプルファイルを添付しました。 Excel Case 01.xlsx

毎日、私の顧客にリクエストと契約に基づいて日々の納品書を電子メールで送る必要があります。通常、彼らは彼らが要求したものを注文し、毎日の注文の彼らの必要なテイクアウトを残します。 したがって、私は通常、強制的にオレンジ色で注文します。

各ファイルは毎月に基づいています。そして各シートは毎日に基づいていますので、シート名として01,02,03などの7月のファイルがあります。各シートには、会社および製品の詳細と注文金額が表示されます。

毎日私はそれらに彼らに来るものを通知するためにそれらを "強制"注文する必要があります。セルD6のため Excel Case 01 - E-mail.jpeg

マイ式：

は今、私はこのような電子メールのための別々のシートを持っているD10は次のとおりです。

{=IFERROR(INDEX(INDIRECT("'"&$K$4&"'!$A$2:$H$6"),(MATCH(1,(INDIRECT("'"&$K$4&"'!$A$2:$A$6")=$B6)*(INDIRECT("'"&$K$4&"'!$B$2:$B$6")=$C6),0)),$K$7),0)} 

問題は、オレンジ色がで示されていないということですその列と私はカラーオプションでフィルタを使用することができますので、私は色が必要です。また、「シート名」機能を保持して、シート名を変更して、必要なデータを取得する必要があるのは、最大31枚までです。

参照されるセルの値だけでなく形式も表示するように間接式を維持する方法はありますか？

ペーストリンクVBAを使用することを考えましたが、コードを検索したとき、特定のセルを参照するコードしか見つからないようです。 しかし、「シート名」機能を引き続き使用できる場合は、VBAを使用しても構いません。

ありがとうございます。

Answer 1

1. すべてのものを作るためにRHSに少し（各値からsubract 1）ルックアップテーブルを修正=SumByColor($K$9,OFFSET(INDIRECT("'"&$K$4&"'!$A$2"),0,$K$7,6,1),B6,C6,$K$7) へ
2. 変更D6の数式の下に示すようにFunction SumByColor(CellColor As Range, SumRange As Range, Condition1 As Range, Condition2 As Range, ColOffset As Integer)と呼ばVBA機能を追加し、
3. を下にコピーしますこれは私が編集したファイルの変更バージョンで働いていたあなたの「強制」オレンジ

に一致するように整然と

変更K9のセルの色。ところで

Function SumByColor(CellColor As Range, SumRange As Range, Condition1 As Range, Condition2 As Range, ColOffset As Integer) 
Application.Volatile 
Dim ICol As Integer 
Dim TCell As Range 

ICol = CellColor.Interior.ColorIndex 

For Each TCell In SumRange 
    If ICol = TCell.Interior.ColorIndex And TCell.Offset(0, -ColOffset).Value = Condition1.Value And TCell.Offset(0, -ColOffset + 1).Value = Condition2.Value Then 
     SumByColor = SumByColor + TCell.Value 
    End If 
Next TCell 
End Function 

：私はちょうど私がその基本的な操作のためのクレジットを主張することはできませんので、私はどこか別の場所に見つかったSumByColor機能を変更しました。