Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/09/13(月) 08:13:09.52

>>1 乙

2021/09/13(月) 19:11:08.29

いつものあいつの釣りとあまりに馬鹿過ぎる質問はお断りです
また、Excelの使い方すらわからない人はお帰りください

2021/09/13(月) 21:24:22.31

それでも来たらスルーでいいんじゃね

2021/09/14(火) 16:24:06.98

A列の全行のセルの値を配列に突っ込む時、オートフィルターが複数列でかかっていると、
表示されてるやつだけ配列に入ってしまうの、なんとかならない？

配列をA列に縦方向に貼り付ける時も、オートフィルターが既にかかってると、適切に元の行に貼り付け戻せない。
仕様なのかな

5 (ﾜｯﾁｮｲ e6bb-gYTk) · 2021/09/14(火) 16:26:32.34

2万行あるから、なるべく最初にa列の内容を全部配列に入れてから、それぞれを操作して、
それからまた修正済みの配列の中身をa列に上書き貼り付けしたい。
でも、オートフィルターがかかっているとまずい。
複数列でオートフィルターがかかっているととても難しい

2021/09/14(火) 16:40:04.06

フィルタ全解除する処理を前に置けばいいじゃない

5 (ﾜｯﾁｮｲ e6bb-gYTk) · 2021/09/14(火) 17:37:49.57

全解除して処理を行う、というのはできたけど、ユーザーのためにフィルタした状態ってのはそのままに戻したい。
フィルタしてる列が単体ならなんとかそれはできた。
だけど、複数列でフィルタした状態を、いったん全解除して、そんであとでまた元のフィルタ選択状態に戻すのが出来なさそうなのよね。

2021/09/14(火) 19:45:59.21

テーブルの見出しはvalueじゃ取り出せないんだな
勉強になったわ

2021/09/14(火) 20:24:42.51

フィルタは全解除するのが一番手っ取り早い
横に伸ばすのは異常に難易度高い

2021/09/14(火) 20:25:17.71

列の増加が多いなら最初から大量にフィルタ列を用意シておいたほうが良い

2021/09/14(火) 21:12:31.57

>>8
フィルタの条件って色々指定できる(色とか日付とか特定の文字列を含むとか)から、全部に対応しようとするとすごくめんどくさい
https://excel-ubara.com/vba_class/VBA_CLASS_08.html

割り切りとして「このマクロを使ったらフィルタは解除されますが情報は最新化されます」くらいにしとくのが無難かと

**デフォルトの名無しさん** (JP 0Hc9-dGLa) · 2021/09/14(火) 21:57:16.30

作業シートにコピペしてから処理すれば？

2021/09/14(火) 23:44:27.27

コマンドボタンを押してユーザーフォームを開くときに、
TopとLeftの位置をセルC5のTopとLeftの位置に合わせるべく、
以下のようにコードを記述したのですがうまく合ってくれません。
※セルC5のLeftやTop位置より大分左や上に表示されてしまう。

何か記述的におかしいのでしょうか？

Sub UserFormOpenSet()
Dim varTop, varLeft
With Sheets("説明シート").Range("C5")
varTop = .Top
varLeft = .Left
End With
With UserForm
.Show
.Top = varTop
.Left = varLeft
.Label1.Caption = "コメント内容"
　　　　・
・
・
End With
End Sub