- ベストアンサー
Excel上のテキストボックスをBookオープン時に初期化したい
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- エクセルVBAでテキストボックスの値の取得と変更について
エクセルのVBAを使ってシート上のテキストボックスのテキストを取得・変更するマクロを作成したいと思っていますがうまく行きませんので、お知恵を拝借したいとおもいます。 環境：WindowsXPでオフィス2002 状況： エクセルブックa.xlsのシートに「コントロールツールボックス」のテキストボックスを配置（オブジェクト名はTEXTBOX_C） エクセルブックb.xlsにコードを書き、a.xlsのTEXTBOX_CのプロパティのValueかTextを取りだしたい 試した事： コントロールを配置したシートに次のマクロ TEXTBOX_C.Text = "これはコントロールのテキストボックス" を書くとテキストボックスに文字を入れ込めますが、別のエクセルブックからだと上手く行きません。 また、オートシェイプのテキストボックスの場合は簡単に出きるのですが、コントロールツールボックスではどうしても上手く行きませんので、対象法などご存知の方いらっしゃいましたら教えてください
- ベストアンサー
- Visual Basic
- ブックオープン時にテキストボックスにフォーカス
あちこち検索してみたのですが思うような答えが見つからなかったので 良い方法があれば教えて頂ければと思います。 エクセルVBAで、ブックを開いた時に、シート上に配置したテキストボックス （コントロールツールボックスで作成）にフォーカスが移動していて、 すぐに入力できるようにしたいのですが、どうすればいいでしょうか？ 現状はファイルを開いてマウスでテキストボックスをクリックしてから 入力しています。 ちなみに、2000を使用しています。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 別ブックを開かずに転記
Excel2007のユーザーフォームについて教えてください。 ユーザーフォームを以下のように作成しました。 ■テキストボックス6つ テキストボックス2→件名 テキストボックス3→数 テキストボックス4→名前 テキストボックス5→備考1 テキストボックス6→備考2 ■コマンドボタンが1と3の2つです。 コマンドボタン1→転記と印刷 コマンドボタン3→終了 ■シートの構成 sheet"作成と一覧" 1行目を以下の項目で使用しています。 Ａ1→番号（テキストボックス1を表示） Ｂ1→件名（テキストボックス2を表示） Ｃ1→数（テキストボックス3を表示） sheet"印刷" Ａ1→番号（テキストボックス1を表示） Ａ2→件名（テキストボックス2を表示） Ｂ2→数（テキストボックス3を表示） Ａ3→名前（テキストボックス4を表示） Ａ4→備考１（テキストボックス5を表示） Ａ5→備考2（テキストボックス6を表示） テキストボックスに入力した値を２つのシートにそれぞれ転記して、 シート"印刷"を2部印刷しています。 ここまで以下のコードで行いました。 Private Sub CommandButton1_Click() '入力値を作成と一覧シートに転記 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm1.TextBox1.Value Cells(行, 列 + 1) = UserForm1.TextBox2.Value Cells(行, 列 + 2) = UserForm1.TextBox3.Value '入力値を印刷シートにに転記 Worksheets("印刷").Range("A1") = UserForm1.TextBox1.Value Worksheets("印刷").Range("A2") = UserForm1.TextBox2.Value Worksheets("印刷").Range("B2") = UserForm1.TextBox3.Value Worksheets("印刷").Range("A3") = UserForm1.TextBox4.Value Worksheets("印刷").Range("A4") = UserForm1.TextBox5.Value Worksheets("印刷").Range("A5") = UserForm1.TextBox6.Value 部数 = 2 Worksheets("印刷").PrintOut Copies:=部数, Collate:=True UserForm1.TextBox1.SetFocus Cells(行 + 1, 列).Select End Sub Private Sub CommandButton3_Click() '終了ボタンで値をクリアしてウィンドウを閉じる Dim Ctrl As Control For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then _ Ctrl.Value = "" Next Ctrl Unload Me End Sub 教えて頂きたい事なのですが・・・ コマンドボタン1の入力値を作成と一覧シートに転記の所なのですが、 アクティブセルではなく、常にA列の最後の値の次の空白行に転記するようにしたい場合、 どのように書き換えればいいのでしょうか？ もう一点ですが、 別ブックにテキストボックス1から6が入力された一覧があります。 この別ブックを開かずに、 テキストボックス1に入力された番号を探して、 テキストボックス2から6に表示されるようにしたいのです。 うまく説明できないのですが・・・ 別ブックの名前は"たちつ" 別ブックは、あいうサーバーの かきくフォルダの中のさしすフォルダです。 ブック"たちつ"に"一覧"というシートがあります。 一覧のシートのD列の3行目以降には番号が入力されており、日々増えています。 テキストボックス1に入力された番号を、 一覧のD列から探し、 I列の値をテキストボックス2へ K列の値をテキストボックス3へ L列の値をテキストボックス4へ M列の値をテキストボックス５へ J列の値をテキストボックス6へ転記させたいのです。 同じブックの別シートを参照するときには Application.VLookupで出来たのですが、 マクロの記録でやってみても、解決できませんでした。 コードをご覧いただいてお分かりの通り、 VBA超初心者です。 ネットを見ながら試行錯誤している状況です。 コードの間違い等あるかもしれませんが、 ご教示よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
- テキストボックスに初期値を入れる
<form> <input type= "text" name ="forward" value = "$a[0]"> </form> $a[0]には整数が入っています。 上記テキストボックスに変数$a[0]の値を入れたいのですが上記プログラムではうまくいきませんでした。どうすればテキストボックスの初期値に&a[0]の中身が入るようになるのでしょうか？お願いいたします。
- ベストアンサー
- PHP
- Excel VBA テキストボックスを検索
テキストボックス３に数値を入力し ExcelのA列にあるか検索をかける。 ある場合は、B列の同じ行に 「みーつけた！」と入力。 その設定で組んでみたのですが、 テキストボックス３にデータを6桁入力しようとすると 6桁目にオーバーフローエラーが出ます。 このプログラムの何処がおかしいのでしょうか？ Private Sub TextBox3_Change() Dim Number As Integer If TextBox3.Value <> "" Then '空じゃない場合 Number = TextBox3.Value Call 検索(Number) MsgBox TextBox3.Value End If End Sub Sub 検索(ByVal Number As Variant) Dim FoundCell As Range Set FoundCell = Range("A:A").Cells.Find(What:=Number, lookat:=xlPart) If FoundCell Is Nothing Then Else FoundCell.Activate Range("O" & ActiveCell.Row).Value = "みーつけた！" End If End Sub
- ベストアンサー
- Excel（エクセル）
- テキストボックス内の簡単な計算
はじめまして、よろしくお願いいたします。 エクセル（2003）のマクロで質問です。 いくつか複数のテキストボックスが配置されています。 加算など簡単な計算をテキストボックス内で計算させていおいて、 最終的にボタンで、それら各々のテキストボックスに対応させた エクセルのシートのセルに代入させようとしています。 さて、テキストボックス内で簡単な計算をさせるため、 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Text = Evaluate(TextBox1.Text) End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = Evaluate(TextBox2.Text) End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox3.Text = Evaluate(TextBox3.Text) End Sub … とさせましたが、 何も入力がないテキストボックスは そのままなにもしなくていいよ、とさせたいですのですが、 上記のままだと、何もない（値が入力されていない） テキストボックスに到達すると 止まります。 何も入力がないテキストボックスは 何もしなくていいよ、は どうしたらよいでしょうか？ 誠に不勉強で恐縮ですが ご教授願います。
- ベストアンサー
- オフィス系ソフト
- Excel オーダーフォームのテキストボックス入力について
オーダーフォームを作成し、テキストボックスを2つ以上作成し、コマンドボタンを1つ作りました。 同じ行ですべてを入力できるようにしたいのですが、どうしたらよいでしょうか？ テキストボックス1の値を入力するためのコマンドは、最下位の行を探してそこに入力するようなコマンドを作っているはずです…その横の列にテキストボックス2の値を入力し、その横の列にテキストボックス3の値を入力し…というようにしていきたいのです。 Private Sub CommandButton1_Click() Dim lRow As Long With Worksheets("sheet1") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = TextBox1.Value End With TextBox1.Value = "" TextBox1.SetFocus End Sub
- ベストアンサー
- オフィス系ソフト
- Excel ユーザーフォームでコンボボックスを使用してデータ入力
Excelのユーザーフォームでコンボボックスを使用して、シートのデータを表示しています。 コンボボックス：ComboBox1 テキストボックス1-3：TextBox1-3 コンボボックスのRowSource：シート名!A2:C100 コンボボックスの変更時の動作： Me!TextBox1.Value = ComboBox1.Value とここまではできたんですが、テキストボックス2にシートのB列の値を、テキストボックス3にシートのC列の値を入れたいのですが、 どのようにしたらいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- テキストボックスにフォーカスを当てる？
こんばんは，すみませんよろしくお願いします。 テキストボックスにフォーカスを当てるには，例えば， TextBox1.SetFocus のようにするんだと思うのですが，テキストボックスに初期値が設定されていたときには，上記のようにすると，初期値のテキストの右側に線のようなポインタがテキストコントロール内にでてきます。 しかし，このような状態では，いったん初期値を消さないと，別の値に書き換えることは出来ません。 テキストコントロール内に初期の値として，何らかのテキストが入力されているとき，文字列が選択された状態になっていれば，即，別の値を入力することが出来ますので，ユーザーフォームをshowしたときに，テキストボックス内の初期値 （例えば，「ここに名前を入力してください」などの文字列） を選択した状態にしたいのです。どのようにすれば良いのでしょうか？何度もすみません。
- ベストアンサー
- その他MS Office製品
- Ｅｘｃｅｌの数値の比較がうまくいきません？？？
ExcelのVbaでアンケートの入力フォームを初めて作成しています。 フォームに,テキストボックスを配置して，それを指定したセルに代入するというものです。 このとき，テキストボックスの中身とセルの中身が一致しているかどうかを判断したいと考えて， If Range("A1").Value = Textbox1.Value then ・・・ などとやりました。 そしたら，文字列の時は，うまくいくのですが，数値を入力したら，明らかに同じ数値が入っているのに，上の条件式が"False"になってしまうのです。 IsNumeric関数で調べると，双方とも数値であるとの結果が出ています。どちらも数値であっても3=3が"False"になってしまうのです。 どういうことなんでしょう？ どなたかよろしくお願いいたします。
- ベストアンサー
- Visual Basic
