締切済み

VBAが突然使えなくなったのは何故でしょうか？

2014/12/19 15:11

Windows8.1で、Office2010を利用しています。エクセルのVBAを使って以下のようなコピーを行っているのですがある日、突然、『貼り付ける位置を指定してください。』というメッセージが画面下に出るようになり、コピーできなくなりました。 i=10:w=64 Range(Cells(i, 1), Cells(i, 8)).Select Selection.Copy Range(Cells(w, 1), Cells(w, 8)).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 　　　　　SkipBlanks:=False, Transpose:=False 何が問題なのでしょうか？ちなみに、WindowsUpdateの関連で、VBAがエラーになったことがあるので Excel8.0フォルダの中に入っているmsforms.exdファイルを一旦削除してから再起動し、再度、上記のコピー作業を試みましたがメッセージが出てしまい、コピーはできませんでした。よろしくご指導願います。

panda8610
お礼率89% (106/118)

Windows 8
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

みんなの回答

2014itochan
ベストアンサー率17% (13/74)

2014/12/19 16:11 回答No.2

>exdファイルを一旦削除これは、キャッシュファイルだから、元を　直さないと。 http://okwave.jp/qa/q8854280.html エクセルのアップデートを　戻す。で、それでもだめらな、キャッシュが残ってる。っていうことですから

質問者

お礼 2014/12/19 20:18

回答ありがとうございます。別のエクセルに組み込まれたVBAは、 exdファイルを削除して再起動したら動くようになったのですが・・・。アップデートそのものをアンインストールしないとダメということですね。今日はこのファイルから離れてしまいましたので２２日に試してみます。

質問者

補足 2014/12/25 09:35

どういう訳か、数日後にパソコンを起動し、このマクロを動かすと今までのように動いてました。何が原因だったのかは定かでありませんが、めでたし、めでたしです。ご回答くださった皆様、本当にありがとうございました

chie65535
ベストアンサー率43% (8520/19368)

2014/12/19 15:59 回答No.1

誰かが「シート保護」をかけたまま上書き保存してたりして。

質問者

お礼 2014/12/19 20:11

回答ありがとうございます。確認してみましたが、シート保護は掛かっていませんでした。他に、どんな可能性があるのでしょうか？

質問者

補足 2014/12/25 09:30

どういう訳か、数日後にパソコンを起動し、このマクロを動かすと今までのように動いてました。何が原因だったのかは定かでありませんが、めでたし、めでたしです。ご回答くださった皆様、本当にありがとうございました。

関連するQ&A

EXCEL　VBAで複数行のコピー（バックグランド）
EXCELのVBAで質問します。複数行をコピーしてPasteを行う方法がわかりません。フォアグランドでは正しく実行できるのですが、バックグランドで実行した場合は、１行しかPasteできません。お分かりの方いらっしゃれば教えてください。コードは以下のとおりです。 Sheets(\"DATA\").Select Range(\"A3:W26\").Select Selection.Copy Range(\"A4\").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 宜しくお願いします。
- ベストアンサー
- Visual Basic
エクセルVBA　での繰り返し処理について
エクセルVBA　での繰り返し処理について以下の作業を２０回繰り返そうとしています（別シートから持ってきた値を「行列を入れ替えて」貼り付け）　　 Sheets("初期設定").Select Range("A6:C6").Select Selection.Copy Sheets(TS).Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True 　　「初期設定」シートの方は1行ずつ並んでいるので、「2回目」の「2行目」は　　「 Range("A7:C7").Select」になり、　　「TS」シートの20行後に貼り付けたいので、「2回目」の「5行目」は　　「Range("B24").Select」　になります　　これを、for ～　next　を使い、以下のようにしてみましたが、上手くいきません。　　 For j = 6 To 26 For k = 4 To 384 Step 20 Sheets("初期設定").Select Range(Cells(j, 1), Cells(j, 3)).Select Selection.Copy Sheets(TS).Select Cells(k, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Next k Next j 　1分程度ループし続けた後、「初期設定」シートの最終行だけが貼り付けられてしまいました。どこをどのように直せばいいのかお教えください。よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
指定セルをコピー
A2~A5,D2~D5,G2~G5をコピーしJ~P列2~5行に値を貼付け続いて9~13行、16~20行もJ~P列に貼り付けたいのですが7~8,14~15行にはセル結合されているところもあります。VBAで下記コードを入力しましたがあまりにデータが多く何か良い方法VBAコードはありますか。(For~Nextなど使用すれば良いのでしょうか) 環境はoffice2013です。 Range("A2:A6").Select Selection.Copy Range("J2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("D2:D6").Select Selection.Copy Range("M2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 　Application.CutCopyMode = False
- ベストアンサー
- Excel（エクセル）
Excel　繰り返しマクロ
下記のようなマクロを使ってn個あるシートの内容を「集計」シートにコピーさせるようにしました。 (自動マクロとの組合せなので、スマートではないかもしれませんが) でも、これだと「集計」シートもコピー作業を行ってしまうので、「集計」シートはコピー作業をしないように除外したいのですが、どうしたら良いのでしょう? 実際にはシート数は30程度、コピペ項目は1シートあたり30項目程度あります。よろしくお願いします。 ------------------------- Sub テスト2() ' For i = 1 To Worksheets.Count '案件番号等コピー ' Sheets(i).Select Range("D3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '案件名 Sheets(i).Select Range("F3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '国名 Sheets(i).Select Range("E3").Select Application.CutCopyMode = False Selection.Copy Sheets("集計").Select Range("C4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '選択セルの解放 Application.CutCopyMode = False '行挿入 ' Sheets("集計").Select Rows("4:4").Select Selection.Insert Shift:=xlDown Next i End Sub
- ベストアンサー
- その他(業務ソフトウェア)
色々なものを見ながら作っている初心者です。
色々なものを見ながら作っている初心者です。よろしくお願いします。 VBAでのエラー対処について下記のマクロを実行すると、実行時「Selection.Resize(, Selection.Columns.Count - 2).Select」のところでセルがブランクだった時にエラーが出てします。対処の方法を教えていただけませんでしょうか？よろしくお願いします。 Sheets("sheetB1").Select Range("A7:C161").Select Application.CutCopyMode = False Selection.ClearContents Sheets("sheetA").Select Range("D12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.Resize(, Selection.Columns.Count - 2).Select Selection.Offset(0, 1).Select Selection.Copy Sheets("sheetB1").Select Range("A7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("sheetA").Select Range("E12").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("B1").Select Range("C7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("sheetB2").Select Range("A7:C161").Select Application.CutCopyMode = False Selection.ClearContents Sheets("sheetA").Select Range("J12").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.Resize(, Selection.Columns.Count - 2).Select Selection.Offset(0, 1).Select Selection.Copy Sheets("sheetB2").Select Range("A7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("sheetA").Select Range("K12").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("steetB2").Select Range("C7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=Fals
- 締切済み
- オフィス系ソフト
Excelでマクロを繰り返したい。
Excelでマクロを記録したら以下のようになりましたこのマクロを以下の条件で繰り返したいのですが。 Sub Macro1() '------------- '----------------------- ' Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=5*", Operator:=xlAnd, _ Criteria2:="<>5@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=6*", Operator:=xlAnd, _ Criteria2:="<>6@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Selection.AutoFilter Field:=4, Criteria1:="=7*", Operator:=xlAnd, _ Criteria2:="<>7@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("A103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet1").Select Range("A1").Select Selection.AutoFilter Field:=4, Criteria1:="=8*", Operator:=xlAnd, _ Criteria2:="<>8@*" Range("A3:A302").Select Selection.Copy Sheets("Sheet2").Select Range("B103").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 条件＝　Field：は4～35位まで変動します一連の動作をコピーして手作業で数字を変えてみたのですがプロージャが大きすぎてエラーになってしまいます。何か良い方法は無いでしょうか？。
- ベストアンサー
- オフィス系ソフト
マクロが起動しない
For k = 1 To 1 For i = 10 To 25 Cells(i, 21).GoalSeek Goal:=750, ChangingCell:=Cells(i, 18) ' Range("Z10:AA25").Select Selection.Copy Range("N10:O25").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next Next ' End Sub というマクロで For i = 10 To 25 Range("Z10:AA25").Select Range("N10:O25").Select の3箇所の25という数字を26に書き換えると Cells(i, 21).GoalSeek Goal:=750, ChangingCell:=Cells(i, 18) の箇所がデバックを起こしてしまうのですが考えられる原因、または改善方法があったら教えてください。
- ベストアンサー
- オフィス系ソフト
エクセルVBAの修正をお願いいたします。
下記VBAをご教授受けて何とか作りましたが、一行指定で作成したのですが、その時によりデータ数にばらつきがありますので、現状データがあるセルだけを拾ってきてデータのあるなしを、JのセルとKのセルに2種類表示するように作成したつもりですが、データがないセルにも延々と Jのセルには 1040272 Kのセルには　* が表示されますのでデータが現状ないセルには何も表示されないようにしたいと思います。自分でいろいろ調べながらしてみるのですが埒が明かない状態になっておりますので、なにとぞお助け、ご教授をお願いいたします。わかりにくい説明で申し訳ございませんがなにとぞよろしくお願いいたします。 Range("H2").Select ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-5],RC[-4])" Selection.AutoFill Destination:=Range("H2:H10000") Range("H2:H10000").Select Columns("H:H").Select Selection.Copy Columns("I:I").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.Replace what:="-", Replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace what:="_", Replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Sheets("登録商品リスト").Select Columns("C:C").Select Application.CutCopyMode = False Selection.Copy Columns("E:E").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.Replace what:="_", Replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace what:="-", Replacement:="", lookat:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("F2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=UPPER(RC[-1])" Selection.AutoFill Destination:=Range("F2:F10000") Range("F:F").Select Columns("F:F").Select Selection.Copy Columns("G:G").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Sheet2").Select Range("J2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=COUNTIFS(登録商品リスト!C[-3],C[-1])" Selection.AutoFill Destination:=Range("J2:J1500") Range("J:J").Select Dim i As Long, endRow As Long, str As String, c As Range, wS1 As Worksheet, wS2 As Worksheet Set wS1 = Worksheets("登録商品リスト") Set wS2 = Worksheets("Sheet2") endRow = wS2.Cells(Rows.Count, "K").End(xlUp).Row Application.ScreenUpdating = False If endRow > 1 Then Range(wS2.Cells(2, "K"), wS2.Cells(endRow, "K")).ClearContents End If For i = 2 To wS2.Cells(Rows.Count, "I").End(xlUp).Row str = Left(wS2.Cells(i, "I"), 5) Set c = wS1.Range("G:G").Find(what:=str, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing Then wS2.Cells(i, "K") = "*" End If Next i Application.ScreenUpdating = True End Sub
- ベストアンサー
- Excel（エクセル）
【Excel VBA】シートコピー時、マクロコードはコピーしたくない
ws.copy Before:=Workbooks(File).Sheets(1) Windows(File).Activate Cells.Select Selection.copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 上記コードで、シートのコピー・貼付を行っていますが、コピー元シートのコードも引き継がれてしまいます。引き継がれないようにコピーしたいのですが、可能でしょうか？可不可について、可能ならばそのやり方（コード）を教えていただけないでしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
vba 不揃いの行数にカーソル位置対応
os_xp //// ex_2003 Sub goo() ' goo Macro ' Keyboard Shortcut: Ctrl+g ' Range("A65524").Select Selection.End(xlUp).Select Rows("669:669").Select '(1)-----次回及び他のシートは不揃いの為 Selection.Copy Rows("670:670").Select '(2)-----(1)が位置が変化するからここも対応 ActiveSheet.Paste Application.CutCopyMode = False Range("A669:F669").Select '-----範囲の変更ありの予定 Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("BD669:BG669").Select '-----範囲の変更ありの予定 Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("A672").Select '(3)-----次回及び他のシートは不揃いの為　最後に記録の２段下にカーソルが来て欲しい End Sub ' 'どのシートでも (1) (2) (3) が対応してくれないか？。 '
- ベストアンサー
- オフィス系ソフト

VBAが突然使えなくなったのは何故でしょうか？