Do～Loopを使いセルからテキストボックスへ値取得方法
- Excel2000を使用してセルからテキストボックスへ値を取得する方法について、Do～Loopを使用した場合にエラーが発生し、別の方法を模索している。
- 営業担当者登録のユーザーフォームにおいて、セルのA1からA5までの名前を取得し、テキストボックスに表示するためにDo～Loopを使用したが、エラーが発生している。
- 営業担当者登録のテキストボックスにセルのA1からA5までの名前を取得する方法について、Do～Loopを使用することができないため、別の方法を探している。
- ベストアンサー
Do～Loopを使いセルからテキストボックスへ値取得方法
現在Excel2000を使用しています。 セルのA1からA5までそれぞれ名前が入っており、ユーザーフォームにはテキストボックスが1～5まで並んでいます。そこでDo～Loopを使用してテキストボックスにそれぞれ名前を取得しようとしていますが、うまくいきません。 Sub 営業担当者取得() Dim E As Integer Workbooks("kojh.xls").Activate Workbooks("kojh.xls").Sheets("営業担当者").Range("a1").Select E = 1 With 営業担当者登録 Do .TextBox(E) = ActiveCell.Text ActiveCell.Offset(1).Select E = E + 1 Loop Until ActiveCell = "" End With End Sub .TextBox(E)の部分でエラーが出てしまいます。このような使用方法はできないのでしょうか？ もしくは他にやりかたがあれば教えて下さい。 よろしくお願いします。
- yasu7r
- お礼率37% (11/29)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
.Controls("TextBox" & E) ではないかな？
関連するQ&A
- Do loopのマクロ
以下のマクロの問題点を教えていただきたいのです。 A列を上から順番に調べて、値が10のときだけBに分岐して処理を行い（処理の内容は省略してあります）、またAに戻って、空白のセルが見つかったら処理をやめる、というマクロです。 ところが、これを実行すると空白のセルが見つかってもマクロが止まりません。何が問題でしょうか。 Sub A() Cells(1, 1).Select A: Do Until ActiveCell.Value = "" If ActiveCell.Value = 10 Then GoTo B End If ActiveCell.Offset(1, 0).Select Loop B: ActiveCell.Offset(1, 0).Select GoTo A End Sub
- ベストアンサー
- オフィス系ソフト
- loop終了後のセルの一個右から同様のloopを行う方法
・loop終了後のセルの一個右から同様のloopのプログラムを組むのが目的です。 ・データはA列にランダムに数字が入っているものとします。 ・条件式としては基準値より小さな数字が一個下のセルにあったら↓を表示して、さらに下に行くという風にして、基準よりも多くなったところでloopがストップする設定です。 ・困っているところをうまく表現できてないかも知れませんが、よろしくお願いします。 --------------------------- Sub 比較() Dim i As Integer Dim j As Integer Cells(1, 2).Select ActiveCell.FormulaR1C1 = "=IF(RC1>R1C1,""→"",""↓"")" i = 1 Do While Cells(i, 2).Value <> "" If Cells(i, 2).Value = "↓" Then Cells(1 + i, 2).Select ActiveCell.FormulaR1C1 = "=IF(RC1>R1C1,""→"",""↓"")" End If i = i + 1 Loop Cells(i - 1, 3).Select ActiveCell.FormulaR1C1 = "=IF(RC1>R" & i - 1 & "C1,""→"",""↓"")" j = 1 Do While Cells(i - 2 + j, 3).Value <> "" If Cells(i - 2 + j, 3).Value = "↓" Then Cells(i - 1 + j, 3).Select ActiveCell.FormulaR1C1 = "=IF(RC1>R" & i - 1 & "C1,""→"",""↓"")" End If j = j + 1 Loop End Sub
- ベストアンサー
- Visual Basic
- Do～Loopステートメント
Do～Loopステートメントで使わな方が良いステートメントとは？ Do～Loopステートメントで「古いから使わない方がよい」、と言われたことがあるのですが どれの事だか忘れてしまいました。 Sub test() セルのA1～A10に1～10を入力する i = 1 Do While i < 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これは一般的だから使ってもよいと思います。 Sub test() セルのA1～A10に1～10を入力する i = 1 Do Until i = 11 Worksheets("Sheet1").Cells(i, 1).Value = i i = i + 1 Loop End Sub これもよく見かけます。 Do While,Do Until以外にもloopステートメントってありますか？ あと使わない方が良いステートメント、私の勘違いでなければ教えてください。
- ベストアンサー
- オフィス系ソフト
- VBA ＤＯ～ＬＯＯＰのネスト方法について
エクセルマクロの構文でＤＯ～ＬＯＯＰのネストを行った際に、ＥＸＩＴ ＤＯで飛び出した後のＬＯＯＰ条件が無効になるようです。どなたかご教授願います。 Sub TEST() y = 1 Do Do If y = 2 Then Exit Do End If y = y + 1 Loop Loop While y = 3 End Sub
- ベストアンサー
- Visual Basic
- VBA Do Until内で値の貼り付けができない
Excel2003を使用しております。 コピー&値のペースト作業をやってくれるマクロを作成しております。 具体的には、名簿に公がついていれば、その３つ左の名前をD27へ値のみコピペし、 D27がすでに値があれば、D28に書くことを、D37までループするようにしております。 しかし困ったことに、Do Untilコードを使用しておりますが、このコードではなぜか値の貼り付けが出来なくなります。 Sub Ns公() Dim work As Range Set work = Selection If Selection.Value = "公" Then ActiveCell.Offset(0, -3).Select Selection.Copy Do Until Range("D37").Select Range("D27").Select If Selection.Value = "" Then Selection.PasteSpecial paste:=xlPasteValues work.Select Else ActiveCell.Offset(1).Select End If Loop If Range("D36").Value <> "" Then Do Until Range("I37").Select Range("I27").Select If Selection.Value = "" Then Selection.PasteSpecial paste:=xlPasteValues work.Select Else ActiveCell.Offset(1).Select End If Loop work.Select End If work.Select End If work.Select ActiveCell.Offset(1).Select End Sub 原因や対策をご教授いただけるとうれしいです。よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- Excel VBA のDo Until Loopについて
こんばんは Excel VBAの初心者です。 Do Until Loopを使って B列の値が変わるところ（下記の表だと、空白からコスモスに変わる、4行目。コスモスからチューリップに変わる6行目。チューリップから菊に変わる8行目。）に行を挿入させたいと思い、下記のマクロを組んだのですが、Do Until Loopが理解できませんでした。 どうしたら良いのか教えて頂けないでしょうか。 宜しくお願い致します。 Excelのシート B1 項目 B2 空白 B3 空白 B4 コスモス B5 コスモス B6 チューリップ B7 チューリップ B8 菊 Sub 行の挿入() Dim y As String Cells(2, 2).Select y = Cells(2, 2).Value Do Until Cells(2, 2).Value <> y ActiveCell.Offset(1).Select Selection.EntireRow.Select Selection.Insert shift:=xlDown Loop End Sub
- ベストアンサー
- その他（プログラミング・開発）
- テキストボックスに値を入れる（４）
テキストボックスに値を入れる（３）で回答をいただいた、終了ボタンなんですが、このときは、２つのファイルを上書き保存して終了させたのですが、「OkWeb_Menu.xls」の方だけ、上書きせずに終了させたいのですが、どうしたらよいでしょうか？ いろいろ試して見ましたが、うまくいきません。よろしくお願いします。 前回の回答 ２）終了ボタン～Sheet7に配置～ ここでは、メニュー（終了できる方）を「OkWeb_Menu.xls」 データシートを「OkWeb_Data.xls」とします。（ご自分のファイル名に変えてください） １．タイトルバーの左のアイコンのクリック、 ２．タイトルバーの右クリック ３．タイトルバーの×ボタン、 ４．メニュー→閉じる、 ５．ブックの× では閉じれなくする データシートのThisWorkBookのシートモジュールに貼り付けます。 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks("OkWeb_Menu.xls").saveOk = False Then MsgBox "メニューから終了させてください！", vbOKOnly Cancel = True Else ActiveWorkbook.Save End If End Sub ***省略*** Workbooks("OkWeb_Menu.xls").saveOk = True Workbooks("OkWeb_Data.xls").Close saveChanges:=True ActiveWorkbook.Save Application.Quit End Sub 前回のURL（３）：http://oshiete1.goo.ne.jp/kotaeru.php3?q=85392 （１） http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173 （２） http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389
- ベストアンサー
- オフィス系ソフト
- コンボボックスとテキストボックスをセルへ
コンボボックスのデータを行へ表示されるよう下記の通りやりました。 続けてテキストボックスを指定した同じ行のセルへ入力されるように したいのですが、いろいろ調べたのですが、解決できず ここで助言いただけたらと思います。 また textbox1はA列 textbox2はB列 textbox3はM列 へとコンボボックスのデータを挟む形での入力となります。 ちなみにテキストボックスのプロジェクト名は変更してあります。 Private Sub CommandButton1_Click() Dim lrow As Long, i As Long With Worksheets("製品化") lrow = .Range("F" & Rows.Count).End(xlUp).Row For i = 0 To 6 .Cells(lrow + 1, i + 6).Value = itemname.List(listno, i) Next i End With End Sub
- ベストアンサー
- Visual Basic
- テキストボックス値をシートセルに連続して入力
リストボックスあ行氏名より選択しテキストボックス１～６の値を実行２クリックでsheet1"E1"から順番に入力されるがか行選択のテキストボックス値１～４を順番に"E7"から入力させたいができるでしょうか。ちなみに下記の方法しかわかりません。また、実行２を押すと同時にテキストボックスを空白にしたいのですが。どなたかコードが解る方よろしくお願いします。 Private Sub 実行2_Click() With Worksheets("入力") .Range("E1") = TextBox1.Value .Range("E2") = TextBox2.Value .Range("E3") = TextBox3.Value .Range("E4") = TextBox4.Value .Range("E5") = TextBox5.Value .Range("E6") = TextBox6.Value .Range("E7") = TextBox7.Value .Range("E8") = TextBox8.Value .Range("E9") = TextBox9.Value .Range("E10") = TextBox10.Value End With End Sub
- ベストアンサー
- Visual Basic
- SaveAsが Do～Loopでうまくいかない
Sub Dim G_name As String G_name = Range(”I15”) 'l15は、aaa.xlsx ～略～ Workbooks(G_name).SaveAs filename:=(アドレス略) End Sub これだと保存され、 Sub Dim G_name As String、file_name As String G_name = Range(”I15”) 'l15は、○○○.xlsx file_name = Dir(○○○) Do While file_name <> ”” ～略～ Workbooks(G_name).SaveAs filename:=(アドレス略) Loop End Sub これだとSaveAsの所でエラーになります。 エラー解消方法、何かあるでしょうか
- ベストアンサー
- Visual Basic
お礼
返答ありがとうございます。 思っていたようにできました！！ 大変参考になりました。ありがとうございます。