エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19623 for 20��... (0.004 sec.)

[[20210115164908]]: #score: 2681; @digest: 6dbcde27414ef428a96f7a9875e725fe; @id: 86351; @mdate: 2021-01-16T02:18:01Z; @size: 8595; @type: text/plain; #keywords: windowstate (53000), ンウ (42041), xlmaximized (36789), spinbutton2 (30338), xlnormal (27663), normal (25127), spindown (21306), へ動 (17280), spinup (15273), spinbutton1 (13545), ムワ (12083), doevents (12019), ワセ (11897), セト (11624), カエ (10406), エム (10252), リケ (8873), 大化 (8772), ィン (8538), ウィ (8534), すpr (8453), 下左 (8271), ドウ (7782), appactivate (7410), ウサ (7294), ウを (6747), application (6194), スピ (6166), sleep (5929), ーシ (5706), ンド (5463), アプ (5452); 『スピンボタンでアプリケーションウィンドウを上下左右に移動』（カエムワセト）
お世話になります。ユーザーフォームに配置した二つのスピンボタンでエクセルのウィンドウを上下左右に移動させようとしています。ウィンドウが最大化していたら一旦Normal（元のサイズに戻す）にしてからウィンドウを移動させます。手動又は他のプロシージャでウィンドウサイズをNormalにしておいたら With Application If .Left < 20 Then Exit Sub .Left = .Left - 20 End With だけでいけるのですが、最大化した状態ですと↑のコードだけではエラーになるので Application.WindowState = xlNormal DoEvents DoEvents を前に入れてみましたが、ウィンドウサイズはNormalにならず With Application If .Left < 20 Then Exit Sub .Left = .Left - 20 End With の部分でエラーになります。コードをどのように書き換えたらいいでしょうか? ご教示お願いします。 'エクセルアプリケーションウィンドウを↓へ動かす Private Sub SpinButton1_SpinDown() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application .Top = .Top + 20 End With End Sub 'エクセルアプリケーションウィンドウを↑へ動かす Private Sub SpinButton2_SpinUp() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application If .Top < 20 Then Exit Sub .Top = .Top - 20 End With End Sub 'エクセルアプリケーションウィンドウを←へ動かす Private Sub SpinButton2_SpinDown() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application If .Left < 20 Then Exit Sub .Left = .Left - 20 End With End Sub 'エクセルアプリケーションウィンドウを→へ動かす Private Sub SpinButton2_SpinUp() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application .Left = .Left + 20 End With End Sub ＜使用 Excel:Excel2007、使用 OS:Windows10 ＞ ---- スピンボタンのオブジェクト名が一か所間違ってましたのでコードを修正したものをアップします。よろしくお願いします。 'エクセルアプリケーションウィンドウを↓へ動かす Private Sub SpinButton1_SpinDown() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application .Top = .Top + 20 End With End Sub 'エクセルアプリケーションウィンドウを↑へ動かす Private Sub SpinButton1_SpinUp() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application If .Top < 20 Then Exit Sub .Top = .Top - 20 End With End Sub 'エクセルアプリケーションウィンドウを←へ動かす Private Sub SpinButton2_SpinDown() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application If .Left < 20 Then Exit Sub .Left = .Left - 20 End With End Sub 'エクセルアプリケーションウィンドウを→へ動かす Private Sub SpinButton2_SpinUp() 'If Application.WindowState = xlMaximized Then Exit Sub Application.WindowState = xlNormal DoEvents DoEvents With Application .Left = .Left + 20 End With End Sub （カエムワセト） 2021/01/15(金) 16:54 ---- >ユーザーフォームに配置したこれが問題なのでは? どうやって、アプリケーションウインドウをアクティブにするのかが味噌では? 標準モジュールからでは動きました(2007) それで、モードレスでユーザーフォームを起動すると動きました。最大化と標準サイズしかやってませんけど。 DoEvents無し Private Sub CommandButton1_Click() Application.WindowState = xlNormal End Sub Private Sub CommandButton2_Click() Application.WindowState = xlMaximized End Sub （why） 2021/01/15(金) 21:07 ---- whyさんと同じですが、モダールなら、window指定をする必要があるということだと思います。 With Application.ActiveWindow .WindowState = xlNormal .Top = .Top + 20 End With （kazuo） 2021/01/15(金) 21:22 ---- 因みにフルスクリーンって事は無いですよね? Application.DisplayFullScreen = True （why） 2021/01/15(金) 21:39 ---- whyさん、kazuoさん、ご回答ありがとうございます。ユーザーフォームはモードレスになっております。私が少し調べた限りではExcel2010までと2013以降では Window.WindowState の対象が違ってくるようです。当方Excel2007です。 ↓を実行したらアプリケーションウィンドウは最大化のままでブックのウィンドウのみがNormalになりました。 With Application.ActiveWindow .WindowState = xlNormal .Top = .Top + 20 End With ↓に書かれてました。 https://www.vba-ie.net/operation/windowstate.php https://vbabeginner.net/maximize-minimize-window-display/ 結果としましては、下記のようにアプリケーションウィンドウが最大化している場合はアプリケーションウィンドウにフォーカスを当てて3000ミリ秒ほど待ってアプリケーションウィンドウをNormalにする、としてみました。スピンボタンをクリックする前に手作業かコマンドボタンなどでウィンドウをNormalにしておくようにしたら3秒ほど待つ必要はなくなります。下記のコードで様子を見てみます。ありがとうございました。 '標準モジュール Public Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) 'ユーザーフォーム Private Sub SpinButton1_SpinDown() If Application.WindowState = xlMaximized Then AppActivate Application.Caption Sleep 3000 Application.WindowState = xlNormal End If With Application .Top = .Top + 20 End With End Sub Private Sub SpinButton1_SpinUp() If Application.WindowState = xlMaximized Then AppActivate Application.Caption Sleep 3000 Application.WindowState = xlNormal End If With Application If .Top < 20 Then Exit Sub . Top = .Top - 20 End With End Sub Private Sub SpinButton2_SpinDown() If Application.WindowState = xlMaximized Then AppActivate Application.Caption Sleep 3000 Application.WindowState = xlNormal End If With Application If .Left < 20 Then Exit Sub .Left = .Left - 20 End With End Sub Private Sub SpinButton2_SpinUp() If Application.WindowState = xlMaximized Then AppActivate Application.Caption Sleep 3000 Application.WindowState = xlNormal End If With Application .Left = .Left + 20 End With End Sub （カエムワセト） 2021/01/16(土) 10:28 ---- Sleep 3000 を Sleep 100 にしてもエラーにならなかったので Sleepの部分をコメントアウトして実行してもエラーになりませんでした。その代わり、ユーザーフォームのスピンボタンからアプリケーションウィンドウの方にフォーカスが行くせいかスピンボタンを押しっ放しでもスピンボタンのイベントが連続して発生しなく、アプリケーションウィンドウが連続して移動しませんでした。一旦スピンボタンを押すのを止めて再度スピンボタンを押したら連続して移動してくれます。 If Application.WindowState = xlMaximized Then Exit Sub を入れておいて、手動かコマンドボタンなどでウィンドウをNormalにするようにしておけばストレスがなくなります。解決です。ありがとうございました。（カエムワセト） 2021/01/16(土) 10:40 ---- よくわかんないですが。。。ユーザーフォームを表示するときにウィンドウを操作しておくのはダメなんでしょうか? そうすれば、 DoEventsや Sleepは要らないと思います。あ、こちらは2019で試しました。 Option Explicit Private Sub UserForm_Initialize() Application.WindowState = xlNormal End Sub Private Sub UserForm_Terminate() Application.WindowState = xlMaximized End Sub Private Sub SpinButton1_SpinDown() With Application .Top = .Top + 20 End With End Sub Private Sub SpinButton1_SpinUp() With Application .Top = .Top - 20 End With End Sub （まっつわん） 2021/01/16(土) 11:04 ---- まっつわんさんご回答ありがとうございます。ユーザーフォームに色んなコントロール類を配置しており、様々な作業を行っております。作業に応じてアプリケーションウィンドウを最小化したり最大化したりNormalにしたりしております。また、作業に応じてウィンドウを上下左右に移動しております。このウィンドウを上下左右に移動する際に、アプリケーションウィンドウが最大化していたら移動する際にエラーになります。ユーザーフォーム起動時にウィンドウをNormalにしておいても、他の作業でウィンドウサイズを変える場合がありますので、ウィンドウを上下左右に移動したいときにウィンドウのサイズがどうなってるかは未確定です。（カエムワセト） 2021/01/16(土) 11:18 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202101/20210115164908.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ