[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
933: 2019/10/03(木)16:53 AAS
マグレだとしても…
934(1): 2019/10/03(木)19:19 AAS
>>932
1行目からおかしいね
935(1): 2019/10/03(木)19:40 AAS
>>932
オートフィルターに頼らない方が良い
あれは微妙に挙動がややこしい
Sub Macro1()
For i = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
If Cells(i, 7).Value = 1000 Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next
End Sub
936(1): [932] 2019/10/03(木)20:24 AAS
>>934
どこの部分ですか？
>>935
これを使ったのですが、時間がかかるもので、オートフィルターを使おうと思いました。
937: 2019/10/03(木)20:28 AAS
>>936
Columns(7)
938(1): 2019/10/03(木)21:13 AAS
遅いなら配列に入れるとか。
Sub Macro1()
tmp = Range("G1:G" & Cells(Rows.Count, 7).End(xlUp).Row).Value
For i = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
If tmp(i, 1) = 1000 Then
Rows(i).Delete
End If
Next
End Sub
939: 2019/10/03(木)21:15 AAS
まあ最速はアドバンスフィルタかSQLだと思うけど。
940: 2019/10/03(木)21:17 AAS
遅い一番の原因は行削除の繰り返しなんだから
941: 2019/10/03(木)21:22 AAS
>>932
Columns("G").AutoFilter Field:=1, Criteria1:="1000"
Row = Range("G" & Rows.Count).End(xlUp).Row
If Row >= 2 Then Rows(2 & ":" & Row).Delete
Columns("G").AutoFilter
942: [932] 2019/10/03(木)22:36 AAS
>>938
ありがとうございますm(__)m
早くなりました。
943(1): 2019/10/03(木)22:40 AAS
マクロって結果をシートに代入させると遅くなるのかな
1列のみの50行の範囲、検索数18個（for〜）の条件で
合えば、セルに色を付ける作業でも目でわかる速さでポツン、ポツンって色が付く
944: 2019/10/03(木)22:49 AAS
>>943
表示に関わる処理は遅い
でもセルに値や式を入れるのなら1回で一気にやれば一瞬
945(1): 2019/10/03(木)22:51 AAS
色が付いていく様子が見えると言うことは表示切ってないだろうから、
screenupdatingを切れば50行程度ならマシになるんじゃね
946(1): 2019/10/03(木)23:11 AAS
>>945
画面の切り替えはないから速度変化はないと思うけどscreenupdatingは別のマクロで使えそうなので感謝
947: 2019/10/03(木)23:15 AAS
>>946
画面の切り替えではなく、描画をONOFFする命令だよ
948(1): 2019/10/04(金)07:02 AAS
指定したセル範囲内に、異なる2つ以上の値(ブランク含まない)があればtrueを返す、VBAプログラムを教えてください。
949: 2019/10/04(金)07:33 AAS
二重ループしか思いつかんけどなんかあるかな
950(1): 2019/10/04(金)08:15 AAS
>>948
Function 違うのがある()
違うのがある = False
For Each c In Range("A1:E10")
If c.Value <> "" Then x = c.Value: Exit For
Next
For Each c In Range("A1:E10")
If c.Value <> "" And c.Value <> x Then 違うのがある = True: Exit For
Next
End Function
951: 2019/10/04(金)08:31 AAS
>>950
良さそうな案と早レスありがとうございます！
試してみます！
952: 2019/10/05(土)02:29 AAS
更新プログラムの為にサインインしたらメニューバーに自分の名前が出るようになったのでサインアウトしようとしたら「カスタマイズしたものが失われます」と警告が
通信を切って再起動しても変わらず悩んだ末にサインアウト！
結果は特にカスタマイズしたもので消えたものはなくて一安心だがカスタマイズしたものって何だったの？
上下前次1-新書関写板覧索設栞歴
あと 50 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.042s