100~300名参加の会合を開く時の席表を作るにあたり、今まではWordで参加者4~5名をテキストボックスに書いてテーブル両脇に配置し、テーブルを移動させる時は書き直していましたが、省力化出来ないものかと考えております。
参加人数によってテーブル数、配置、テーブル当たりの席数が変わりますから、会場レイアウト図も毎回作り変えています。集団で来られる方の人数が募集期間中に変動したりするので、前日夜までちょこちょこ移動作業をしなければならず、その度に書き直しをしていると誤字や欠落が起こるのでとても大変です。
そこで毎回、出欠名簿をEXCELで作るので、それをなんとか上手く使えないものかと思っています。
例えばレイアウト図は毎回作るにして、名簿から氏名の入ったテキストボックスもしくはラベルを作り、別のワークシートに並べておく(出来ればテーブル番号で分けて配置しておく)なんて事が簡単に出来る方法はありますでしょうか?
EXCEL、Wordとも2000、OSはWindowsXP-HomeSP2です。
No.6ベストアンサー
- 回答日時:
連休挟んだので遅くなりましたが、別のシートをアクディブにするだけでOKです。
ついでにコードの不自然な部分直しておきました。Sub Macro1()
Dim rng As Range
Dim cell As Range
Dim V As Integer
Dim H As Integer
Set rng = Selection
H = 100
V = 50
For Each cell In rng
Worksheets("sheet2").Activate
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, H, V, 100#, 20).Select
With Selection
.Characters.Text = cell.Value
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Characters.Font
.Name = "MS 明朝"
.FontStyle = "bold"
.Size = 15
End With
End With
V = V + 10
'H = H + 10
Next cell
End Sub
No.5
- 回答日時:
> 同じ場所に重ならずにテキストボックスが作れれば言うことないかもしれません。
簡単にずらせますよ。
Sub Macro1()
Dim rng As Range
Dim cell As Range
Dim var As Variant
Dim H As Integer
Dim V As Integer
Set rng = Selection
H = 100
V = 50
For Each cell In rng
With cell
.Select
var = .Value
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, H, V, 60#, 20).Select
Selection.Characters.Text = var
With Selection.Characters.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
End With
End With
V = V + 10
H = H + 20
Next cell
End Sub
Vが垂直、Hが水平の初期位置。
「V = V + 10」の足し算を大きくするほど、ズレ幅も増えます。
この回答への補足
大変ありがとうございます。
あと1つだけ教えて下さい。
テキストボックスを別のシートに作成するには、どの行に作成させたいシートを書いたら良いのでしょうか>
No.4
- 回答日時:
こういう事でしょうか?
Dim rng As Range
Dim cell As Range
Dim var As Variant
Set rng = Selection
For Each cell In rng
With cell
.Select
var = .Value
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 160.25, 35.25, 60#, 20.25).Select
Selection.Characters.Text = var
With Selection.Characters.Font
.Name = "MS Pゴシック"
.FontStyle = "標準"
.Size = 11
End With
End With
Next cell
End Sub
> 参加者4~5名をテキストボックスに書いて
というのにはそぐわないかもしれませんが、「選択した範囲の値でテキストボックスを作る」ものです。全部同じ場所に重なって作られます。
4000件ほどのリストでやったら、ちょっと後悔するような動作をしましたが。
太字にしたければ"標準"を"bold"にするなど、適当に変えてください。
自分のイメージに近い動作です。
同じ場所に重ならずにテキストボックスが作れれば言うことないかもしれません。
ありがとうございました。
No.3
- 回答日時:
エクセル2000の機能はわからないのですがエクセル2002のケースで説明します。
エクセルで名簿を作られているとしたらその名簿のあるセル範囲、例えば5人組みの場合でしたら5つのセルを選択してから「Shift」キーを押しながら「編集」をクリックし「図のコピー」を選びます。表示される画面はそのままOKし、別の座席を作成するシートに移ってから再び「Shift」キーを押しながら「編集」をクリックし「図の貼り付け」を選びます。これによって図として貼り付けられますのでシート上での位置の移動や大きさの調整などをスムーズに行うことができるようになります。また、図形を右クリックして「図の書式設定」から塗りつぶしの色や、枠線の色をを黒にするなどの操作ができるようになります。
参考になりましたら幸いです。エクセル2007の場合ですとリンクした貼り付けができますので表の名簿が変われば自動的に名前を変えることもできるのですが。
2000でやってみましたら、出来ますね。
イメージしていた作業に近いです。
あとは数百件同じ作業を繰り返すマクロにすれば、とりあえず目的は果たせそうです。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- 分譲マンション 総会前にきて、管理会社のフロントマンに振り回され役員一同が困っています。 5 2023/05/15 03:12
- Access(アクセス) ACSESS初心者です マンション管理をACCESSで出来ないかとチャレンジしています。 リレーショ 3 2022/10/08 11:45
- 会社・職場 Excel、Googleスプレッドシートなどへのデータ入力 2 2023/07/06 05:59
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- 面接・履歴書・職務経歴書 履歴書にwordとexcelは基礎的なことはできると書きたいのですが、何と書いたら良いでしょう?実際 5 2022/10/14 16:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同窓会名簿で、亡くなった方の記載
-
Accessでレコードを別テーブル...
-
柔道整復師名簿はみれますか?
-
亡くなられた方の表現
-
エクセルで学年クラスが変わっ...
-
エクセルでの名簿の作成で、名...
-
【Excel】複数データ(または列...
-
差し込み印刷 1ページに複数の...
-
名簿に載る個人情報について
-
二つのエクセル名簿を比較し、...
-
Excel2007並べ替えについて
-
エクセルで出席確認したいのですが
-
同期と給料に差がありました。 ...
-
「○日までに」の意味、その日は...
-
会議体のステータス
-
派遣社員です。仕事がこなせず...
-
派遣社員です。私語がおおいと...
-
見学してみたいです。は敬語で...
-
大学2年の者です。就活につい...
-
社会人で坊主はやめてね
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同窓会名簿で、亡くなった方の記載
-
Accessでレコードを別テーブル...
-
亡くなられた方の表現
-
エクセルで学年クラスが変わっ...
-
差し込み印刷 1ページに複数の...
-
Access]2つのテーブルを比較し...
-
こんな時の言い回し
-
同窓会の名簿に欠席者・物故者...
-
保護者名簿を作成したいが、依...
-
幼稚園で園児の住所、電話番号...
-
【緊急】エクセルで複数の同じ...
-
昔の友達を探したい
-
教員採用の名簿登載について
-
名簿図書館って
-
柔道整復師名簿はみれますか?
-
大学の同窓会名簿に載らないと...
-
同窓会名簿作成のための、個人...
-
iタウンページの電話番号や住...
-
名簿に載る個人情報について
-
自治会で全世帯の名簿を作成配付
おすすめ情報