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

フォーマット

作ったシートを保存するのには「フォーマット」が必要なんだね
だから「対応していません」などのエラーが出る・・
知らなかったよ

Sub テスト()
    
    Dim book1 As Workbook

    Set book1 = Workbooks("VBAsample.xls")
    book1.SaveAs filename:="C:\excelsample\test.csv", _
        FileFormat:=xlCSV
        
End Sub

http://www.officepro.jp/excelvba/book_new/index9.html

上記は「CSV」形式の保存だけど
月夜はエクセルで保存したかったの
だから「xlWorkbookNormal」に変えました

よかった、うまく作動した！！

コードは９５％完成♪
あとはペーパーにプリントアウトしたものを持っていくだけ
成果物の評価にはドキドキする

締め切り本日だったのでよかったです（＋＋）

Ｉｆ

If s = a / 2 >= s Then
            
                t = a / 2
                
            Else
            
                t = a
                
            End If

略すと

ｓ　の値が　ａ/2　以上な場合　は　真　の処理をする

なんだけど。。。

うまく動いてません（＋＋）

a / 2 >= sの表記がいけないんだよね

調べますっ

Ｃｅｌｌｓ

VBAの書き方
オブジェクト
よくわかんない・・・

で♪
Ｃ的に見れるかどうか模索
よし、コレを探してたの！！

Rang("A2") = Cells(2,1)    *２行目１列目のセル

コレ使えるよぉぉぉ
対象に直に入れるの好きじゃない
いれるのは変数が好き。。。

また一つ小技が広がりました（〃▽〃）
ただいま完成率６０％です
残り時間２０時間　°゜°゜°。。ヘ(；^^)ノ

File Open

NewSheetsはできました♪
次はファイルのオープン
これ、結構難しい？？？

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

例どおりにやるのだけどうまくつながらない・・・

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

シート挿入

【　Addメソッドの構文　】

Worksheetsｺﾚｸｼｮﾝ.Add(Before,After,Count,Type)

うーん。。。
黄色いデバックがでます（＋＋）

って「ｺﾚｸｼｮﾝ」ってなんだ？？？
http://www2.ocn.ne.jp/~kawa98es/htmHint_Collection.htm

http://vbae.odyssey-com.co.jp/data/vbaword.html