VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2019/03/23(土) 15:33:38.79

>>761
ありがとうございます。
試してみます。
最初のFor Nextループがものすごく時間がかかりそうで楽しみです。
あと先日は説明の簡略化のためにシンプルに書いたけど
実は開いたURL内で、ある条件があると、さらにその親URL内のAリンクの子URLも開かないといけない複雑な事情があるのです。

**デフォルトの名無しさん** · 2019/03/23(土) 19:47:18.63

>>761
Exit For抜けてますよ
フラグも i = pg-1まで行けたときに立たせるだけで十分だと思います

あと、非表示でIEを50立ち上げると中断した時のプロセスの掃除が大変なので、Ajaxで無ければXMLHTTP60を使うのも手かもしれません。

**デフォルトの名無しさん** · 2019/03/24(日) 00:51:51.95

>>752
まさかIEオブジェクトの読み込み動作がVBAのスレッドで処理されてると思ってるのか？
>>753
終わりじゃないので考慮点はある

コード書こうかと思ったけど、>>761さんが書いてるからまあいいか
読み込み完了の検出とかどうするか悩みどころではある
イベントハンドラの動的設定か、せめてWithEventsが配列にも宣言出来ればなぁ

まあ50も多重化してもオーバーヘッドかかるだけで高速化しない気がするから
数個固定で持たしてイベントハンドリングするのが現実的かもしれん

**デフォルトの名無しさん** · 2019/03/24(日) 01:34:57.18

この場合Do Loopを抜ける条件が全ページの完了だから、Exit Forはあってもなくても結果というかスピードは変わらないね
さっさと抜けたところで、またForループに戻るだけだし

個人的には「pg - 1」が何回も出てくるのが美しくないなあとか、ForとDoの順番を逆にした方がコンパクトになりそうだなあとか

**デフォルトの名無しさん** · 2019/03/24(日) 01:38:23.22

一括処理なら、この方がコンパクト
まあ、ホストの応答速度や、次の処理の内容次第では終わったページからどんどん片付けた方がいいだろうけど
For i = 0 To pg-1
Do
Loop Until ie(i).readyState >= 4
Next

**デフォルトの名無しさん** · 2019/03/24(日) 08:29:39.64

>>765
> 個人的には「pg - 1」が何回も出てくるのが美しくないなあとか
C言語とかに慣れてるんだろう
VBA的には
ReDim ie(1 To pg)
ReDim url(1 To pg)
For i = 1 To pg
だろうね
可能であればieとurlをTypeで纏めてそれを配列にした方が見易い

**デフォルトの名無しさん** · 2019/03/24(日) 08:58:33.34

>>766
ははは、これは笑った。確かにこれが単純明快でコンパクト w

**デフォルトの名無しさん** · 2019/03/24(日) 10:28:46.47

>>766
それだとサイズのでかいページで待ちが発生する

Do
For i
If ie(i)準備完了 And i.処理フラグFalse then
処理
処理フラグTrue
カウント
End if
Next
カウント=50 exit
Loop

**デフォルトの名無しさん** · 2019/03/24(日) 10:33:07.42

>>769
投げてからの待ちだからいいんじゃねえの？
俺はやったことないから知らんが、投げたらあとはIEが並行処理で取ってくるんだろ
で全部取ってから次の処理なら問題ない
でかいページでVBAが待っていても同時に他のページもIEが取って来てるんじゃねえの
だからでかいページで待っていてもそれが終わったら他の軽いページも取り終っていてあとは
ばたばたと進んで終了、と理解している

**デフォルトの名無しさん** · 2019/03/24(日) 10:52:55.88

>>769
ああ、すまん。それがわかってる上で待ち時間がもったいない、ということね
>>766もそこは注意書きはしているな

**デフォルトの名無しさん** · 2019/03/24(日) 10:56:37.24

IEはマイクロソフトも使うなって言ってるのに
VBAって不便だよね

**デフォルトの名無しさん** · 2019/03/24(日) 11:58:25.29

IE使えなくなったら、どうやってブラウザ制御するの?
UIAutomation面倒くさいかから、

**デフォルトの名無しさん** · 2019/03/24(日) 11:58:47.29

getElementByしたいんだけど。

**デフォルトの名無しさん** · 2019/03/24(日) 12:34:48.16

IE使えなくなったらってもう使ってる人なんていない
セキュリティに甘いとこは使えるのか？

**デフォルトの名無しさん** · 2019/03/24(日) 13:28:35.85

ちゃんと動くのか試してみた
たしかにIEが複数開いて、平行処理でページを取ってくるね
VBAのシングルスレッドとか完全に無関係やん

**デフォルトの名無しさん** · 2019/03/24(日) 13:33:22.28

>>776
まだそこ？

**デフォルトの名無しさん** · 2019/03/24(日) 13:36:50.26

大昔からあるファイルシステムだって非同期読み書きできる
1000倍遅いネットワークで出来ないはずがないだろうが

**デフォルトの名無しさん** · 2019/03/24(日) 13:55:48.62

>>778
無能管理職かよ

**デフォルトの名無しさん** · 2019/03/24(日) 14:55:03.02

現実的には50並列で全ページ完了待ちするのはどうもなぁ

あと全力でループまわして完了待ちするのも無反応になるんじゃね
とりあえずDoEvents挟もうぜ

>>776
スレッド以前に、ＩＥオブジェクトが別プロセスだから
アウトプロセスのCOM使うのはVBAで並列やる、おそらく安全で簡単な唯一の方法
まあCOM作る方は大変だがな

>>777
OSがサポートしてるだけで、VBAから使えるかどうかとは別の話
VBAで非同期並列やりたければ、基本的にはイベントベースでしかサポートされていない

**デフォルトの名無しさん** · 2019/03/24(日) 17:00:18.75

>>776
これ、1つずつ待つ部分がVBAでマルチにしたいって話だったけどCreateObjectで既に別プロセスだから全部投げてから全部の完了を待つので正解なんだよな。

勘違いしてマルチプロセスでやろうとしちゃったよ。
ついでにApplication.Runで出来なくて、迷ってたんだけど、またまた勘違いでApplication.OnTimeが正解だった。
でもOnTimeって戻り値が取れないんだよな。

**デフォルトの名無しさん** · 2019/03/24(日) 17:02:38.91

あと、ExcelVBAスレにあるようにInternetExplorer.Applicationじゃなくて別のオブジェクトの方が早いと思うよ。

**デフォルトの名無しさん** · 2019/03/24(日) 17:15:34.95

講釈垂れはいいからコードはよ

**デフォルトの名無しさん** · 2019/03/24(日) 17:48:52.18

とりあえずDoEvents。

**デフォルトの名無しさん** · 2019/03/24(日) 21:00:07.33

取りあえず書いてみたんだが、1つずつ待っても速度が変わらん。
テスト用に繋げた所があんまり時間が掛からん所でReadyStateのループに入らんのよ。

取りあえずInternetExplorer.Applicationはやっぱり遅かった。
59個のURLから同じ場所にある特定のデータを取ってくる処理でMSXML2.XMLHttpなら5秒のところIEだと60秒くらい掛かった。

**デフォルトの名無しさん** · 2019/03/24(日) 23:42:52.24

IEを普通にUIを持ったアプリケーションとして開けば、クッキーや画面のレンダリングからアクセス履歴の更新やキャッシュの整理までいろんな処理が走るから、そりゃ実質GETだけのXMLHTTPと比べたら遅くなるのは当たり前と言うか

>>785
画像検索にそれぞれ違うキーワードを設定すれば、それなりに時間がかかるようになるから負荷のテストにはおすすめ

**デフォルトの名無しさん** · 2019/03/25(月) 08:15:58.30

>>786
そんなことは知ってるが、ここの話で具体的なのがIEだから、いやいや、IEはこんなに遅いですよと注意喚起したんだよ。

まあ、Script関連でIEじゃないと駄目な場合もあるけどね。

**デフォルトの名無しさん** · 2019/03/25(月) 21:50:57.49

真のエクセラーならieなんか使わずにwebクエリーとか使って何とかするべきだろうが

**デフォルトの名無しさん** · 2019/03/25(月) 23:08:06.35

getElementByもWebクエリも使ったことあるけど、
Webクエリはどうやって取ってきてるのか謎。

**デフォルトの名無しさん** · 2019/03/25(月) 23:19:23.02

レンダリングしないでペイロードのパースだけやってるんでしょ

**デフォルトの名無しさん** · 2019/03/26(火) 00:39:52.05

誰もSelenium basic使わんの？
IE使わなくていいしセッション維持とかも楽だぉ？

**デフォルトの名無しさん** · 2019/03/26(火) 18:58:02.34

readystateが信用ならんのがな
completeになっても完全に読み込めてなくてその後の要素取得処理に失敗とか高確率で起こるし
WinHTTP使うのが確実だと思う

**デフォルトの名無しさん** · 2019/03/26(火) 22:23:16.17

>>791
x だぉ
o だよ
正しい日本語を使いたまえ

**デフォルトの名無しさん** · 2019/03/26(火) 23:48:15.28

結局Do LoopとOn Error Resume Nextで逃げるしかないっていう。

**デフォルトの名無しさん** · 2019/03/27(水) 00:00:47.48

>>794
x 結局Do LoopとOn Error Resume Nextで逃げるしかないっていう。
o 結局Do LoopとOn Error Resume Nextで逃げるしかないっていうことですね。
正しい日本語を使いたまえ

**デフォルトの名無しさん** · 2019/03/27(水) 00:54:24.99

口語体が理解できないやつが正しい日本語とか

**デフォルトの名無しさん** · 2019/03/27(水) 06:30:58.48

アスペかしら…

**デフォルトの名無しさん** · 2019/03/27(水) 07:39:47.73

では、教えてくれ。
正しい日本語の"正しい"とはなんのことだ。
先に言っておくが、国語辞典や義務教育は関係ないぞ。

**デフォルトの名無しさん** · 2019/03/27(水) 08:38:29.06

>>798
お前のようなノイズではないこと

**デフォルトの名無しさん** · 2019/03/27(水) 12:48:07.16

>>798
国語辞典や義務教育関係ないと言うのならば口語体でも問題ないと思うが…。
例えば力不足、役不足のように意味を間違えて使っていては当然正しい日本語ではないが、今回の様な場合では相手方に伝われば良いということにならないか。

**デフォルトの名無しさん** · 2019/03/28(木) 20:50:35.86

関西弁は正しい日本語ではない

**デフォルトの名無しさん** · 2019/03/28(木) 20:59:08.44

正しい日本語とは

**デフォルトの名無しさん** · 2019/03/28(木) 21:53:50.06

>>796
x 口語体が理解できないやつが正しい日本語とか
o 口語体が理解できないやつが正しい日本語とかどういうこと？

**デフォルトの名無しさん** · 2019/03/28(木) 23:24:25.12

長いのでWithするかSetしましょう。

With 口語体が理解できないやつが正しい日本語
　　とか = ×
　　とかどういうこと? = 〇
End With

**デフォルトの名無しさん** · 2019/03/28(木) 23:39:02.51

Sub CorrectJapanese()
Dim text As String
Dim inputText As String
text = "口語体が理解できないやつが正しい日本語とか"
inputText = InputBox("あなたの日本語は？")
If inputText = text Then
MsgBox "アホ"
ElseIf inputText = text & "どういうこと？" Then
MsgBox "そのとおり"
End If
End Sub

**デフォルトの名無しさん** · 2019/03/28(木) 23:57:12.09

日付フィルターを使うときにCriteriaに設定する値って、必ず一旦Double型に型変換したDate型データをもとにしてFormat変換しなきゃいけないのかな？
Date関数の戻り値をそのままFormat変換してもうまくフィルターがかからなくて危うくハマりかけたんだが、後学のために識者がいたら教えてほしい

**デフォルトの名無しさん** · 2019/03/29(金) 00:17:35.48

まともなレスには異論返せないのな

**デフォルトの名無しさん** · 2019/03/29(金) 00:47:46.11

>>807
x まともなレスには異論返せないのな
o まともなレスには異論返せないのね

**デフォルトの名無しさん** · 2019/03/29(金) 06:46:41.33

>>804
ピリオド抜けてる

**デフォルトの名無しさん** · 2019/03/29(金) 12:23:42.03

異論返せていないまともなレスとはどれ

**デフォルトの名無しさん** · 2019/03/29(金) 12:35:07.47

>>810
この辺りじゃないか？
>>799
>>800

**デフォルトの名無しさん** · 2019/03/29(金) 12:37:39.38

どうでも良いことで延々と論じるのは如何なものか。

**デフォルトの名無しさん** · 2019/03/29(金) 18:52:59.03

>>809
シンタックスエラーになります

**デフォルトの名無しさん** · 2019/03/30(土) 09:25:26.20

VBAで実行時にシンタックスエラーが出るのはどういう場合だろう
デフォルト設定だと1行入力ごとに構文解析するし

**デフォルトの名無しさん** · 2019/03/30(土) 09:27:30.74

>>814
それ、1行ごとの構文解析だろ
For　Next　Do　Loop　Iｆ　End If
のチェックまではしてないと思うぞ

**デフォルトの名無しさん** · 2019/03/30(土) 09:28:29.64

ああすまん。これってシンタックスエラーではないんだっけ
でもエラーになるよね

**デフォルトの名無しさん** · 2019/03/30(土) 09:41:55.36

Nextを書かなかった場合は
「コンパイルエラー:For に対応する Next がありません。」
だった

もしシンタックスエラーのエラーコード(変数Errの値)が存在すれば出る可能性があるってことだと思うけど、コードの一覧てどこにあるんだ？
検索してVBのは出るけどVBAのが見つからん

**デフォルトの名無しさん** · 2019/03/30(土) 09:49:53.73

シンタックスって言葉自体は構文規則だけど、コンパイルエラーって出るんだね

**デフォルトの名無しさん** · 2019/04/06(土) 00:50:26.14

ExcelVBAでListViewを参照設定で追加して
フォームに配置して使っているんですが、
別フォームからshowしてすでに項目をいくつか追加してある
ListViewのあるフォームを表示したときに
ListViewをアクティブ（そのままの状態から矢印キーで項目を選択できるようにする）
にすることは可能ですが？
例えば

Public Sub UserForm_Active()
With listview1
.ListItems(1).Select
.SetFocus
End With
End Sub

とした場合に、フォーカスは確かにListView1にあるのですが、
その状態では項目が矢印キーの上下で選択することができません。
ListView1.SetFocusではListView1全体にフォーカスはあるが
肝心の中身の項目にはフォーカスがない状態ということなのでしょうか？

なにかよい方法はありますでしょうか？

**デフォルトの名無しさん** · 2019/04/07(日) 19:10:32.15

sendkeysで Alt↓までやっちゃうとか
あまりおすすめできる方法ではないが

**デフォルトの名無しさん** · 2019/04/21(日) 00:26:59.66

このスレは生きてますか

**デフォルトの名無しさん** · 2019/04/21(日) 17:39:05.84

一応生きてるでしょ。

**デフォルトの名無しさん** · 2019/05/10(金) 13:15:01.20

VBA勉強中のものです。

Setステートメントを勉強しているのですが、オブジェクト型についてお聞きしたいです。RangeオブジェクトとかWorksheetオブジェクトなど、いろんなサイトなど見ても使いどころがよくつかめてないです。

どんなときに使うのか、教えてもらえるとありがたいです。

**デフォルトの名無しさん** · 2019/05/10(金) 16:53:41.17

Excel VBA 質問スレで質問してみます。お邪魔しました m( _ _ )m

**デフォルトの名無しさん** · 2019/05/12(日) 02:32:02.86

>>823
オブジェクトなら同じものを頻繁に扱うときにコーディングミスをしにくくなる。

毎回、名前でアクセスしていると、ちょっとしたことで、別のものを間違って扱う可能性が高まって、実行時エラーを発生させやすくなる。

定数化していれば防げるが、定数のスコープを大きくしないといけないので、定数の値を変えるときにあっちこっちを確認しながら、直すことになり面倒なことになりやすい。

**デフォルトの名無しさん** · 2019/05/13(月) 13:34:22.56

object型の初期状態はNothing
参照先が存在しない場合もNothing返るのがあってis式で判定できる
一方でvariantの初期状態はemptyなのでis式がエラーになる

**デフォルトの名無しさん** · 2019/05/13(月) 18:12:50.85

オブジェクトの値がNothingかどうかで判断するロジックはセンスがいいとは思えない。

**デフォルトの名無しさん** · 2019/05/13(月) 22:51:51.62

Typenameとか列挙定数とかポインタ関数の値で判定するのが良いわな

**デフォルトの名無しさん** · 2019/05/13(月) 23:46:53.76

自分で変数の値をコントロールしているのに、Nothingかどうかをあちこちで確認しているクソプログラマと1年前に仕事した。

**デフォルトの名無しさん** · 2019/05/14(火) 08:31:35.00

>>827
ライブラリ側は何で判定すべきなんだ？
それともNothingを渡されたら挙動は未定義とするとか？

**デフォルトの名無しさん** · 2019/05/14(火) 11:18:55.94

>>830
そのライブラリは他人が作ったものなのか？自分が作ったものなのか？

**デフォルトの名無しさん** · 2019/05/14(火) 11:29:20.25

判定すべきものが、誰が作ったかによって変わる？

**デフォルトの名無しさん** · 2019/05/14(火) 12:37:11.77

ライブラリに状態を持つプロパティがあればいい。

他人が作ったものを使うしかなく、オブジェクトがNothingかどうかでしか判断できないのなら、そうするしかない。

**デフォルトの名無しさん** · 2019/05/14(火) 13:35:55.15

>>833
ライブラリ関数が引数として受け取ったオブジェクトをどうNullチェックするかの話だぞ？

**デフォルトの名無しさん** · 2019/05/14(火) 16:16:33.74

いきなりライブラリと言われても何のことやらわからない。

**デフォルトの名無しさん** · 2019/05/14(火) 17:30:53.68

>>835
>>827 が「オブジェクトの値がNothingかどうかで判断するロジック」って言ってるじゃん。
ある関数がオブジェクトを受け取ったときの判断方法の話だと思うんだけど、
自分はライブラリ作者なのでその場合どうするのがいいのか気になった。

**デフォルトの名無しさん** · 2019/05/14(火) 21:45:48.80

普通にエラーでブレイクすればいいじゃん

**デフォルトの名無しさん** · 2019/05/14(火) 22:22:18.25

>>837
エラーとは限らないけど変数の状態に応じて処理を分けたいと言うのはある。
空のオブジェクトに対してはまた空を返すとかね。
>>829の言ってることはわかるんだけど、>>827と>>828の主張がわからん。
Nothing判定はシンプルだけどTypeNameやenumだともっと分岐のパターンが増えちゃうじゃん。

**デフォルトの名無しさん** · 2019/05/14(火) 23:23:54.78

>>836
世の中、変なやつがいて、オブジェクト変数に値をセットして、何も変わるはずがないのに、直後にオブジェクト変数の値がNothingかどうか判定するコードを書くやつがいる。

**デフォルトの名無しさん** · 2019/05/14(火) 23:30:59.65

代入が成功したかどうか確認するテクニックも存在するから、そういう分野からの転職かな？
具体的には、コンパイラの型チェックを使った裏技だったり、ハードウェアの故障チェックなんかで使われる

**デフォルトの名無しさん** · 2019/05/15(水) 00:37:47.48

直後であってもサブルーチンに分かれてるなら
入力情報のチェックを行うのは普通のこと

**デフォルトの名無しさん** · 2019/05/15(水) 02:24:21.58

なんか例のCプログラマがしつこいけど、いまどき関係ない別プロセスがメモリ上の値を書き換えたりするミスは、OSレベルでもCPUレベルでもあるので、持論を批判されていると思って反論しなくていいよ。

ここは漠然としたVBAのスレッドだから、見ているひとにはあなたの言うことは難しくて理解できないと思うよ。

スルー力がないのか、寂しくてかまってほしいのか知らないけど、要はクソコードを書くなと言ってるだけだ。

**デフォルトの名無しさん** · 2019/05/15(水) 02:28:07.88

なんでVBAスレで組み込み系のショボいハードウェアでのプログラミングを語っているのか？

ハードウェア、OS、ミドルウェア、プログラミング言語によって考え方やどこまで想定するのかは全然、違うからいっしょくたにしないでもらいたい。

**デフォルトの名無しさん** · 2019/05/15(水) 02:29:01.28

一般ユーザー権限のアプリで別プロセスのメモリにアクセスできたのは、平成どころか昭和時代の話ですよ、おじいちゃん
希にOSやCPUのバグ騒ぎが起きますが、そんなのは例外中の例外なんで普通は気にしなくていいことです

**デフォルトの名無しさん** · 2019/05/15(水) 02:37:35.16

Windows 95、98、98SE、MeがいつのOSかもわからないのか

**デフォルトの名無しさん** · 2019/05/15(水) 05:12:46.46

そこまでわかってるのに、タチの悪いやつだな

**デフォルトの名無しさん** · 2019/05/15(水) 16:00:34.96

イベント用インスタンスはPublicでやるの？

**デフォルトの名無しさん** · 2019/05/15(水) 20:12:16.23

せっかくのイベントなのにPrivateにしたら星飛雄馬のクリスマスパーティーみたいになるじゃん

**デフォルトの名無しさん** · 2019/05/15(水) 20:14:51.37

>>848
座蒲団3枚あげる

**デフォルトの名無しさん** · 2019/05/15(水) 20:49:39.00

何か面白いこと言った？
全然わからない。
興味あるからなぜ面白いか教えて？

**デフォルトの名無しさん** · 2019/05/16(木) 02:08:04.88

>>850
ニコ動
https://www.nicovideo.jp/watch/sm9033179

**デフォルトの名無しさん** · 2019/05/16(木) 14:30:12.55

コード書く画面を
背景は黒に、文字は白に、する方法を教えれ

**デフォルトの名無しさん** · 2019/05/16(木) 17:24:09.37

>>852
ダークテーマと天に向かって３回唱える

**デフォルトの名無しさん** · 2019/05/16(木) 17:37:55.97

>>853
知っておる
http://mevius.5ch.net/test/read.cgi/tech/1556203263/261-
下がってよいぞ

**デフォルトの名無しさん** · 2019/05/23(木) 22:41:23.89

Wordで文字置換をしたいのですが、特定のフォントの文字列を検索して、文字列は変えずにフォントだけ変えたいです。半角を全角にしたいのですが可能でしょうか。ヒントだけでも教えていただけると有り難いです。

**デフォルトの名無しさん** · 2019/05/23(木) 23:01:54.16

>>855
できる
任意のRangeのCharactersのフォントを一字ずつ調べて、探しているフォントが適用されている文字が見つかったらその文字のフォントを修正すればいい
半角から全角に変換するにはStrConv関数を使用し、第２引数conversionには列挙定数のvbWideを指定する

**デフォルトの名無しさん** · 2019/05/23(木) 23:16:33.41

wordの標準機能で半角全角変換あったような

**デフォルトの名無しさん** · 2019/05/23(木) 23:29:43.67

>>856
ありがとうございます！
やってみます。

>>857
上手くいかなかったと思います。。

**859** · 2019/05/28(火) 16:00:47.95

Findを利用したコードについて教えて下さい。

書籍、サイトで掲載されていたコードを利用し、少し変えたものです。
Findメソッドを使ってC列の”たろう”を検索します。
探し出したら、A～C列の文字列をE列に結果を返すように作り替えてみましたが、結果がE1～G1に上書きされてしまいます。
Cells(Rows,count　を理解しきれていない、11行目のCells(i,”E”)の部分も理解していないと感じます。
どのように違うのか、ご指導お願いします。

ワークシートはこんなかんじ　E列からG列は実行後の結果をイメージしたものです
　　A　　B 　　C　　　D　　E　　　F　　G
1　日付　売上　担当者　　　　000　　AAA たろう
2　000　AAA たろう　　　　　333　　DDD たろう
3　111　BBB はなこ
4　222　CCC たかし
5　333　DDD たろう
6　444　EEE はなこ
7　555　FFF くみこ

**859** · 2019/05/28(火) 16:01:28.69

859の続き

Sub Find()
Dim temp As Range, tempAddress As String, i As Long

With Range("A1").CurrentRegion.Resize(, 1).Offset(, 2)
Set temp = .Find(what:=“たろう”)
If Not temp Is Nothing Then
tempAddress = temp.Address
i = Cells(Rows.Count, "E").End(xlUp).Row

Do
temp.Offset(columnoffset:=-2).Resize(, 3).copy Cells(i, "E")
Set temp = .FindNext(temp)
Loop While temp.Address <> tempAddress
End If
End With
End Sub

Sub copy()
Range("A:G").Clear
Worksheets("template").Range("A1:C7").copy Destination:=Worksheets("Sheet1").Range("A1")
End Sub

**デフォルトの名無しさん** · 2019/05/28(火) 16:38:34.40

>>860
i=i+1 が抜けてるだけじゃね？