[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAを使って作業自動化したい』(らいち)
下記の作業をVBAを使用して自動化したいのですが、全くのVBA初心者のため
わかりませんので、どなたか教えて下さい。
・管理No.を入力すると、LOOKUP関数で各項目のデータを表に表示
させるシートがあります。(Excel2000、WindowsXP)
1)シート上に配置したボタンを押して、VBA起動
2)数値入力指示が出て、管理No.セル(例えばA1)に数値(半角数字5桁)を入力
3)シートの保護を解除して、各項目に表示されている数値は変えずに
関数だけを削除(手作業ではコピーし、同じ位置で値のみ貼り付けで対応)
4)作業しているシートだけを別名保存
5)別名保存時のファイル名は「管理No.+2文字.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を使って作業自動化したい2』(らいち)
※以前に類似のご質問をさせて頂いた内容ですが、改めて教えて下さい。
下記の作業を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を使って作業自動化したい2』(らいち)
(HANA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.