人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: cetos
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel オブジェクト テキスト ボックス 自動
○ 状態 :終了
└ 回答数 : 5/5件

▽最新の回答へ

1 ● na0wa
●15ポイント

http://www2.odn.ne.jp/~cae39810/gpr/ctm/howto.html

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

◎質問者からの返答

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

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

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


2 ● oojiji
●15ポイント

http://www.tekipaki.jp/~oojiji/

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

◎質問者からの返答

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

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

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

可能なのですかね?


3 ● tanaka999
●15ポイント

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

はてな

URLはダミーです。

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

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

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

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

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

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

◎質問者からの返答

知識不足ですいません。

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

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

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


4 ● anan
●20ポイント

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

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

URLはダミーです。

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

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

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

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

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

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

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

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

=Sheet1!F2

4.Enter キーを押します。

[メモ]

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

以上です。

◎質問者からの返答

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


5 ● oocco
●15ポイント

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

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

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

◎質問者からの返答

なるほど参考にします。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ