VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2002/10/24(Thu) 15:35 |
| 投稿者 | ： 半人前 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： シートの名前をFor文でいれる |
ただいまAセルにある数だけシートをつけようと奮闘しています。
たとえばAセルに55個、名前があったら、その数の分シートを作成し、
一人一人のシートを作成したいと思っています。
シートを作るのは何とかできました。
方法は、B1セルにCOUNTA関数をいれます。Aセルの間に空白でない数を出した後に、
Dim i As Long
For i = 1 To Range("B1")
Worksheets.Add After:=Worksheets(Worksheets.Count)
Next i
このコードで数の分だけシートを作る事ができたのですが、Aセルにある名前をシートの名前に、
一つずつ入力させる方法がわかりません。
よろしかったらアドバイスお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）