Excelで複数作ったテキストボックス(もしくはオブジェクト)に自動的に通し番号をつける方法を教えてください。その番号も表示させられるようにしたいです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/02/12 11:52:05
  • 終了:--

回答(5件)

id:watanabe652 No.1

na0wa回答回数163ベストアンサー獲得回数02004/02/12 14:01:21

ポイント15pt

こういうマクロを作成してみてはいかがでしょうか

id:cetos

コレとは違うようです。このようなことをテキストボックスで出来ないかが知りたいです。

あとプログラミングなど分からないので

簡単に出来る方法があればなお良いです。

2004/02/12 14:26:27
id:oojiji No.2

oojiji回答回数38ベストアンサー獲得回数02004/02/12 15:09:45

ポイント15pt

URLはダミーです。

テキストボックスに通し番号を付けるというのが、良く理解できませんでしたので、

テキストボックスを選択して、名前を”text0001”〜”textxxxx”、テキストボックスの

テキストを”0001”〜”xxxx”に設定するマクロを書いてみましたので、参考にしてみて

ください。

Sub Macro1()

Dim shtWork As Worksheet

Dim txtBox As Shape

Dim intwork As Integer

intwork = 0

For Each shtWork In Worksheets

Debug.Print shtWork.Name

For Each txtBox In shtWork.Shapes

If txtBox.Type = msoTextBox Then

intwork = intwork + 1

’名前をtext0001〜text00xxにする

txtBox.Name = ”text” & Format(intwork, ”0000”)

’テキストの値に0001〜00xxを設定

txtBox.TextFrame.Characters.Text = Format(intwork, ”0000”)

End If

Next

Next

End Sub

id:cetos

すいません。出来ませんでした。

たとえば表にあるテキスト(や数値)を

テキストボックスで読み込むことも

可能なのですかね?

2004/02/12 15:45:59
id:tanaka999 No.3

tanaka999回答回数33ベストアンサー獲得回数02004/02/13 12:41:31

ポイント15pt

URLはダミーです。

テキストボックスというのは、VBのパーツのtextboxと考えてよろしいんですよね?HTMLでいうところのINPUTフォームにあたるものです。

これはエクセルのワークシートに設置した時点で自動的に”TextBox1”,”TextBox2”と連番で名前を割り振られます。

テキストボックスの中に数値を入れるなら、テキストボックスをダブルクリックをしてVisualBasic for Excelを立ち上げて、textというプロパティの欄に入力してください。

もしこの中にエクセルの表の、特定のセルの数値をここに表示するのであれば、テキストボックスのTextと呼ばれるプロパティを使用します。

TextBox1.Text = Sheet1.Cells(2, 3)

このように書けば、Sheet1の上から2つ目、左から3つ目の内容がテキストボックスに表示されます。しかし、これらのフォームを使ったスクリプトを記述しようとすると、VBスクリプトやVBAといったエクセルのマクロの知識が多少必要になってきますので、まずはフォームを使わずにエクセルのセルだけをつかった処理を考えたほうが簡単かもしれません。

id:cetos

知識不足ですいません。

図形オブジェクトのテキストボックスに

セルの中のテキストや数値を読み込んで

表示したいのですがそれと同じことですか?

2004/02/13 16:37:07
id:anan No.4

anan回答回数20ベストアンサー獲得回数02004/02/14 02:21:26

ポイント20pt

http://www.hatena.ne.jp/1076554325

Excelで複数作ったテキストボックス(もしくはオブジェクト)に自動的に通し番号をつける方法を教えてください。その番号も表示させられるようにしたいです。.. - 人力検索はてな

URLはダミーです。

ご質問の答えとしては当てはまらないと思いますが、「テキストボックスにセルの数値やテキストを表示させたい」ということでしたら、可能です。

分かりやすいと思いますので、以下にEXCELのヘルプからそのまま引用します。

「オートシェイプまたはテキスト ボックス内にセルの内容を表示する」

1.リンクを設定するオートシェイプまたはテキストボックスをクリックします。

2.数式バーに等号 (=) を入力します。

3.リンク先のデータまたは文字列を含むワークシートのセルをクリックします。

別のワークシートのセルへの参照を入力することもできます。

 次のように、シート名の後に感嘆符 (!) を記述します。

  =Sheet1!F2

4.Enter キーを押します。

[メモ]

この方法で、フリーフォーム、フリーハンド、直線、およびコネクタにセルの内容を表示することはできません。

以上です。

id:cetos

わかりました!ありがとうございます!

2004/02/15 12:07:20
id:oocco No.5

oocco回答回数44ベストアンサー獲得回数02004/02/14 11:53:27

ポイント15pt

http://homepage1.nifty.com/kenzo30/

Excel(エクセル)学習 KENZO30 サーバー移転のお知らせ

初級編の基礎んどいろんな応用が紹介されているサイトです。

id:cetos

なるほど参考にします。

2004/02/15 12:13:57

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません