エクセルの学校：全文検索：Hyper Estraier： VBA ��

Results of 1 - 1 of about 14726 for VBA �� (0.003 sec.)

[[20091119145021]]: #score: 3408; @digest: 8985544c7b4ca1c8cc2f3fd413a8e82b; @id: 46470; @mdate: 2009-12-16T01:19:12Z; @size: 2943; @type: text/plain; #keywords: 理no (19717), savename (13816), 字. (11056), inpt (9894), 業自 (9315), 成sh (7032), 力指 (6892), ・管 (5443), 表フ (5180), 動化 (3152), 名保 (3128), 存後 (2794), 各項 (2602), 管理 (2471), 規作 (2440), 存時 (2202), 値入 (2092), 理表 (1832), 別名 (1736), 存先 (1486), 消去 (985), 保存 (925), 指示 (892), 新規 (856), い2 (733), で各 (698), 作業 (687), 、lo (684), 調整 (664), 数値 (641), ト上 (592), 自動 (553); 『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) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200911/20091119145021.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ