[[20200509022015]] 『bookの作成について』(下太郎) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『bookの作成について』(下太郎)

こんばんは。教えて頂きたいです。

ベースになるマクロに作成というボタンを作ろうとしていますが
できるようになって欲しい事は

ボタンを押すと 採点結果 という名前でブックが作成されて
Aさんというシートが作成
次にBさんで採点してボタンを押すと
既にある 採点結果 というシートのAさんの隣に保存
というのが理想なのですが

もし採点結果というブックが無ければ
ブックを作成してそこに反映(シートをコピー)]
もし採点結果というブックがあれば
その中にシートを追加コピー

というのは可能でしょうか

Sub 作成()

 ActiveSheet.Copy                   
 MsgBox "データ出力完了 ", vbOKOnly, "新しいブックに"  
 ActiveSheet.Name = ActiveSheet.Range("A1") 'シート名反映
End Sub

現在はこれしかできていないです。
Aさんを新しいブックにコピーした後に
Bさんの入力が終わったら↑のシートの右に追加
Cさんの入力が終わったら↑のシートの右に追加

と同じブックにコピーさせていかせたいのですが
わかりましたら宜しくお願いします。すみません。

< 使用 Excel:Excel2011(Mac)、使用 OS:Windows10 >


>次にBさんで採点してボタンを押すと
ここがよくわかりません。
 
各人ごとのシートがあるんですか?
今、誰の採点をしているのかは、どう判断するんですか?
頭でそう考えている、というのでなく。
 
それを、Excel君にどう伝えるつもりでしょうか。
その説明をしてください。

(γ) 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.