[[20080123154821]]　『テキストボックス内の表示』（ひで）　ページの最後に飛ぶ

『テキストボックス内の表示』（ひで）

        I    　 J 　    K 　    L       ・・・・・・・Z
 1    name 　あああ　いいい　ううう
 2

 Z1=$J$10&"   "&VLOOKUP($I11,I11:Y11,2)&"   "&VLOOKUP($I11,I11:Y11,3)
    &"   "&VLOOKUP($I11,I11:Y11,4)&CHAR(10)&$M$9&"    "&VLOOKUP
 ($I11,I11:Y11,5) &CHAR(10)&$N$9&"    "&VLOOKUP($I11,I11:Y11,6)&CHAR(10)
 &$O$9&"    "&VLOOKUP ($I11,I11:Y11,7)&CHAR(10)&VLOOKUP($I11,I11:Y11,11)&CHAR
 (10)&VLOOKUP ($I11,I11:Y11,12)&CHAR(10)&VLOOKUP($I11,I11:Y11,13)&CHAR(10)
  &VLOOKUP ($I11,I11:Y11,14)&CHAR(10)&VLOOKUP($I11,I11:Y11,15)&CHAR(10)&VLOOKUP
 ($I11,I11:Y11,16)&CHAR(10)&VLOOKUP($I11,I11:Y11,17)

 Z列に　
 あああ
 いいい
 ううう
 と表現したくZに上記のような数式を書きました。
 セル内では希望通りに表示されるのですが，
 これをユーザーフォーム上のテキストボックス
 に表示されるようにしたいと考え，

 表示マクロで
 TextBox1.ControlSource = "z" & lngRow
 と書いたのですが，
 実際には
「あああ（マーク）いいい（マーク）ううう」とと横1列になってしまいます。
 マークというのは縦二重線で上に黒いスプーンのようになっているマークです。
 この場合，セルのように改行して表示させることは可能でしょうか。
 また，その場合どのようにすればよいのでしょうか。

 1) TextBoxのMultiLineプロパティはTrueになっていますか？
 2) もしそれだけでだめな時は、数式の &CHAR(10) の部分を &CHAR(13)&CHAR(10) に変更してみてください。
 CHA(13) -> CHAR(13)
 (seiya)

できました。ありがとうございました。

 もう一つ　お願いします。
 数式と書きましたが，実は数式を値コピーし貼り付けてあります。
 元の数式だと，テキストボックスに表示はされるのですが，
 それに修正を加えようとすると動かなくなってしまいます。
 これは本来数式であるセル内容を変更しようとしたからですよね。
 ｚ列に数式をそのままで，フォーム内のテキストボックスで
 結合したデータを編集することってできないんですよね。
 余計なことですみません。教えてください（ひで）

 どのように表示させていますか？
 コードを書いていますか？
 (seiya)

 TextBox1.ControlSource = "z" & lngRow
 のコードだけです。
 やはりこれだけでは不十分なんですね。
 素人ですみません。（ひで）

 TextBox1.Value = Sheets("sheet1").Range("z" & lngRow).Value
 Sheet1は実際のシート名にして下さい。
 (seiya)

 ありがとうございました。
 入力編集可になりました。
 ですが，当然Z列セルには反映されないですよね。
 数式でまとめたZ列をテキストボックス内で
 変更し，それをAA列とかに反映させるには
 コントロールソースをAAにすればよいのでしょうか（ひで）

 CommandButtonをひとつ追加して下記コードを貼り付けてください。

 Private Sub CommandButton1_Click()
 Sheets("sheet1").Range("aa" & Rows.Count).End(xlUp)(2).Value = TextBox1.Value
 End Sub
 (seiya)

ありがとうございました。おかげさまで何とかなりました。（ひで）

コメント返信：

[ 一覧(最新更新順) ]

[[20080123154821]] 『テキストボックス内の表示』（ひで） ページの最後に飛ぶ

[[20080123154821]]　『テキストボックス内の表示』（ひで）　ページの最後に飛ぶ