Excel VBA 質問スレ Part51

Excel VBA 質問スレ P ..

418:デフォルトの名無しさん
17/12/12 12:50:26.86 R9+tEHmjd.net
>>407
スマホなのでちょっと待ってて

419:デフォルトの名無しさん
17/12/13 11:40:21.94 5F7kXiJk0.net
名前を付けて保存する際
最近使った“アイテム”が
今週～，先週～，しばらく前，という順番で使用履歴の各ファイル名が表示されます。
これを表示させない設定を教えてください。
よろしくお願いいたします。

スペック
↓
OS=Win10
Excel2016
Officeﾊﾞｰｼﾞｮﾝ=1710

420:デフォルトの名無しさん
17/12/13 14:40:49.78 5F7kXiJk0.net
↑すいません、質問するべき板を間違えました。ここはVBAでしたね。
他で聞いてみます。

421:デフォルトの名無しさん
17/12/13 22:03:05.49 lbNGI0B20.net
チョイ前に変数の宣言が話題になってたから俺も一ネタ言いたい
「redim で変数の宣言が出来る仕様はやめて欲しい」
変数名を間違えた時にエラーで気付けるように普段から変数の宣言を強制してるんだけど、
redim で配列を変更する時に変数名を間違えても
新たな別の変数扱いされてエラーにならないから気付かないことがある
配列変数でも宣言は dim 、要素変更は redim っていう風にしといてくれたらと願ってやまない

422:デフォルトの名無しさん
17/12/13 23:22:51.89 b+I23nON0.net
Application.GetOpenFilename　でファイルのパスを求められることが分かった
Application.GetOpenFilename
Workbooks.Open.Filename:=Application.GetOpenFilename
ってできないことが意味がわらない

あと
Workbooks(Application.GetOpenFilename)ってやるとパス付のでエラーになってしまうこともわかった
Workbookオブジェクトに適当な変数を宣言して iとする
i = Application.GetOpenFilename
i.worksheet()ってできない意味がわからない
i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
i.worksheets()
これならできる意味がわからない
()で戻り値をくくるのはわかる
でもこの場合の戻り値はパス付戻り値であるから　Applcation.GetOpen....
はいらないのでは？パス付戻り値ならば
i = Application.GetOpenFilename
でもできるのでは？WorkBookオブジェクト変数だから
誰か答えられる？

423:デフォルトの名無しさん
17/12/13 23:34:03.63 fRI8/I3E0.net
そういう言語仕様なので

424:デフォルトの名無しさん
17/12/13 23:49:56.82 b+I23nON0.net
わりと真面目に答えてくれ
オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない
なんのためのオブジェクト変数なんだ
Workbooks.Open(filename:= ApplicationGetOpenFilename)
これもパス付のファイル名なのになんで格納できるんだ？

425:デフォルトの名無しさん
17/12/14 00:01:33.96 iqnmwrCv0.net
まず型というものを理解してください
つぎに、プロパティというものを理解してください
つぎに、オブジェクトにはデフォルトプロパティというものがあるのを理解してください
あと名前付き引数に対する理解も必要ですね
VBAではSetでの代入とLet(を省略した)代入では意味が違うので、それもちゃんと区別してください
いちいち全部ここで解説はせんが
このぐらい理解すればたぶん答えはわかるだろ

426:デフォルトの名無しさん
17/12/14 00:13:48.84 iqnmwrCv0.net
まじめに答えといてやるけど
>オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない
たぶんお前がやってるのは、そのオブジェクト変数のデフォルトプロパティに代入しようとした
で、そのオブジェクトがそれを受け入れないからエラーがでたんだろうな
>Workbooks.Open(filename:= ApplicationGetOpenFilename)
>これもパス付のファイル名なのになんで格納できるんだ？
格納の意味が分からん
ApplicationGetOpenFilename（の結果）をたんにOpenの(filename)引数として渡してるだけ
ApplicationGetOpenFilenameの結果がOpenのfilename引数として適当だからエラーが出なかっただけ

427:デフォルトの名無しさん
17/12/14 00:14:33.99 FrwGQASIx.net
パス付戻り値っていう表現が凄い
Application.GetOpenFilenameの戻り値は、パス文字列か、パス文字列の配列か、ダイアログがキャンセルされたときに返されるFalseかのいずれかしかない
パス付って、何にパスがくっついてると理解してるんだろう
パスが戻り値そのものだろう

428:デフォルトの名無しさん
17/12/14 00:18:35.88 oVDd8Fug0.net
>>416
意味がわからん
初心者相手に専門用語で勝った気になるなよ

429:デフォルトの名無しさん
17/12/14 00:21:23.88 oVDd8Fug0.net
>>417
パスってのは
¥C:のことだろ？
openメゾットの戻り値も¥C:ついてるのに
WBオブジェクト変数に格納できる意味がわからない
専門用語でこたえるなわかりやすく答えろ
外人相手に口喧嘩して勝ち誇ってるやつと同じだわ

430:デフォルトの名無しさん
17/12/14 00:23:38.19 oVDd8Fug0.net
workbookのオブジェクト変数のデフォルトプロパティってなんだよ
そこを答えろ
答えろって言わないと答え出て来ねえのかよ

431:デフォルトの名無しさん
17/12/14 00:24:22.55 oVDd8Fug0.net
ちなみにおれはVBA初めて3時間
ここまでの疑問が出るだけすごいと思うけど

432:デフォルトの名無しさん
17/12/14 00:24:26.11 0XKK4N9O0.net
>>412
>Workbooks.Open.Filename:=Application.GetOpenFilename
>ってできないことが意味がわ「か」らない
Workbooks.Open Filename:=Application.GetOpenFilename
なら動くんだが、それではダメ？(open と filename の間は半角スペース)
何故かと言えば言語の仕様として
引数はピリオドで繋ぐものではないからとしか言いようがない
(workbooks はオブジェクト、open はメソッド、filename:=~ はその引数)
>i = Application.GetOpenFilename
>i.worksheet「s」()ってできない意味がわからない
変数i が workbook型だとして、Application.GetOpenFilename の戻り値はworkbook型ではない。
戻り値はvariant型なんだけど、キャンセル時に false になるだけで、ファイルが選択されていれば文字列が返される
複数ファイルが選択されてても文字列が配列で帰るだけ
それに、i がworkbook型変数なので set を付けないとダメ
i が variant型変数なら文字列か false が帰るだけでヤッパリ workbook としての挙動はしない
i.worksheet「s」() っていうのも、worksheetオブジェクトは
既に開いているブックのシートしか指定出来ないから、i がブックとしてオープンしてなきゃ当然ダメ
>i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
>i.worksheets()
>これならできる意味がわからない
set i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
じゃないと動かないよ
理由は前述のとおり

433:デフォルトの名無しさん
17/12/14 00:32:01.43 FrwGQASIx.net
>>419
Openメソッドの戻り値はパスではなく、Workbookオブジェクトそのものだ
開いているブックの集まりであるWorkbooksコレクションオブジェクトに、引数Filenameで指定したブックを追加して、戻り値としてそのブックそのものを返す処理だ

何か根本的に勘違いしてるだろ君

434:デフォルトの名無しさん
17/12/14 00:33:36.37 oVDd8Fug0.net
>>422
お前がまだわかりやすいな
ただし
おれはすでに開いているファイルじゃないと操作できないとかは全部知っている
オブジェクト型変数の前にsetステートメントを置くことも知っている
つまり
Application.GetOpenfilename ＝ファイルを開いた時は文字列が返される
workbook型に返せないのか？
答えはパス付きの文字列で帰って来るためにノーだ
これも知ってる
Workbooks.Open filename:=Application.GetOpenfilename
これも知っている
しかし結果としては
ファイルを選択で開いたパス付き文字列を開く
という命令なはず
同じパス付き文字列なのにworkbook型に格納できないのが意味がわからない

435:デフォルトの名無しさん
17/12/14 00:35:42.03 oVDd8Fug0.net
>>423
ん？なんで？
msgboxで表示されてもパス付きになるよ？

436:デフォルトの名無しさん
17/12/14 00:41:28.15 oVDd8Fug0.net
またも意味不明な現象が起きた
拡張子を指定しなかったのに開いた
拡張子を指定したらなぜかエラーが出た
なんでだ？

URLﾘﾝｸ(i.imgur.com)

437:デフォルトの名無しさん
17/12/14 00:42:52.81 FrwGQASIx.net
>>420
オブジェクトには、特にプロパティ名を指定しないでアクセスする場合に、優先的に参照されるプロパティが決められていて、それをデフォルトプロパティと呼ぶ
オブジェクト型に合わないデータを代入してしまう構文になっているときでも、データの型がデフォルトプロパティの型に適合していればVBAはデフォルトプロパティへの代入として解釈して処理を受け付ける

438:デフォルトの名無しさん
17/12/14 00:44:33.92 oVDd8Fug0.net
>>423
Workbooks.Open(filename:= ApplicationGetOpenFilename)
→\C:～～～～という文字列が返される
ApplicationGetOpenFilename
→これも同じ
なぜ前者はWorkbook変数に格納できて
後者はできないんだ？

439:デフォルトの名無しさん
17/12/14 00:45:53.39 oVDd8Fug0.net
>>427
そんなもん知ってるわ
Rangeやcellsのvalueみたいなもんだろ？
Workbookオブジェクトのデフォルトプロパティはなんだ？

440:デフォルトの名無しさん
17/12/14 00:48:20.20 0XKK4N9O0.net
>>424
悪いけど>>412 の書き方じゃ分かってるようには見えない
set を付けてない時点でこの人は分かってないんだなと判断されても仕方ない
そして
>Application.GetOpenfilename ＝ファイルを開いた時は文字列が返される
も間違い
Application.GetOpenfilename は、
あくまでもファイルのパス情報を文字列(或いは false)で返すだけで
実際にブックを開けることはしない
だから正確に書くと
Application.GetOpenfilename ＝ファイルを「選択した」時は文字列が返される
というべきで、そのブックを開くためにworkbooks.open を用いる必要がある

441:デフォルトの名無しさん
17/12/14 00:51:58.64 oVDd8Fug0.net
>>430
set
オブジェクト変数を代入するとこに扱うステートメント

442:デフォルトの名無しさん
17/12/14 00:53:08.36 oVDd8Fug0.net
>>430
ファイルを開いたっていうのは
選択したって意味なんだが
オブジェクトとOPENメゾットで初めて開く
こんなの知っている

443:デフォルトの名無しさん
17/12/14 00:53:19.64 0XKK4N9O0.net
>>430でもまだ不正確だった
より正確に言うと
Application.GetOpenfilename ＝
「開きたい(あるいは移動、コピー、改名、削除など何らかの操作をしたい)」ファイルを「選択した」時は文字列が返される
ですね

444:デフォルトの名無しさん
17/12/14 00:55:08.87 oVDd8Fug0.net
>>433
んなもんしってるわ
キャンセル押されたらフェイルス
ファイルを選択したらパス文字列

445:デフォルトの名無しさん
17/12/14 00:56:13.50 0XKK4N9O0.net
>>432
いや、それが分かってるなら何を問題にしてるのかがよく分からない
それと「メゾット」じゃなくて「メソッド」ね

446:デフォルトの名無しさん
17/12/14 00:56:39.81 pIjJ7/MG0.net
真面目に答えるんじゃなくて
わりと真面目に答えるように

447:デフォルトの名無しさん
17/12/14 00:58:18.78 FrwGQASIx.net
>>420
ちなみにworkbookオブジェクトのデフォルトプロパティは存在しない
存在しないから当然、workbook型に合わないデータは代入できない

448:デフォルトの名無しさん
17/12/14 01:00:54.08 oVDd8Fug0.net
>>437
じゃあなんで
workbook.openのパス文字列は入るんですかねえ

449:

450:デフォルトの名無しさん
17/12/14 01:01:13.61 oVDd8Fug0.net
ここまで答えなしだが
誰もわからないのか？

451:デフォルトの名無しさん
17/12/14 01:01:34.43 oVDd8Fug0.net
おれの質問ってVBAの穴をついた？

452:デフォルトの名無しさん
17/12/14 01:04:09.93 0XKK4N9O0.net
質問の意味がわからないんですよね
何が疑問なのか、独自表現を用いずに、
set やなんかも省略せずに正しく動作するコードと
動作しない理由が知りたい動かないコードを書いてみてもらえます？

453:デフォルトの名無しさん
17/12/14 01:05:31.95 FrwGQASIx.net
>>428
workbooksは、workbookクラスではない
別のオブジェクトのクラスだ
それから、さっきも書いたが、Openメソッドの戻り値は引数で指定されたパスを持つWorkbookオブジェクトなのであって、Openメソッドによってパス自体が戻ってくる訳ではない
パスを返してくるApplicationクラスのGetOpenFilenameメソッドとは全く働きが違う
プロパティやクラスや引数の名前で何となくbookとかfileとか付けばパス付のWorkbookオブジェクトが返ってくるものと混同してるようだが、きちんと区別しないといけない

454:デフォルトの名無しさん
17/12/14 01:13:20.35 FrwGQASIx.net
>>438
Openメソッドが要求する名前付き引数Filenameに、GetOpenFilenameで取得したパスを設定して、その結果新しく開いたWorkbookオブジェクトが返っているからだよ
このFilenameはApplication.GetOpenFilenameメソッドの戻り値ではあるけど、Workbooks.Openメソッドの戻り値ではない
Worksheets.Item(Index:=ActiveSheet.Name)みたいな処理と一緒だと言えば少しは分かるか？

455:デフォルトの名無しさん
17/12/14 01:13:59.17 FrwGQASIx.net
>>440
突いてない
典型的な初心者の質問

456:デフォルトの名無しさん
17/12/14 01:17:18.86 LaUulqGP0.net
典型ではないな
低次元な初心者の質問

457:デフォルトの名無しさん
17/12/14 01:22:45.67 FrwGQASIx.net
たぶんこの質問者は、コレクションを知らないタイプだな、
それから、式に含まれるプロパティ名やメソッド名をオブジェクトのクラス名と同一視しているタイプだろう

458:デフォルトの名無しさん
17/12/14 01:34:07.25 n2gI2QxJ0.net
たぶんハイパーリンクでパスが表現される事が多いところから、
パスが文字列とは異なるデータ型を持つ何かだと勘違いしてるだけじゃないの？

459:デフォルトの名無しさん
17/12/14 07:32:56.86 oVDd8Fug0.net
>>443
workbooks.open filename:=Application.GetOpenfilename
この場合はworkbooksオブジェクトに選択したパス文字列が格納されるのか？
だからworkbook型に格納できるのか？

460:デフォルトの名無しさん
17/12/14 07:37:06.65 oVDd8Fug0.net
>>446
ん？
workbooks
worksheets
rows
これはコレクションだろ？
コレクションはオブジェクトの最上位
プロパティはオブジェクトの何？
メゾットはオブジェクトに命令
違うか？

461:デフォルトの名無しさん
17/12/14 07:40:17.60 oVDd8Fug0.net
マジでわかりやすい答えがない

462:デフォルトの名無しさん
17/12/14 08:30:04.65 mohvOYX1x.net
>>448
君の言う｢格納」は、コレクションへのオブジェクトインスタンスの追加、プロパティ値の設定、変数への代入、引数の受け渡し等がごちゃごちゃになっていると思う
まず、Workbooksコレクションに、データの代入はできない
WorkbooksコレクションはWorkbookオブジェクトの集まりを要素に持つコレクションオブジェクトだから
それから、Workbooks.Open Filename:=Application.GetOpenFilenameという構文は、Workbook型の変数に値を代入しているわけではない
Filenameという名前付きで定義されたOpenメソッドの文字列型の第一引数に値を渡していて、その結果としてOpenメソッドがWorkbookオブジェクトを返しているわけで、オブジェクト型変数への代入ではない

463:デフォルトの名無しさん
17/12/14 08:45:33.01 YV9D93CW0.net
>>449
コレクションは最上位じゃない
一番上にあるのはオブジェクト

464:デフォルトの名無しさん
17/12/14 08:46:43.07 QIiUylbtp.net
>>451
いやそんなのしってるんだけど
dim i string
dim wb workbook
application.Getopen filename:=で目的のファイルを開く
そしたら「¥:目的のワークブック.xlsx」が文字列として帰って来る
workbooks.open filename:=目的のファイル
これで初めて目的のファイルが開く
ここで本題
どちらも目的のファイルのバス名が返ってきているのに
set wb = application.GetOpen filename
だとエラーで
set wb = workbooks.open (filename :=目的のワークブック.xlsx)
これならwbオブジェクト型変数に代入される意味がわからない
これをはっきり答えろ
わかりやすくな

465:デフォルトの名無しさん
17/12/14 08:47:18.91 QIiUylbtp.net
>>452
一番上
↓
最上
日本語やり直したほうがいい

466:デフォルトの名無しさん
17/12/14 09:00:03.55 n2gI2QxJ0.net
>>453
Set wb = Application.GetOpenFilename
は、String型をWorkbook型のポインタへ代入しようとしてエラー吐いてる。
Set wb = Workbooks.Open(Application.GetOpenFilename)
Set wb = Workbooks.Open("目的のワークブック.xlsx")
は、OpenメソッドにString型変数を渡しているから機能する。

467:デフォルトの名無しさん
17/12/14 09:02:02.66 QIiUylbtp.net
>>455
workbook型のポインタってなに？
これがわかればすっきり

468:デフォルトの名無しさん
17/12/14 09:02:04.79 CHPwg0pDx.net
>>449
コレクションはオブジェクトの最上位、という発想がそもそも間違い
コレクションは子要素に追加されているデータやオブジェクトへのアクセス等を提供する、子要素からは独立したオブジェクトだ
更に、WorkbooksコレクションオブジェクトはWorkbookオブジェクトのみを要素に持つようにあらかじめ最適化された規定のコレクションオブジェクト

469:デフォルトの名無しさん
17/12/14 09:05:19.87 QIiUylbtp.net
>>455
WB型変数に文字列代入は不可
メゾットの戻り値の代入は可能ってこと？
なんで？

470:デフォルトの名無しさん
17/12/14 09:05:51.56 YV9D93CW0.net
>>454
日本語だけ知ってても言語仕様を正確に説明する難しいんだよ
コンピューター業界では「上位」などの言葉には特別な意味を持たせる場合もあるし、
とくに相手がド素人だと、言葉の意味から説明するのも面倒だから、あえて上位という単語は避けた上で
なんとなく通じてくれそうな「上」って言い方をしたんだよ
お前の態度が気に入らないからﾜｯﾁｮｲ Spc7はNGするわ
人に何か質問する時は最後までていねいな言葉を使え

471:デフォルトの名無しさん
17/12/14 09:07:28.47 QIiUylbtp.net
>>459
うんこーｗｗｗｗｗｗｗｗｗｗうんこーｗｗｗｗｗｗｗｗｗｗ

472:デフォルトの名無しさん
17/12/14 09:08:52.24 CHPwg0pDx.net
>>453
そもそもApplication.GetOpenFilenameはブックを開いてブックへの参照を返すメソッドじゃなくて、ユーザーにダイアログ画面上で選択させたファイルのパスを返すメソッドなんだが
メソッド名で混乱してるだろ君

473:デフォルトの名無しさん
17/12/14 09:11:20.55 QIiUylbtp.net
>>461
いやしってるけど
キャンセルが押されたらフェイルスだし
選択したらパス名が返って来る
何回言えば気がすむんだよ

474:デフォルトの名無しさん
17/12/14 09:12:47.30 QIiUylbtp.net
Openメゾットはただブックを開くだけだろ？
ただし引数を戻り値として得られる
つまり開いたファイル名がOpenメゾット内にある
違うかい？いい線いってる？

475:デフォルトの名無しさん
17/12/14 09:13:02.91 n2gI2QxJ0.net
>>458
なんでも何もデータ型が一致するかどうかが問題であって、メソッドの戻り値の型は一致するってだけ。
たぶんJavaScriptから始めたせいで認識がおかしくなってるんだろうけど、
普通はデータ型が異なる変数同士の代入は出来ない。

476:デフォルトの名無しさん
17/12/14 09:14:18.68 CHPwg0pDx.net
この質問者みたいな人が言語仕様について思い込みや勘違いをしたまま共用マクロを組んだりすると、会社にとって迷惑なだけなんだよな
作ったマクロを他人と共有しないことを祈るのみ

477:デフォルトの名無しさん
17/12/14 09:20:19.35 CHPwg0pDx.net
>>462
それ俺がきのう説明したことだよねw
オブジェクト型変数にGetOpenFilenameから返った文字列型データやデータ配列を設定しようとしてるのがおかしいんだがw
データ型とか一回学んだ方が良いと思うよ
それから蛇足だけど、フェールスじゃなくて、フォルス、フォールス、ファルスの何れかの表記にしないと、Falseのことだと理解してもらえないことが多いと思うよ

478:デフォルトの名無しさん
17/12/14 09:25:08.03 CHPwg0pDx.net
>>463
引数の文字列は戻り値にならない
Openの戻り値はWorkbookオブジェクトの実体だ
Workbookオブジェクトの実体とパス文字列はイコールじゃない
それから、メゾットじゃなくてメソッドな
あんまり特徴的な言葉づかいしてるとメゾット君と
フェールス君とか呼ばれたりするかもしれないから気を付けなよ

479:デフォルトの名無しさん
17/12/14 09:30:34.82 QIiUylbtp.net
>>467
実体でなに？どころどころで補足質問しねえといけねえのかよ

480:デフォルトの名無しさん
17/12/14 09:31:25.92 QIiUylbtp.net
>>464
変数同士？
workbook型あとは何？
これも補足質問

481:デフォルトの名無しさん
17/12/14 09:32:51.20 QIiUylbtp.net
>>466
データ型の参考ページは？
猿でもわかるやつ

482:デフォルトの名無しさん
17/12/14 12:17:27.13 7XekaZVWx.net
>>470
その言い方は猿に対して失礼だぞメゾット君
WordやPowerPointのVBAと違ってExcelは｢Excel VBA データ型」でググれば腐るほど情報が出てくるから、好きなページを読んで出直してきたらいいさ
インスタンスもググってみたらいいよ

483:名無し
17/12/14 12:34:50.44 DWbie50BM.net
>>468
Workbookの実体とは開いて実行しているエクセルブックのことだよ。ブックはVBAが管理しているメモリ上のデータではないってこと。そこにアクセスする為の情報だけがWorkbook型変数には格納されている。
これ以上はググったほうがいいな。メゾットちゃんには言葉だけでは通じないみたいだし。

484:デフォルトの名無しさん
17/12/14 12:36:44.73 bra/P7/Ad.net
どう考えてもこいつは型も文法も戻り値も

485:理解できてないだけだろ

486:デフォルトの名無しさん
17/12/14 12:45:31.15 PlqHEg1vH.net
インスタンスはお湯かけて3分で完成するよ
(´・ω・｀)b

487:デフォルトの名無しさん
17/12/14 13:37:10.14 D0PQd/9/a.net
体系だてた答えがほしいならオブジェクト指向あたりの本読んだ方がいいんじゃねえの
正確にはオブジェクト指向じゃないけどクラスとインスタンス(やそれにくっついてるメソッドやプロパティ)の関係を理解するにはそれがはや道だわ
ここは教科書じゃないから

488:デフォルトの名無しさん
17/12/14 14:17:01.84 QIiUylbtp.net
なんでぱぱっと答えられねえの？頭悪いの？

489:デフォルトの名無しさん
17/12/14 14:18:03.10 QIiUylbtp.net
>>472
ふーん
開いてから格納する
これだけだよね？詰まる所は

490:デフォルトの名無しさん
17/12/14 14:27:22.00 QIiUylbtp.net
Openメソッドで開かないと
workbook型に入らない

491:デフォルトの名無しさん
17/12/14 14:28:58.06 oiVEYMPnp.net
それは結果に過ぎない
ちゃんと原因や理屈を押さえないとまた同じことで詰むぞ

492:デフォルトの名無しさん
17/12/14 14:49:26.55 QIiUylbtp.net
>>479
それをわかりやすく教えて
ほんとにわかりやすく

493:デフォルトの名無しさん
17/12/14 14:51:48.29 /xE3TN/oa.net
>>480
無理だよ

494:デフォルトの名無しさん
17/12/14 15:05:19.17 QIiUylbtp.net
>>481
別の言葉に置き換えればいいだろ？

495:デフォルトの名無しさん
17/12/14 15:22:14.17 yqG/N6/gM.net
ID:QIiUylbtpはVBA以外の言語知ってるの？
それともExcel VBAで初めてプログラミングに触れましたって人？
お前の学習レベルがわからないからお前でもわかるように説明できないんだ

496:デフォルトの名無しさん
17/12/14 15:43:20.73 Sk339KZTa.net
ここには、彼の疑問に答えられるような人はいない。
こんぴゅうたーのでんげんをいれるとどうしてえくせるがうごくのかをせつめいするのはむずかしい。
でんきにはつうでんしてるときとつうでんしていないときがあるのでそれをりようしてぜろといちをくべつできる。
ぜろといちをくべつできればにしんすうをりようして...

497:デフォルトの名無しさん
17/12/14 17:51:08.32 Gx1HQ3cua.net
大体教えてもらう立場のやつがとる態度じゃないからまともに取り合ってもらえると思ってる時点で頭が悪い

498:デフォルトの名無しさん
17/12/14 18:34:15.80 Dm16MIru0.net
初心者なのに態度悪いからNGにしたわ。
教えてもらう態度じゃないよね。子供ならまあ納得だけど。

499:デフォルトの名無しさん
17/12/14 19:23:24.80 IXGcMbV0a.net
そもそもWorkbooksに指定するのはエクセルファイル名じゃない。
ブック名だ。
開いたブックのブック名とファイル名が同じになるから勘違いしてる奴もいるかもしれんが。

500:デフォルトの名無しさん
17/12/14 19:24:50.30 oezENCsV0.net
同じだったらファイル名でええやんw何鼻息荒くしてんの？w

501:デフォルトの名無しさん
17/12/14 20:32:08.46 g1PrWAQxx.net
>>487
恐らく>>486はWorkbooks.Itemの引数について話してるんだろうだが、君にはそのあたりが分からんみたいだな

502:デフォルトの名無しさん
17/12/14 20:33:08.02 g1PrWAQxx.net
>>489
安価間違えた、これは>>488宛

503:デフォルトの名無しさん
17/12/14 21:01:41.06 bra/P7/Ad.net
>>455
をもとに考えてみた
お金を入れるとカップにジュースが注がれる自販機を思い浮かべるんだ
Set wb = 'ジュースが入るカップ
Workbooks.Open( _'お金を判別してボタンが押されるとジュースを出す回路
Application.GetOpenFilename _'お金
)
→お金を入れてボタンを押したらカップにジュースが注がれる
Set wb = Application.GetOpenFilename
→カップに直接お金を入れて飲めないと騒ぐあほ
どうだ！？

504:デフォルトの名無しさん
17/12/14 21:06:22.48 zDxHi8mM0.net
>>453
お前バカだろ
変数wbはただの入れ物
workbook型しか入れられない入れ物にString型入れようとしてんだぞ？
これでわからないならただのバカだから二度と来るな

505:デフォルトの名無しさん
17/12/14 21:25:56.75 oezENCsV0.net
>>492
おまえのカアチャンは誰でも受け入れるのにwbって意外と固いんだな

506:デフォルトの名無しさん
17/12/14 21:27:02.90 QIiUylbtp.net
>>492
うん
それはしってるよ
でもworkbooks.Openでも同じだよね
文字列帰って来るよね

507:デフォルトの名無しさん
17/12/14 21:32:46.73 QIiUylbtp.net
application.getOpenfilename
→あ.xlsxを選択
C:¥あ.xlsx が帰って来る
workbooks.Open filename:=application.getOpenfilename(つまりC:¥あ.xlsx)
ん？どっちもパス付きのブック名じゃねえの？
ってことをいってる

508:名無し
17/12/14 21:55:08.02 5D+dY0yO0.net
>>495
文字列として返ってきたから文字列型と思ってるなら、一回workbook型をウォッチに入れてみたら？
ツリー形式でオブジェクトの、中身が見れるから全然別ものだとわかるはず

509:デフォルトの名無しさん
17/12/14 21:58:53.83 zDxHi8mM0.net
>>494
バーカw
"C:\うんち.xlsx"がworkbooks型の変数に代入できる分けないだろw
まあデフォルトプロパティなんてものが罪なんだが
てか、workbooks型のデフォルトプロパティってNameプロパティなんだな(Pathか？)
はじめて知ったわ、使わんから

510:デフォルトの名無しさん
17/12/14 22:19:18.62 cH/6/SdG0.net
Application.GetOpenFilename → 指定したファイルのパス【String型（正確にはVariant）】を取得
Workbooks.Open → filenameに【String型でファイルパスを指定】すると
そのファイルを開いた結果の【Workbook型オブジェクト】を取得
Dim str as String
Dim wb as Workbook
str = Application.GetOpenFilename →OK
str = Workbooks.Open(Application.GetOpenFilename) →NG
Set wb = Application.getOpenfilename →NG
Set wb = Workbooks.Open(Application.GetOpenFilename) →OK
オブジェクトブラウザーを見ると勉強になるよ
それぞれ、こうなっている
Class Application
Function GetOpenFilename()
Class Workbooks
Function Open(Filename As String) As Workbook

511:デフォルトの名無しさん
17/12/14 23:32:44.97 IXGcMbV0a.net
>>488
違う。
新規ブックの場合はファイル名じゃないだろ。
理解出来て無い奴に理解出来る奴向けの説明をしても駄目だ。

たまたま同じになってもブック名はファイル名じゃ無い。
だからパス付きだろうがパス無しだろうがファイルはファイルだと考えても、それとは関係ないブック名は違う。
C:¥abcd.xlsxというファイルとブック名としてのabcd.xlsxとは何の関連も無い。
似たように見えるのはたまたまだ。
だからC:¥abcd.xlsxはブック名には成りようがない。
>>495
Application.GetOpenFilenaneで帰ってくるのは"C:¥あ.xlsx"という文字だけな。
Excelブックとは関係ないファイル名だな。
例えばメモ帳で適当に入力して保存したファイルでも取ってこれるだろ。
それに別に"C:¥あ.xlsx"はExcelじゃないと開けないというわけでも無いぞ。
そもそも"C:¥あ.xlsx"はApplication.GetOpenFilenaneで取ってきたからファイル名だろうけど、取ってきた後のその文字列は=ファイル名とは限らん。
Dim wb As Workbook
Dim strFile As String
strFile=Application.GetOpenFilename
ってのはstrFileにたまたまApplication.GetOpenFilenameによってファイル名が入ったということで、
Set wb = Workbooks.Open(strFile)
のstrFileがファイル名かどうかは分からん。
このー文はApplication.GetOpenFilenameのことなんか知らんからな。
このー文の意味するところはstrFileをファイル名と思って開いてみて、開けたらwbに格納するってこと。

512:デフォルトの名無しさん
17/12/14 23:34:29.57 oVDd8Fug0.net
短くわかりやすくまとめられるやついねえの？
いくらVBAができたって引き継ぎができない奴は無能なんだが

513:デフォルトの名無しさん
17/12/14 23:41:16.00 oVDd8Fug0.net
俺もずっとROMってたけど
こいつらの説明はマジで意味不明だわ
お、良い線言ってんな　って思ったらいきなりカタカナ語がでてきてググっても意味不明
こいつらマジもんのコミュ障すぎてイラつきしかない
オナニー発言ばっかで答えがない
Apllcation.GetOpen
でaaaっていうエクセルを開く
C:\aaa.xlsx　が返ってくる
しかしWB(Workbookオブジェクト変数にしている）では指定できない
でも
Workbooks.Open filename:=Apllcation.GetOpen
これはWorkBook型に入る
つまるところどっちもC\aaa.xlsxって文字列を

514:返してんじゃねえの？何がちげえの？ってことこれいうの10回目ないい加減学習しろイラつくな

515:デフォルトの名無しさん
17/12/14 23:44:38.82 oVDd8Fug0.net
こいつらのたとえ
子供がリンゴを指さす
「これなに？」
こいつら
「これは物質○○が含まれて○○っていう色素があって赤い、つまり栄養は○○がふくまれている
ちなみにその栄養は○○って物質にも入っている」ドヤァ
って感じ
見ててムカつくから発言したわ

516:デフォルトの名無しさん
17/12/14 23:46:05.94 oVDd8Fug0.net
おれが聞きたいのは
なんでワークブックスオープンで指定したファイル名文字列だとワークブック変数に格納できんだよって話
ゲットオープンはパスがついているから格納できないのはわかった
わかりやすく答えろ

517:デフォルトの名無しさん
17/12/14 23:55:54.24 n2gI2QxJ0.net
前にいた関西弁の荒しと同一人物なんだろうけど、健気にもちょっと勉強してきてるのが笑えるw

518:デフォルトの名無しさん
17/12/14 23:56:28.06 qidVZ8HWa.net
>>503
無理。
軍事用にコンピューターというものが発明されてから今日までの歴史と仕組みを説明しなきゃならんから。
そして、君にそれを理解出来るだけの能力が有るとは思えないから。
大抵の人は全てを理解しているわけじゃ無いが、自分の利用している範囲ぐらいは理解している。

519:デフォルトの名無しさん
17/12/15 00:06:16.08 sv72SjNaa.net
>>501
ん?
>Apllcation.GetOpenでaaaっていうエクセルを開く
これ間違い。
開かない。
ファイル名を取得するだけ。
>しかしWB(Workbookオブジェクト変数にしている）では指定できない
ファイル名じゃないからな。
ブック名を指定する必要がある。
たまたま偶然ファイル名と同じだけどパス付きはブック名とは違うな。
>Workbooks.Open filename:=Apllcation.GetOpen
これはWorkBook型に入る
Workbook型に入ってるのはファイル名じゃない。
Set WB=Workbooks.Openの意味するところはfilenameに指定された文字列をファイル名と見立ててブックを開き、もし仮に運よく開くことができたらそのブックをWBに格納するという意味。

520:デフォルトの名無しさん
17/12/15 00:18:22.73 qta4Ddk+0.net
＞指定された文字列をファイル名と見立ててブックを開き
これが意味不明
GetOpenで指定したファイル名を返すんだろ？
じゃあこれはファイル名になるじゃねえのか？
ファイルを開かなかった場合はファルスがかえることはわかる

521:デフォルトの名無しさん
17/12/15 00:22:57.61 OGmesrFEa.net
>>507
GetOpenFilenameの文とWorkbooks.Openの文は別の文だろ。
プログラム組む奴はGetOpenFilenameで取得したものと違うものを入れることも出来る。
だから結果的に入ったのはファイル名でも、
Workbooks.Open自身はそれを前提にはしないだろ。

522:デフォルトの名無しさん
17/12/15 00:25:39.28 HZMi2rOwd.net
>>498
このレスの一番下がわかりやすいんじゃない？

523:デフォルトの名無しさん
17/12/15 00:26:48.82 qta4Ddk+0.net
>>508
日本語話して
ドヤ顔くん

524:デフォルトの名無しさん
17/12/15 00:26:50.88 Ma3k2IENa.net
GetOpenFilenameはメモ帳のファイル名を取って来ることも出来る。
Wordのファイル名を取って来ることも出来る。
Workbooks.Openで開けないファイル名ということも有るし、Workbooks.Openで開けるファイル名だとしてもExcelで開かなければならないということも無い。

525:デフォルトの名無しさん
17/12/15 00:27:25.61 qta4Ddk+0.net
>>509
オブジェクトブラウザーでてなんだよ
わからねえよ

526:デフォルトの名無しさん
17/12/15 00:28:29.79 qta4Ddk+0.net
>>511
あーなんとなくわかったかな
Openメソッドで開ける＝エクセル型＝ワークブック型に格納可能
ってこと？

527:デフォルトの名無しさん
17/12/15 00:32:05.55 qta4Ddk+0.net
>>498
つまりだ
君が言いたいのは(要約しないとダメなのかよ、、、)
application.GetOpenfilenameだと文字列として返ってくる
workbook型には文字列は入らない
こういうことが言いたいのね？

528:デフォルトの名無しさん
17/12/15 00:33:26.47 JSBwNcqSa.net
>>510
それはコンピューターというものをまるで理解出来ていないからそうなる。
厳密には
strFile = Application.GetOpenFilename
が実行されたからstrFileはファイル名だろとコンピューターに言っても、コンピューターは違います、文字列です。と言う。
strFileに入っている文字列のファイルは有るのかと問えば、有ります。と言う。
じゃあ、strFileはファイル名じゃねえかと問えば、違います、文字列です。と言う。
コンピュ－ターは人間が考えるような意味を理解しない。
定義通り動くだけ。

529:デフォルトの名無しさん
17/12/15 00:35:45.56 qta4Ddk+0.net
>>515
また回りくどい言い方してんな

530:頭悪いのか

531:デフォルトの名無しさん
17/12/15 00:39:33.42 OGmesrFEa.net
>>514
その理解で良い。

532:デフォルトの名無しさん
17/12/15 00:41:12.92 qta4Ddk+0.net
>>517
最初からこう言えよ
馬鹿じゃねえの？
ほんとにバカしかいねえよ
呆れるというか心配になってくる

533:デフォルトの名無しさん
17/12/15 00:42:06.72 qta4Ddk+0.net
補足するとworkbook.Openで返ってくる(開く)＝workbook型ということね

534:デフォルトの名無しさん
17/12/15 00:42:07.75 W4xtzKqva.net
>>516
君がどこまで分かって無いのか、こっちは分からないんだ。
エスパーじゃ無いんだから。
>>514の話だって型とは何だ?という説明もしなきゃならんのか?と考えれば>>515のような話も必要になって来る。

535:デフォルトの名無しさん
17/12/15 00:57:45.39 2M4lhz74x.net
>>518
最初からみーんなそう言ってるぞw
ようやく頭が追い付いてきたのかな？

536:デフォルトの名無しさん
17/12/15 01:03:08.36 2M4lhz74x.net
メゾット君もだんだん自分の頭の悪さを自覚してきてるみたいだし、あと二日以内には恥ずかしい捨て台詞を残して消える運命かな
レス保存したからいつでも再放送出来るけどなwww

537:デフォルトの名無しさん
17/12/15 01:23:44.47 IJmI7Oq80.net
>>514,518
>>415でまっさきに型を理解しろって言ってんだが
まあここまで食い下がる根性は認めるけど、いいかげん最低限は自分で勉強してくれ

538:デフォルトの名無しさん
17/12/15 01:24:37.63 JMZCHg3W0.net
多分Excel VBA入門的な記事を読み進めればすぐに理解できたと思うんですけど
勉強の進め方が下手くそすぎる

539:デフォルトの名無しさん
17/12/15 09:26:34.27 qta4Ddk+0.net
で、この型をしっかりと説明してるのはどこだ？

540:デフォルトの名無しさん
17/12/15 09:27:43.96 qta4Ddk+0.net
URLでもなんでも貼ってよ

541:デフォルトの名無しさん
17/12/15 10:46:54.06 qta4Ddk+0.net
ちなみにさ
VBAってなんでメンテナンスがいるの？
コードを直接弄るわけじゃないからバグなんてでないと思うけど

542:デフォルトの名無しさん
17/12/15 11:01:21.94 sRcKW4ZTM.net
てめーの提示したコードエラー出まくりバグばっかじゃねーか

543:デフォルトの名無しさん
17/12/15 11:23:22.68 HChVIO9E0.net
コードは変わらなくてもWindowsとかExcelとか業務仕様とか、まわりが変わっていく

544:デフォルトの名無しさん
17/12/15 11:26:16.78 qta4Ddk+0.net
VBAは楽しいぞ
俺はmos マスターだがVBAはいっさん知らんかった
最終目標としては意味不明な超複雑なコードを記述し
おれが辞めた後は誰も対処ができないという優越感を味わいたい
そしてVBEをだしてカチカチしてる姿がなんとも知的でかっこいい
ほんとこれだけのきっかけが知識につながって行く

545:デフォルトの名無しさん
17/12/15 11:36:34.77 yfj2Ro7Gd.net
今どきVBAに新規参入者がいる驚き

546:デフォルトの名無しさん
17/12/15 11:48:05.70 HChVIO9E0.net
>>530
>>500

547:デフォルトの名無しさん
17/12/15 12:00:52.51 IqUBh/zH0.net
>>530
それは能力の低い奴の言う言葉。
能力のある奴はお前が辞めても対処できるように記述する。

548:名無し
17/12/15 12:08:15.31 aoP9DSfXM.net
>>530
いや、ずっと同じ質問してる辺りこれっぽっちも知識が増えているように見えないんだが
そしてブーメランに草

549:デフォルトの名無しさん
17/12/15 12:11:37.98 IqUBh/zH0.net
>>523
そこをあっさり理解出来ないからここまで時間制掛かってる。
彼の分かってない所はみんながそういうもんだとあっさり進む所で自分中心で考えること。
コンピューターが自分と同じように考えてくれると思ってる。
アレンブラやマシン語の不自由な世界で自分と同じようには考えてくれないということを思い知った方が良い。

550:デフォルトの名無しさん
17/12/15 12:26:43.87 SvHkecGU0.net
もの凄く複雑で他人の理解が及ばな�

551:｢ようなコード書くのが目標なら、なおさら誰の助けも借りずに独学で高めていくのが重要なんだよなぁ。ネットで検索して簡単に見つかるような情報すら当たれないヤツが目指すものじゃないよね。

552:デフォルトの名無しさん
17/12/15 12:27:05.72 JZsZmqT4r.net
>>499
いやなんかまた鼻息荒くしちゃってるけど元々同じって言ったのお前だからなw
なんで素直にブック名とファイル名は違うって言えないんだよw
どうせ下手くそな説明なんだから無理して技巧的に言おうとすんなw

553:デフォルトの名無しさん
17/12/15 12:27:38.94 qta4Ddk+0.net
>>535
こいつらのオナニー意見なんて一切参考にせず自己解決したんだが？
Wrokbook型変数「これは文字列だから俺の方にははまらないよ」 = _
Application.GetOpenFilename「すまん、俺はただ選択されたファイルの文字列を返すだけなんだよ」
Workbook型変数「お、WorkbooksオブジェのOpenメソッドで開いとるやん。格納できるよ」= _
Workbooks.Open (Filename:=Application.GetOpenfilename)「俺は開いた文字列をファイル名として返すね」
これでどう？誰でもわかりやすいと思うけど？
頭悪すぎね？君たち

554:デフォルトの名無しさん
17/12/15 13:00:25.68 yfj2Ro7Gd.net
なんか
1 + 1 =2
を
「1に1を加えると2になる」
と表現してる感じだなあ

555:名無し
17/12/15 13:01:13.53 aoP9DSfXM.net
もう突っ込まないぞ！
次のお客様どうぞ

556:デフォルトの名無しさん
17/12/15 13:03:33.01 SvHkecGU0.net
>>539
そもそもWorkbooks.Openメソッドはファイル名を返さないから、
「1+1 は 2 じゃないぞ。俺たちは 1 + 1で200だ。10倍だぞ10倍」みたいなもん。

557:デフォルトの名無しさん
17/12/15 13:34:09.09 8rowC9ysa.net
>>538
わかった！君はプログラムじゃなくて日本語の勉強から始めよう

558:デフォルトの名無しさん
17/12/15 13:34:59.69 8rowC9ysa.net
会話形式にしてくれないと理解できないといってくれれば誰か頑張ったかもねw

559:デフォルトの名無しさん
17/12/15 13:57:32.57 qta4Ddk+0.net
>>541
はいはいブック名ね
どっちでもいいだろアホ

560:デフォルトの名無しさん
17/12/15 14:06:04.35 SvHkecGU0.net
>>544
ブック名も返さないよ。
何にせよWorkbooks.Openメソッドが名前を返したら
Set WB = Workbooks.Open(Application.GetOpenFilename)
が成立しないから。

561:デフォルトの名無しさん
17/12/15 14:12:36.10 sRcKW4ZTM.net
いいからMSDNのリファレンス読んでこいよ

562:デフォルトの名無しさん
17/12/15 14:42:08.62 qta4Ddk+0.net
>>545
はいはい
workbookオブジェクトを返すのね
はいはい死ね死ね

563:デフォルトの名無しさん
17/12/15 14:44:22.53 IqUBh/zH0.net
>>538
それ、全部既に言ってたからw
お前はみんながすんなり分かるところをこれだけすったもんだしてやっと分かっただけ。
これまでのやりとりが無かったら、それそのまんま言っても理解出来て無い。
そもそも、バカがどうしてバカなのかなんてこっちは理解出来ない。
お前とは違うからな。

564:デフォルトの名無しさん
17/12/15 14:47:50.40 xyZ0U828M.net
メソッドの返り値として何の型のどんなオブジェクトが返ってくることを意識する重要さが微塵もわかってないのでこいつのVBAスキルはここで打ち止めだな

565:デフォルトの名無しさん
17/12/15 15:09:10.26 vqijPR8bp.net
以降はスルーしよう

566:デフォルトの名無しさん
17/12/15 15:21:09.44 yfj2Ro7Gd.net
整数 + 整数の戻り値が整数なのに整数 / 整数の戻り値が整数じゃない理由がわからない、不合理だ、と
駄々をこねる人間もいるんだからしょうがない

567:デフォルトの名無しさん
17/12/15 19:31:32.21 lmKJ5VLWa.net
世の中にはこういう本物のバカもいるんだなあと勉強になったよ

568:デフォルトの名無しさん
17/12/15 19:39:48.70 IAZ3SurN0.net
わりとそこかしこに居るけどな、本物のバカ
ひきこもりか？おまえw

569:デフォルトの名無しさん
17/12/15 21:40:28.03 qta4Ddk+0.net
>>549
まだ始めて2週間って話してなかった？
ちなMOSエキスパート所持者ね

570:デフォルトの名無しさん
17/12/15 21:49:11.45 SvHkecGU0.net
>>421からもう二週間も経ったのか。時が経つのは早いな。

571:デフォルトの名無しさん
17/12/15 22:06:37.13 5LKBHQ7A0.net
>>554
> ちなMOSエキスパート所持者ね
ここ、笑うとこですか？

572:デフォルトの名無しさん
17/12/15 22:06:40.33 sA/nQpBXa.net
MOSエキスパート?
何それ美味しいの?
昔、「初心者だから仕様がないけどさ」と説教した相手が今回君が挑戦してる言語のエキスパート持ってたけどさ。

573:デフォルトの名無しさん
17/12/16 04:53:25.79 kSf4Qz7z0.net
先日、AutoFilterとValidationの不具合で質問したものです。
（まだ解決していませんが、、）
また新たな不具合に悩まされています。
このような場合、どこに報告すればMSの目にとまりますかね？
もし同一環境のかたおられましたら再現テストしていただけるとありがたいです。
[環境]
Microsoft Office Home and Business 2013
バージョン: 15.0.4989.1000 (2017/12)
Excel2013
Win10 64bit Core i7 Mem8GB
[手順]
以下の手順で実行するとシートSelectが不完全な状態になる。
　Trigger: 別シートの貼付画像のOnAction
　→PopupMenuのOnAction
　→呼び出されたProc内で、SheetSelect
　　続けてAutofilter実施　（直接の原因ではない）
（その２へ）

574:デフォルトの名無しさん
17/12/16 04:53:47.87 kSf4Qz7z0.net
>>558
（その２）
[現象]
　・Fitering成功しているように見えるが、非表示セルにカーソル移動できてしまう。
　・セル値の削除が効かない。（連動イベントが動かず、本現象に気づく）
　・範囲コピー貼り付けが正しく行われない。
　・セルをコピーモードにしても、選択範囲が破線矩形にならない。
　　→なんと恐ろしいことに、操作の対象が現在見えているActiveCellではなく、
　　　呼出元画像のあるシートの同一番地に対して行われている様子。
　　　破線矩形も元シートを開いたらそこにあった。
　　　削除処理も元シートに対して行われる。
　　　ステータスバーのセル値カウントも、現在見えているシートではなく、呼出元の情報を返す様子。
　　　ActiveCell.Address(External:=True)は実際に見えている移動先シートを示しているのに、、、
[発生条件の再検証]
　・別シートの画像.OnAction→Popup.OnActionで初めて成立。
　・画像.OnActionから直接Proc実行(Sheet選択、Autofilter実施)では再現せず。
　・Alt+F8からのPopup起点とすると再現せず。
　・Popup.OnActionを入れ子にしても再現せず。
　・ボタンをTableと同じシートに配置した場合は再現せず。
　・Office2010では再現せず。
（その３へ）

575:デフォルトの名無しさん
17/12/16 04:54:06.08 kSf4Qz7z0.net
>>558
（その３）
[試験に用いたコード]
1) テーブルとは別シートにある画像を選択して、ImmediateからOnAction登録。
Selection.OnAction = "mkPop"
2) Popup生成
Sub mkPop()
　With CommandBars.Add(Position:=msoBarPopup)
　　With .Controls.Add
　　　　.Caption = "Filter"
　　　　.OnAction = "DoFilter"
　　End With
　　.ShowPopup
　　.Delete
　End With
End Sub
3) Filterling実施
Sub DoFilter()
Sheets("List").Select
Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST"
Debug.Print ActiveCell.Address(external:=True) '確認用
End Sub
** 実際には機材画像のPropertyから読み込んだ文字列でフィルタリング。
** 今回はAutoFilterは無実でシート選択の不全実行が現象の概要とみています。

576:デフォルトの名無しさん
17/12/16 04:56:00.08 kSf4Qz7z0.net
>>558
環境情報が抜けていました。
Win10 バージョン 1703 (OS ビルド 15063.786)

577:デフォルトの名無しさん
17/12/16 05:17:34.49 kSf4Qz7z0.net
>>558
（その４）
回避のためのリフレッシュ手順を忘れておりました。
[効果があるリフレッシュ操作]
　' 以下、または手動によるシート切替（Screenupdating=False効かず、ちらつくが、、)
　'--------------------------------
　Application.SendKeys "^{PgDn}":Application.SendKeys "^{PgUp}"
　' Popup表示前にSheet移動してしまう。(Cancel有無にかかわらず移動してしまうが、、）
　'--------------------------------
　Application.ScreenUpdating = False: Sheets("List").Select
　.ShowPopup
[効果がないもの]
　' Filtering直前のAutoFilter再設置
　ActiveSheet.Range("$A$1:$C$5").AutoFilter
　' 画面再描画処理
　Application.ScreenUpdating = False: Application.ScreenUpdating = True
　' その他、以下を試したがNG
　Application.EnableEvents = True
　Application.DisplayFullScreen = True: Application.DisplayFullScreen = False
　Application.CalculateFull
　Application.CalculateFullRebuild
　AppActivate (Application.Caption)
　Worksheets("List").Activate
　Application.StatusBar = "aaaaaa":　Application.StatusBar = False
　MsgBox "OK"

次ページ