
現在申し込み票のExcelがあるのですが、マクロをボタンに登録してボタン一つ押すと申し込み票の名前と生年月日、住所が他のExcelのブック(例えば申込者名簿.xls)のシートに、名前→A1、生年月日→B1、住所→C1に入力されて保存されるようにしたいです。
更に次にもう一度ボタンを押した時には、名前→A2、生年月日→B2、住所→C2・・と言うようにどんどん書き足したいです。
書き足した後は元のExcelブックも申込者名簿.xlsも閉じるようにしたいです。
どのようにVBAを書けばよいのでしょうか?
まだVBA初心者のためいまひとつわかりません。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
ど~もぉ。
情報が少なかったのですが、想像で作ってみました。質問とは違うかもしれませんが参考にしてください。
まず、
<申し込み票.xls>シートの設定
セルA1 を「名前」
セルB1 を「生年月日」
セルC1 を「住所」
上記のようにデータを入力する場所とします。
<申込者名簿.xls>シートの設定
セルE1 に数式[=COUNTA(A:A)]を入力
次に、申し込み票.xlsに下記のコードをコピペする
(シート名が違う場合は、変更してください)
[Test1]は申込者名簿.xlsにデータをコピーするコード
[Test2]は両方のブックを保存後閉じるコード
------------------------------------------------------------------
Sub Test1()
Dim TargetSheet As Worksheet, TargetRow As Long
Dim DName As String, DBirth As Date, DAddress As String
With Worksheets("Sheet1")
DName = .Range("A1").Value
DBirth = .Range("B1").Value
DAddress = .Range("C1").Value
End With
Set TargetSheet = Workbooks("申込者名簿.xls").Worksheets("Sheet1")
With TargetSheet
TargetRow = .Range("E1").Value + 1
.Cells(TargetRow, 1).Value = DName
.Cells(TargetRow, 2).Value = DBirth
.Cells(TargetRow, 3).Value = DAddress
End With
Set TargetSheet = Nothing
End Sub
Sub Test2()
Workbooks("申込者名簿.xls").Close SaveChanges:=True
ThisWorkbook.Close SaveChanges:=True
End Sub
------------------------------------------------------------------
Excel2003
どうでしょ~
No.3
- 回答日時:
要点は
(1)他ブックの決まったシートをつかまえるコード(そしてセルに値を代入する)コピー・貼り付けは使わないほうがたやすい。
Xのブックのセルの値=Yのブックのセルの値、の形になるが、XもYもブック+シートを指定して、セルを指定する必要がある。
セルはブック名+シート名+Cells(i,j)で、捉える。iは行、jは列番号。
(2)お互い最下行を問題にすれば、よいと思うが最下行は
ブック名+シート名+Range("A65536").End(xlUP).Rowで捉えられるので、書き込みは+1下行を指して行う
あるいは代入を受ける側は、行ポインタで値代入行を管理し、一回ごとに+1して行く。
(3)ボタンのClickイベント関係の勉強。
ーー
VBAの初心者には少し難しい課題。
課題の丸投げの質問になっている。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Office2021のエクセルで米国株...
-
Excelシートの保護時にデータの...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
マクロ 新しいシートにデータ...
-
EXCEL関数でシート名が変わる可...
-
シート参照で変数を使いたい(EX...
-
Excelで複数シートの選択セルを...
-
エクセルについて
-
Excel VBAでサブフォルダ内のフ...
-
日付が未入力の際はゼロか、空...
-
オプションボタンを別シートに連動
-
Excelのファイル容量が減らない...
-
シート保護とオートSUM機能...
-
excel 1行の横セル内容を表を ...
-
(Excel)あるセルに文字を入力...
-
【VBA Excel】ドラッグアンドド...
-
別シートのセルを絶対参照にする
-
Excelの「0」だけ非表示、小数...
-
エクセルでシート名をセルに入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Office2021のエクセルで米国株...
-
Excelの「0」だけ非表示、小数...
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
エクセルについて
-
エクセルで1月0日と表示される!!
-
Excelシートの保護時にデータの...
-
日付が未入力の際はゼロか、空...
-
ExcelでTODAY関数を更新させな...
-
EXCELのハイパーリンクのセルを...
-
エクセルで、加筆修正したセル...
-
Excelでスクロールすると文字が...
-
複数シートの同じセル内容を1シ...
-
マクロ 新しいシートにデータ...
-
別シートのセルを絶対参照にする
-
ハイパーリンク で『指定された...
-
iPhoneのExcelアプリで、別のシ...
-
エクセルで複写のように自動入...
-
エクセルで指定のセルのみ完全...
-
エクセル ハイパーリンクで画像...
おすすめ情報