エクセルの学校：全文検索：Hyper Estraier：（素人）

Results of 1 - 1 of about 159 for （素人） (0.000 sec.)

[[20141109185350]]: #score: 10177; @digest: 23b81f3043e17434a1dd810d5f48f8fa; @id: 66579; @mdate: 2014-11-09T14:39:19Z; @size: 2729; @type: text/plain; #keywords: 物] (23706), 覧] (6620), 旦非 (6466), 0050104 (6024), mycri (5005), れ物 (4363), 列・ (3444), sh3 (3165), タ抽 (2435), （素 (2343), ・e (2028), 出2 (1941), myrow (1668), ・d (1630), マナ (1428), ナ様 (1364), 素人 (1339), 出後 (1227), 日) (1197), 定列 (1166), xlpastevalues (1104), savechanges (971), 人） (971), ルタ (967), 2014 (883), 抽出 (850), フィ (811), ィル (771), トフ (771), pastespecial (767), 一覧 (749), オー (659); 『オートフィルタ抽出後の指定列のコピー』（素人） [一覧]と[入れ物]のファイルがあります。 [一覧]ファイルのC列にオートフィルタをかけ抽出したデータのうち B列・D列・E列・G列のみをコピーし、 [入れ物]ファイルのB列・C列・D列・E列に張り付けたいです。またこの時、フィルタ抽出した値を[入れ物]の張り付けたシートのシート名にする事はできますか? 抽出する度に[入れ物]のシートを増やしていきたいです。調べに調べてようやく下記のコードにたどりつきましたが思いとおりにできません・・・どなたかご教授ください。 Sub フィルタ抽出2() Dim myCri As String Dim myRow As Long Dim WB As Workbook Dim sh2 As Worksheet, Sh3 As Worksheet Set WB = Workbooks.Open(Filename:="C:¥Users¥Desktop¥新しいフォルダー (2)¥一覧.xlsm") Set sh2 = WB.Worksheets("一覧") Set Sh3 = Workbooks("入れ物.xlsm").Worksheets("抽出") myCri = InputBox("検索する語句を入力") With sh2 .Range("A1").AutoFilter Field:=3, Criteria1:=myCri myRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("B2:E" & myRow).Copy Sh3.Range("B2") End With WB.Close SaveChanges:=False Set WB = Nothing End Sub ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- Copyの前に、C列、F列を一旦非表示にしてはどうでしょうか。または、オートフィルタでなくフィルタオプションにするか。（マナ） 2014/11/09(日) 19:35 ---- シートを増やす件については 1）抽出シートをコピー 2）それを変数sh3にセット 3）sh3.Name=myCriで名前を変更 4）オートフィルタの結果をコピーの流れでどうでしょうか。 3）での、シート名のダブリ対策は↓を参考に。 http://www.relief.jp/itnote/archives/excel-vba-sheet-copy-rename.php （マナ） 2014/11/09(日) 20:25 ---- マナ様アドバイス頂いた非表示と1〜4までの流れで思い通りに動かすことができました!!! 本当にありがとうございます。もう一つお聞きしたいのですが値のみ張り付けたいのですがうまくできません。どのように修正すれば良いでしょうか? （素人） 2014/11/09(日) 21:43 ---- ↓参考になりますか。 http://www.moug.net/tech/exvba/0050104.html （マナ） 2014/11/09(日) 22:02 ---- .Range("B2:I" & myRow).CurrentRegion.Copy Sh3.Range("B2") や .Range("B2:I" & myRow).PasteSpecial Paste:=xlPasteValues Sh3.Range("B2") を貼り付けてみましたが、書式も一緒に貼り付いてしまいます・・・ （素人） 2014/11/09(日) 22:12 ---- コピーと貼り付けを2行にわけてコピー元.Copy 貼り付け先.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False ではありませんか? （マナ） 2014/11/09(日) 22:23 ---- マナ様できました!!! 本当にありがとうございました。基礎から勉強します。 （素人） 2014/11/09(日) 23:39 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201411/20141109185350.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ