プロシージャの呼び出しの分岐について
- Excel2000 Win2000でマクロ作成中の超初心者です。請求書入力マクロですが、修正したいところがあります。
- 各シートのセルＡ10が、空欄のシートと、"個人"と記入してあるシートが混在しています。
- これを、空欄の場合は Call 作成部品、個人と記入してあるときは Call 作成部品2 と分岐してプロシージャを呼びだししたいのですが、コードをどう修正すればよろしいでしょうか。
- ベストアンサー
プロシージャの呼び出しの分岐について
Excel2000 Win2000でマクロ作成中の超初心者です。 請求書入力マクロですが、修正したいところがあります。 各シートのセルＡ10が、空欄のシートと、"個人"と記入してあるシートが混在しています。 これを、空欄の場合は Call 作成部品、 個人と記入してあるときは Call 作成部品2 と分岐して プロシージャを呼びだししたいのですが、コードをどう修正すればよろしいでしょうか。 修正前のコード Sub 請求書入力() Const EXCEPT_NAME = "表紙 印刷" Application.ScreenUpdating = False ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path Dim list, SheetName For Each SheetName In ActiveWorkbook.Worksheets If InStr(EXCEPT_NAME, SheetName.Name) = 0 Then Sheets(SheetName.Name).Activate Call 作成部品 End If 'ActiveSheet.Protect Next End Sub
- aitaine
- お礼率43% (170/393)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
If InStr(EXCEPT_NAME, SheetName.Name) = 0 Then Sheets(SheetName.Name).Activate '必要？ Select Case SheetName.Range("A10").Value Case "個人" Call 作成部品2 Case Else Call 作成部品 End Select End If とか？
関連するQ&A
- 特定のシートだけ関数入力を除外したい
windows7 Excel2007でマクロ作成中の初心者です。 ３０枚のシートがあるブックがあります。 以下のコードで処理を行っていました。 Sub 請求書入力() Const EXCEPT_NAME = "表紙 経理 一覧 部門" Application.ScreenUpdating = False ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path Dim list, SheetName For Each SheetName In ActiveWorkbook.Worksheets If InStr(EXCEPT_NAME, SheetName.Name) = 0 Then Sheets(SheetName.Name).Activate Call 各シートに同じ関数を入れる End If Next End Sub しかし、上のシートの前にある２枚のシートだけ関数を入れないようにしたいです。この２枚だけはシート名が可変のため除外シートに追加できません。 また、それより、前のシートはシート数が可変で15から20枚あります。 そのためには、どういうコードにしたらよろしいでしょうか。
- ベストアンサー
- Visual Basic
- 最終シートからその手前まで５シートの選択したい
最終シート名が「基本」、その前が「種別」、さらにその前が「一覧」と言うシート名になっています。 またその「一覧」の前２ケは、シート名をindexで指定したいです。 以下のコードを実行してもうまく、シートを除外してくれません。どうしたらよろしいでしょうか。 Sub 各シートに関数を入力() Dim EXCEPT_NAME As String EXCEPT_NAME = " 一覧 種別 基本" & Worksheets(Sheets.Count - 4).name & Worksheets(Sheets.Count - 5).name Application.ScreenUpdating = False ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path Dim list, sheetName For Each sheetName In ActiveWorkbook.Worksheets If InStr(EXCEPT_NAME, sheetName.name) = 0 Then Sheets(sheetName.name).Activate ActiveSheet.Unprotect Call 関数貼付 End If Next End Sub
- ベストアンサー
- Visual Basic
- 最初の１回のみにボタンクリックでマクロ実行する
Excel2007でマクロ作成中の初心者です。 1)Ａブックに次のマクロを書いてます。 Sub データをクリアする() Dim list, SheetName Const EXCEPT_NAME = "計算 番号 明細" For Each SheetName In ActiveWorkbook.Worksheets If InStr(EXCEPT_NAME, SheetName.name) = 0 Then Sheets(SheetName.name).Activate クリア範囲 End If Next End Sub -------------------------------- Sub クリア範囲() Range("AM13:AQ13").Select Selection.ClearContents End Sub 2)上のマクロは、Ｂブック上で実行します。 Ｂブックのマクロ実行は、最初のボタンクリック１回のみです。 （このＢブックが閉じられ保存されるまで） なぜなら、クリアした部分に、新しいデータを入れるからです。 誤って２回目のボタンクリックでも、マクロ実行しないようにしたいです。 せっかく入力した新しいデータを消去しないためです。 このようなコマンドボタンを作るにはどうしたらよろしいでしょうか？
- ベストアンサー
- Visual Basic
- 配列に使うＡｒｒｙ関数について
winXP Excel2003でマクロ作成している初心者です。 １）指定した４個のシート以外を選択するコードを教えていただきました。 これを利用して list = Array("ＡＡＡ会社", "ＢＢＢ会社", "ＣＣＣ会社", "ＤＤＤ会社", "ＥＥＥ会社", ・・以下略") の 部分を手修正でなく、追加削除にも対応できるように指定シート以外を選択したいのですがうまくいきません。 どうかお助けください。 ーーーーーーーーーーーーーーーーーーーーーーーーーーー 教えていただいたコード Sub 請求書入力() ' // 処理を除外するシート名リスト Const EXCEPT_NAME = "集計用 印刷用 リンク用 会社見本" Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If InStr(EXCEPT_NAME, sh.Name) = 0 Then sh.Activate Call 請求書作成用部品 End If Next End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーー 現在のマクロコード Sub 請求一覧表作成() Application.ScreenUpdating = False ChDrive ThisWorkbook.Path ChDir ThisWorkbook.Path Call BookOpen("請求書入力.xls") Dim list, SheetName Sheets("請求一覧表").Select Range("A4:U15").Select Selection.ClearContents Range("A4").Select list = Array("ＡＡＡ会社", "ＢＢＢ会社", "ＣＣＣ会社", "ＤＤＤ会社", "ＥＥＥ会社", ・・以下略") ↑この部分はシートの追加・削除の度に手修正している。 For Each SheetName In list Sheets(SheetName).Activate Call 配列 Next Worksheets("請求一覧表").Activate ActiveSheet.Protect End Sub ーーーーーーーーーーーーーーーーーーーーーーー Sub 配列() With ActiveSheet ' 配列に格納 -- Dim i As Integer Dim LastRow As Long Dim SaleAry As Variant ' 配列に格納 -- SaleAry = Array(.Range("C8"), .Range("D13"), .ange("T30")・・・以下略)) End With ' 転記 --- With Worksheets("請求一覧表") LastRow = .Range("A65536").End(xlUp).Row For i = 0 To UBound(SaleAry) .Cells(LastRow + 1, i + 1).Value = SaleAry(i) Next i End With Set SaleAry = Nothing End Sub
- ベストアンサー
- Visual Basic
- エクセルVBAでパスの￥マークについて
このマクロを記述したBOOKと同じフォルダー内にある、シート001.xls を開くマクロです。 同一フォルダーにあるのですから、このような記述になると思います。 Sub kakunin1() Workbooks.Open (ThisWorkbook.Path & "\" & "シート001.xls") End Sub しかし、以下の３つはすべてシート001.xls を開くことができました。 Sub kakunin2() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "シート001.xls") End Sub Sub kakunin3() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "シート001.xls") End Sub Sub kakunin4() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "\" & "\" & "\" & "シート001.xls") End Sub パスの￥マークは階層をあらわすのだと思っていましたがいくつ重ねてもなぜ開くのでしょうか？非常に初歩的な質問だと思いますが、ご教示いただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- シート及びファイル名の付け方
Windows XP EXCELL2003です。 いつもお世話になります。 すでに下記でご指導いただきました。 http://oshiete1.goo.ne.jp/qa5331087.html ご教授を仰ぎたいのは マクロを実行 した時この場合は アクティブなシートに名前がつきますが これをアクティブなシートに関係なく、シート「FUKU」に名前が付くようにしたい野ですがご教授いただけないでしょうか。 マクロは下記のように入っています。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub よろしく御願いします。
- 締切済み
- オフィス系ソフト
- プロシージャが実行されたかの有無の判断
Sub test() ・・・・・ IF ・・・・ then Call マクロ1 End If ・・・・・ ・・・・・ If testと言う名のプロシージャーの中でマクロ1と言うプロシージャーが実行されたなら Then MsgBox "マクロ1は実行されました" End If End Sub ということを実行したいのですがどうすればいいのでしょうか？ マクロ1の実行条件自体が複雑でIf ～Thenの中に書ききれないので 実行の有無を値で返したりすることは不可能でしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 元のプロシージャーを取得するプロパティ
Sub test1() Call test2 End Sub Sub test2() If ?? Then MsgBox "test1から実行されたマクロです。" End If End Sub 上記のコードで どこから実行されたプロシージャ化を取得する方法はありますか？ 現在は、 Dim bl_test1_yes As Boolean Sub test1() bl_test1_yes = True Call test2(bl_test1_yes) End Sub Sub test2(bl_test1_yes) If bl_test1_yes = True Then MsgBox "test1から実行されたマクロです。" End If End Sub としていますが、 元のプロシージャーを取得するプロパティがあれば教えてください。
- ベストアンサー
- オフィス系ソフト
- ２つのマクロを挿入すると動作せず
現在、C10に値が入力されるとG4に発行日が表示される 下記のマクロを入力しています。 １ 発行日の日付 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub この上のマクロのみは上手く作動しています。 ファイル名を自動で保存するために下記のマクロをしたいので追加しました。 ２ ファイル名の自動保存 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If End Sub ３ 上記の１＋２で下記の如くし、いろいろトライをしていますが 上手くゆきません。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then ActiveSheet.Name = Target.Value ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value End If If Target.Address = "$C$10" Then Target.Offset(-6, 2).Value = Date End If End Sub ブック内は次のようなファイルです。 Sheet１(納品請求書１)～Sheet３(納品請求書３) Sheet４(月請求書) Sheet５(顧客登録) Sheet６(設定) Sheet７(領収書) Sheet８(file) ここのA1に保存したいファイル名を入れています。 上手く表示されません。 困っています。 ここでご教授いただきたいのは ２のみのマクロだと問題なく「ファイル名とシート名」が自動的に表示され保存ができます。 私のやり方に何か問題があると思います。 上記の１(発行日の日付け)＋２(ファイル名の自動保存)したときにはうまくいかず何かいい方法がないでしょうか。 お知恵をお貸し下さい。
- ベストアンサー
- オフィス系ソフト
- このマクロを少し修正したい
先日、こちらのサイトで下記のマクロを作っていただきました。 エクセルの置換えシートを使って、別のエクセルシートを一括置換えするマクロです。 ただ、置換えしたいシートのセルが結合していたり、文字の前に空欄が入っていると変換されません。 上記も認識しての置換えは、下記のマクロを修正して可能でしょうか？ 修正したマクロを教えていただけると助かります。 With ThisWorkbook If ActiveSheet Is .Worksheets(1) Then Exit Sub For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row ActiveSheet.Cells.Replace _ What:=.Worksheets(1).Range("A" & i).Value, _ Replacement:=.Worksheets(1).Range("B" & i).Value, _ LookAt:=xlPart, SearchOrder:=xlByColumns Next End With End Sub
- ベストアンサー
- その他(ソフトウェア)
お礼
ああありがとうございました。できました。