[[20150309103448]]　『セルの値をテキストボックスへ』（NAO）　ページの最後に飛ぶ

『セルの値をテキストボックスへ』（NAO）

ユーザーフォーム内にあるTextBox1 TextBox2 TextBox3に
シート上にあるA1からC1の値をリンクさせたいです。

FOR　NEXTで可能でしょうか。

＜使用アプリ：、使用 OS：Windows7 ＞

 どのようなことをイメージしているか良くわかりませんが、このようなことであれば
 Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 3
        UserForm1.Controls("TextBox" & i).Value = Worksheets("Sheet1").Cells(1, i).Value
    Next
 End Sub

 三つくらいなら「下手の考え休むに似たり」かも。
 Private Sub UserForm_Initialize()
    TextBox1.Value = Worksheets("Sheet1").Range("A1").Value
    TextBox2.Value = Worksheets("Sheet1").Range("B1").Value
    TextBox3.Value = Worksheets("Sheet1").Range("C1").Value
 End Sub
（Mook） 2015/03/09(月) 10:46

リンクとの事なので、こう？

 Private Sub UserForm_Initialize()
    Dim i As Long

    For i = 1 To 3
        Controls("TextBox" & i).ControlSource = ActiveSheet.Name & "!" & Cells(1, i).Address
    Next i
 End Sub
（???） 2015/03/09(月) 14:26

 >リンクとの事なので

 あらら、質問を誤解していたようです。
 失礼しました。
（Mook） 2015/03/09(月) 14:32

 でも、質問者さんの「リンク」は　テキストボックス「に」セルからリンクで、
 テキストボックス「からも」セルへリンクとは書いてないので、きっと Mookさんが正解？
 (NAOさんに聞かなきゃわからないですけど）

（β） 2015/03/09(月) 15:43

言葉足らずな中、お答えいただいてありがとうございます。

しっかりと記述させていただくと、現在三十個程度のテキストボックスと該当するセルを連動させており、テキストボックスに値を入力するとセルも変更します。

この時、セルの値を元に計算を行う関数を入れており関数で出した答えを、入力で使っているテキストボックスとは別のテキストボックスに表示させたく、上記のセルとテキストボックスの連動を聞いた次第であります。

お応えいただいた答えを試してみましたが、この場合はボタン等で制御する事で私が思う形態になるかと思っています。

コマンドボタンは使わず、関数の答えで有るセルの値をテキストボックスに表示する方法を改めてご教授いただければ助かります。
（NAO） 2015/03/09(月) 18:20

では、関数を入れてあるセルはどこでしょうか？
それがわからないと正確な答えが出せません。
（デイト） 2015/03/09(月) 18:33

テキストボックス 1 から 30 は、C5からE14に入れており
G5からK14まで関数が入っております。
関数に関しては、行で計算しております。

このような回答でも大丈夫でしょうか
日本語難しいです..すみません。
（NAO） 2015/03/09(月) 18:41

自身で調べてみて解決の糸口を発見しました。
ワークシートイベントか更新後処理で考えてみます。
ありがとうございました。
（NAO） 2015/03/09(月) 21:27

コメント返信：

[ 一覧(最新更新順) ]

[[20150309103448]] 『セルの値をテキストボックスへ』（NAO） ページの最後に飛ぶ

[[20150309103448]]　『セルの値をテキストボックスへ』（NAO）　ページの最後に飛ぶ