Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

239 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【77676】VBAを使い、別シートにデータを抽出したい

たけちゃんまん - 15/11/27(金) 23:22 -


	引用なし

	パスワード

はじめて投稿させて頂きます。 VBAの知識はほぼ無いに等しいのですが、本やサイトで検索し、自分なりに考え、昨日から色々と試していますが、エラーとなるか、正しく反映されません。 <目的> 5000行程でA～AB列まで入力されているのデータベースがあります。データは日々、20行程追加します。そのデータベースの商品コードと一致するデータを行ごと別シートに抽出したいです。 <データベースの列構成> A/B/C/D/…/I/J/K/L/M/… 処理状況/メモ/番号/日付/…/商品コード/商品名/規格/数量/単位/… 済/(空白)/0001/11月1日/…/a001/みかん/大/100/個/… (空白)/(空白)/0002/11月1日/…/b001/りんご/小/20/個/… (空白)/(空白)/0003/11月1日/…/c001/もも/大/10/個/… 済/(空白)/0004/11月2日/…/b002/りんご/大/15/個/… (空白)/(空白)/0005/11月2日/…/b001/りんご/小/20/個/… (空白)/(空白)/0006/11月3日/…/b003/りんご/中/50/個/… 済/(空白)/0007/11月4日/…/a001/みかん/大/80/個/… 済/(空白)/0008/11月4日/…/a002/みかん/中/30/個/… この様なデータを日々追加します。 ※2行目がタイトルで、3行目以降が上記データとなります。このデータの中から、I列の商品コードがb001とb002とb003の行だけを別シートに表示したいです。ご教授頂けます様、宜しくお願い致します。

・ツリー全体表示


	【77674】お願いします

arusu - 15/11/26(木) 11:13 -


	引用なし

	パスワード

以前にこの質問をしたのですが、追加で回答お願いします。

例えばセルのＡ１に計算式があって、そこの答えが5～9になるまで計算を繰り返すというものを組みたいです。

Ａ１の計算式にはＢ１とＣ１の足し算だとしてＢ１、Ｃ１にはRANDBETWEEN()を使い、ランダムに数字がくるようにします。

なので5～9の間に計算結果が入ったら、その答えをＡ１に。
もしそれ以外の数値だったら再計算させて、5～9になるまでし、Ａには5～9までの数字が入るようにしたいです。

、もうひとつ条件を加えたい場合、
例えばＡ１の5～9までの条件かつ、Ａ２には6～10までの数字がくるまで再計算させる方法を知りたいです。
よろしくお願いします。

・ツリー全体表示


	【77673】Re:シート内のリンクについて

古 - 15/11/25(水) 18:01 -


	引用なし

	パスワード

▼独覚さん：

うまく行きました！
有難うございましたm(_ _)m

・ツリー全体表示


	【77672】Re:オートフィルターについて

古 - 15/11/21(土) 17:30 -


	引用なし

	パスワード

▼β さん：
素晴らしいです。
大変助かります。
出社後、即試してみます！

γさんと同様に
どこに原因があるか、教えて下さって
また、解決法も教えていただき、
有難うございました。

ここを訪れて良かったです。

・ツリー全体表示


	【77671】Re:オートフィルターについて

古 - 15/11/21(土) 17:28 -


	引用なし

	パスワード

▼γ さん：
有難うございます。
出社後、即試してみます！
どこに原因があるか、教えて下さって
また、解決法も教えていただき、
有難うございました。

・ツリー全体表示


	【77670】Re:オートフィルターについて

β - 15/11/21(土) 9:39 -


	引用なし

	パスワード

▼古さん：

以下は参考コードとして。

SHeet1でオートフィルターをかけて、抽出があった場合、抽出されたものだけをSHeet2にコピーしています。
（抽出がなかった場合にこれを行うと全件コピーされるので、抽出有無をチェックしています）

Sub Test()
　　With Sheets("Sheet1")
　　　　.AutoFilterMode = False '念のため解除
　　　　.Range("A8").AutoFilter '再設定
　　　　.AutoFilter.Range.AutoFilter Field:=9, Criteria1:="<>4"
　　　　'実際に抽出があった場合のみ
　　　　If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
　　　　　　'オートフィルター領域をコピペすると、抽出部分だけがコピーされる。
　　　　　　.AutoFilter.Range.Copy Sheets("Sheet2").Range("A8")
　　　　End If
　　End With
End Sub

・ツリー全体表示


	【77669】Re:オートフィルターについて

γ - 15/11/21(土) 9:22 -


	引用なし

	パスワード

横から失礼。

Selection.SpecialCells(xlCellTypeVisible).Select
が、表示されている、つまり可視データに限定する意図だと思いますが、
そこはどう考えていますか？

もっとも、
可視セルにあえて限定しなくても、
フィルタが掛かったセル範囲をそのままコピペイストすると、
Excel側が気を利かせて、可視セルだけを対象に絞ってくれます。
ですから、↓のような書き方で上手くいくはずです。

Worksheets("抽出").AutoFilter.Range.Copy Worksheets("集約").Range("A1")

なお、貼付先に前の作業の結果が残っていると、その上に上書きされますが、
貼付前に、一旦消去しておくと、誤解が生じないでしょう。
そのあたりにも気を配ってください。

・ツリー全体表示


	【77668】Re:オートフィルターについて

古 - 15/11/21(土) 8:18 -


	引用なし

	パスワード

▼γさん、β さん：

お陰様で、原因が分かりました！
なんてバカなんでしょう。
ボタンで一連のマクロを実行していたので操作を忘れていました･･･

Ｉ列を”４を含まない”にフィルターで絞った後、
　　Range(Selection, Selection.End(xlToRight)).Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.SpecialCells(xlCellTypeVisible).Select
　　Selection.Copy

絞ったデータをもう一つのシート（”集約”シート）にコピーしていました。

なので、フィルターに原因があるわけでなく、コピペが原因だったようです。
非表示の分までペーストされていたようです。

調子が良くて申し訳ないですが、質問を変えます。
絞ったデータのみコピペするには、
どう修正すれば良いでしょうか！！
申し訳ありません！

・ツリー全体表示


	【77667】Re:オートフィルターについて

古 - 15/11/20(金) 23:42 -


	引用なし

	パスワード

▼β さん：
お返事有難うございます。
よくよく自分で見てみると、Ａ1032セルを選択する必要は
ありませんでした。（マクロ記録した時は1032行までデータがあったみたいです）
さらに
　　Range(Selection, Selection.End(xlToRight)).Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Range(Selection, Selection.End(xlDown)).Select
で、データ全体を選択してもいますが、この必要はなかったですね。
この全体のデータの中で、Ｉ列が”４ではないもの”を抽出したいだけなのに
私は何をしているのでしょう。。。（マクロの記録時に、色々とやってしまったようです。お恥ずかしい限りです）

>もう１つ、どこかのシートの内容を抽出シートにコピペして、そこでオートフィルターで抽出ですね。
>もしかして、元データから抽出した結果を、抽出シートに転記したいということではないのですか？

その通りです。全データSheetがあり、その内容を抽出シートにコピペします。
抽出シート上でI列で”４ではないもの”を抽出します。
全データSheetは、外部からのリンクが複雑に絡んでいるため、直にいじらない方が
良いと思い、抽出シートにコピペしています。

>また、元データのレイアウト、特に　７行目がどうなっているのか、それを説明いただけると
>より具体的に検討することができるかと。

有難うございます。
なので、元データと抽出シートのレイアウトは全く同じです。
７行目はブランクです。
８行目は項目名が入っています。

謎なのは、マクロの記録で”４を含まない”にしたらCriteria1:="=4"と
なったこと。また、それでも４が時々混在することです。
質問文にも書いていますが、
Selection.AutoFilter Field:=9, Criteria1:="<>4"
に修正したら、４のものが大量に抽出されたことです。
もう意味が分かりません。

データの書式が揃っていないのでしょうか・・・

・ツリー全体表示


	【77666】Re:コンボボックスへのデータ設定

める - 15/11/20(金) 20:20 -


	引用なし

	パスワード

>Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2)).Value
>です。

Worksheets(myWsn).Range(Worksheets(myWsn).Cells(MinRow, 2 _
), Worksheets(myWsn).Cells(MaxRow, 2)).Value

としたほうがよいかと思います。(あえてWithは使ってません)

・ツリー全体表示


	【77665】Re:オートフィルターについて

β - 15/11/20(金) 9:01 -


	引用なし

	パスワード

▼古さん：

γさんも指摘しておられますが、「選択」して、何をしたいのか、その目的を説明されれば
その目的に合致したより良い処理案も提示できるかもしれません。

もう１つ、どこかのシートの内容を抽出シートにコピペして、そこでオートフィルターで抽出ですね。
もしかして、元データから抽出した結果を、抽出シートに転記したいということではないのですか？

また、元データのレイアウト、特に　７行目がどうなっているのか、それを説明いただけると
より具体的に検討することができるかと。

・ツリー全体表示


	【77664】Re:コンボボックスへのデータ設定

goro - 15/11/19(木) 11:09 -


	引用なし

	パスワード

▼β さん：
>▼goro さん：
>
>まず、アプリケーション定義エラーは領域規定としての
>
>Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2).Value)
>
>これは間違いです。
>
>領域としては
>
>Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2))
>
>ですし、その値ということなら
>
>Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2)).Value
>
>です。
>
>次に、重要なことですが、AddItemメソッドは、リストに対して、項目を
>【１つずつ】追加するメソッドです。領域の値をどさっと追加することはできません。
>
>アップされた例なら
>
>Sheets(myWsn).OLEObjects("ComboBox" & CmbNo).Object.List = Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2)).Value
>
>ですね。

β さん

回答頂き、ありがとうございました。
うまくいきました。

ネットでいろいろ調べていましたが、理解があやふやだったようです。

・ツリー全体表示


	【77663】Re:コンボボックスへのデータ設定

β - 15/11/19(木) 10:52 -


	引用なし

	パスワード

▼goro さん：

まず、アプリケーション定義エラーは領域規定としての

Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2).Value)

これは間違いです。

領域としては

Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2))

ですし、その値ということなら

Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2)).Value

です。

次に、重要なことですが、AddItemメソッドは、リストに対して、項目を
【１つずつ】追加するメソッドです。領域の値をどさっと追加することはできません。

アップされた例なら

Sheets(myWsn).OLEObjects("ComboBox" & CmbNo).Object.List = Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2)).Value

ですね。

・ツリー全体表示


	【77662】コンボボックスへのデータ設定

goro - 15/11/19(木) 10:02 -


	引用なし

	パスワード

こちらは何度か利用させて頂いてます。

さて、複数のコンボボックスに対して、ワークシート上に入力してあるデータを
選択肢に設定したいと思っています。
それぞれのコンボボックスについて、データが入力されている範囲が異なるので、
「Cells(MinRow, 2), Cells(MaxRow, 2)」の様に変数で指定しています。

が、「アプリケーション定義またはオブジェクト定義のエラー」となります。
色々調べましたが、どこが悪いのかわかりません。

済みませんが、教えてください。

Worksheets(myWsn).OLEObjects("ComboBox" & CmbNo).Object.AddItem Worksheets(myWsn).Range(Cells(MinRow, 2), Cells(MaxRow, 2).Value)

・ツリー全体表示


	【77661】Re:オートフィルターについて

古 - 15/11/18(水) 22:51 -


	引用なし

	パスワード

▼γ さん：早速のご回答有難うございます！

休暇を取ってしまったので
出社したら、すぐに試そうと思います。

取り急ぎ、お礼まで。

・ツリー全体表示


	【77660】Re:オートフィルターについて

γ - 15/11/18(水) 20:48 -


	引用なし

	パスワード

>VBAでは”～ではない”の場合、
>Criteria1:="<>4"
>とするようなので、
>修正してみたら、ますます多くの4のデータが
>混在してしまいました。

Criteria1:="<>4"
で問題ないはずです。
実際に動作させたコードを提示してください。

>A1032までではなく、その列全部を選択するにはどうすれば良いですか？
マクロ記録を取ってみて下さい。
　　Columns("A:A").Select
などとなりませんか？
なお、選択する目的は何ですか？
そのあとの作業に使うのであれば、たぶん選択する必要はないはずです。

・ツリー全体表示


	【77659】Re:VBA　画像圧縮

SEWING11 - 15/11/18(水) 18:14 -


	引用なし

	パスワード

ウッシ様
回答ありがとうございます！
私の書き方が悪いのでしょうね・・・申し訳ないです。
ブックのファイルサイズを下げることが勿論目的なのですが
貼付ける画像毎にサイズダウンをさせたいのです。

今回記述頂いたコードで目的とする動きは完璧にできています。
ここへ

'JPEG形式で保存
　　cht.Export Filename:=tmpP & Dir(myPic), filtername:="JPG"

または
Selection.Cut
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False

など、挿入した画像を一度カットし、形式を変えて貼付けという動作を
組込たいのです。

前に頂戴したコードで画像がサイズダウンされていましたので
それを元に試行錯誤してみます。
何度もアドバイス有難うございました！

・ツリー全体表示


	【77658】Re:シート内のリンクについて

古 - 15/11/18(水) 17:33 -


	引用なし

	パスワード

▼独覚さん：
早速のご回答、有難うございます！
終業の上、火曜日まで休暇を取ってしまったので
すぐに試すことが出来なくて悔しいですが、出社したら
必ず、成果をご報告します。
有難うございます！

・ツリー全体表示


	【77657】Re:シート内のリンクについて

独覚 - 15/11/18(水) 16:33 -


	引用なし

	パスワード

▼古さん：
VBAではなくワークシート関数ですがこういうのでいいのでしょうか。

「う」シートのE1セルに
=IF(C1="","",VLOOKUP(C1&"*",IF(COUNTIF(あ!A:A,C1&"*"),あ!A:B,い!A:B),2,FALSE))
と入力して下へフィルコピーしてください。

・ツリー全体表示


	【77656】シート内のリンクについて

古

- 15/11/18(水) 14:42 -


	引用なし

	パスワード

立て続けに、質問です。

”あ”、”い”、”う”の３つのシートがあります。
”あ”と”い”は別のテキストデータからもって来るデータです。

”あ”
A列は、「12345ﾄｳｷｮｳ」「67890ﾄｳｷｮｳ」のような表記になっています（A1～A22）
B列は、金額です。

”い”
A列は、「54321日本」「09876日本」のような表記になっていて（A1～A19）
B列は、金額です。

”う”シートは、集約するシートで
C列に「12345」や「54321」など、数字だけが入っていて
E列に　それに該当する金額を入れるようになっています。

この”う”のE列に　＝"あ"Sheet!A1 のようにリンクをつけても、毎回必ず
一つか二つは、おかしくなります。

毎月データ更新で”あ”と”い”のデータ位置が狂うからではあるのですが
すんなりリンクできる方法を教えてください。

申し訳ありません。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

239 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free