・;・^;・:月夜:・;^・;・

宿題

Sheet1を参照して、Sheet2にマクロで移行します。
Sheet2を丸ごとコピーしてSheet3（シート名＝"No 1" )を作ります。
コピーはＮｏごとに行われます。

上記を例にたとえると、sheetが5枚（sheet1,sheet2,No 1,No 2,No 3)できるというわけです。

コレを何とか連休明けにマスターしたいのです。
単純なマクロですが、シートを増やす作業を果たして月夜は覚えているでしょうか。。。
先は長いが時間はありませんっ。

Let's Try!!

screenupdting

screenupdting
http://www.relief.jp/itnote/archives/001259.php

Falseにしておくといいのですね。

▼画面更新を停止するステートメント
Application.ScreenUpdating = False

open ／ Activate ／ close

　Workbooks.Open　Filename:=ThisWorkbook.Path & "\" & "データ.xls"


  Workbooks("データ.xls").Close


  With Workbooks("データ.xls")
　.Saved = True(False)
　.Close savechanges:= True(False)
  End With

http://www.d3.dion.ne.jp/~jkondou/excelvba/file.htm

ファイルをオープンする

ファイルをクローズする

ファイルを保存してクローズする
(ファイルを保存せずにクローズする)

Sub テスト()
    
    Workbooks.Open "C:\excelsample\2005年成績.xls"
    Workbooks.Open "C:\excelsample\2006年成績.xls"

    Workbooks("2005年成績.xls").Activate
    
End Sub

ファイルをアクティブにするのをすぐに忘れちゃうの
ココにメモしておけば安心です☆

うん♪
順調そのものだ（〃▽〃）

変数と文字列の混同

a = MsgBox("今k個ですが、まだありますか？", vbQuestion + vbYesNo)

このｋには数値が入っているの
これを「今５個ですが、まだありますか？」とのメッセージボックスにしたいの

「＋ｋ＋」
「＆ｋ＆」
いろいろ試したけどうまくいかない（＋＋）

最後の手段
「おしえてＧｏｏ」にいこうかなっ

おっと！！

ごめん！！
できた♪

MsgBox "違います。私は" & backmsg & "歳ではありません。", 

やっぱり「＆＆」でつなげるのでした（＾＾）
http://www.accessclub.jp/samplefile/samplefile_48.htm

キャンセル・ブランクの戻り値

InputBox(prompt [, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 

機能：　ダイアログボックスにプロンプトを表示する
戻り値：　[OK]ボタンをクリックした場合, テキストボックスの内容を返し, [キャンセル]ボタンをクリックした場合, 文字列 "" を返す
http://www4.plala.or.jp/tamo/excelvba/xlv07.html

そう、戻り値は「""」
うまく反応しなかったの
月夜が入れてたのは「" "」

「これじゃＮＧ。だって一文字は言ってるじゃん♪」

・・・。
ＫＭさんに指摘されハッとした
そうです、ＮＧでした（； ；）

月夜の最後の切り札、ＫＭさん
唯一リアルで詳しい人
いつもお世話になっております　m(_ _)m