Excelのユーザーフォームで別シートのセルにControlSourceを設定する方法とは？

質問

• ExcelのユーザーフォームでテキストボックスやコンボボックスのControlSourceを、フォームを開いたのとは別のシートのセルに設定する方法を教えてください。
• ユーザーフォームを開くのは常に「Sheet1」で、入力した内容は「Sheet2」に表示したいです。また、コンボボックスのリストは「Sheet3」の値を使用したいですが、現在は全て「Sheet1」にリンクしています。
• さらに、Excelのセルの数式に別のセルの値を代入することは可能でしょうか？例えば、「Sheet2」のセルA4の値を参照する数式が存在し、「Sheet3」のセルA4の値を参照する数式に変更したいです。同様に、セルの範囲やファイル名も数式の変数として使用できるのでしょうか？ご教示いただけますか？

回答No.1

nishi6

テキストボックスのControlSourceがSheet2のA1なら
　Sheet2!A1をセット。　
または、Sheet2のA1に範囲名を付けて、それをセット。

コンボボックスのRowSourceがSheet3のA1～A10なら
　Sheet3!A1:A10をセット。　
または、Sheet3のA1:A10に範囲名を付けて、それをセット。

A1の値によって、A2の式が切り替わるようにするには、一案ですが、
　=CHOOSE(A1,Sheet1!A4,Sheet2!A4,Sheet3!A4)
のようにすれば値は求められます。回答になっていないかもしれませんね。
または、ユーザー定義関数
　Public Function SheetAndRange(Sht As Integer, rg As Range)
　　　SheetAndRange = Worksheets(Sht).Range(rg.Address)
　End Function
を標準モジュールに貼り付け、
　=SheetAndRange(A1,A4) とすれば値は求められます。

範囲名ですが、これもユーザー定義関数を作れば切替えられます。
例として、Sheet1のA1:C1に範囲名『Total1』、Sheet1のA2:C2を範囲名『Total2』とします。
　Public Function TotalChange(num As Integer)
　　　TotalChange = Application.Sum(Range("Total" & num))
　End Function
を標準モジュールに貼り付け、
　=TotalChange(1) とすればA1:C1の計、=TotalChange(2) とすればA2:C2の計になります。

ご参考に。