Excel VBA 質問スレ Part51

2017/11/08(水) 11:26:30.13

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

2017/12/14(木) 09:13:02.91

>>456
なんでも何もデータ型が一致するかどうかが問題であって、メソッドの戻り値の型は一致するってだけ。

たぶんJavaScriptから始めたせいで認識がおかしくなってるんだろうけど、
普通はデータ型が異なる変数同士の代入は出来ない。

2017/12/14(木) 09:14:18.68

この質問者みたいな人が言語仕様について思い込みや勘違いをしたまま共用マクロを組んだりすると、会社にとって迷惑なだけなんだよな
作ったマクロを他人と共有しないことを祈るのみ

2017/12/14(木) 09:20:19.35

>>460
それ俺がきのう説明したことだよねw
オブジェクト型変数にGetOpenFilenameから返った文字列型データやデータ配列を設定しようとしてるのがおかしいんだがw
データ型とか一回学んだ方が良いと思うよ

それから蛇足だけど、フェールスじゃなくて、フォルス、フォールス、ファルスの何れかの表記にしないと、Falseのことだと理解してもらえないことが多いと思うよ

2017/12/14(木) 09:25:08.03

>>461
引数の文字列は戻り値にならない
Openの戻り値はWorkbookオブジェクトの実体だ
Workbookオブジェクトの実体とパス文字列はイコールじゃない

それから、メゾットじゃなくてメソッドな
あんまり特徴的な言葉づかいしてるとメゾット君と
フェールス君とか呼ばれたりするかもしれないから気を付けなよ

2017/12/14(木) 09:30:34.82

>>465
実体でなに？どころどころで補足質問しねえといけねえのかよ

2017/12/14(木) 09:31:25.92

>>462
変数同士？
workbook型あとは何？
これも補足質問

2017/12/14(木) 09:32:51.20

>>464
データ型の参考ページは？
猿でもわかるやつ

2017/12/14(木) 12:17:27.13

>>468
その言い方は猿に対して失礼だぞメゾット君

WordやPowerPointのVBAと違ってExcelは｢Excel VBA データ型」でググれば腐るほど情報が出てくるから、好きなページを読んで出直してきたらいいさ
インスタンスもググってみたらいいよ

**名無し** (ﾜﾝﾐﾝｸﾞｸ MM42-cZUN) · 2017/12/14(木) 12:34:50.44

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

2017/12/14(木) 12:36:44.73

どう考えてもこいつは型も文法も戻り値も理解できてないだけだろ

**デフォルトの名無しさん** (JP 0H42-Vy73) · 2017/12/14(木) 12:45:31.15

インスタンスはお湯かけて3分で完成するよ

(´・ω・｀)b

2017/12/14(木) 13:37:10.14

体系だてた答えがほしいならオブジェクト指向あたりの本読んだ方がいいんじゃねえの
正確にはオブジェクト指向じゃないけどクラスとインスタンス(やそれにくっついてるメソッドやプロパティ)の関係を理解するにはそれがはや道だわ
ここは教科書じゃないから

2017/12/14(木) 14:17:01.84

なんでぱぱっと答えられねえの？頭悪いの？

2017/12/14(木) 14:18:03.10

>>470
ふーん
開いてから格納する

これだけだよね？詰まる所は

2017/12/14(木) 14:27:22.00

Openメソッドで開かないと
workbook型に入らない

2017/12/14(木) 14:28:58.06

それは結果に過ぎない
ちゃんと原因や理屈を押さえないとまた同じことで詰むぞ

2017/12/14(木) 14:49:26.55

>>477
それをわかりやすく教えて
ほんとにわかりやすく

2017/12/14(木) 14:51:48.29

>>478
無理だよ

2017/12/14(木) 15:05:19.17

>>479
別の言葉に置き換えればいいだろ？

2017/12/14(木) 15:22:14.17

ID:QIiUylbtpはVBA以外の言語知ってるの？
それともExcel VBAで初めてプログラミングに触れましたって人？
お前の学習レベルがわからないからお前でもわかるように説明できないんだ

2017/12/14(木) 15:43:20.73

ここには、彼の疑問に答えられるような人はいない。

こんぴゅうたーのでんげんをいれるとどうしてえくせるがうごくのかをせつめいするのはむずかしい。
でんきにはつうでんしてるときとつうでんしていないときがあるのでそれをりようしてぜろといちをくべつできる。
ぜろといちをくべつできればにしんすうをりようして...

2017/12/14(木) 17:51:08.32

大体教えてもらう立場のやつがとる態度じゃないからまともに取り合ってもらえると思ってる時点で頭が悪い

2017/12/14(木) 18:34:15.80

初心者なのに態度悪いからNGにしたわ。
教えてもらう態度じゃないよね。子供ならまあ納得だけど。

2017/12/14(木) 19:23:24.80

そもそもWorkbooksに指定するのはエクセルファイル名じゃない。
ブック名だ。
開いたブックのブック名とファイル名が同じになるから勘違いしてる奴もいるかもしれんが。

2017/12/14(木) 19:24:50.30

同じだったらファイル名でええやんw何鼻息荒くしてんの？w

2017/12/14(木) 20:32:08.46

>>485
恐らく>>484はWorkbooks.Itemの引数について話してるんだろうだが、君にはそのあたりが分からんみたいだな

2017/12/14(木) 20:33:08.02

>>487
安価間違えた、これは>>486宛

2017/12/14(木) 21:01:41.06

>>453
をもとに考えてみた

お金を入れるとカップにジュースが注がれる自販機を思い浮かべるんだ

Set wb = 'ジュースが入るカップ
Workbooks.Open( _'お金を判別してボタンが押されるとジュースを出す回路
Application.GetOpenFilename _'お金
)
→お金を入れてボタンを押したらカップにジュースが注がれる

Set wb = Application.GetOpenFilename
→カップに直接お金を入れて飲めないと騒ぐあほ

どうだ！？

2017/12/14(木) 21:06:22.48

>>451
お前バカだろ
変数wbはただの入れ物
workbook型しか入れられない入れ物にString型入れようとしてんだぞ？
これでわからないならただのバカだから二度と来るな

2017/12/14(木) 21:25:56.75

>>490
おまえのカアチャンは誰でも受け入れるのにwbって意外と固いんだな

2017/12/14(木) 21:27:02.90

>>490
うん
それはしってるよ
でもworkbooks.Openでも同じだよね
文字列帰って来るよね

2017/12/14(木) 21:32:46.73

application.getOpenfilename
→あ.xlsxを選択
C:¥あ.xlsx が帰って来る

workbooks.Open filename:=application.getOpenfilename(つまりC:¥あ.xlsx)

ん？どっちもパス付きのブック名じゃねえの？
ってことをいってる

**名無し** (ﾜｯﾁｮｲ ef65-cZUN) · 2017/12/14(木) 21:55:08.02

>>493
文字列として返ってきたから文字列型と思ってるなら、一回workbook型をウォッチに入れてみたら？
ツリー形式でオブジェクトの、中身が見れるから全然別ものだとわかるはず

2017/12/14(木) 21:58:53.83

>>492
バーカw
"C:\うんち.xlsx"がworkbooks型の変数に代入できる分けないだろw
まあデフォルトプロパティなんてものが罪なんだが
てか、workbooks型のデフォルトプロパティってNameプロパティなんだな(Pathか？)
はじめて知ったわ、使わんから

2017/12/14(木) 22:19:18.62

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

2017/12/14(木) 23:32:44.97

>>486
違う。
新規ブックの場合はファイル名じゃないだろ。
理解出来て無い奴に理解出来る奴向けの説明をしても駄目だ。

たまたま同じになってもブック名はファイル名じゃ無い。
だからパス付きだろうがパス無しだろうがファイルはファイルだと考えても、それとは関係ないブック名は違う。
C:¥abcd.xlsxというファイルとブック名としてのabcd.xlsxとは何の関連も無い。
似たように見えるのはたまたまだ。
だからC:¥abcd.xlsxはブック名には成りようがない。

>>493
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に格納するってこと。

2017/12/14(木) 23:34:29.57

短くわかりやすくまとめられるやついねえの？
いくらVBAができたって引き継ぎができない奴は無能なんだが

2017/12/14(木) 23:41:16.00

俺もずっとROMってたけど
こいつらの説明はマジで意味不明だわ

お、良い線言ってんな　って思ったらいきなりカタカナ語がでてきてググっても意味不明
こいつらマジもんのコミュ障すぎてイラつきしかない

オナニー発言ばっかで答えがない

Apllcation.GetOpen
でaaaっていうエクセルを開く

C:\aaa.xlsx　が返ってくる
しかしWB(Workbookオブジェクト変数にしている）では指定できない

でも
Workbooks.Open filename:=Apllcation.GetOpen
これはWorkBook型に入る

つまるところどっちもC\aaa.xlsxって文字列を返してんじゃねえの？何がちげえの？ってこと

これいうの10回目ないい加減学習しろイラつくな

2017/12/14(木) 23:44:38.82

こいつらのたとえ

子供がリンゴを指さす
「これなに？」

こいつら
「これは物質○○が含まれて○○っていう色素があって赤い、つまり栄養は○○がふくまれている
ちなみにその栄養は○○って物質にも入っている」ドヤァ

って感じ
見ててムカつくから発言したわ

2017/12/14(木) 23:46:05.94

おれが聞きたいのは

なんでワークブックスオープンで指定したファイル名文字列だとワークブック変数に格納できんだよって話
ゲットオープンはパスがついているから格納できないのはわかった

わかりやすく答えろ

2017/12/14(木) 23:55:54.24

前にいた関西弁の荒しと同一人物なんだろうけど、健気にもちょっと勉強してきてるのが笑えるw

2017/12/14(木) 23:56:28.06

>>501
無理。
軍事用にコンピューターというものが発明されてから今日までの歴史と仕組みを説明しなきゃならんから。
そして、君にそれを理解出来るだけの能力が有るとは思えないから。

大抵の人は全てを理解しているわけじゃ無いが、自分の利用している範囲ぐらいは理解している。

2017/12/15(金) 00:06:16.08

>>499
ん?
>Apllcation.GetOpenでaaaっていうエクセルを開く

これ間違い。
開かない。
ファイル名を取得するだけ。

>しかしWB(Workbookオブジェクト変数にしている）では指定できない

ファイル名じゃないからな。
ブック名を指定する必要がある。
たまたま偶然ファイル名と同じだけどパス付きはブック名とは違うな。

>Workbooks.Open filename:=Apllcation.GetOpen
これはWorkBook型に入る

Workbook型に入ってるのはファイル名じゃない。
Set WB=Workbooks.Openの意味するところはfilenameに指定された文字列をファイル名と見立ててブックを開き、もし仮に運よく開くことができたらそのブックをWBに格納するという意味。

2017/12/15(金) 00:18:22.73

＞指定された文字列をファイル名と見立ててブックを開き

これが意味不明

GetOpenで指定したファイル名を返すんだろ？
じゃあこれはファイル名になるじゃねえのか？
ファイルを開かなかった場合はファルスがかえることはわかる

2017/12/15(金) 00:22:57.61

>>505
GetOpenFilenameの文とWorkbooks.Openの文は別の文だろ。
プログラム組む奴はGetOpenFilenameで取得したものと違うものを入れることも出来る。
だから結果的に入ったのはファイル名でも、
Workbooks.Open自身はそれを前提にはしないだろ。

2017/12/15(金) 00:25:39.28

>>496
このレスの一番下がわかりやすいんじゃない？

2017/12/15(金) 00:26:48.82

>>506
日本語話して
ドヤ顔くん

2017/12/15(金) 00:26:50.88

GetOpenFilenameはメモ帳のファイル名を取って来ることも出来る。
Wordのファイル名を取って来ることも出来る。
Workbooks.Openで開けないファイル名ということも有るし、Workbooks.Openで開けるファイル名だとしてもExcelで開かなければならないということも無い。

2017/12/15(金) 00:27:25.61

>>507
オブジェクトブラウザーでてなんだよ
わからねえよ

2017/12/15(金) 00:28:29.79

>>509
あーなんとなくわかったかな
Openメソッドで開ける＝エクセル型＝ワークブック型に格納可能

ってこと？

2017/12/15(金) 00:32:05.55

>>496
つまりだ
君が言いたいのは(要約しないとダメなのかよ、、、)
application.GetOpenfilenameだと文字列として返ってくる
workbook型には文字列は入らない

こういうことが言いたいのね？

2017/12/15(金) 00:33:26.47

>>508
それはコンピューターというものをまるで理解出来ていないからそうなる。
厳密には
strFile = Application.GetOpenFilename
が実行されたからstrFileはファイル名だろとコンピューターに言っても、コンピューターは違います、文字列です。と言う。
strFileに入っている文字列のファイルは有るのかと問えば、有ります。と言う。
じゃあ、strFileはファイル名じゃねえかと問えば、違います、文字列です。と言う。

コンピュ－ターは人間が考えるような意味を理解しない。
定義通り動くだけ。

2017/12/15(金) 00:35:45.56

>>513
また回りくどい言い方してんな
頭悪いのか

2017/12/15(金) 00:39:33.42

>>512
その理解で良い。

2017/12/15(金) 00:41:12.92

>>515
最初からこう言えよ
馬鹿じゃねえの？
ほんとにバカしかいねえよ
呆れるというか心配になってくる

2017/12/15(金) 00:42:06.72

補足するとworkbook.Openで返ってくる(開く)＝workbook型ということね

2017/12/15(金) 00:42:07.75

>>514
君がどこまで分かって無いのか、こっちは分からないんだ。
エスパーじゃ無いんだから。

>>512の話だって型とは何だ?という説明もしなきゃならんのか?と考えれば>>513のような話も必要になって来る。

2017/12/15(金) 00:57:45.39

>>516
最初からみーんなそう言ってるぞw
ようやく頭が追い付いてきたのかな？

2017/12/15(金) 01:03:08.36

メゾット君もだんだん自分の頭の悪さを自覚してきてるみたいだし、あと二日以内には恥ずかしい捨て台詞を残して消える運命かな
レス保存したからいつでも再放送出来るけどなwww

2017/12/15(金) 01:23:44.47

>>512,516
>>413でまっさきに型を理解しろって言ってんだが
まあここまで食い下がる根性は認めるけど、いいかげん最低限は自分で勉強してくれ

2017/12/15(金) 01:24:37.63

多分Excel VBA入門的な記事を読み進めればすぐに理解できたと思うんですけど
勉強の進め方が下手くそすぎる

2017/12/15(金) 09:26:34.27

で、この型をしっかりと説明してるのはどこだ？

2017/12/15(金) 09:27:43.96

URLでもなんでも貼ってよ

2017/12/15(金) 10:46:54.06

ちなみにさ
VBAってなんでメンテナンスがいるの？
コードを直接弄るわけじゃないからバグなんてでないと思うけど

2017/12/15(金) 11:01:21.94

てめーの提示したコードエラー出まくりバグばっかじゃねーか

2017/12/15(金) 11:23:22.68

コードは変わらなくてもWindowsとかExcelとか業務仕様とか、まわりが変わっていく

2017/12/15(金) 11:26:16.78

VBAは楽しいぞ
俺はmos マスターだがVBAはいっさん知らんかった
最終目標としては意味不明な超複雑なコードを記述し
おれが辞めた後は誰も対処ができないという優越感を味わいたい
そしてVBEをだしてカチカチしてる姿がなんとも知的でかっこいい
ほんとこれだけのきっかけが知識につながって行く

2017/12/15(金) 11:36:34.77

今どきVBAに新規参入者がいる驚き

2017/12/15(金) 11:48:05.70

>>528
>>498

2017/12/15(金) 12:00:52.51

>>528
それは能力の低い奴の言う言葉。
能力のある奴はお前が辞めても対処できるように記述する。

**名無し** (ﾜﾝﾐﾝｸﾞｸ MM42-cZUN) · 2017/12/15(金) 12:08:15.31

>>528
いや、ずっと同じ質問してる辺りこれっぽっちも知識が増えているように見えないんだが
そしてブーメランに草

2017/12/15(金) 12:11:37.98

>>521
そこをあっさり理解出来ないからここまで時間制掛かってる。
彼の分かってない所はみんながそういうもんだとあっさり進む所で自分中心で考えること。
コンピューターが自分と同じように考えてくれると思ってる。

アレンブラやマシン語の不自由な世界で自分と同じようには考えてくれないということを思い知った方が良い。

2017/12/15(金) 12:26:43.87

もの凄く複雑で他人の理解が及ばないようなコード書くのが目標なら、
なおさら誰の助けも借りずに独学で高めていくのが重要なんだよなぁ。

ネットで検索して簡単に見つかるような情報すら当たれないヤツが目指すものじゃないよね。

2017/12/15(金) 12:27:05.72

>>497
いやなんかまた鼻息荒くしちゃってるけど元々同じって言ったのお前だからなw

なんで素直にブック名とファイル名は違うって言えないんだよw
どうせ下手くそな説明なんだから無理して技巧的に言おうとすんなw

2017/12/15(金) 12:27:38.94

>>533
こいつらのオナニー意見なんて一切参考にせず自己解決したんだが？

Wrokbook型変数「これは文字列だから俺の方にははまらないよ」 = _
Application.GetOpenFilename「すまん、俺はただ選択されたファイルの文字列を返すだけなんだよ」

Workbook型変数「お、WorkbooksオブジェのOpenメソッドで開いとるやん。格納できるよ」= _
Workbooks.Open (Filename:=Application.GetOpenfilename)「俺は開いた文字列をファイル名として返すね」

これでどう？誰でもわかりやすいと思うけど？
頭悪すぎね？君たち

2017/12/15(金) 13:00:25.68

なんか
1 + 1 =2
を
「1に1を加えると2になる」
と表現してる感じだなあ

**名無し** (ﾜﾝﾐﾝｸﾞｸ MM42-cZUN) · 2017/12/15(金) 13:01:13.53

もう突っ込まないぞ！
次のお客様どうぞ

2017/12/15(金) 13:03:33.01

>>537
そもそもWorkbooks.Openメソッドはファイル名を返さないから、
「1+1 は 2 じゃないぞ。俺たちは 1 + 1で200だ。10倍だぞ10倍」みたいなもん。

2017/12/15(金) 13:34:09.09

>>536
わかった！君はプログラムじゃなくて日本語の勉強から始めよう

2017/12/15(金) 13:34:59.69

会話形式にしてくれないと理解できないといってくれれば誰か頑張ったかもねw

2017/12/15(金) 13:57:32.57

>>539
はいはいブック名ね
どっちでもいいだろアホ

2017/12/15(金) 14:06:04.35

>>542
ブック名も返さないよ。
何にせよWorkbooks.Openメソッドが名前を返したら

Set WB = Workbooks.Open(Application.GetOpenFilename)

が成立しないから。

2017/12/15(金) 14:12:36.10

いいからMSDNのリファレンス読んでこいよ

2017/12/15(金) 14:42:08.62

>>543
はいはい
workbookオブジェクトを返すのね
はいはい死ね死ね

2017/12/15(金) 14:44:22.53

>>536
それ、全部既に言ってたからw
お前はみんながすんなり分かるところをこれだけすったもんだしてやっと分かっただけ。
これまでのやりとりが無かったら、それそのまんま言っても理解出来て無い。

そもそも、バカがどうしてバカなのかなんてこっちは理解出来ない。
お前とは違うからな。

2017/12/15(金) 14:47:50.40

メソッドの返り値として何の型のどんなオブジェクトが返ってくることを意識する重要さが微塵もわかってないのでこいつのVBAスキルはここで打ち止めだな

2017/12/15(金) 15:09:10.26

以降はスルーしよう

2017/12/15(金) 15:21:09.44

整数 + 整数の戻り値が整数なのに整数 / 整数の戻り値が整数じゃない理由がわからない、不合理だ、と
駄々をこねる人間もいるんだからしょうがない

2017/12/15(金) 19:31:32.21

世の中にはこういう本物のバカもいるんだなあと勉強になったよ

2017/12/15(金) 19:39:48.70

わりとそこかしこに居るけどな、本物のバカ
ひきこもりか？おまえw

2017/12/15(金) 21:40:28.03

>>547
まだ始めて2週間って話してなかった？
ちなMOSエキスパート所持者ね

2017/12/15(金) 21:49:11.45

>>419からもう二週間も経ったのか。時が経つのは早いな。

2017/12/15(金) 22:06:37.13

>>552
> ちなMOSエキスパート所持者ね

ここ、笑うとこですか？

2017/12/15(金) 22:06:40.33

MOSエキスパート?
何それ美味しいの?

昔、「初心者だから仕様がないけどさ」と説教した相手が今回君が挑戦してる言語のエキスパート持ってたけどさ。

2017/12/16(土) 04:53:25.79

先日、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実施　（直接の原因ではない）
（その２へ）

2017/12/16(土) 04:53:47.87

>>556
（その２）
[現象]
　・Fitering成功しているように見えるが、非表示セルにカーソル移動できてしまう。
　・セル値の削除が効かない。（連動イベントが動かず、本現象に気づく）
　・範囲コピー貼り付けが正しく行われない。
　・セルをコピーモードにしても、選択範囲が破線矩形にならない。
　　→なんと恐ろしいことに、操作の対象が現在見えているActiveCellではなく、
　　　呼出元画像のあるシートの同一番地に対して行われている様子。
　　　破線矩形も元シートを開いたらそこにあった。
　　　削除処理も元シートに対して行われる。
　　　ステータスバーのセル値カウントも、現在見えているシートではなく、呼出元の情報を返す様子。
　　　ActiveCell.Address(External:=True)は実際に見えている移動先シートを示しているのに、、、

[発生条件の再検証]
　・別シートの画像.OnAction→Popup.OnActionで初めて成立。
　・画像.OnActionから直接Proc実行(Sheet選択、Autofilter実施)では再現せず。
　・Alt+F8からのPopup起点とすると再現せず。
　・Popup.OnActionを入れ子にしても再現せず。
　・ボタンをTableと同じシートに配置した場合は再現せず。
　・Office2010では再現せず。
（その３へ）

2017/12/16(土) 04:54:06.08

>>556
（その３）
[試験に用いたコード]

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は無実でシート選択の不全実行が現象の概要とみています。

2017/12/16(土) 04:56:00.08

>>556
環境情報が抜けていました。
Win10 バージョン 1703 (OS ビルド 15063.786)

2017/12/16(土) 05:17:34.49

>>556
（その４）
回避のためのリフレッシュ手順を忘れておりました。

[効果があるリフレッシュ操作]
　' 以下、または手動によるシート切替（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"

**名無し** (ﾜｯﾁｮｲ ef65-cZUN) · 2017/12/16(土) 05:26:07.46

そういうときは、doeventsやwaitも試してみるべし
今パソコン無いから試す暇がない