[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『bookの作成について』(下太郎)
こんばんは。教えて頂きたいです。
ベースになるマクロに作成というボタンを作ろうとしていますが
できるようになって欲しい事は
ボタンを押すと 採点結果 という名前でブックが作成されて
Aさんというシートが作成
次にBさんで採点してボタンを押すと
既にある 採点結果 というシートのAさんの隣に保存
というのが理想なのですが
もし採点結果というブックが無ければ
ブックを作成してそこに反映(シートをコピー)]
もし採点結果というブックがあれば
その中にシートを追加コピー
というのは可能でしょうか
Sub 作成()
ActiveSheet.Copy MsgBox "データ出力完了 ", vbOKOnly, "新しいブックに" ActiveSheet.Name = ActiveSheet.Range("A1") 'シート名反映 End Sub
現在はこれしかできていないです。
Aさんを新しいブックにコピーした後に
Bさんの入力が終わったら↑のシートの右に追加
Cさんの入力が終わったら↑のシートの右に追加
と同じブックにコピーさせていかせたいのですが
わかりましたら宜しくお願いします。すみません。
< 使用 Excel:Excel2011(Mac)、使用 OS:Windows10 >
(γ) 2020/05/09(土) 06:41
各人ごとのシートはありません。
ボタンを押すと「採点結果」というブックができて
シートがコピーされる。
「採点結果」というブックが既に開いている場合はそのブック内にシートがコピーされる。
というコードを目指しています。
ボタンを一度押すとば採点結果というブックができ
その後は連打してもとにかくそのブックにシートがコピーされていく
というのを目指しています。
(下太郎) 2020/05/09(土) 13:59
(γ) 2020/05/09(土) 14:58
こんばんは ^^ え〜と、なにやら、氏名と採点を記入する既存のシートが有るのかなぁ とか想像するのですが、コピー元のシートの情報を、今少し、詳しく、 Aさん、Bさん、は何処に入力[シート、セル番地]されている等、ご 説明賜れば、たくさん、アドバイス、回答等が寄せられるのではないで しょうか。。。← 多分。。。^^;。。。m(_ _)m (隠居じーさん) 2020/05/09(土) 19:02
Sub 実験01() Dim dstWB As Workbook Stop ' ←ブレークポイントの代わり
'▼”開いている”ブックのなかに「採点結果.xlsx」があれば、オブジェクト型変数にセットする(ない場合はセットに失敗する) On Error Resume Next Set dstWB = Workbooks("採点結果.xlsx") On Error Resume Next
'▼オブジェクト変数にセットされているかどうかで処理分岐 If dstWB Is Nothing Then ActiveSheet.Copy Workbooks(Workbooks.Count).SaveAs _ Filename:=ThisWorkbook.Path & "\採点結果", _ FileFormat:=xlOpenXMLWorkbook Else ActiveSheet.Copy after:=dstWB.Worksheets(dstWB.Worksheets.Count) End If
'自ブックをアクティブにする ThisWorkbook.Activate
End Sub
(もこな2 ) 2020/05/10(日) 12:14
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.