『VBAを使って作業自動化したい』（らいち）

下記の作業をVBAを使用して自動化したいのですが、全くのVBA初心者のため

わかりませんので、どなたか教えて下さい。

・管理No.を入力すると、LOOKUP関数で各項目のデータを表に表示

　させるシートがあります。（Excel2000、WindowsXP）

1)シート上に配置したボタンを押して、VBA起動

2)数値入力指示が出て、管理No.セル（例えばA1）に数値（半角数字5桁）を入力

3)シートの保護を解除して、各項目に表示されている数値は変えずに

　関数だけを削除（手作業ではコピーし、同じ位置で値のみ貼り付けで対応）

4)作業しているシートだけを別名保存

5)別名保存時のファイル名は「管理No.＋２文字.xls」、保存先はデスクトップ

6)保存後、入力している管理No.セルの数値を消去して、VBA終了

以上です。

よろしくお願いします。

----
 多忙につき最後までお付き合いできませんのでご了承を…
細かな仕様が分かりませんのでご自身で調整してください。

 Sub らいちさん()
    Dim InPt As Long
    Dim SaveName As String
    Dim wb As Workbook
    Set wb = ThisWorkbook
    InPt = Application.InputBox(prompt:="管理No.を入力", Type:=1)
    If InPt = False Then Exit Sub
    With wb.ActiveSheet
        .Unprotect
        .Range("a1").Value = InPt '入力セルを変更してください
        With .Range("a1", ActiveCell.SpecialCells(xlLastCell)) 'こっちはそのまま
            .Copy
            .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End With
        Application.CutCopyMode = False
        .Copy
    End With
    SaveName = InPt & "2文字.xls" '2文字をお好みに修正してください
    ActiveWorkbook.SaveAs Filename:=SaveName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    Range("a1").Select
    wb.Close False
    Set wb = Nothing
End Sub

 1or8
----
ありがとうございます。

自身で調整してみましたが、なかなかうまくいきませんでした。

仕様を見直して、再度ご質問をしたいので、教えて頂けますでしょうか。

『VBAを使って作業自動化したい２』（らいち）

※以前に類似のご質問をさせて頂いた内容ですが、改めて教えて下さい。

下記の作業をVBAを使用して自動化したいのですが、全くのVBA初心者のため

わかりませんので、どなたか教えて下さい。

・管理No.を入力すると、LOOKUP関数で各項目のデータを表に表示

　させる管理表ファイルがあります。（Excel2000、WindowsXP）


1)シート上に配置したボタンを押して、VBA起動

2)数値入力指示が出て、管理No.セル（例えばC2）に数値を入力

3)管理表だけを範囲指定（例えばB2:C16）コピーして、新規作成Sheet1に書式と
　値だけをペーストする。
　

4)新規作成Sheet1のペースト基準位置はB2として、A,B,C各列の幅を

　それぞれA列は0.5、B列は10、C列は50に変更

5)新規作成ファイル保存時のファイル名は「管理No.＋文字.xls」、保存先は管理表ファイルと同フォルダ

6)保存後、入力している管理No.セルの数値を消去して、VBA終了

以上です。宜しくお願いします。

----
 ↓新規スレです。
[[20091215173635]]『VBAを使って作業自動化したい２』（らいち）

 (HANA)