Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13041 / 13644 ツリー ←次へ | 前へ→

【7305】テキストボックス nibu 03/9/2(火) 11:06 質問
【7307】Re:テキストボックス INA 03/9/2(火) 11:29 回答
【7308】Re:テキストボックス つん 03/9/2(火) 11:29 回答
【7320】Re:テキストボックス Jaka 03/9/2(火) 14:51 回答
【7322】Re:テキストボックス nibu 03/9/2(火) 16:11 お礼

【7305】テキストボックス
質問  nibu  - 03/9/2(火) 11:06 -

引用なし
パスワード
   シートにテキストボックスを貼り付けているのですが,その内容を別シートの
セルに出力させるマクロを作成したいのですが方法がわかりません。
詳しい方教えてください。宜しくお願いします

【7307】Re:テキストボックス
回答  INA  - 03/9/2(火) 11:29 -

引用なし
パスワード
   現在のシート上のTextBox1の値をSheet2 A1に代入します。

<コマンドボタンで実行する場合>
Private Sub CommandButton1_Click()

 Worksheets("Sheet2").Range("A1").Value = TextBox1.Value

End Sub

【7308】Re:テキストボックス
回答  つん  - 03/9/2(火) 11:29 -

引用なし
パスワード
   こんにちは〜

こういうことかな?

Sub test()

  Worksheets("Sheet2").Range("a1").Value = Worksheets("Sheet1").TextBox1.Value

End Sub

こんな単純なことじゃないか?(^^;

【7320】Re:テキストボックス
回答  Jaka  - 03/9/2(火) 14:51 -

引用なし
パスワード
   つんさん こんにちは。
おじゃまします。
ここにつけさせてね!

Shapesの方のテキストボックスだったら
[#5961]の応用とか、

更に256文字以上に対応させたいんだったら、
(Sheet1にあるテキストボックス1の内容をSheet2、C1に書きこみ。)

Sub テキストからセルへ()
  Dim Myst As String, Myst1 As String, Myst2 As String, Myst3 As String
  Dim Myst4 As String
  Dim MCS As Long
  MCS = 1: Myst = Empty: Myst1 = Empty
  On Error Resume Next
  Do
    Myst1 = Sheets("Sheet1").Shapes("Text Box 1").TextFrame.Characters(MCS, 255).Text
    If Err <> 0 Then Exit Do
    Myst = Myst & Myst1
    MCS = MCS + 255
  Loop Until Myst1 = ""
  Sheets("Sheet2").Range("C1").Value = Myst
End Sub

【7322】Re:テキストボックス
お礼  nibu  - 03/9/2(火) 16:11 -

引用なし
パスワード
   無事できました。
回答を頂いた方々どうもありがとうございました。
またわからないことがありましたら宜しくお願いします

13041 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free