- ベストアンサー
EXCELでのマクロ実行後の行列番号表示不具合について
EXCELでマクロ実行後に、行列番号の表示不具合が発生することがあります。 具体的には、行番号の数字が塗りつぶされたようになる不具合です。 EXCELを一度終了して再度ファイルを開くと不具合自体は直るのですが、不具合発生のたびにファイルを開きなおすので非効率で困っています。 職場の人に聞いたら、「Application.ScreenUpdating = False が原因では？」と言われたのですが、対処方法がよくわかりません。 どなたか、わかる方はいらっしゃらないでしょうか。
- solohiker
- お礼率42% (3/7)
- その他MS Office製品
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
- xls88
- ベストアンサー率56% (669/1189)
- merlionXX
- ベストアンサー率48% (1930/4007)
わたしはそのような状態になったことがないのでよくわからないのですが、 Application.ScreenUpdating = False を使ったのならば Application.ScreenUpdating = True で復帰させてますか？
補足
さっそくありがとうございます。 ご指摘の件は、真っ先に思いついたので自分でも検証してみました。 Application.ScreenUpdating は、マクロ実行後、自動的に True に戻るので、これが原因とは思えないのが実感です。
関連するQ&A
- EXCEL 行列番号の表示
他のシステムからエクスポートしたファイルを開くと、行列番号及びシート見出しが表示されていません。 このシステムからエクスポートしたエクセルファイルは、全て同じ設定になっており、エクスポート時に制御することも不可能です。 エクセルでファイルを開いてから、ウィンドウオプションで、行列番号、シート見出しを表示させているのですが、マクロを利用してファイルを開いた際に自動的に表示させることはできないでしょうか？ 色々と試してみたのですが、どうもうまくいきません。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- EXCELマクロ AutoFilterの使い方を教えて下さい。
EXCELマクロ AutoFilterの使い方を教えて下さい。 EXCELマクロ初心者です。使用環境は、EXCEL2007です。 Web上で紹介されていたマクロをアレンジして以下のようなマクロを作成しました。 B列に指定した数字が記載された行を削除するものです。 これをさらに、4,5,6,・・・,11,12,1,2,3の中から指定した数字以外がB列に記載 された行を削除するように書き換えたいのですが、「Criteria1:=intCriteria」 を「Criteria1:<>intCriteria」として実行してみましたがエラーが出てしまいま す。 どなたか、良い方法をご教示ください。不足の情報、私の説明不足がありましたら、 ご指示ください。 以下、MACRO内容 Sub B列に指定の数字がある場合、行を削除() Application.ScreenUpdating = False intCriteria = InputBox("検索する数字を入力。", "数字入力") With Cells(2, 1).CurrentRegion On Error GoTo errhandler .AutoFilter Field:=2, Criteria1:=intCriteria .Offset(1).Resize(.Rows.Count - 1). _ SpecialCells(xlCellTypeVisible).EntireRow.Delete End With ActiveSheet.AutoFilterMode = False Exit Sub errhandler: ActiveSheet.AutoFilterMode = False MsgBox intCriteria & "はありません。" Application.ScreenUpdating = True End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル行列番号について
Windows Excel2002を使用しておりますが、エクセルの行列番号がどちらも数字表示になってしまっているのです。 （とても仕事がしずらいのです！） 行列番号の表示・非表示の方法はわかりますが、表示の種類（数字OR文字）の選択はどうしたらいいのか教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルの行列番号の表示サイズについて
エクセルの行列番号の表示が大きく表示されるファイルについて（数式バーの大きさは変わりません） 自宅以外のパソコンで作成したエクセルファイル（2003）なのですが、行列番号の大きさが通常の倍ぐらいの大きさになっています。 新規に自宅でエクセルを起動した場合には、標準の行列番号の大きさなのですが・・・ 行列番号の大きさの設定変更は、どこで行えばいいのでしょうか？ ちなみに、オプションの「全般タブ」のサイズを変更しても、数式バーの大きさは変わりますが行列番号の表示の大きさはかわりませんでした。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ 簡素化
マクロ初心者です。 下記のデータのコピペする、マクロを使用しています。 下記にはAAAとBBBの2つのエクセルへのコピペのみしか記述していませんが、 その下に50ファイル分のファイル名、コピー元、コピー先だけが違うマクロが並んでいます。 メンテナンスや更新に手作業で行っているので、非常に時間がかかります。 例えば、別のシートにファイル名、コピー元、コピー先の一覧を作成し、 そのシートでファイル名、コピー元、コピー先を修正し、コピペができるようになるなど、 どうにかして簡素化したいのですが、どのように実現すればいいか、教えてくださると助かります。 ---------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A1:B1").Copy wb.Sheets("CCC").Range("A1:B1").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\BBB.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A2:B2").Copy wb.Sheets("CCC").Range("A2:B2").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True 'アイテム名、コピー元、コピー先、だけがちがう、同じようなマクロが50ファイル分ある。 End Sub
- ベストアンサー
- オフィス系ソフト
- マクロ実行後エクセルを閉じたい
２つの別々のファイルを開いて片方からもう片方にコピーして 保存して終了する。（両方とも閉じる） というマクロを作ったのですが コピー終了後に実行したマクロ付きのエクセルも閉じてデスクトップ上には何も開いていない状態にしたいのですがworkbookのところに 下記の命令を記述してもうまくいきません。 Application.Run "ＸＸＸＸＸＸ" ThisWorkbook.Save ThisWorkbook.Saved = True If Workbooks.Count <= 1 Then Application.Quit ThisWorkbook.Close False マクロ付きのエクセルも一旦は閉じるのですがその後に 別の白紙のブックが開いてしまうのです。 続けて他のマクロをスケジュールで実行したいのですが実行時に 「既にエクセルが開いています」みたいな警告が表示され 実行できません。 エクセルを完全に閉じるようにするにはどうしたらいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで番号指定して，白字にする方法
エクセルで名簿を作りマクロを使って必要のない番号と名前を白字にしたいのですが、セルに開始番号と終了番号を入れて実行するマクロがよくわかりません。特に変化する範囲指定の方法です。次の文を参考に ご教授お願いします。 Worksheets("sheet1").Activate 開始 = Range("d3").Value 終了 = Range("e3").Value For カウント = 開始 To 終了 Range("q2").Value = カウント Range("○○○ ").Select Selection.Font.ColorIndex = 2 Application.ScreenUpdating = False Next Worksheets("sheet1").Activate End Sub ”d3”には出席番号が入ります。（ ○○○ ）のところがよくわかりません。ご教授お願いします。
- ベストアンサー
- その他MS Office製品
- エクセル マクロ 値の貼り付け
以下のエクセルのマクロで値のみを貼り付けたいのですが、.valueを指定しても上手くできません。 どのように修正すればいいか教えてください。 Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\ファイルA.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("E4:AR4").Copy wb.Sheets("BBB").Range("E4:AR4") Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True
- ベストアンサー
- オフィス系ソフト
- マクロ実行後、セルへ直接キーボード入力ができない。
エクセルマクロを実行した後、 マウスを使わずに、 直接いきなりセルへ入力すると、 ツールバーのコマンド選択バー（というのかな？） が出てきてしまいます。 例えば、 「Ｈ」と入力すると、ヘルプのバー。 「Ｆ」と入力すると、ファイルのバー。 「Ｅ」と入力すると・・・ですね。 にゅーっと出てきてしまうのです。 エクセルマクロの実行内容は、 実行すると、他のファイルを開いて、 閉じるということをやっています。 上記のいう「Ｈ」が、 セルへ入力できればいいのですが、 何が原因なのかさっぱりわかりません。 「Application.EnableEvents = ・・・」や 「Application.ScreenUpdating = ・・・」 かな？ 誰か対処方法がありましたら、 伝授のほうをよろしくおねがいします。 ＯＳ：windows95 ソフト：Excel97 です。
- 締切済み
- オフィス系ソフト
お礼
どうもありがとうございます。 VBAの問題でないとすると、こちら側で対処できる範疇をこえていますね。 若干手間ではありますが、EXCELを再起動することで元に戻します。