ベストアンサー

Excel「テキストボックス」で

2003/10/16 14:13

コントロールツールボックス」の中のテキストボックスを使用しています。変数aと変数bの値を一つのテキストボックスに入れたくて変数a & 変数b というようにしました。中身（プロパティでみたところ）はちゃんと入ってるようですが、表示は変数aと変数bがかぶってしまっています。これをきちんと表示させるにはどうしたらいいですか？また、このテキストボックス上で、センタリング、右寄せ、均等割付などを行いたい場合はどうしたらいいでしょうか？

KODAMAR
お礼率66% (871/1309)

オフィス系ソフト
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

sakenomo
ベストアンサー率52% (35/67)

2003/10/16 20:10 回答No.2

オートシェイプのテキストボックスの例です。こんなかんじでしょうか。 Sub test() Dim a As String, b As String a = "さくら組" b = "山田" With ActiveSheet.Shapes("所属Box1").TextFrame .Characters.Text = a & b .HorizontalAlignment = xlLeft '左寄せ ' .HorizontalAlignment = xlRight '右寄せ ' .HorizontalAlignment = xlHAlignCenter '中央 ' .HorizontalAlignment = xlHAlignFill '均等割付？ End With End Sub

質問者

お礼 2003/11/11 15:08

回答ありがとうございます。なんとか無事できました。ありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

Good-S15
ベストアンサー率33% (149/439)

2003/10/16 14:30 回答No.1

こんにちは。変数は文字列でしょうか？であれば、スペース””を間に入れてみてはどうでしょうか？？例：変数a & " " & 変数b その後の操作は、OCXでやるのではないかと思いますが。。。 VBAでやれるのですか？まぁ、マクロを記録してみてできれば、ソースは取れそうですね。

質問者

お礼 2003/10/16 14:55

回答ありがとうございます。 VBAでやろうと思ってます。コードはこんなふうにしてみました。どうしても表示が重なってしまいます…。 Group = UserForm1.グループBox.Value If Group = "" Then Group = "" Else Group = Group & "グループ" End If Tantou = UserForm1.担当Box.Value If Tantou = "" Then Tantou = "" Else Tantou = Tantou & "担当" End If Sheets("印刷").所属Box1.Value = Group & "　" & Tantou 通常のテキストボックス（オートシェイプの）ではVBAで操作することはできないんですよね？（やってみたんですができなかったんです。）

ログインすると、全ての回答が全文表示されます。