エクセルVBAで指定範囲以外の複数セル処理時にエラーが発生する場合の対処方法| OKWAVE

エクセルVBAにてプログラムされているシートに別のシートからマクロのモジュールにて貼り付けるとエラーになります。

エクセルVBAにてプログラムされているシートに別のシートからマクロのモジュールにて普通のデータを貼り付けるとエラーになります。何卒エラーの解除方法を教えて下さい。また、合わせて下記プログラムは四角形等のオートシェイプの書式に対応していますが、同じシート上に写真等の図の書式があるとエラーになります。お手数ですが、解決方法を教えて下さい。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C As Variant Dim i As Integer Dim Rng As Range For Each Rng In Target If Not Intersect(Range("e36:i40"), Rng) Is Nothing Then Select Case Rng.Row Case 36 C = Split("3 0 0 0 0") Case 37 C = Split("0 3 0 0 0") Case 38 C = Split("0 0 3 0 0") Case 39 C = Split("0 0 0 3 0") Case 40 C = Split("0 0 0 0 3") End Select Else C = Split("0 0 0 0 0") End If For i = 0 To 4 ActiveSheet.Shapes(i + 1).Select Selection.Font.ColorIndex = C(i) Next i Next Rng Target.Select End Sub

エクセルVBA　プルダウンのリスト　指定範囲以外で

こんにちは。現在、業務で案件の簡単な進捗表を作成しています。 VBAで他の、ご質問/回答を基にマクロを組んで遊んで？いますが、以下の問題に困っています。現在作成中のエクセルファイルのステータスですが、 (1)A列に”入力規則”でプルダウン（終了,延期）を設けています。 (2)マクロでA列のプルダウンで”終了”の場合はA:AFまでグレーアウト　同様に”延期”の場合はA:AFまで黄色 (3)マクロでC列に”土”ならフォントを青で日なら赤やりたい事ですが、 (1)の事を”マクロ”でやりたいんです。リストで元の値を指定してマクロを組む方法は、いくらでもネット上に転がっているのですが、元の値を範囲ではない方法、つまり、入力規則⇒リスト⇒　”=$A$1:$A$10”　ではなく、”りんご,ばなな、みかん”のように、マクロのコード内で範囲を構成したい、、、うまくいえませんが、簡単に言うと、プルダウンメニューが2つしかないのに、わざわざ、データ用の別シートを作ったりしたくない、、、という理由です。このプルダウンメニューのマクロを今の下記コードに組み込ませたいのですが、どなたか、ご教授願います。 ※今後の事も考え拡張性（プルダウンメニューの追加とか）を考慮したものを書きたいです。マクロが面白くなってきたから勉強しているのであって、入力規則の今のままでいいのでは？という野暮な回答はご遠慮します。上記の(2)と(3)を他の質問から見よう見まねで組み合わせ、動作は確認出来ています。以下が組み合わせたものとなります。 Private Sub Worksheet_Change(ByVal Target As Range) Dim RngA1 As Range Dim RngA2 As Range Dim RngC1 As Range Dim RngC2 As Range Dim RngE1 As Range Dim RngE2 As Range Dim rr As Range Dim i As Long Dim c As Range Dim myColor As Long Dim clr As Integer '#########################Ａの処理######################### Set RngA1 = Range("A:A") '判定の対象となる列 Set RngA2 = Range("A:AF") '色を変える列 If Intersect(Target, RngA1) Is Nothing Then GoTo SYORI_C For Each c In Intersect(Target, RngA1) With c Select Case .Value Case "終了": myColor = 48 Case "延期": myColor = 27 Case Else myColor = xlColorIndexNone End Select Intersect(c.EntireRow, RngA2).Interior.ColorIndex = myColor End With Next '#########################Cの処理######################### SYORI_C: Set RngC1 = Range("V:V") '判定の対象となる列 Set RngC2 = Range("V:W") '色を変える列 If Intersect(Target, RngC1) Is Nothing Then GoTo SYORI_E For Each c In Intersect(Target, RngC1) With c Select Case .Value Case "無し": myColor = 48 Case Else myColor = xlColorIndexNone End Select Intersect(c.EntireRow, RngC2).Interior.ColorIndex = myColor End With Next '#########################Eの処理######################### SYORI_E: Set RngE1 = Range("X:X") '判定の対象となる列 Set RngE2 = Range("X:Y") '色を変える列 If Intersect(Target, RngE1) Is Nothing Then GoTo SYORI_G For Each c In Intersect(Target, RngE1) With c Select Case .Value Case "無し": myColor = 48 Case Else myColor = xlColorIndexNone End Select Intersect(c.EntireRow, RngE2).Interior.ColorIndex = myColor End With Next '######################################################## SYORI_G: If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub For Each rr In Intersect(Target, Range("C:C")) For i = 1 To Len(rr.Value) Select Case Mid$(rr.Value, i, 1) Case "土": clr = 5 Case "日": clr = 3 Case Else: clr = xlAutomatic End Select rr.Characters(i, 1).Font.ColorIndex = clr Next Next '######################################################## End Sub

VBA 範囲選択時エラー

Private Sub Worksheet_SelectionChangeのVBAでA列B列C列でワンクリックで文字が入力できるように設定致しました。その後、A列からC列を範囲選択してDeleteするとデバック　「実行時エラー　型が一致しません」と出てしまいます。業務上、そのセルのデータは一気に消したいので困っております。どなたか分かる方よろしくお願い致します。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, rng_1 As Range, rng_2 As Range Application.EnableEvents = False Set rng_1 = Range("H17:H100") Set rng_2 = Range("I17:I100") Set rng_3 = Range("J17:J100") Set rng_4 = Range("K17:K100") Application.EnableEvents = True Set rng = Intersect(Target, rng_1) If Not rng Is Nothing Then Cancel = True If Target.Value = "" Then Target.Value = "(1)" Else Target.Value = "(1)" End If Else Set rng = Intersect(Target, rng_2) If Not rng Is Nothing Then Cancel = True If Target.Value = "(2)" Then Target.Value = Empty Else Target.Value = "(2)" End If Else Set rng = Intersect(Target, rng_3) If Not rng Is Nothing Then Cancel = True If Target.Value = "(3)" Then Target.Value = Empty Else Target.Value = "(3)" End If Else Set rng = Intersect(Target, rng_4) If Not rng Is Nothing Then Cancel = True If Target.Value = "(4)" Then Target.Value = Empty Else Target.Value = "(4)" End If End If End If End If End If End Sub

エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

例えば、A1、B2、C3セルに「名前の定義」で、それぞれ入力A、入力B、入力C　という名前がつけてあります。それらのセルに入力があった場合、Select Caseで分岐させ作動するマクロをつくりました。簡略化すると以下のようなもので、一応正しく作動します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Address(0, 0) Case "A1" MsgBox "A処理します。" Case "B2" MsgBox "B処理します。" Case "C3" MsgBox "C処理します。" End Select End Sub ただ、せっかくセルに名前を定義してあるのに、個々の入力セルの判定をTarget.Addressでしているのが不満です。 (￣～￣;) 定義された名前を使えないかと以下のようにやってみましたが実行時エラーで「サポートしてません」となってしまいます。 (T.T) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Names.Name 'ここでエラー Case "入力A" MsgBox "A処理します。" Case "入力B" MsgBox "B処理します。" Case "入力C" MsgBox "C処理します。" End Select End Sub どうやったら、Targetに設定されている名前を取得できるのでしょうか？ (^∇^`)？実際の例はもっと対象が多いので、Select Caseを使わない以下の方法は避けたいのです。 If文の羅列（これでも正しく作動はします。） Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub If Not Intersect(Target, Range("入力A")) Is Nothing Then MsgBox "A処理します。" ElseIf Not Intersect(Target, Range("入力B")) Is Nothing Then MsgBox "B処理します。" Else MsgBox "C処理します。" End If End Sub なにとぞよろしくお願いします。　(o。_。)oペコッ

VBAでのセルの複数選択時の処理について

現在EXCEL VBAである行の値が変わったときにその列の塗りつぶしの色を変えるといった処理を作成しております。そこで、複数選択して値を変えた場合の処理が変数の型が一致しません的なエラーが表示されてしまいます。どのように修正したらうまくいくでしょうか？教えてください。ソースは下記の通りとなります。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 13 Then Exit Sub Application.EnableEvents = False MsgBox (Target.Rows.Count) Dim rngSelectRng As Range For Each rngSelectRng In Target If rngSelectRng.Value = "" Then rngSelectRng.Value = " " 'ステータス欄の入力の判断 'Select Case Target.Rows.Value MsgBox (Target.Row) Select Case rngSelectRng.Value Case "あああ" Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 24 Case "いいい" Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 35 Case "ううう" Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 38 Case "えええ" Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 36 Case "おおお" Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 16 Case Else Worksheets("表１").Rows(Target.Row).Interior.ColorIndex = 2 End Select Next Application.EnableEvents = True End Sub

VBAで作業を作成したものを別の列に適用するには

教えてください。マクロ初心者ですが、色々なところから検索してI列に文字が入力されるとJ列に自動で明日の日付が入るようにまた、入力したIとJのセルを色つけまで完成させました。次の列以降にも同じ作業を行いたいときのVBAを教えてください。（「KとL」「MとN」に同じ処理をしたい場合）ループ処理など見たのですが、行のようでよくわかりませんでした。ちなみに作成したVBAがこちらです。 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Application.Intersect(Range("I1:I100"), Target) Is Nothing Then Exit Sub If .Count > 1 Then Exit Sub If IsEmpty(.Value) Then .Offset(, 1).ClearContents Else .Offset(, 1).Value = Date+1 End If End With Dim myColor As Variant Dim c As Range Dim myRng As Range Set myRng = Application.Intersect(Range("I:I"), Target) If myRng Is Nothing Then Exit Sub Application.EnableEvents = False For Each c In myRng Select Case c.Value Case 1 myColor = 36 Case 2 myColor = 38 Case 3 myColor = 40 Case 4 myColor = 39 Case 5 myColor = 34 Case 6 myColor = 35 Case Else myColor = xlNone End Select Cells(c.Row, 9).Resize(1, 2).Interior.ColorIndex = myColor Next c Application.EnableEvents = True End Sub よろしくお願いします。

エクセルのマクロ

セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub

セル範囲内で変更があった場合に処理を行うには？

いつもお世話になっています。たとえばA1:D4の範囲でどこかに変更があった場合に処理をする場合、どうしたらよいのでしょうか。 Private Sub Worksheet_Change(ByVal Target As Range) 　Dim r as Range 　For Each r In Me.Range("F14:O75") 　　If r = Target Then 　　　処理　　　Exit For 　　End If 　Next c End Sub こんな感じで考えてはみたのですが、素直な入力では動いても、オートフィルや、複数セル範囲指定で貼り付けなどをするとエラーが出てしまいます。また、実際には範囲が広いので、処理速度なども気になります。なにかよい解決策があればご教授お願いします。

エクセルVBAで指定したセルへジャンプするコード(追加の追加質問です)

http://oshiete1.goo.ne.jp/qa2903797.html たびたびすみません。最後にひとつだけお願いします。お教えいただいた下のコードは順調に動作するのですが、対象セルが結合セルの場合、エラーが出てしまいます。とまってしまうコードの部分は With Selection.AddComment です。エラーメッセージにはプロシージャの呼び出し、または引数が不正です。(Error 5)と書いてあります。結合セルは動作しないものでしょうか？ Sub test01() Dim x As String Dim ThisSheet_Name As String Dim Sheet_Name As String Dim Range_Name As String Dim I As Integer, n As Integer Dim Ans As Integer Dim myComment As String '新規追加 Dim Colors As Integer '新規追加 ThisSheet_Name = ActiveSheet.Name '設定シート Select Case Workbooks.Count Case 1 MsgBox "チェックするファイルがありません。" Exit Sub Case 2 For n = 1 To 2 If Workbooks(n).Name <> ThisWorkbook.Name Then x = Workbooks(n).Name '開いている“もうひとつのブック”の名前 End If Next Case Else MsgBox "他に開いているファイルが複数のため対象を特定できません。" Exit Sub End Select I = 0 Do While (1) With ThisWorkbook.Sheets(ThisSheet_Name) If .Range("A3").Offset(I, 0).Value = "" Then MsgBox "検査項目は以上です。" ThisWorkbook.Activate Exit Do 'A列の３行目以下が、空白なら終わる End If Sheet_Name = .Range("A3").Offset(I, 0).Value Range_Name = .Range("B3").Offset(I, 0).Value myComment = .Range("C3").Offset(I, 0).Value End With Windows(x).Activate Sheets(Sheet_Name).Select Range(Range_Name).Select Colors = Selection.Interior.ColorIndex '新規追加 Selection.Interior.ColorIndex = 6 With Selection.AddComment .Visible = True .Text myComment End With Range(Range_Name).Select Ans = MsgBox("「次をチェックしますか？」", vbYesNo) Selection.Interior.ColorIndex = Colors '修正 Selection.ClearComments '新規追加 If Ans = vbYes Then I = I + 1 Else Exit Do End If Loop End Sub

EXCEL マクロ　条件によるセルの色付け

お世話になります。マクロは初心者です。 C列の数値1～6によって、E列に色付けしたく、ネットで色々検索して、下記のように組んだのですがコマンドボタンクリックでは上手く動かないのですが、どのように修正すればよいのでしょうか。教えて下さい。宜しくお願いします。 Private Sub CommandButton4_Click() Dim i As Range Dim r As Range Dim c As Range Dim myColor As Long Set i = Worksheets("マスタ").Range("C:C") Set r = Worksheets("マスタ").Range("E:E") If Intersect(Target, i) Is Nothing Then Exit Sub For Each c In Intersect(Target, i) With c Select Case .Value Case "1" myColor = 22 Case "2" myColor = 44 Case "3" myColor = 6 Case "4" myColor = 43 Case "5" myColor = 41 Case "6" myColor = 24 Case Else myColor = xlColorIndexNone End Select Intersect(c.EntireRow, r).Interior.ColorIndex = myColor End With Next End Sub

エクセル：Targetが複数の時の処理

Private Sub Worksheet_Change(ByVal Target As Range) 　　Dim eiji As String 　　eiji = Target.Address 　　eiji = Left(Target.Address, 2) 　　eiji = Right(eiji, 1) 　　If eiji = "B" Then 　　　　If Target.Text = "" Then 　　　　　　Range("A1").Value = "B-clear" 　　　　End If 　　End If 　　If eiji = "C" Then 　　　　If Target.Text = "" Then 　　　　　　Range("D1").Value = "C-clear" 　　　　End If 　　End If End Sub 上記は、C、B列の値がDeleteキーなどで空欄になった場合に文字を出力するコードです。最初にTarget.Addressから英字部だけを抜き出し(少々ムリヤリですが)、それを判断基準に以降の処理をしています。この時B1:C1のように範囲選択してDeleteキーを押された場合に、どちらの処理（今回の例だと"B-clear"と"C-clear"の表示）も行いたいのですが、その場合どのように記述したらよいでしょうか。

マクロで二つの構文を繋ぐには

いつもお世話になります。 WIN7 EXCELL2010　です。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ThisWorkbook　に上記のマクロに下記のマクロを追加したいのですが、 End Sub の　ところを　End If　End With などに変えたのですがうまくゆきません。御指導お願いできませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("M3:V27")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case "○" Target.Value = "●" Case Else Target.ClearContents End Select Cancel = True End If End Sub 宜しくお願いいします。

VBA　のエラーがわかりません・・・ｗ

Sub Worksheet_Change(ByVal Target As Range) Dim 初期値 As Integer Dim 増減値 As Integer Select Case Target.Address Case "$C$5" Select Case Target.Value Case 1 Range("C6").Value = 24 Range("D5").Value = 600 Range("D6").Value = 0 Range("E5").Value = 400 Range("E6").Value = 0 Range("B7").Value = "★1 MaxAttackPoint:700 / MaxDeffencePoint:900" Case 2 Range("C6").Value = 32 Range("D5").Value = 1000 Range("D6").Value = 0 Range("E5").Value = 500 Range("E6").Value = 0 Range("B7").Value = "★2 MaxAttackPoint:1100 / MaxDeffencePoint:1300" End Select Case "$D$5" Select Case Range("C5").Value Case 1 初期値 = 600 Case 2 初期値 = 1000 Case Else Exit Sub End Select If Target.Value < 初期値 Then 増減値 = 4 Else 増減値 = 8 Range("D6").Value = (初期値 - Target.Value) / 100 * 増減値 Case "$E$5" Select Case Range("C5").Value Case 1 初期値 = 400 Case 2 初期値 = 500 Case Else Exit Sub End Select If Target.Value < 初期値 Then 増減値 = 4 Else 増減値 = 8 Range("E6").Value = (初期値 - Target.Value) / 200 * 増減値 End Select End Sub Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$F$5" Select Case Target.Value Case "炎" Range("F6").Value = 4 Case "水" Range("F6").Value = 4 End Select 　 Case "$G$5" Select Case Target.Value Case "ドラゴン" Range("G6").Value = -8 Case "海竜" Range("G6").Value = -8 End Select Case "$H$5" Select Case Target.Value Case "ドラゴン" Range("H6").Value = -16 Case "海竜" Range("H6").Value = -16 End Select Case "$I$5" Select Case Target.Value Case "○" Range("I6").Value = 40 Case "×" Range("I6").Value = 0 End Select End Select End Sub とあるカードゲームのステータス決定を行う為に組まれたマクロです。作成者は私だけではないのですが、もう何回もしつこく質問をしているため気が引けてしまい、こちらで質問することにしました・・・ｗ　エラー内容は２つ目のSub Worksheet_Change(ByVal Target As Range)の「Worksheet_Change」の名称が間違っています。という事でした。何を入れればいいのかサッパリです(；´ω) 　エラーの改善方法について教えてください。宜しくお願いします

excel VBA　のエラー回避のアドバイス依頼

いつもお世話になります。 EXCEL2000のVBAで、エラーになった場合の修正（回避コード）を教えていただきたくよろしくお願いいたします。ここでは、とあるブックのSheet1のH25セルに写真のファイル名を入れます。そして、実際の写真をブックが保管してあるフォルダ内のboard_image というフォルダに入れて、マクロを実行すると、C26セルに写真が表示されるというものですが。ここで、C26セルが空白だと「実行時エラー'1004!; 指定したファイルが見つかりませんでした。」と言われます。これを回避して、「NoImage.jpg」という名前の写真を表示させるようにしたいです。アドバイスお願いします。 '■↓コードは下記です。 Private Sub Worksheet_Change(ByVal Target As Range) Dim fRange As Range Dim touroku As Long Select Case Target.Address Case "$H$25" myLoadPicture "board_Image", Target.Text, Range("C26") Case Else Exit Sub End Select End Sub Private Sub myLoadPicture(folderName As String, fname As String, targetRange As Range) Dim pict As Shape, picPath As String picPath = ThisWorkbook.Path & "\" & folderName & "\" & fname If Dir(picPath) = "" Then picPath = ThisWorkbook.Path & "\" & folderName & "\" & "NoImage.jpg" End If With ActiveSheet For Each pict In .Shapes If pict.TopLeftCell.Address = targetRange.Address Then pict.Delete Exit For End If Next pict Set pict = .Shapes.AddPicture(picPath, msoTrue, msoFalse, _ targetRange.Left, targetRange.Top, 300, 360) End With End Sub

エクセルで指定したセルへカーソルを移動させる

エクセル２００７でセル”Ｉ１”に文字を入力してエンターを押したら、“Ｂ１１”へセルを移動させたく、以下のように作ってみたのですが、反応してくれません。このＶＢＡもインターネット上にあったものを参考にしただけなので、何が悪いのかさっぱりわかりません。どこを修正したらよいのか教えてください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address(0, 0) Case "i2" [b11].Select End Select End Sub

エクセル、VBAを使って指定セルの表示形式を変えたい

「A1に、特定の文字を入力した時　指定のセル（C1～C10）の表示形式を変えたいのです。」（例）　A1に特定の言葉を入れる。 ”日本””アメリカ””中国””ベトナム”"" 　指定したC1～C10の表示形式を各国のドメインを　頭につけて表示するようにします。 ”jp####””US####””CN####””VN####”"####" 一番下に、このようになると思うものを書いた意のですが、思うように結果ができません。問題としては、下記のように####の前に文字が来たら結果が出ません。逆に####の後に文字を入れると結果は出ます。 ####の前に文字を入れて表示させたいのですが、そうするにはどうすればよいでしょうか。 NumberFormatLocal = "us####" 自分なりに組み立てたものの全体を下記します。問題がお分かりの方、詳しい方よろしくお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Target.Value Case "日本" Range("C1:C10").NumberFormatLocal = "jp####" Case "アメリカ" Range("C1:C10").NumberFormatLocal = "us####" Case "中国" Range("C1:C10").NumberFormatLocal = "cn####" Case "ベトナム" Range("C1:C10").NumberFormatLocal = "vn####" Case "" Range("C1:C10").NumberFormatLocal = "####" End Select End If End Sub スペックはWindows、エクセル２００３

エクセルVBAで指定したセルへジャンプするコード(追加の質問です)

昨日、エクセルVBAで指定したセルへジャンプするコードで質問させていただき、よい方々にご回答いただき、解決することができました。 http://oshiete1.goo.ne.jp/qa2902184.html 考えているうちに欲がでてきて、次のようなこともできればと考え再び質問に参りました。コードは昨日Nayuta_Xさんが、最初にご提示いただいて、それをもとに付加していただいたmerlionXXのコードをお借りして下に載せました。そのコードで追加したいことは、 1.ジャンプしたセルに色をつけ、次へ移る際に色を消しますが、最初から色のついたセルの場合その色も消えるので、最初の色に戻したい 2.「設定」シートのA列にシート名、B列にセル番地をつけていますが、C列にコメント欄を設けて、セルにコメントを挿入できるようにして、次に移る際、コメントを削除する。(コメントは、できることならコメントのサイズに合わせて、表示状態にする) この２点を追加できたらうれしいです。以下のコードに追加できますか？ Sub test01() Dim x As String Dim Workbook_Name As String Dim ThisSheet_Name As String Dim Sheet_Name As String Dim ThisRange_Name As String Dim Range_Name As String Dim I As Integer, n As Integer Dim Ans As Integer ThisSheet_Name = ActiveSheet.Name '設定シート Select Case Workbooks.Count Case 1 MsgBox "他に開いているBOOKはありません。" Exit Sub Case 2 For n = 1 To 2 If Workbooks(n).Name <> ThisWorkbook.Name Then x = Workbooks(n).Name End If Next Case Else MsgBox "他に開いているBOOKが複数のため対象を特定できません。" Exit Sub End Select Workbook_Name = x '開いている“もうひとつのブック”の名前 I = 0 ' 開きたい　シートは、A列の３行目から　セル番号は、B列の３行目から記入すること。 Do While (1) With ThisWorkbook.Sheets(ThisSheet_Name) If .Range("A3").Offset(I, 0).Value = "" Then MsgBox "データがなくなりました。" ThisWorkbook.Activate Exit Do End If 'A列の３行目以下が、空白なら終わる Sheet_Name = .Range("A3").Offset(I, 0).Value Range_Name = .Range("B3").Offset(I, 0).Value End With Windows(Workbook_Name).Activate Sheets(Sheet_Name).Select Range(Range_Name).Select Selection.Interior.ColorIndex = 6 Ans = MsgBox("「次に進みますか？」", vbYesNo) Selection.Interior.ColorIndex = xlNone If Ans = vbYes Then I = I + 1 Else Exit Do End If Loop End Sub

Excelのプロシジャーで有効範囲のセルを限定したい

Excelの「コードの表示(V)」に、下記のフォントサイズ変更コードを登録してあります。この有効範囲を、あるセル範囲、たとえば（C3:S20) などのように限定したいのですが、どう記述したらよいのでしょうか、教えて下さい。よろしくお願いします。（現在のコード） Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.EnableEvents = False For Each c In Target If IsNumeric(c.Value) Then If Len(Mid$(c.Text, InStr(c.Text, ".") + 1)) > 1 Then c.Font.Size = 8 Else c.Font.Size = 9 End If End If Next c Application.EnableEvents = True End Sub

同じシート内にイベントプロシージャが二つある時

いつもお世話になります。 WINDWS7 EXCELL2010 です。下記の１　２のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、 ※１　※２のような現象が起きました。この現象を解決したくご指導を仰ぎたいです。宜しくお願いします。 ※１　エラー表示コンパイルエラー: 名前が適切ではありません; Worksheet_BeforeDoubleClick ※２　下記の構文が青色に反転 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) １ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub Cancel = True Sheets(CStr(Target.Value)).Select End Sub ２ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("B2:B51")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case Else Target.ClearContents End Select Cancel = True End If End Sub

Ｅｘｃｅｌ VBA 実行時エラー'1004':

　どちらの処理がより高速であるのかを調べるため、以下の2つのVBAを試作致しました。 Sub Macroコピペ乱数() 'コピペ乱数 Sheets("Sheet4").Select Range("A1:A99999").Formula = "=RAND()" Columns("A").Value = Columns("A").Value Range("B1").Select End Sub 及び Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range("A" & i).Value = Rnd Next i Range("B1").Select End Sub 　処が、これらのVBAを実際に動作させ様としますと、どちらの場合においても「Microsoft Visual Basic」ダイアログボックスが開いて「実行時エラー'1004': 'Range'メソッドは失敗しました:'_Global'オブジェクト」と表示されてしまいます。　さりとて、 Sub Macroコピペ乱数() 'コピペ乱数 Sheets("Sheet4").Select ActiveSheet.Range("A1:A99999").Formula = "=RAND()" Columns("A").Value = Columns("A").Value Range("B1").Select End Sub 及び Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range("A" & i).Value = Rnd Next i Range("B1").Select End Sub 或いは Sub Macro繰り返し乱数() '繰り返し乱数 Dim i As Long Randomize Sheets("Sheet4").Select For i = 1 To 99999 Range(Cells(i, 1)).Value = Rnd Next i Range("B1").Select End Sub 等としましても、今度は「実行時エラー'1004': アプリケーション定義またはオブジェクト定義のエラーです。」となってしまいます。　どの部分がどの様に悪いのでしょうか？　そして、どの様に修正すれば良いのでしょうか？　尚、使用しておりますＥｘｃｅｌのバージョンはＥｘｃｅｌ2010です。

エクセルVBAで指定範囲以外の複数セル処理時にエラーが発生する場合の対処方法

エクセルVBAにて指定範囲以外処理時複数セルの場合エラーになる。

質問者が選んだベストアンサー

お礼 2009/11/16 15:31

関連するQ&A

エクセルVBAにてプログラムされているシートに別のシートからマクロのモジュールにて貼り付けるとエラーになります。

エクセルVBA　プルダウンのリスト　指定範囲以外で

VBA 範囲選択時エラー

エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

VBAでのセルの複数選択時の処理について

VBAで作業を作成したものを別の列に適用するには

エクセルのマクロ

セル範囲内で変更があった場合に処理を行うには？

エクセルVBAで指定したセルへジャンプするコード(追加の追加質問です)

EXCEL マクロ　条件によるセルの色付け

エクセル：Targetが複数の時の処理

マクロで二つの構文を繋ぐには

VBA　のエラーがわかりません・・・ｗ

excel VBA　のエラー回避のアドバイス依頼

エクセルで指定したセルへカーソルを移動させる

エクセル、VBAを使って指定セルの表示形式を変えたい

エクセルVBAで指定したセルへジャンプするコード(追加の質問です)

Excelのプロシジャーで有効範囲のセルを限定したい

同じシート内にイベントプロシージャが二つある時

Ｅｘｃｅｌ VBA 実行時エラー'1004':

注目のQ&A

カテゴリ

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

専門家に質問してみよう

エクセルVBAで指定範囲以外の複数セル処理時にエラーが発生する場合の対処方法

エクセルVBAにて指定範囲以外処理時複数セルの場合エラーになる。

質問者が選んだベストアンサー

お礼 2009/11/16 15:31

関連するQ&A

エクセルVBAにてプログラムされているシートに別のシートからマクロのモジュールにて貼り付けるとエラーになります。

エクセルVBA プルダウンのリスト 指定範囲以外で

VBA 範囲選択時エラー

エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？

VBAでのセルの複数選択時の処理について

VBAで作業を作成したものを別の列に適用するには

エクセルのマクロ

セル範囲内で変更があった場合に処理を行うには？

エクセルVBAで指定したセルへジャンプするコード(追加の追加質問です)

EXCEL マクロ 条件によるセルの色付け

エクセル：Targetが複数の時の処理

マクロで二つの構文を繋ぐには

VBA のエラーがわかりません・・・ｗ

excel VBA のエラー回避のアドバイス依頼

エクセルで指定したセルへカーソルを移動させる

エクセル、VBAを使って指定セルの表示形式を変えたい

エクセルVBAで指定したセルへジャンプするコード(追加の質問です)

Excelのプロシジャーで有効範囲のセルを限定したい

同じシート内にイベントプロシージャが二つある時

Ｅｘｃｅｌ VBA 実行時エラー'1004':

注目のQ&A

カテゴリ

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

専門家に質問してみよう

エクセルVBA　プルダウンのリスト　指定範囲以外で

EXCEL マクロ　条件によるセルの色付け

VBA　のエラーがわかりません・・・ｗ

excel VBA　のエラー回避のアドバイス依頼