Excel VBA 質問スレ Part51

Excel VBA 質問スレ P ..

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"

578:名無し
17/12/16 05:26:07.46 j6rMoAMF0.net
そういうときは、doeventsやwaitも試してみるべし
今パソコン無いから試す暇がない

579:デフォルトの名無しさん
17/12/16 05:36:15.74 kSf4Qz7z0.net
>>563
そういえばDoEventsは試しました。
結果効果はなく、SendKeysを無効化して現象回避もできなくなるという逆効果も確認しました。
Waitはどこに入れると効果的ですかね。
間にStopを入れて一時停止したりはしてみましたけど、、、

580:デフォルトの名無しさん
17/12/16 05:45:39.73 kSf4Qz7z0.net
>>563
今回のはあまり待ち要素はないと見ていますが、以下の３カ所に2秒ほど入れてみました。
　・シート切替の前後、.ShowPopupの直前
再現してしまいました。

581:デフォルトの名無しさん
17/12/16 18:57:10.19 9cn7Nun80.net
現在vbaをネットで勉強中ですが書籍も使って勉強しようと思っています
プログラミング初心者がvbaを学ぶのにお勧めの書籍を教えていただけませんか？

582:デフォルトの名無しさん
17/12/16 20:17:51.76 7KC6Lrbda.net
VBAで書籍は金の無駄だよ
最初はマクロの記録を見るのとネットでぐぐれば大抵のことはできるよ

583:デフォルトの名無しさん
17/12/16 20:36:50.77 IU5B3eEvp.net
データの入力規則にカンマ区切りの項数不定の1-9の数字のみを許容したいのですが、どうすればよいですか？
正規表現だと、こんな感じです。
/^([1-9]+,)*([1-9]+)$/
regexp使ってVBAでチェックする方法ならやり方が分かるのですが、セルのデータ入力規則で設定する方法が分かりません。

584:デフォルトの名無しさん
17/12/16 20:57:31.30 yaHEvAoH0.net
>>568
シートのChangeイベントあたりに
そのコードを仕込んでおくのはいかがでしょうか
ダメな場合はエラーメッセージ出して、セルの値を消しちゃえば
入力規則チックになるかと

585:デフォルトの名無しさん
17/12/16 21:10:04.55 yaHEvAoH0.net
>>566
本格的にやりたいなら、VBAと関係ないように思えるけど
「スッキリわかるJava」シリーズをオススメしたい。
自分の場合、VBA本ではさっぱりだったけど、この本で目覚めた。
オブジェクト指向の解説は、VBAの理解にもかなり役立つ。
プログラミング言語は根幹は同じで、方言みたいなもんなので
他の言語にもすんなり入っていけるようになる。
やれることが多くなるよ。

586:デフォルトの名無しさん
17/12/16 21:57:56.42 0LU2hdfpp.net
オブジェクト指向をVBA始めて1週間だが理解してみた
まず
変数は何かの型に入れる
お前はこれしかできねえよ
っていう
そして
その型の中のさらに型の中の命令はなに？
と掘り下げて行く
これがオブジェクト指向

587:デフォルトの名無しさん
17/12/16 22:19:01.15 vwwP6eCQd.net
>>571
違うけど気にしないでいいよ
厳密なな定義ないから

588:デフォルトの名無しさん
17/12/16 22:21:35.33 6cm/hyEb0.net
あと一歩というところだな、実にオシイと言っておこう
しかし始めて1週間でそこまでオブジェクト指向の真髄に迫るとは大したものだ
末恐ろしい奴が現れたもんだ、これは俺もうかうかして居られんな

589:デフォルトの名無しさん
17/12/16 22:26:05.73 vwwP6eCQd.net
なるほど
俺が間違っていたようだ

590:デフォルトの名無しさん
17/12/16 23:09:21.00 9T+lJsLD0.net
お、おぅ

591:デフォルトの名無しさん
17/12/16 23:16:38.47 jWdcz3p90.net
Access だと、ずいぶん前から SendKeys は使うな　ってのが喧しいが
Excel だと現役なんか？　いいんか？

592:デフォルトの名無しさん
17/12/16 23:32:07.04 oxEVVuR00.net
>>558
（その５）
画像リンクが外部ファイルにある場合はSendKeysも役にたたないようです。
なんかいい回避策ないですかね？

593:デフォルトの名無しさん
17/12/17 01:01:58.50 ZCl426tV0.net
たんにActiveCellのシートが思ってるものじゃないだけの気がするなぁ
そのコードどこに書いてるんだよ

594:デフォルトの名無しさん
17/12/17 01:39:41.36 F05u2uwp0.net
誰がオブジェクト恥垢やねん！(´・ω・｀)b

595:デフォルトの名無しさん
17/12/17 04:46:14.88 Hjh32hjm0.net
>>578
どゆこと？
例えばですね、他Bookにある画像をクリックしてそこにPopupが表示され、フィルタ処理を選びます。
で、フォーカスは対象テーブルのあるブック・シートに遷移して、フィルタリングに成功します。
SDIなので画面上は呼出元ブックとテーブル用ブックが２つ並んでおります。
ここでScriptは完了するわけですが、追加の操作をするために、遷移先シートを明示的に選択。
明らかに自分はその目的のシートを選んでいます。
ここでImmediateから、ActiveCell.Address(external:=True)をたたくと明らかに今触っているセルの番地が、Book名、シート名、セル番地名のフルパスで戻ります。
ここでカレントセルのある範囲を選択反転してCopy操作を行うと、呼出元ブックの同じセル番地がコピーモードの破線矩形にかわるんです。
カーソルで下へスクロールすると、呼出元シートもリモコンで操作しているみたいに一緒にスクロールするんです。
削除操作も、、、、同一ファイルで操作している時は気づかなかったですが、別ファイルから行うと凄いびっくりなビジュアルが展開されます。
明らかに "ActiveCell" という状況が表と裏に分離されたような状態になるんです。
同じブックをWin7+Excel2010で操作した場合は起きません。
自ファイルだとSendKeysで逃げられるんですが、外部ファイルからシート切替しても呼出元が切り替わってしまって、、
テーブル側ブックがキー操作相当でシート切替されないとこの状態が解除されないみたいです。

596:デフォルトの名無しさん
17/12/17 05:09:02.50 /bdPdb8E0.net
>>580
とりあえずActiveSheetとかSelectionとか使わない方法で実装するのはダメなの？
あと同時に実行されるマクロは全て同じブックに入れておくべきだと思うよ。

597:デフォルトの名無しさん
17/12/17 06:51:48.24 Hjh32hjm0.net
>>581
（その６）
Debug用と問題回避のためにActiveCellを記述していますが、実際のコードでは使用していません。
>>560のSelectionはコードの中に記述しているわけではなく、検証用の画像ボタンを登録する手順としてImmediateから実行しているだけです。極力BackEndから操作する派です。
実際の運用Bookでは極力同一ファイルにMacroを集めています。
Macro自体は仕事を完全に全うするのですが、、、そのあとシートの状態がおかしくなるという現象です。
状態を解消するには、呼出先のBookでシート切替を行う方法のみ。
で、発想を変えて、「外部から制御できないか」と考えました。
VBE内にVBSScriptを記述し、「中の外」からシート選択してみようと。
結果NG、再現してしまいました。
じゃあ、本当に外から制御すればどうかな？と思い、上記のVBScriptを同一フォルダに置いて呼び出す作戦に。

598:デフォルトの名無しさん
17/12/17 06:52:33.95 Hjh32hjm0.net
>>581
（その７）
--------------------------------
[Popupから呼び出すProc]
Sub DoFilter()
　Sheets("List").Select
　Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST"
　Call = Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide)
End Sub
--------------------------------
[SelectSheet.vbsの中身]
call SheetSelect_fromVBS
Sub SheetSelect_fromVBS()
　Dim xlApp: Set xlApp = GetObject(, "Excel.Application")
　With xlApp
　　.Workbooks("ListBook.xlsm").Activate
　　.Worksheets("List").Select
　End With
　Set xlApp = Nothing
End Sub
--------------------------------
なんとこれが功を奏し、ActiveSheetの幽体離脱状態から抜け出すことができました。
シート切替も不要に。これで一先ず凌げそうですが、MSには不具合対応してもらいたいです。
コメントいただいた方々、ありがとうございました。

599:デフォルトの名無しさん
17/12/17 06:55:18.78 Hjh32hjm0.net
>>583
あれ、一部書き間違えました。実際は、、
　Call Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide)

600:デフォルトの名無しさん
17/12/17 10:32:12.89 e1NNF66l0.net
つまりここでは
なんの型にはめるのか？
命令は？状態は？
だろ？
でもCellsってプロパティだろ？なんで一発で状態から入るんだ？

601:デフォルトの名無しさん
17/12/17 11:20:01.90 ZjZyIyTi0.net
>>585
Cellsはオブジェクトだ
そしてWorksheetオブジェクトやCellsオブジェクトのプロパティでもある
あと、ようやく時間ができたからWorkbookオブジェクトをVariantに代入しようとしたら当然のごとく「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」になった。
一体何を試してパスが云々なんて話が出てきたんだろう。
Dim V As Variant
V = Workbooks(1)
→代入不可
Set V = Workbooks(1)
→VはVariant/Object/ThisWorkbook型
調べてみてもWorkbook型にデフォルトプロパティは設定してなさそう。

602:デフォルトの名無しさん
17/12/17 11:21:03.68 ZjZyIyTi0.net
>>586
訂正
CellsはRangeオブジェクトだ
そしてWorksheetオブジェクトやRangeオブジェクトのCellsプロパティでもある

603:デフォルトの名無しさん
17/12/17 11:26:43.28 e1NNF66l0.net
>>587
cellsはrange？
意味わからない
プロパティでオブジェクトってなに？
もっとうまく説明してくんね？

604:デフォルトの名無しさん
17/12/17 11:27:13.71 gZkjaYao0.net
>>586
自分用語を使うどころかコードも正確にコピペできてないからそのまま実行しても無駄だぞ
エスパー力を全力で働かせて察してあげない限り回答しても罵倒が返ってくる

605:デフォルトの名無しさん
17/12/17 11:37:53.28 ZJu/+/V0x.net
>>585
メゾット君、プロパティだから状態というのは間違えやすい考え方だからこの際捨て去った方が良い
プロパティは呼び出し元プログラムに対してオブジェクトのクラス内部への変数へのアクセスを提供するもので、アクセス先の変数のデータ型はプリミティブな値であることもあれば、何らかのオブジェクトである場合もある
というか、オブジェクト式の途中で出てくるプロパティは全てオブジェクトへの参照を提供するプロパティだ
Cellsの場合はRange型のオブジェクトへのアクセスを提供するプロパティだが、Grobalのメンバプロパティだから上位オブジェクト式を

606:省略して書けるわけ

607:デフォルトの名無しさん
17/12/17 11:46:44.41 gC8RO3PCp.net
>>590
カタカタ使うな

608:デフォルトの名無しさん
17/12/17 11:53:12.87 ZjZyIyTi0.net
>>589
そうだよな・・
自分でクラス作ってみれば一発で理解できそうなものだが・・

609:デフォルトの名無しさん
17/12/17 11:59:28.64 R4ec2g2Bx.net
>>592
あの質問者が自分でクラスを作れるようになるのって何年か先の話だろうな

610:デフォルトの名無しさん
17/12/17 12:11:00.98 gC8RO3PCp.net
クラス？
オブジェクトに必要な要素を全部埋め込むやつだろ？
もうできるよ？
でもnewクラスの使い方が意味がわからない
同じクラスで(中身も同じ)なら作る意味ないんじゃねえの？

611:デフォルトの名無しさん
17/12/17 12:19:09.45 ZjZyIyTi0.net
確かにこれでは何年も先の話になりそうだ

612:デフォルトの名無しさん
17/12/17 12:31:47.04 gC8RO3PCp.net
いま、クラスをみてみた
そしたらworkbookの中にworksheetsがプロパティとしていた
どういうことだ？
俺はVBAの盲点をついたか？

613:デフォルトの名無しさん
17/12/17 12:40:07.47 gC8RO3PCp.net
知りすぎたか？

614:デフォルトの名無しさん
17/12/17 12:51:28.57 gC8RO3PCp.net
dim i as long
For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).Row
このi.cellsの意味がわからない
教えてくれ

615:デフォルトの名無しさん
17/12/17 13:07:40.63 +CY9tzJPd.net
プロパティは内部変数へのアクセスに限らずいろんなこと出来るし、最初さっぱり理解できなかった。
まさかただのシンタックスシュガーだなんて想像してなかったからな。

616:デフォルトの名無しさん
17/12/17 13:23:13.67 R4ec2g2Bx.net
>>598
このコードは絶対にコンパイル通らないぞ
For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).Rowの意味なんてこっちが知りたいくらいだ

617:デフォルトの名無しさん
17/12/17 13:26:02.12 R4ec2g2Bx.net
>>596
Worksheetオブジェクトのメンバの、Worksheetsコレクションにアクセスするプロパティじゃん
何が不思議なの？

618:デフォルトの名無しさん
17/12/17 13:27:44.67 R4ec2g2Bx.net
New出来てないの笑える
クラスモジュールを挿入できただけでクラス使えるようになってねぇじゃん

619:デフォルトの名無しさん
17/12/17 13:51:38.17 5yg/jtY20.net
おそらく本職プログラマじゃなく事務の効率化でVBAに手出したんでしょ？
どうせ片手間ならプログラミング適性無さそうだからおとなしくコピペで済ますのが無難だと思う
たぶん永久に理解出来ないよ

620:デフォルトの名無しさん
17/12/17 14:08:08.04 gC8RO3PCp.net
>>600
正しいのはなに？

URLﾘﾝｸ(i.imgur.com)

621:デフォルトの名無しさん
17/12/17 14:15:19.48 R4ec2g2Bx.net
>>604
自分で考えろよ、クラス作れるんだろ？w

622:デフォルトの名無しさん
17/12/17 14:17:42.01 KxwCW4kM0.net
最近オブジェクト指向の本読んでみたんだけど
これまで作ってきた稚拙なスパゲティコードをこの際書き直してみたくなった

623:デフォルトの名無しさん
17/12/17 14:25:27.85 R4ec2g2Bx.net
>>603
この人謙虚じゃないし、まぁ無理だろうな
素直に他人の文章やコードが読めず、自分の言語感覚だけで無理矢理白黒つけようとするだけの奴はそもそもプログラミングに向いてない

624:名無し
17/12/17 19:27:22.86 ZjZyIyTi0.net
>>606
今書き直しても、しばらくするとまた見識が増えて書き直したくなるだけやで

625:デフォルトの名無しさん
17/12/17 19:31:24.74 SRQ89yzu0.net
>>606
やめとき、もう一つ稚拙なスパゲティコードを作るだけやでw
魔道に堕ちた亡者どもはそれをリファクタリングと呼んでるらしいがなw

626:デフォルトの名無しさん
17/12/17 19:52:14.28 /bdPdb8E0.net
>>607
メゾット君は>>573の自演の通り、「○○が出来るなんて凄いヤツだ」って反応が欲しいだけでしょ。
その反応が欲しいだけだから本腰入れて勉強するつもりもないんだろうし、
彼の想像の中では、自分は「凄いヤツ」であり、それに反応する周囲は「凄くないヤツ」なので見下している。
見下している奴らと�

627:ｩ分の意見がぶつかったら自分の方が凄いので自分が正しい。だから自分の考えに固執する。要するにヒカルの碁とかハイキューとかボールルームとかの主人公みたいな展開を妄想してんだろ。どんな反応をしても彼の妄想に付き合わされるだけだし、妄想が維持できなくなると死ね死ね言うだけになるから構うだけ無駄。

628:デフォルトの名無しさん
17/12/17 20:35:35.89 oSmkXHksa.net
>>607
プログラミングだけじゃなくありとあらゆることに向いてないだろうな
わからんのは仕方ないけど、最低限の態度がなってない
ネットだからなにやってもいい、って考えのやつはいずれリアルでもぼろが出るわ

629:デフォルトの名無しさん
17/12/18 00:39:13.70 mfb75Iey0.net
プロシージャにconstでいくつか定義してあってこれまで何も問題なく動いてきた
さっきその定数の一つを=22から=23に変更したら
定数式が必要です、のエラーが出る
どうみても何も問題ないようにみえて分からない
まさかと思いつつ
'Const sht_right As Integer = 23
Const sht_right As Integer = 23
このように問題の起きた行をコメント行として
すぐ下に書き直したらエラーがでなくなった
こういうのってあるもん？

630:デフォルトの名無しさん
17/12/18 02:00:09.91 rupxZ3Ov0.net
>>612
上の奴、本来のコードだと全角スペース入ってなくね

631:デフォルトの名無しさん
17/12/18 02:32:05.22 m7yapXyd0.net
>>604
i.cells じゃなくて ws.cells
さらに、with ws が有るので ws が省略できるから
.cells で良い

632:デフォルトの名無しさん
17/12/18 03:17:17.83 7TDAIkSx0.net
>>612
99%は単なるタイプミス
等幅フォントでスペースが明示できるテキストエディタにコピペしてみる

633:デフォルトの名無しさん
17/12/18 06:23:46.35 TbHEuMcS0.net
どこかから、コピペした文字列に、見えない制御文字が入っているとか？

634:名無し
17/12/18 07:46:18.89 fX+okHt3M.net
>>612
その事例は見たことないけど、納得のいかないエラーが出たときは、とりあえずエクセル再起動

635:デフォルトの名無しさん
17/12/18 07:59:26.09 mfb75Iey0.net
>>613
>>615
>>616
と俺も思った
んで何度も打ち直してみた
ちなみに上に貼ったのはそのままコピペしたもの
2を3にしただけなんでね、よくわからん
>>617
再起動しなかったかもしれないんでまた起きたらやってみるわ

コメント行にしたもともとの行は削除しちゃったんで実験できなくてすまん

636:デフォルトの名無しさん
17/12/18 08:01:30.70 aXpCltYZ0.net
Constでエラー出した事あったけど、Endを実行してからやったら治ったことあるな。
値が記録されたままだったとかじゃね。

637:デフォルトの名無しさん
17/12/18 10:33:59.62 ueSdYdZDa.net
>>612
なんか、Enumでもそんなことがたまに起こるよ
VBEのバグらしいけど

638:デフォルトの名無しさん
17/12/18 13:34:10.63 NqlVCppnp.net
VBAってどうやったら上達しますか？
エクセル関数は達人級です
エクセル関数みたいに慣れだけじゃ無理ですかね

639:デフォルトの名無しさん
17/12/18 13:43:31.23 IKrWJ0B8a.net
>>621
Javaを勉強したらvbaも上達するよ

640:デフォルトの名無しさん
17/12/18 13:47:42.85 NqlVCppnp.net
>>622
JAVA押しさんこんにちわ

641:デフォルトの名無しさん
17/12/18 14:03:31.64 yddZnfruM.net
Java推しはともかく他の言語を学ぶのはVBAの上達にも実際かなり役立つ

642:デフォルトの名無しさん
17/12/18 14:45:58.67 c1zJrPAZp.net
(またメゾットくんだよ…)

643:デフォルトの名無しさん
17/12/18 16:14:09.20 D45Nh6pha.net
>>623
ジャワティーの話しはしてないんだ、ごめんな

644:デフォルトの名無しさん
17/12/18 16:30:46.07 NqlVCppnp.net
VBAだけやればいい
javaは環境が大変だ
したいこともないし

645:デフォルトの名無しさん
17/12/18 16:48:04.05 D45Nh6pha.net
プログラムの上達に早道はないんだよなあ
というか、遠回りに思えることが早道だったりする
と、自戒の意を込めて
どうしてもエクセルと絡めたいならC♯でもいいけどな

646:デフォルトの名無しさん
17/12/18 16:49:17.57 7XOqOvzzd.net
今のうちにPythonを学ぶ
URLﾘﾝｸ(www.publickey1.jp)

647:デフォルトの名無しさん
17/12/18 17:57:32.74 pW3jV0rpa.net
ぱいそんってアメリカではもっともメジャーなスクリプト言語なんだっけ

648:デフォルトの名無しさん
17/12/18 18:15:03.66 fX+okHt3M.net
何故にPythonかと思ったらエクセルにPython組み込むって話が出てるんだな。勉強するか‥

649:デフォルトの名無しさん
17/12/18 19:14:05.94 /veb4c2e0.net
>>628
自己評価だとそう感じるのかもしれないけど
できる奴は最初からできるし、できない奴はいつまでたってもできない
プログラムってそういうもん

650:デフォルトの名無しさん
17/12/18 19:34:37.55 pW3jV0rpa.net
>>632
そりゃあ人によっちゃ違うが、それは才能があるからで近道しようとしてそうなってる訳じゃないだろ
わかんないことがあったら別の切り口から攻めると言うのもありじゃないの

651:デフォルトの名無しさん
17/12/18 19:45:01.61 au4G9Tq20.net
VBAerさんついに終わるのか
Pythonに駆逐されちゃうね

652:デフォルトの名無しさん
17/12/18 19:45:05.21 /veb4c2e0.net
>>633
ないとは言ってないよ
俺が言いたいのは、別の切り口から攻めようが近道しようが
既知の問題の解決策は知識として身につくが
未知の問題に対する解決能力は上げることができないって事
つまり上達とか意識しないで楽なやり方ばかり選ぶ奴がいつだって一番賢い

653:デフォルトの名無しさん
17/12/18 19:51:30.63 pW3jV0rpa.net
>>635
天才の人は苦にしないだけでちゃんと道は通ってるよ

654:デフォルトの名無しさん
17/12/18 19:54:37.06 /veb4c2e0.net
>>636
何を言いたいのかよくわからんがそもそも俺が言ってるのは天才のことじゃない
単にプログラムができる奴とできない奴の話なんだが

655:デフォルトの名無しさん
17/12/18 19:57:32.60 pW3jV0rpa.net
>>637
iqないとダメなのはプログラムに限らんし
まあスレチだから退散するわ

656:デフォルトの名無しさん
17/12/18 20:01:42.20 /veb4c2e0.net
>>638
いやだからIQとかの話じゃないってば
目の前の問題をありのままに受け入れる事ができる奴と
既に自分の中に構築された知識に当てはめないと解釈できない奴の違いだって

657:デフォルトの名無しさん
17/12/18 23:11:06.58 aXpCltYZ0.net
>>634
仮に採用されて皆がPython触るようになったら、今度はPython（笑）って扱いされる未来が見えるわ。
格好つけだけでやってる奴らが抜けて、AIとか作ってる真っ当なのが風評被害を受けそう。
言語は統一するよりも、それを扱うユーザー層毎に分けた方がいい。

658:デフォルトの名無しさん
17/12/19 12:28:53.96 /mb664F4a.net
>>618
俺も似たようなの見たことがある。
でも引きずるような問題じゃ無かったと思う。
Excel再起動かPC再起動で直るんじゃね?

659:デフォルトの名無しさん
17/12/19 12:37:10.24 pfZPHd/La.net
>>635
逆だと思うが。
未知の問題に対しての解決能力は上げることができる。
楽なやり方を選ぶ奴は上げられないだけ。
厳密には未知な問題といっても既知の問題と全く違うわけじゃない。

660:デフォルトの名無しさん
17/12/19 16:48:29.82 mNLh8c+i0.net
ここのやつらがあんまジャバジャバいうから引っ張り出して着たわ
とりあえずコードは実行せずにパラ読みしようと思う
URLﾘﾝｸ(i.imgur.com)

661:デフォルトの名無しさん
17/12/19 17:01:17.86 Bngslooy0.net
>>643
「わー、ロレックス持ってるなんてすごーい！」
「え？こんなの普�

662:ﾊだよ。持ってないとかｗｗｗ」みたいな展開になる事を期待してるんだろうけど腕時計の入れ方が無理やり過ぎて笑いしか出てこないｗ本は中古屋で買ったみたいだし、あまりにもちぐはぐ過ぎてむしろ格を下げてるようにしか見えないんだが。

663:デフォルトの名無しさん
17/12/19 18:14:51.58 J+VWEpvK0.net
>>642
うんだから最初に言ったんだけど自己評価だとそう感じるんだってば

664:デフォルトの名無しさん
17/12/19 19:02:39.42 mNLh8c+i0.net
JAVAの本でわかったこと
変数の宣言と同時に値を入れることを初期化という
変数の値が変わらないことを定数という
いま10ページ目だけどこんくらいだわ

665:デフォルトの名無しさん
17/12/19 19:57:29.94 9tP52mqX0.net
>>646
＞変数の値が変わらないことを定数という
これはちょっと違うのでは？

666:デフォルトの名無しさん
17/12/19 20:25:43.13 fLKwjLgZa.net
>>645
お前の自己評価がそう感じてるだけだろw
何か自分はプログラム書ける気になってるようだけどw

667:デフォルトの名無しさん
17/12/19 21:14:28.27 4AWSTK/ra.net
変数の初期かもなんかむずむずする理解だな

668:デフォルトの名無しさん
17/12/19 21:15:04.92 4AWSTK/ra.net
あ、でも彼はジャワティーの話をしてるのか
ならわからんでもない

669:デフォルトの名無しさん
17/12/19 21:26:16.08 mNLh8c+i0.net
javaのパスが通らなくて実行できない
助けてくれ

670:デフォルトの名無しさん
17/12/19 23:45:33.30 jfHXMkXp0.net
Java は環境構築が難しいから、初心者には無理
paiza.IO, codepad などのサイトで、ブラウザから実行しろ

671:デフォルトの名無しさん
17/12/20 00:20:41.41 USwfdD4Y0.net
別にJavaが難しいと感じたことはないな。
すっげえ昔にかじっただけだから今となっては初心者以下だけど。
いや、当時も初心者だったけど。

672:デフォルトの名無しさん
17/12/20 00:28:51.85 USwfdD4Y0.net
コンパイラもJavaで出来てるからJava実行環境でコンパイラ動かして、そのコンパイラへの引数にエディタで編集中のテキストを一時ファイルにしたものを渡してたな。
そのエディタもJavaで誰かが作ったものを機能拡張したやつだったな。

673:デフォルトの名無しさん
17/12/20 00:40:50.45 xfg3gakwa.net
コマンドラインが敷居高いならeclipseでやれ
敷居高いつっても環境変数設定してそこにパス通すだけだがな

674:デフォルトの名無しさん
17/12/20 01:00:50.98 sohN4awK0.net
javaって効率悪すぎだろ
テキストエディタで編集
↓
名前つけて保存
↓
コマンドプロンプトでコード入力
↓
実行
どんだけ時間かかるんだよ

675:デフォルトの名無しさん
17/12/20 08:24:00.28 TZHE5kKsa.net
いやeclipse使えよ

676:デフォルトの名無しさん
17/12/20 09:28:33.38 FRuTBLwYp.net
これ以上はスレ違いなのでJavaスレでどうぞ

677:デフォルトの名無しさん
17/12/20 09:36:49.97 GPFg9WZwx.net
eclipseも知らないで手動でコンパイルしながらブチキレてるの想像してワロタ
道は遠いね

678:デフォルトの名無しさん
17/12/20 12:25:53.38 Vi8ViNgtd.net
スレチ

679:デフォルトの名無しさん
17/12/20 12:41:32.07 /dU/ndoRa.net
お前ら良かったな
EXCELでPythonが使えるようになるかも知れないんだって？
あれはObject指向の流れを組む関数型を目指しているところの言語っていうからやりがいはあるよね
俺もVB.NetやC#はやったけど
EXCELに載ることが確定したらこれからPython覚えるわ
まぁ構造化言語からObject指向型言語に移行したとき
めちゃくちゃ苦労したけど
今回も苦労するんだろうなぁ

680:デフォルトの名無しさん
17/12/20 13:38:58.93 /fbzm/vOa.net
Pythonはさらっと概要見たぐらいだけど面白そうだね
まあexcelにのらなくても勉強して損にはならんだろうな

681:デフォルトの名無しさん
17/12/20 15:31:22.90 EAMpcVD20.net
必要ないもん勉強したって時間のムダだっつーの
真のエ�

682:Nセルマクラーだったらマクロ書くのにパイソンしか使えなくなった時に必死でググれ

683:デフォルトの名無しさん
17/12/20 16:07:26.91 /h7jUJynd.net
今のままでも関数型で出来るらしいが
URLﾘﾝｸ(qiita.com)

684:デフォルトの名無しさん
17/12/20 18:29:06.12 khkAeR460.net
Pythonはオブジェクト指向も関数型も全部後付けって感じでイケてねえ
F#にしとけって
でもこんなのはプログラマ以外が触るものだからしょうがないのかもな

685:デフォルトの名無しさん
17/12/20 19:00:00.85 sxNo8wqUa.net
>>665
F#ってまだ生きてんのか！

686:デフォルトの名無しさん
17/12/20 19:51:25.83 7WhairgWd.net
生きてるし、活発に使われてるよ
ソースはない

687:デフォルトの名無しさん
17/12/20 20:52:44.38 EAMpcVD20.net
ソースはないソースはよ

688:デフォルトの名無しさん
17/12/21 23:06:47.24 1PuX0k7mM.net
100列ぐらい続く計算エクセルがある
足したり引いたりするだけのエクセル。
酷くね？VBAにできないものか

689:デフォルトの名無しさん
17/12/22 02:00:09.18 T3zOnX2zx.net
>>669
計算エクセルっていう表現が意味不明だが要は計算用のワークシートのことか？
大抵の場合、ワークシート関数とテーブル機能を組み合わせて何とかする方がVBA使うより楽だぞ
車輪の再発明をしてもしょうがないからな

690:デフォルトの名無しさん
17/12/22 04:21:53.41 0EXQoFbJ0.net
質問です。
Excel側からVBE上の指定のプロシージャ記述欄にジャンプする動作をVBAで記述できる
でしょうか？
やり方がわからずとりあえずSendKeysを組み合わせて動作するようになったのですが
不慮の事故が起きそうで怖いです。
VBEのオブジェクトモデルに沿ったアクセス方法があれば教えていただけないでしょうか。

691:デフォルトの名無しさん
17/12/22 07:49:35.63 BCzwPGy5d.net
>>671
VBE上でカーソルの位置をコントロールするってこと？

692:デフォルトの名無しさん
17/12/22 11:50:10.85 7Q1lZFEo0.net
>>672
メンテのためにActiveBookから全Procのリストを新規Sheetに出力する
Procedureを用意したのですが、Proc名からVBE上の該当Procにジャンプ
したく、右ClickEventにジャンプ機能を割り当てました。
正しいアクセス方法がわからないので、ほぼSendKesyのみで記述している
のですが、状況により意図しない挙動をします。
VBEを開く動作は "^{F11}"の代わりに
　Application.CommandBars.FindControl(ID:=1695).Execute
が使えそうなことはわかったのですが、、、
VBE上で１つもModuleが開かれていなかったり、開かれているModuleと、ツリー
側の選択されているModuleが異なったりすると、"^F"が効かないようです。
FrontEndからではなく、ObjectModelに沿ったBackEndからの操作が
知りたいのですが、うまく情報を見つけられないところです。

693:デフォルトの名無しさん
17/12/22 12:58:52.19 7Q1lZFEo0.net
>>671
自己解決しました。
キーワードを英語に切り替えてGGったら、StackOverFlowですぐ見つかりました。
.CodePane.GetSelection
.CodePane.SetSelection
あたりでなんとかなりそうです。お騒がせしました。

694:デフォルトの名無しさん
17/12/22 17:40:48.08 3J82DkVga.net
VBAやりはじめて三年ぐらいだけど、For Eachで普通の配列もループできるの今日知ったわ
コレクションだけだと思ってた

695:デフォルトの名無しさん
17/12/22 18:05:37.66 /KqbyaeQd.net
>>675
値の取得だけで設定はできないけどねー

696:デフォルトの名無しさん
17/12/22 18:16:05.21 3J82DkVga.net
>>676
クラスの扱いが大分変わるのよ
わざわざイテレータ自作してたわ

697:デフォルトの名無しさん
17/12/23 00:05:26.91 /nzAEvVba.net
>>674 できるんだけどセキュリティ的に問題だからお勧めしない。 .netで書いた方が良いぞ。でもVBEを操作するコードが書ければ、.net上でも殆ど同じコードでいけるから勉強しとくと良いかな。

699:デフォルトの名無しさん
17/12/23 06:34:44.47 F3cHZlpp0.net
sheet1に置いたボタンを押してからsheet1内のセルをクリックすると、クリックしたセルに「ここ」
とはいるようにしたいです。実際作りたいものはもっと複雑ですが、とりあえず。
そこで、sheet1のシートモジュールに以下の記述をしました
しかし、どうやら前回クリックしていた場所を覚えていて、その場所に「ここ」と入ってしまいます
解決法はありますか？
Private Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
Private Sub CommandButton1_Click()
Do
If GetAsyncKeyState(VK_LBUTTON) Then
ActiveCell.Value = "ここ"
Exit Do
End If
Loop
End Sub

700:デフォルトの名無しさん
17/12/23 06:43:21.92 F3cHZlpp0.net
>>679で書き忘れ
標準モジュールの宣言部に
Public Const VK_LBUTTON = &H1
の記述もしてあります。

701:デフォルトの名無しさん
17/12/23 07:46:11.28 8SavP0Th0.net
>>679
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Target.Value = "ここ"
End Sub
クリックした場所に入れるだけならSheet1モジュールにこれで済むけど、コルーチン処理が必要というなら分からん。
いずれにしてもActiveCellとかActiveSheetとかは避けて設計すべき。

702:デフォルトの名無しさん
17/12/23 07:56:20.90 F3cHZlpp0.net
>>681
自分もググってたどりついた先がそれだったんですよね
でも常に発動してる状態だとやっぱり困るんですよ
一応application.enableevent を使って停止しておくこともできるようなので、
通常は停止しておくことも考えてはいます
設置したボタンを押したときだけ機能するようにしておけばいいのかな、と。
Worksheet_SelectionChange使う以外方法がなければそうするしかないですが
無効にしてる間はイベントが一切反応しなくなるという事なので、
イベント付きの他のブックを併用するようなケース等で問題が起きそうで迷ってます

703:デフォルトの名無しさん
17/12/23 08:00:18.36 8SavP0Th0.net
>>682
なら
If ToggleButton1.Value Then
とか加えておけばいいだけでは？

704:デフォルトの名無しさん
17/12/23 08:11:12.55 F3cHZlpp0.net
>>683
お・・これはいけそうです
こういう使い方があるんですね・・・
作業を先に進められそうです
ありがとうございました

705:デフォルトの名無しさん
17/12/23 10:35:36.95 oVsH3Gmz0.net
フォームコントロールボタンの文字の色を変えたいんだけど
セレクトしない方法はないのですか？
Sub test01()
　n = Worksheets("Sheet1").Shapes("Button 1").Name
　Worksheets("Sheet1").Shapes(n).Select
　Selection.Font.ColorIndex = 3
End Sub

706:デフォルトの名無しさん
17/12/23 10:51:51.14 YCHexesv0.net
フォームコントロールボタンの文字の色を変えたいんだけど
セレクトしない方法はないのですか？
Set n = Worksheets("Sheet1").Shapes("Button 1")
　n.Font.ColorIndex = 3
みたいな？

707:デフォルトの名無しさん
17/12/23 13:25:10.14 Zcbsqwvta.net
シート上のボタンならtoggleにしなくてもモジュールレベルのクリックフラグ変数で管理できねーか？

708:デフォルトの名無しさん
17/12/23 13:35:38.33 8SavP0Th0.net
>>687
出来合いのものを、わざわざ回避する利点は？

709:デフォルトの名無しさん
17/12/23 15:32:28.22 tRk+L7lt0.net
>>688
いや、最初コマンドボタンだったからコマンドの方がいいのかなって思っただけ
別に必要無いなら必要無いでいいし

710:デフォルトの名無しさん
17/12/23 18:23:21.18 3q2JAS6ba.net
>>686
逆に何でセレクトしなきゃならんのかが分からん。
普通セレクトなんてしないだろ。

711:デフォルトの名無しさん
17/12/23 18:24:04.16 3q2JAS6ba.net
すまん。
>>685向けね。

712:デフォルトの名無しさん
17/12/23 19:38:10.94 DrTFst260.net
>>685
Worksheets("Sheet1").Shapes("Button 1").TextFrame.Characters.Font.Color = vbRed
または
Worksheets("Sheet1").Buttons("Button 1").Font.Color = vbRed
SelectするとButtons("Button 1")をオブジェクトとしてSelectionに持つので
Selection.Font.Color = vbRed　でいける
一方、ShapesはFontオブジェクトをもっていないので
Fontオブジェクトを持っているヤツまで掘り下げてかなければダメ
ということだと思う。

713:デフォルトの名無しさん
17/12/23 19:53:54.32 AF0984djx.net
>>692
直感的な説明だが、オブジェクトがオブジェクトを持つという表現は間違い
オブジェクトが持つのはあくまでメソッドとプロパティからなるメンバで、いわゆる下位オブジェクトにはメンバを介してアクセスしてるだけだからな

714:デフォルトの名無しさん
17/12/23 20:15:31.85 oVsH3Gmz0.net
>>692
マクロの記録でやってたので。1行で可能なのですね。
TextFrame.Characters.Font.Colorでググったら出てきました。
ありがとうございました。

715:デフォルトの名無しさん
17/12/23 20:55:59.08 afY4COyy0.net
ちなみにButtonsとかCheckBoxesとかは隠しプロパティ
ヘルプにもでてこないからな
なんで隠してあるのかねぇ

716:デフォルトの名無しさん
17/12/24 00:26:44.47 oSJcOqyea.net
>>694
分かるよ。
そういう人がとても多いから。
でも、殆どの処理はセレクト無しで書ける。
個人的にはセレクト無しで書けない場合でも何とかセレクトせずに書けないかを考える。

717:デフォルトの名無しさん
17/12/24 00:45:00.70 BN72T8jr0.net
まあ、大多数の用途では得られるメリットが少なすぎてSelectを消す意味は薄いけどな

718:デフォルトの名無しさん
17/12/24 01:23:50.46 2PxYmIQzx.net
オブジェクトのプロパティにアクセスする処理でSelectメソッドはなるべく使わない
コードの実行中にデバッグ作業を行ったときなどに予期しないオブジェクトが選択されて、アクセスしたいプロパティにアクセス出来ずエラーになることがよくあるからね
Rangeオブジェクトを指定していたはずがShapeオブジェクトやOLEObjectオブジェクトを選んでいたりとか

719:デフォルトの名無しさん
17/12/24 01:43:15.08 O2udkTbW0.net
Selectは必ず代替手段があるから、範囲選択してユーザーに注意を促すとかでなけりゃSelect使う事に疑問を持った方がいい。

720:デフォルトの名無しさん
17/12/24 06:22:03.30 ZKd7S1fn0.net
起動中のIEからさらに別窓で開かれるフォーム入力用窓のIEオブジェクトを取得して操作したいと考えているのですが、
Function hoge() As WebBrowser
Dim tmp As Variant
For Each tmp In CreateObject("Shell.Application").Windows
If TypeName(tmp.document) = "HTMLDocument" Then
Set hoge = tmp
Exit Function
End If
Next tmp
End Function
のようにShellを使ってもIEオブジェクトを取得できなくて困っています
Set objIE = MAGIC(hWnd)
のような形で、ハンドルからIEオブジェクトを取得する方法は無いでしょうか
他に方法があれば、ハンドルから取得する方法にこだわりません
ただし、諸事情により外部からライブラリをダウンロードしてきて使用する、といったことはできないです

721:デフォルトの名無しさん
17/12/24 08:15:14.57 BN72T8jr0.net
>>700
別窓かどうかの判定が抜けてる
LocationNameとかLocationURLあたりを調べないと

722:デフォルトの名無しさん
17/12/24 11:59:50.98 uwQxUsVy0.net
IEが複数あるかもしれないのに見つかったら抜けちゃうコードで何かおかしいと感じないの?

次ページ