エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14708 for VBA�� (0.003 sec.)

[[20171115220816]]: #score: 3410; @digest: 12e4ee5641c924696589e13dd563759f; @id: 74866; @mdate: 2017-11-17T16:01:59Z; @size: 5347; @type: text/plain; #keywords: akio (20986), 度") (7834), （ak (4095), 移る (4036), モジ (3795), ら標 (3702), ジュ (3627), ナ様 (3410), る" (3361), 準モ (3313), module2 (3196), マナ (2619), xltoleft (2525), module (2524), visual (2389), sheets (2315), 標準 (2208), ュー (2158), 年度 (1911), 開発 (1893), 2017 (1745), selection (1716), 先程 (1600), ール (1598), ＞sh (1548), autofilter (1517), columns (1291), ブシ (1256), 各シ (1242), basic (1210), delete (1202), 有難 (1056); 『別のシートからのVBA』（akio）
いつもお世話になり有難うございます。下記シートのVBA Sub test()でSheets("29年度").Cells.Copy Sheets("aa").Range("A1")以降は、シート"aa"のところでVBAを実行すれば Sheets"29年度"（CSVのデータが並んでいます）の不要な余分を削除する事が出来ます。現在一つのファイルで3つのシートにVBAが書かれています。各シートのVBAがうまく走りましたから各シートごとにVBAを走らすよりSheets"並べる"にまとめてVBAを書こうとしています。 Sheets"並べる"に下記VBAを書いていますが、コード、Sheets("29年度").Cells.Copy Sheets("aa").Range("A1")は、29年度のコピーが aaに貼り付けされましたが、次の行でColumns("A:B").Selectに来ればアプリケーション定義、オブジェクト定義エラーとなります。どのようにすればいいのでしょうか? 教えて下さい。 Sub test() Sheets("aa").Activate Sheets("29年度").Cells.Copy Sheets("aa").Range("A1") Columns("A:B").Select Selection.Delete Shift:=xlToLeft Columns("B:T").Select Selection.Delete Shift:=xlToLeft Columns("C:C").Select Selection.Delete Shift:=xlToLeft Columns("D:E").Select Selection.Delete Shift:=xlToLeft Columns("E:G").Select Selection.Delete Shift:=xlToLeft Rows("1:8").Select Selection.Delete Shift:=xlUp Columns("A:D").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$D$452").AutoFilter Field:=4, Criteria1:="=" Range("A11:D446").Select Selection.EntireRow.Delete Range("D391").Select ActiveSheet.Range("$A$1:$D$392").AutoFilter Field:=4 Selection.AutoFilter ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- ＞Sheets"並べる"に下記VBAを書いていますが、シートモジュールでなく、標準モジュールで試してください。（マナ） 2017/11/15(水) 22:42 ---- マナさま早速のお返事有難うございます。＞シートモジュールでなく、標準モジュールで試してください。以前、そのように言われたのを思いまして、この質問の前に開発をクリック、visual basicの標準モジュールで貼り付けをしました。他のデータを見た後で、標準モジュールに書かれたコードを開こうとしても何も書かれていないのです。マナ様から標準モジュールで試して下さいと言われた今も消えています。標準モジュールの出し方は、開発をクリック後、visual basic マクロマクロの記録のところでvisual basic をクリック、挿入をクリックしたのです。どこか違うところから探すのでしょか? （akio） 2017/11/15(水) 23:18 ---- ↓の（5）でわかりますか http://www.excel.studio-kazu.jp/lib/e4b/e4b.html （マナ） 2017/11/15(水) 23:57 ---- マナさま調べて頂き有難うございます。モジュールの見方は、わかったのですが、私がモジュールに貼り付けたコードは見当たりませんでした。モジュール1をクリックすると簡単なコードがありましたが、次にモジュール1をクリックすると何も見えません。明日、再度、モジュールに貼り付けて確認をします。（akio） 2017/11/16(木) 00:19 ---- Sheets"並べる"のところで標準モジュールにコードを書けば、 Sheets"並べる"のところからSheets"aa"に指定しているので"aa"に移るのですか? それとも違うシートから標準モジュールを書いてもSheets"aa"に移るのですか? 明日で結構ですよ（akio） 2017/11/16(木) 00:31 ---- マナ様おはようございます。急ぐ仕事が、出来ました。コード等の確認が遅くなります。すみません。連絡無いので悩んでいるのかと、色々調べられては、申し訳なく思いましたので、一報いれました。（akio） 2017/11/16(木) 10:17 ---- マナ様今晩は、先程、各シートのVBAを一つのシートにまとめ標準モジュールに貼り付けました。色々試しながら今度は、うまく行きました。有難うございます。これで仕事がやりやすくなります。ただ、VBAのコードを表し実行するのは、開発→visual basic をクリック→表示→プロジェクトエクスプローラをクリックしてModule 1をクリックしなければ実行出来ないのでしょうか? マクロボタンのようにシート上でボタンを押せばVBAが実行できる方法は、ないものでしょうか? （もちろん挿入でボタンを出したのですが、選択するマクロにModule 1がありません。）よろしくお願いいたします。（akio） 2017/11/16(木) 22:49 ---- ＞選択するマクロにModule 1がありません。同じ名前のマクロが、例えばModule2にもあれば、 Module1.test Module2.test のような感じで表示されますが、そうでなければ、単に test と表示されているはずです。（マナ） 2017/11/17(金) 18:57 ---- マナ様お返事が、大変遅くなり申し訳ございません。先程、確認をしました。＞testと表示されているはずです。ありました。そしてボタンをつけることが出来ました。＞Sheets"並べる"のところで標準モジュールにコードを書けば、＞Sheets"並べる"のところからSheets"aa"に指定しているので"aa"に移るのですか? ＞それとも違うシートから標準モジュールを書いてもSheets"aa"に移るのですか? ＞（akio） 2017/11/16(木) 00:31 上記のことも理解できました。色々有難うございました。（akio） 2017/11/17(金) 22:34 ---- ＞Sheets"並べる"のところからSheets"aa"に指定しているので"aa"に移るのですか? ＞それとも違うシートから標準モジュールを書いてもSheets"aa"に移るのですか? シート名をちゃんと指定すれば、指定したシートに省略すれば、アクティブシートにです。（標準モジュールの場合）以前にも、同じことで躓きましたよね。これも、繰り返しになりますが、selectしないコードにしたほうがよいです。アクティブシートがマクロの途中でかわってしまうことがあります。期待通りの結果にならないかもしれません。（マナ） 2017/11/17(金) 23:05 ---- マナ様上記、承知しました。有難うございました。（akio） 2017/11/18(土) 01:01 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201711/20171115220816.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ