• 締切済み

excelで勝手にテキストボックスが出来ている

excel2000で知らない間に同じセル上にテキストボックスが多数(100以上)出来てしまっています。 シートは、在庫管理をしているもので、基本的には、キー入力なのですが、他のブックのデータを行ごと貼り付けている箇所もあります。 ただ、在庫管理のシートも、貼り付ける際のデータ元シートもテキストボックスを使用しているわけではなく、なぜか一箇所に同じテキストボックスが155個とか出来てしまっています。 何か考えられる原因はありますか? 現在は、気づくと「あっココにもあった」という感じで、数箇所、数百個のテキストボックスをいちいち消しています。

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

可能性は低いと思いますが、WorkbookOpen イベントにTextboxをAddするコードを入れると、質問のようにできそうに思う。VBAコードが残っていないか、誰か周りの詳しい方にチェックしてもらってください。 Private Sub Workbook_Open() Worksheets("sheet1").OLEObjects.Add(Classtype:="forms.textbox.1", Left:=10, Top:=20, Width:=20, Height:=10).Select End Sub このブックを開くごとに1個のテキストボックスが重なります。 1つのように見えるが重なっている。 はずれの場合はご容赦を。

  • mu2011
  • ベストアンサー率38% (1910/4994)
回答No.1

テキストボックス(オートシェイプ等オブジェクト)が自然増殖する事はないと思いますので、他シートから行列/セルを貼り付けた時に一緒に貼り付けられた後、対象シート内のセルコピー&ペースト等操作で増殖したのではないでしょうか。 因みに編集→ジャンプ→セル選択→オブジェクトを選択すればシート内全オブジェクトが選択できますので、deleteキー押下で一括削除できます。

関連するQ&A

  • EXCELでテキストボックスを選べない

    EXCELでのシートで セルにはデータが入っています セルはそれぞれクリックできます シートの真ん中に テキストボックス(四角い図形の中に テキストが入力されているので) があり それをクリックしようとすると ○の中に /が入っている 警告のようなものが出てきて テキストボックスを選べません  シートは保護されていないようです どんな設定がされていますか

  • エクセルVBAで、テキストボックスにセルの値を入れる

    宜しくお願いします。 エクセルデータの各項目を、すでに書式(表)が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・ 各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置(すでに印刷された用紙にあわせてある)に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷 ~を繰り返したいのですが、どのようなコードを書けばよいのでしょうか? 進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。 ※印刷する場合は、テキストボックス内の文字のみ印刷(シートには印刷したくない文字書きたいので・・・) また、そのフォームには、パターンが5つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。 データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。 以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。

  • エクセルVBA 別シートからのコンボボックス連動

    エクセルVBA 別シートからのコンボボックス連動について Book1(多人数入力用ブック) ・入力シート ・データ用シート Book2(反映用ブック) ・シート1 Book1にコンボボックスが2列 テキストボックスが2列 * 6行のユーザーフォームを作成しました。 コンボボックス1 コンボボックス2 テキストボックス1 テキストボックス2 コンボボックス3 コンボボックス4 テキストボックス3 テキストボックス4 ・ ・ ・ 左のコンボボックスで「あ」が選ばれたときには、右のコンボボックスで「あ行の顧客」・・・というように連動させたいと考えております。 データ用シートのデータは、   A      B          C 1 あ あ行で始まる顧客 か行で始まる顧客 2 か 3 さ 4 た 5 な 6 Private Sub UserForm_Initialize() Dim c As Range ComboBox1.RowSource = "データ用シート!A1:A9" End Sub Private Sub ComboBox1_Change() 'Dim Rng As Range 'Dim i As Long i = ComboBox1.ListIndex If i > -1 Then Dim c As Range Set Sh = Worksheets("データ用シート") Set Rng = Worksheets("データ用シート").Range("B2:I30") ComboBox2.Value = "" ComboBox2.RowSource = Rng.Columns(i + 1).Address End If End Sub 上記コードですと、コンボボックス2が入力シートのデータを表示してしまいうまくいきません。 欲をいえば、 Book1(多人数入力用ブック)入力シートの特定セルに コンボボックス2・テキストボックス1 コンボボックス4・テキストボックス3というように続けて1セルに反映 Book2(反映用ブック)シート1に コンボボックス2・テキストボックス1・テキストボックス2 を各1セル 1行に反映させたいと考えております。 まったく知識がないのですが 仕事上どうしても必要となったので、各種サイトを見よう見真似でやっております。 ご助力いただければ幸いです。

  • セルからテキストボックスへ

    Excel2003の操作でお伺いしたい事があります。 通常テキストボックスにハイパーリンクを挿入すると 同じシート内のセルへジャンプする設定をする事ができますが 逆にセルをクリックすることによって 同じシートのテキストボックスへジャンプする事は出来ますでしょうか? ハイパーリンク、もしくは他にそのような事が 出来る機能がありましたら是非教えてください(*- -)(*_ _)ペコリ

  • Excelで、テキストボックスに書かれた文字を検索したい

    表題の通りなのですが、 1) ExcelのSheetにテキストボックスを作成する 2) その中に文字(品番・コード名)を入力する 3) そのようなテキストボックスが、Sheet上にたくさんある 4) おなじブックの別Sheetにも同様のテキストボックスがたくさんある このような場合、ブックを開き、テキストボックス内の任意の文字を検索することは可能でしょうか?

  • エクセル2007アンロックテキストボックス不調

    エクセル2007でシートを保護した状態で、ロックを外したテキストボックスの編集が不調です。 テキストボックスのロックを外してあれば、シートを保護しても、テキストボックスの内容は編集可能のはずですが、うまくいきません。  ★すなわち、改行のためにエンターキーを打っても改行されず、カーソルがテキストボックスから抜けて、ロックされていないセルに移動してします。矢印キーを打った場合もテキストボックス中でカーソルは移動せず、テキストボックスから抜けて、ロックされていないセルに移動してしまいます。2010の試用版を使ってみましたが、同様の現象が起きました。 大変困っています。対策あるいは修正ファイルなどご存知の方は教えてください。

  • エクセル テキストボックスについて

    エクセルでテキストボックスへセルからの反映方法 の質問です。 エクセルのセル内の数字や文字を ・いくつかのシートを作成して ・そのシートのセルに反映させ、連動させる 方法はどのようにするのでしょうか。

  • VBAでEXCELから固定長のテキストデータにしたい

    VBAにてEXCELに展開されたデータを固定長のテキストデータに落としたい。 EXCEL側の用件 (1)シート1にボタンを用意して、ボタンをクリックしたらテキストファイルを作成する処理にしたい。 (2)シート2にデータが展開されている。 列は10個程度、行は場合によりけり(MAX65536?) 固定長にする箇所とかはわかるのですが、ボタンクリックしたらシート2を見て、セル(もしくはrange)をどのように取得すればいいのかVBAがよくわからないのです。

  • [VBA]テキストボックスからエクセル反映(複数行)

    始めまして。初めて質問させて頂きます。至らない点があると思いますがよろしくお願い致します。 今テキストボックスよりエクセル(単一セル)に文字を入力するシートを作成しております。 テキストボックスで複数行入力(Enterで改行)の方法と複数行入力した文字をシート(1セル)に反映したいのですが良い方法をご存知でしたらご教授お願いします。 【やりたい事項】 テキストボックス内 (1)○は△です。(Enterで改行) (2)×は●です。 エクセルシート上(A1セルで) (1)○は△です。(ALT+Enter) (2)×は●です。 現状:MultiLineをTRUEにして右端まで文字入力すると2行目に入力可能 エクセルに反映すると「○は△です。×は●です。」と1セルで1行で表示となってます。 言葉足らずかもしれませんが、よろしくお願いします。

  • エクセル2007のテキストボックスについて初歩的な質問です。

    エクセル2007のテキストボックスについて初歩的な質問です。 適当に作成したテキストボックスを使って、テキストボックスの初期設定をしました。そして右クリックで規定に設定しました。 一旦エクセルを閉じて、再度エクセルを起動しテキストボックスを作成すると先ほど設定した規定値ではなく、設定する前の設定になってしまいます。 いつ作成しても初期設定した設定で使いたいのですが、できないのでしょうか?と質問しましたところ下記の回答をいただきました。 「いったんテキストボックスの規定値を設定したシートからテキストボックスを削除して何も入力されていないブックを作成し、名前を付けて保存でファイルの種類を「Excelテンプレート(*.xltx)」にして、ファイル名を「Book.xltx」としてXLSTATフォルダに保存してください。」 おかげさまで設定はできましたが、作成してあるエクセルファイルを開くと新規のエクセルシートも開いてしまいます。開きたいファイルだけを開く方法はないのでしょうか?どなたが教えてください。

専門家に質問してみよう