Excel VBA質問箱 IV

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

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


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

【8830】セル範囲をしてデータを取得するには? 学生です 03/11/5(水) 12:35 質問
【8831】Re:セル範囲をしてデータを取得するには? INA 03/11/5(水) 13:04 回答
【8832】Re:セル範囲をしてデータを取得するには? 学生です 03/11/5(水) 13:52 質問
【8833】Re:セル範囲をしてデータを取得するには? INA 03/11/5(水) 14:05 回答
【8834】Re:セル範囲をしてデータを取得するには? 学生です 03/11/5(水) 15:21 お礼

【8830】セル範囲をしてデータを取得するには?
質問  学生です  - 03/11/5(水) 12:35 -

引用なし
パスワード
   卒業研究をしていて、どうしても分からないのでよろしくお願いします。

【8831】Re:セル範囲をしてデータを取得するには?
回答  INA  - 03/11/5(水) 13:04 -

引用なし
パスワード
   意味が分からないです。
配列変数のことでしょうか?

【8832】Re:セル範囲をしてデータを取得するには?
質問  学生です  - 03/11/5(水) 13:52 -

引用なし
パスワード
   >配列変数ではないんですけど・・・。
範囲指定したセルのデータをフォームのテキストボックスの中に送り込むには、
どうしたらいいですか?

【8833】Re:セル範囲をしてデータを取得するには?
回答  INA  - 03/11/5(水) 14:05 -

引用なし
パスワード
   テキストボックスのValueにどのように取込たいのかによります。
普通複数の値の場合は、リストボックスなどをつかいますが、
どのようにテキストボックスの値として設定したいのでしょうか?

フォームのテキストボックスとは、ユーザーフォーム上のテキストボックスですか?

単純にカンマで区切ってつなげるだけなら、
for each で選択セル範囲をループすればできます。

Private Sub CommandButton1_Click()
Dim myRange As Range

With Worksheets("Sheet1")

  Range("A1:B2").Select
  
  For Each myRange In Selection
    If TextBox1.Value = "" Then
      Me.TextBox1.Value = myRange.Value
    Else
      Me.TextBox1.Value = Me.TextBox1.Value & "," & myRange.Value
    End If
  Next myRange
  
End With
End Sub

【8834】Re:セル範囲をしてデータを取得するには?
お礼  学生です  - 03/11/5(水) 15:21 -

引用なし
パスワード
   ユーザーフォーム上のテキストボックスです.
ありがとうございました。頑張ってみます!

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