■助けてください。■エクセルのマクロで困っています。| OKWAVE

■シートを一つ削除するマクロを教えてください。

前に、http://oshiete1.goo.ne.jp/qa4352149.html で質問させて頂きました。その節は、お世話になりありがとうございました。今回は、前回と似たようなものですが、少々条件を変更したマクロを作成したいのでご協力のほど、何卒よろしくお願い致します。文末にマクロを記述いたしますが、そちらは、指定した日付以降にエクセルのファイルを開くとシートがすべて削除されて、「有効期限切れ」というシートだけが出てくるというものです。今度は例えば「SheetA」、「SheetB」、「SheetC」という 3つのシートがあったとして、指定した期日が来たら、「SheetC」だけを削除したいのです。条件があり、「SheetC」は、マクロを有効にしないと使用できないようにしたいのです。やり方をご存知の方、ご教示のほど何卒よろしくお願い致します。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) endsheetname = "有効期限切れ" If (Sheets.Count = 1) And (Sheets(1).Name = endsheetname) Then Exit Sub If Sheets("SheetA ").Visible Then Sheets("SheetC ").Visible = xlVeryHidden End Sub Private Sub Workbook_Open() endsheetname = "有効期限切れ" If Date >= "3008/09/29" Then Application.DisplayAlerts = False If Sheets.Count = 1 Then If Sheets(1).Name <> endsheetname Then Sheets.Add(After:=ActiveSheet).Name = endsheetname End If Else On Error Resume Next Sheets(endsheetname).Delete On Error GoTo 0 Sheets.Add(After:=ActiveSheet).Name = endsheetname End If sheetnumber = Sheets.Count For i = 1 To sheetnumber For j = 1 To 2 If Sheets.Count = 1 Then Exit For If Sheets(j).Name = " SheetC " Then If Not Sheets("SheetC ").Visible Then Sheets("SheetC ").Visible = True If Sheets(j).Name <> endsheetname Then Sheets(Sheets(j).Name).Delete: Exit For Next Next Range("b" & 3).Value = "ご利用ありがとうございました。" ActiveWorkbook.Save Application.DisplayAlerts = True End If If (Sheets.Count = 1) And (Sheets(1).Name = endsheetname) Then Exit Sub If Not Sheets(" SheetC ").Visible Then Sheets(" SheetC ").Visible = True End Sub

エクセルのマクロについて教えていただきたいのですが・・・

見積書を作成しているんですが、1枚目のシート（見積書）に明細が書ききれなかった時に、マクロを実行すると、『明細書』と言う名前のシートが(1)～(5)枚目まで追加され、各シートの小計を1枚目のシートに書き出す・・・と言うマクロを作りたいのですが、うまくいかずに困っています＞＜追加されるシートの元となる『見積もりマスター』と言うシートがあって、そのシート内でそれぞれのシートの小計は取れるのですが・・・下記のマクロの中に何か追加すればうまくいく方法はありますか？？（明細書は追加する時もあれば追加しない時もあってその都度、使う人が、最大5枚まで何枚追加するかを決めるそうです。） Sub Macro1() Dim cnt As Integer Dim wkNum As Double Dim ws As Worksheet 　For Each ws In Worksheets 　　If Left(ws.Name, 4) = "明細書(" Then 　　　If IsNumeric(Mid(ws.Name, 5, 1)) Then 　　　　wkNum = Val(Mid(ws.Name, 5, 1)) 　　　　If cnt < wkNum Then 　　　　　cnt = wkNum 　　　　End If 　　　End If 　　End If 　Next ws 　If cnt >= 5 Then 　　MsgBox ("明細書シートが既に５枚以上あるため追加できません") 　　Exit Sub 　Else 　　Sheets("明細マスター").Copy after:=Sheets(Worksheets.Count) 　　ActiveSheet.Name = "明細書(" & cnt + 1 & ")" 　End If End Sub マクロ自体をあまり理解できてなくて、会社の人や、ここで教えていただいて進めているので、出来ればそのままコピーして使用できるようにしていただけるとありがたいです。よろしくお願いします。

エクセル　マクロ　エラー

Sub 保存() Dim MySheetName As Variant MySheetName = InputBox("シート名を入力してください") If MySheetName = "" Then Exit Sub Sheets("1").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = MySheetName Sheets("原本").Range("A1:K73").Copy Sheets("1原本").Range("A1") End Sub シートにグラフを乗せたらエラーが出たのですが解除できないでしょうか？

Excelマクロ　途中まで作成したマクロの修正をお願いします

Excelマクロ　途中まで作成した下記のマクロの修正をお願いできませんでしょうか。【マクロ-途中　説明】全シートのアクティブセルを「A1」にして、最後に左端のシートにして終了。→ファイル保存時、見栄えを良くするために使用【修正点】アクティブセル「A1」に移動を変更。 B列の一番下から「END+↑」でとんだ位置で止まる。複数のシート（20以上）を同じ作業（ブック内の全シート）同じく最後に一番左端のシートでをアクティブシートにして終了 ※A列は空白行のため、必ず埋まっているB列を基準にしたい上記の【修正点】を下記の【マクロ-途中】に反映したい。 ↓ 【マクロ-途中】 Sub 全シートをHOMEポジションに() Dim ws As Variant For Each ws In Worksheets If Sheets(ws.Name).Visible = True Then Sheets(ws.Name).Select Range("A1").Select End If Next Sheets(1).Select End Sub

エクセルVBAで一番左の可視シート名を取得

エクセルVBAで一番左側にあるシート名を取得する場合、通常は Sub test01() 　　MsgBox Sheets(1).Name End Sub で簡単にできますが、このSheets(1)が非表示になっている場合でもその名前が取得されるため、見た目での一番左側にあるシート名ではなくなってしまいます。もちろん、非表示になっているシートを除外して Sub test02() 　　Dim n As Integer 　　For n = 1 To Sheets.Count 　　　　If Sheets(n).Visible Then 　　　　　　MsgBox Sheets(n).Name 　　　　　　Exit For 　　　　End If 　　Next End Sub とすれば取得できるのはわかりますが、こんなまだるっこい方法以外に簡単に一番左の可視シート名を取得する方法はないでしょうか？（＾∇＾）？ご教示くださいませ。

エクセルのシートをマクロで並び替えたいです。

以前に、Q&Aがあったので、下記の物を入れてみましたが、シート名に会社名を入れている為、前(株)○○となると、全て(株)で集まってしまいます。エクセル2003を使っています。 Sub SortSheets() Dim intLoopA As Integer Dim intLoopB As Integer For intLoopA = 1 To Sheets.Count For intLoopB = 1 To Sheets.Count - 1 If Sheets(intLoopB).Name > Sheets(intLoopB + 1).Name Then Sheets(intLoopB).Move after:=Sheets(intLoopB + 1) End If Next intLoopB Next intLoopA End Sub ご理解いただけますでしょうか？お分かりになられる方宜しくお願い致します。

エクセル/マクロ　Exit Subが実行されない

エクセルマクロの質問です。エクセルのヴァージョンは2000です。あるシートをコピーして新シートに任意の名前を付けるマクロを作っています。ユーザーフォームの中に一つのテキストボックス（新シートの名前入力用）と二つのコマンドボタンを設置し一つは実行ボタン、もう一つはキャンセルボタンとしました。 QNo.6367227でエラー処理に関する質問をさせていただきましたが、こちらは見事に解決していただきました。今回の質問はExit Subに関する質問です。 If構文で、条件文１が真であればシートをコピーして名前を変更、フォームを閉じるという処理を目指しています。 If　条件　Then　～　処理　Exit Sub という形を作って試してみたのですが、処理後にExit Subが実行されません。Exit Subの前にメッセージボックスを挿むとメッセージは表示されましたが、やはりExit Subにはたどり着けませんでした。すごく初歩的な事で恥ずかしいのですが、Exit Subが実行されない理由と解決法をご教示いただけると助かります。よろしくお願いします。 Private Sub CommandButton1_Click() Dim NewSheetName As String NewSheetName = TextBox1.Value On Error Resume Next Sheets("Summary").Name = NewSheetName If Err.Number = 0 Then Sheets(NewSheetName).Copy before:=Sheets(NewSheetName) ActiveSheet.Name = "Summary" MsgBox ("Tasｋ Completed!") ExitSub Else MsgBox "Invalid name!" End If On Error GoTo 0 End Sub

エクセルマクロについて助言下さい。

エクセルマクロについて助言下さい。 ★やりたい事シート名を指定しアクティブにする BOOOKに複数のセルがあり、シート名は日付（1・2など）但し、必ず連続ではなく1~31までのシートが存在します。現在のマクロ↓ シート名を取得し関数で指定のシートが存在するか確認しています。作業シートのC1セルが0で指定シートなし　0でないで指定シートあり（処理開始）としてます。作業2のI3セルに日付データがあります。 Sub 抽出() 'シート名を取得する Sheets("作業").Select Dim i As Integer Dim mySheetCnt As Integer Dim mySheetNam As String 　　 mySheetCnt = ThisWorkbook.Sheets.Count For i = 1 To mySheetCnt mySheetNam = Sheets(i).Name Sheets("作業").Cells(i, 1) = mySheetNam Next i　　 Range("A1").Select If ActiveCell.Value = "" Then 'A1が空白の場合の処理 MsgBox "指定の日付のシートが存在しません" Exit Sub End If Sheets("作業").Select Range("C1").Select If ActiveCell.Value = 0 Then 'C1が0の場合の処理 MsgBox "指定の日付のシートが存在しません" Exit Sub End If Sheets("作業2").Select Range("I3").Select Sheets(ActiveCell.alue).Select End Sub このコードだと3と指定すると左から３枚目にあるシートが選択されます。３枚目ではなくシート名が　３　を選択したいのです。。分かりにく説明で申し訳ありませんが、教えてください。

Excelマクロにてシートの削除を行いたいです。

初めて投稿させて頂きます。質問内容　Excelのマクロを使用して指定シート以外のシートの削除を行いたいです。前条件　外部CSVファイルを取込み、データによってシートを追加して振り分けています。　再度マクロを実行した場合特定のシートを残し（フォーマット等）、他のシートを削除してからデータの振り分けを実施する予定です。やってみた事　下記の様に書いて実施してみたのですがエラーとなってしまいます。 Sub Clear() 　　Application.DisplayAlerts = False 　　For I = 1 To Worksheets.Count 　　　　If (Worksheets(I).Name <> "sheet") Then 　　　　　　Sheets(Worksheets(I).Name).Select 　　　　　　ActiveWindow.SelectedSheets.Delete 　　　　End If 　　Next I 　　Application.DisplayAlerts = True End Sub 上記の書き方だと1シート毎削除なので、選択したシートを一括で削除出来るとうれしいです。どなたかご存知の方お願いします。

強制的にマクロを有効にするVBA

エクセル2010を使っている者です。マクロの入ったファイルを開くときに、強制的にマクロを有効にするようなVBAはどのように組めば良いか、ご教授願います。ネットで調べてみると、以下のものが見つかりました。 http://www.saka-en.com/office/vba-open-the-macro-enabled-forcibly/ 1 Option Explicit 2 3'** 4 ' ワークブックオープン 5'** 6 Private Sub Workbook_Open() 7 ThisWorkbook.Unprotect Password:="password" 8 On Error Resume Next 9 If ThisWorkbook.Sheets("編集用").Visible <> True Then ThisWorkbook.Sheets("編集用").Visible = True 10 If ThisWorkbook.Sheets("ダミー").Visible <> False Then ThisWorkbook.Sheets("ダミー").Visible = False 11 ThisWorkbook.Protect Password:="password" 12 'ThisWorkbook.RunAutoMacros Which:=xlAutoOpen 13 On Error GoTo 0 14 Exit Sub 15 End Sub 16 17 '** 18' ワークブックを閉じる前 19 '** 20 Private Sub Workbook_BeforeClose(Cancel As Boolean) 21 Dim Answer As Long 22' 保存されているかチェック 23 If ThisWorkbook.Saved = False Then 24 Answer = MsgBox("Do you want to save the changes to the '" & ThisWorkbook.Name & "' ?", vbExclamation + vbOKCancel, "Microsoft Excel") 25 Select Case Answer 26 Case vbCancel 27 Cancel = True 28 Exit Sub 29 End Select 30 End If 31 ThisWorkbook.Unprotect Password:="password" 32 On Error Resume Next 33 If ThisWorkbook.Sheets("ダミー").Visible <> True Then ThisWorkbook.Sheets("ダミー").Visible = True 34 If ThisWorkbook.Sheets("編集用").Visible <> False Then ThisWorkbook.Sheets("編集用").Visible = False 35 ThisWorkbook.Protect Password:="password" 36 ThisWorkbook.Save 37 End Sub しかし、このコードだと、編集するシートが1枚であれば良いのですが、何枚もある場合や、随時、シートを追加していくようなファイルの場合は修正が必要だと思います。どのように修正すれば良いのでしょうか。もしくは、例えば、マクロが有効になっていない場合は、ファイルは開けるものの、注意喚起のメッセージボックスを有効にするまで表示させるような設定にすることは可能でしょうか。ご教授いただけると幸いです。よろしくお願いいたします。

他ブックからのシートコピーのマクロ

マクロ初心者です。下記マクロを完成する事が出来たのですが、一部修正がうまくいかない為投稿させていただきました。マクロ内容：エクセルファイルを指定し、選択したシートを現在のブックにコピーするその際、不要な名前管理を削除してからコピー修正したい箇所：指定したブックからコピーした際、シート参照の数式が入っていると外部参照になってしまう。やってみた事：(1)(i)の前にarrayを入れる→外部参照のまま (2)(i)を削除してみた→外部参照にならなくたったが際限なくシートをコピーし続けた Sub 名前管理削除() Dim myPath As String Dim wb_A As Workbook Dim i As Integer ' myPath = Application.GetOpenFilename(("Excelファイル,*.xls*,CSVファイル,*.csv"), , "ブックを選択して下さい。") If myPath = "False" Then Exit Sub Set wb_A = Workbooks.Open(myPath) Dim name As Object For Each name In Names If name.Visible = False Then name.Visible = True End If Next On Error Resume Next ' エラーを無視。(削除件数にカウントしてしまいます) For Each nm In ActiveWorkbook.Names If InStr(nm.Value, "#REF") > 0 Or _ InStr(nm.Value, "\") > 0 Then nm.Delete i = i + 1 Else End If Next nm ' 終了の表示 MsgBox "不要な名前定義を削除しました。" & vbCr & _ "削除定義件数=" & i & "件", vbInformation, cnsTitle For i = 1 To wb_A.Sheets.Count wb_A.Sheets(i).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next wb_A.Close False End Sub 不勉強で申し訳ございませんが、何卒よろしくお願いいたします。

エクセル・マクロでIf　Thenの使い方

このような質問は、ルール（エチケット、マナー）違反になるでしょうか？もしそうならお許し下さい。名前ボックスに表示される名前を、マクロで非表示にし、元に戻す、という操作を次の二つのボタンで実行するように作りました。エクセル2003です。 Private Sub CommandButton1_Click() Dim tname As Name For Each tname In ThisWorkbook.Names tname.Visible = False Next End Sub Private Sub CommandButton2_Click() Dim tname As Name For Each tname In ThisWorkbook.Names tname.Visible = True Next End Sub これを一つのボタンで、If Then Elseを使い実行できるようにしたいのですが If ・・・ Then の間の書き方が分からずうまくいきません。　　If Names.Visible = False Then 　　If ThisWorkbook.Names.Visible = False Then If ThisWorkbook.tname.Visible = False Then Private Sub CommandButton3_Click() Dim tname As Name If Names.Visible = False Then 'これでは駄目 For Each tname In ThisWorkbook.Names tname.Visible = False Next Else For Each tname In ThisWorkbook.Names tname.Visible = True Next End If End Sub 苦し紛れにこんなことをやってごまかそうとしているのですがこれって邪道ですしかっこうわるいですよね。 Private Sub CommandButton3_Click() Dim tname As Name If Range("g1").Value = " " Then 　 For Each tname In ThisWorkbook.Names 　 tname.Visible = False 　 Next Range("g1").Value = "1" Else 　 For Each tname In ThisWorkbook.Names 　 tname.Visible = True 　 Next Range("g1").Value = " " End If End Sub ど素人ですがよろしくご教導ください。

Excelのマクロで印刷制限と閲覧制限を掛ける

Excelのマクロで印刷制限と閲覧制限を掛けるエクセルで、1つのデータに5つのシートを作成し、うち4つのシートにデータ（携帯番号のリスト）が入っています。このデータに、閲覧制限と印刷制限を掛けようとし、インターネットで色々探し周り何とか形にはなりました。「Alt+F11」で開くプロジェクトにはパスワードを掛け、通常見れない状態にし、「VBAProject」の中の5つのシートにではなく「ThisWorkbook」に以下のマクロを入れました。 ---制限１-------------------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim y, x, p Application.DisplayAlerts = False x = "password"　　　　　　　　　　　　　　　　　　　←←←これが印刷、プレビュー確認の為のパス y = InputBox("パスワードを入力してください", "印刷") If y <> x Then For p = 1 To Sheets.Count Sheets(p).PageSetup.PrintArea = "$IV$65536" Next p Else For p = 1 To Sheets.Count Sheets(p).PageSetup.PrintArea = "☆☆☆☆☆☆" Next p End If Application.DisplayAlerts = True End Sub --制限２--------------------------------------------- Private Sub Workbook_Open() Sheets("Sheet1").Visible = True Sheets("Sheet2").Visible = True Sheets("Sheet3").Visible = True Sheets("Sheet4").Visible = True Sheets("Sheet1").Select End Sub --制限３--------------------------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Sheet1").Visible = False Sheets("Sheet2").Visible = False Sheets("Sheet3").Visible = False Sheets("Sheet4").Visible = False End Sub --------------------------------------------------- 制限2で、開く時にマクロを有効にしなければ、Sheet1～4が表示されず、無効にすれば何も入力されていないダミーのSheet5が表示されます。制限3では、閉じる時にSheet1～4を隠し、ダミーのSheet5のみがある状態にして閉じるマクロです。質問したいのは制限1の印刷の制限の所なのです。内容は、印刷or印刷プレビュー確認時にパスワードを求め、正しければ正常に印刷orプレビューを見れますが、間違えれば何も入力されていない【IV65536】のセルを印刷orプレビューで確認するという内容です。そこでマクロ内の「☆」の部分に、印刷したいセル番地（$A$1：$B$20など）を指定して入れると、パスワードが正しい場合、このセル番地内だけを印刷、プレビュー確認が出来るのですが、問題はSheet1～4が全てそのセル番地で印刷orプレビュー確認されてしまう事です。当然Sheet1～4の印刷したい範囲は全てバラバラなので、どれかに合わせればどれかが印刷されない部分があったり。。。そこで、Sheet1～4全てに入力しセル番地を変えてみましたが、上手くいかずほとほと困っております。全くのマクロの初心者と言っていい自分ですが、こんな自分でも分かるようなマクロでこの問題を解決できないでしょうか？

エクセルのマクロを有効にしないと表示しないようにする方法

エクセルでマクロを有効にしないと、シートが表示されないように設定したいのですが、下記の様に(ほかの方の投稿から)入力すると三行目がエラーになります。素人なので、よくわかりません。どのようにしたら、マクロを有効にしないと全てのシートを表示しないようにできるのでしょうか？　ご教授いただけますでしょうか Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets(\"Sheet1\").Visible = False Sheets(\"Sheet2\").Visible = False ActiveWorkbook.Protect Password:=\"error123\" End Sub Private Sub Workbook_Open() ActiveWorkbook.Unprotect Password:=\"error123\" Sheets(\"Sheet1\").Visible = True Sheets(\"Sheet2\").Visible = True Sheets(\"Sheet1\").Select End Sub

エクセル　マクロ：チェックボックス　コピー

教えてください。 sheet1にデータがあり sheet2にチェックボックスとコマンドボタンがあります。チェックボックスにレ点を入れ、コマンドボタンを押すと sheet1の該当する列をコピーして、sheet3に貼り付けるマクロを作ろうと思ってますがうまくいきません。下記のマクロを使えるように手直ししていただけないでしょうか。よろしくお願い致します。 Private Sub CommandButton1_Click() Dim myrange As String Dim rmax As Long rmax = Sheets("sheet1").Range("A2").End(xlDown).Row With Sheets("sheet2") If .CheckBox1 Then myrange = myrange & ",$B$1:$B$" & rmax If .CheckBox2 Then myrange = myrange & ",$C$1:$C$" & rmax If .CheckBox3 Then myrange = myrange & ",$D$1:$D$" & rmax End With If myrange = "" Then MsgBox "チェックしてください" Exit Sub End If myrange = "$A$2:$A$" & rmax & myrange Sheets("sheet1").Range(myrange).Copy Sheets("sheet3").Range("A1").PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets("sheet3").Select End Sub

エクセルの使用期限の付け方

No.361737を参照して、エクセルに使用期限をつけようとしたのですが、日付の反応がうまく作動しません。下記のVBAのまま使用するとどのような日付でもロックがかかりメッセージボックスが表示され Nowのあとの【<】を【>】にするとどのような日付でもロックが解除されてしまいます。このような場合、どこかを修正すればうまく作動するようになるでしょうか？よろしくお願いします。下記のVBAはNo.361737よりの抜粋です。 Private Sub Workbook_Open() If Now < "02/09/19" Then 'ここで期限を決める　ActiveWorkbook.Unprotect "AAA" 'ブック保護解除　　Sheets("Sheet1").Visible = True 　　Sheets("Sheet1").Activate 　　Sheets("Sheet2").Visible = False 　Else'----期限後ならばメッセージを表示　　MsgBox "期限切れ" 　End If ActiveWorkbook.Protect "AAA" End Sub

既存のマクロを他のエクセルファイルで使用したい

下記のマクロを使おうと思うと、このマクロがついたファイルを開いて他のエクセルファイルを開くのですが使えません。使おうとするとマクロのついたファイルに戻ってしまいます。 Sub test01() Dim ws As Worksheet For Each ws In Worksheets If ws.Name = "統合シート" Then Else ws.Activate d = ws.Range("A65535").End(xlUp).Row ws.Range(Cells(1, "A"), Cells(d, "C")).Copy Sheets("統合シート").Activate Sheets("統合シート").Range("A65535").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End If Next End Sub どこを変えればよいのでしょうか。教えてください。よろしくお願いします。

エクセル　マクロ　追加

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub End If If Not Intersect(Target, Range("B1:C15")) Is Nothing And Target.Value = "" Then Exit Sub End If Dim c As Worksheet Dim flag As Boolean flag = False For Each c In Worksheets If c.Name = Target.Value Then flag = True Next If flag = False Then Exit Sub If Target.Address = "$C$2" Or Target.Address = "$C$3" Or Target.Address = "$C$4" _ Or Target.Address = "$C$5" Or Target.Address = "$C$6" Or Target.Address = "$C$7" _ Or Target.Address = "$C$8" Or Target.Address = "$C$9" Or Target.Address = "$C$10" _ Or Target.Address = "$C$11" Or Target.Address = "$C$12" Or Target.Address = "$C$13" _ Or Target.Address = "$C$14" Or Target.Address = "$C$15" Then Worksheets(Target.Value).Visible = True Worksheets(Target.Value).Select Else End If End Sub セルに文字が打っていますシート名とセルが一緒の文字のとき移動するマクロですデータがあるセルをクリックするとそのデータ先に飛ぶように設定したマクロなのですが、選択するページの文字は全部最初から設定されている黒文字がつかわれているのですがデータがあるときは文字の色を変化させたいのですがどうすればいいでしょうか？

エクセル２０００マクロエラーについて

下記のマクロをエクセル９５で動かすと正常に終わるのですが、エクセル２０００で動かすとデバッグエラーで止まります。何処がおかしいのでしょうか教えてください。出来れば言語の意味も教えてください。 Sub 送信メニュ() Dim i, C_COUNT, folda, work, tuki i = MsgBox("加工業者別の発注基礎資料を作成します。", 1, "着色加工計画作成システム") If i <> 1 Then Exit Sub Sheets("msg2").Select Call gafalse folda = "C:\aa着色加工計画\" tuki = Sheets("ACT").Cells(5, 12).Text→最初にここでデバッグエラーになります。 tuki = Val(Right(tuki, 2)) If tuki = 12 Then tuki = 1 Else tuki = tuki + 1 End If tuki = Format(Str(tuki), "00") Workbooks.Add F_NAME = "加計" + tuki + "月.XLS" ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Windows("加工品.xls").Activate Sheets("masta").Select C_COUNT = Sheets("masta").Cells(2, 3).Text For count = 1 To C_COUNT 'C_COUNT Windows("加工品.xls").Activate Sheets("masta").Select Cells(3, 5) = count i = count M_KAKOBA(count) = "sheet" + i Call 送信 Next count Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:=folda + F_NAME, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.Close End Sub

【ｈｅｌｐ】Excelデータが消えました。

this work bookで下記のコードを入れ、間違えて閉じてしまった後からそのページにあったファイルが消えてしまいました。復旧は可能でしょうか？ちなみに現在の状況はbook2から始まる状態で、消えたはずのbook1の合計の関数を示しています。どなたかわかる方教えてください！！ Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) For Each ws In Sheets If ws.Name = "Dummy" Then ws.Visible = True Else ws.Visible = xlSheetVeryHidden End If Next End Sub Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In Sheets If ws.Name = "Dummy" Then ws.Visible = xlSheetVeryHidden Else ws.Visible = True End If Next End Sub (seiya)

■助けてください。■エクセルのマクロで困っています。

みんなの回答

関連するQ&A

■シートを一つ削除するマクロを教えてください。

エクセルのマクロについて教えていただきたいのですが・・・

エクセル　マクロ　エラー

Excelマクロ　途中まで作成したマクロの修正をお願いします

エクセルVBAで一番左の可視シート名を取得

エクセルのシートをマクロで並び替えたいです。

エクセル/マクロ　Exit Subが実行されない

エクセルマクロについて助言下さい。

Excelマクロにてシートの削除を行いたいです。

強制的にマクロを有効にするVBA

他ブックからのシートコピーのマクロ

エクセル・マクロでIf　Thenの使い方

Excelのマクロで印刷制限と閲覧制限を掛ける

エクセルのマクロを有効にしないと表示しないようにする方法

エクセル　マクロ：チェックボックス　コピー

エクセルの使用期限の付け方

既存のマクロを他のエクセルファイルで使用したい

エクセル　マクロ　追加

エクセル２０００マクロエラーについて

【ｈｅｌｐ】Excelデータが消えました。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

■助けてください。■エクセルのマクロで困っています。

みんなの回答

関連するQ&A

■シートを一つ削除するマクロを教えてください。

エクセルのマクロについて教えていただきたいのですが・・・

エクセル マクロ エラー

Excelマクロ 途中まで作成したマクロの修正をお願いします

エクセルVBAで一番左の可視シート名を取得

エクセルのシートをマクロで並び替えたいです。

エクセル/マクロ Exit Subが実行されない

エクセルマクロについて助言下さい。

Excelマクロにてシートの削除を行いたいです。

強制的にマクロを有効にするVBA

他ブックからのシートコピーのマクロ

エクセル・マクロでIf Thenの使い方

Excelのマクロで印刷制限と閲覧制限を掛ける

エクセルのマクロを有効にしないと表示しないようにする方法

エクセル マクロ：チェックボックス コピー

エクセルの使用期限の付け方

既存のマクロを他のエクセルファイルで使用したい

エクセル マクロ 追加

エクセル２０００マクロエラーについて

【ｈｅｌｐ】Excelデータが消えました。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

エクセル　マクロ　エラー

Excelマクロ　途中まで作成したマクロの修正をお願いします

エクセル/マクロ　Exit Subが実行されない

エクセル・マクロでIf　Thenの使い方

エクセル　マクロ：チェックボックス　コピー

エクセル　マクロ　追加