Excelでマクロ実行中に画面を固定する方法

Aベストアンサー

解像度以外の手段では
画面のプロパティ→「デザイン」タブ→詳細設定
で、アクティブタイトルバー、パレットタイトル、ヒント、メッセージボックス、メニュー、選択項目、非アクティブタイトルバーの文字の大きさをポイント単位で変更できます。

ブラウザの文字の大きさなら、ブラウズの最中にマウスのスクロールボタンをCtrlボタンを押しながらグリグリすると5段階に変更できます。

ExcelやWordでしたら、ツール→オプション→全般タブから標準の文字の大きさをポイント単位で変更できます。

Aベストアンサー

＞そのキーワードが含まれている行を新しいブックにコピーするものを作成したいです。

オートフィルタでキーワードの文字を絞り込んでから、表の範囲をコピーして別のシートに貼り付けを行う方が簡単で早いですよ。


フィルタで絞り込んでコピーし、別シートに貼り付けと言う作業を記録マクロにして、思い通りに動くように編集してみてはいかがでしょうか？

Aベストアンサー

＞検索結果などがたくさん出て

タブブラウザを使った方がいいかな～と思います。

ＩＥだと仰る様に一つ一つを右クリックで「新しいウィンドウで開く」をクリック
するのも面倒ですし、下におろすのも面倒です。

タブブラウザなら、画面がウインドウだらけになるうっとうしさも無いですし、
ポップアップも制御できます。

画面の切り替えもタブをクリックするだけですし、たくさんひらいた
ページをまとめて閉じることもできます。

ご存知でしたら失礼しました。

Aベストアンサー

あらかじめファイルリストを作成するサンプルです。
#2さんの書き込みを見て気づいたんですが、1レコード検索する毎に
全エクセルファイルをオープン、クローズしているので
実行速度が遅いかもしれません。

Option Base 0
Option Explicit

Sub test()
　　Dim i As Long
　　Dim j As Long
　　Dim SearchWord As String
　　Dim FileList() As String
　　Dim FileCnt As Long
　　Dim ws As Worksheet
　　
　　Set ws = ActiveSheet
　　
　　Application.ScreenUpdating = False
　　'ディレクトリ指定でエクセルファイルのリストを作成する
　　FileCnt = GetAllxlsFilesInDir("D:", FileList())
　　
　　For i = 1 To Range("D65536").End(xlUp).Row
　　　　ws.Activate
　　　　SearchWord = Range("D" & i)
　　　　
　　　　If SearchWord = "" Then
　　　　　　GoTo NEXT_RECORD
　　　　End If
　　　　
　　　　'毎回Openを繰り返しているので遅いかも・・・
　　　　For j = 0 To FileCnt - 1
　　　　
　　　　　　Workbooks.Open(FileList(j)).Activate
　　　　　　
　　　　　　'レコードの検索
　　　　　　If (Cells.Find(What:=SearchWord, after:=ActiveCell, LookIn:=xlFormulas, _
　　　　　　　　　　LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
　　　　　　　　　　MatchCase:=True, SearchFormat:=False) Is Nothing = False) Then
　　　　　　　　
　　　　　　　　'見つかったらシートのコピー&リネーム
　　　　　　　　With ThisWorkbook
　　　　　　　　　　ActiveSheet.Copy after:=.Sheets(.Sheets.Count)
　　　　　　　　　　.Sheets(.Sheets.Count).Name = i & "_" & SearchWord
　　　　　　　　End With
　　　　　　　　
　　　　　　　　'閉じて次のレコードを探す
　　　　　　　　Workbooks(Dir(FileList(j))).Close savechanges:=False
　　　　　　　　GoTo NEXT_RECORD
　　　　　　End If
　　　　　　
　　　　　　Workbooks(Dir(FileList(j))).Close savechanges:=False
　　　　
　　　　Next j
　　　　
　　　　'見つからなかったら空白のシートを追加
　　　　With ThisWorkbook
　　　　　　.Activate
　　　　　　Sheets.Add
　　　　　　ActiveSheet.Move after:=.Sheets(.Sheets.Count)
　　　　　　.Sheets(.Sheets.Count).Name = i & "_" & SearchWord
　　　　End With
　　　　
NEXT_RECORD:
　　
　　Next i
　　
　　ws.Activate
　　
　　Application.ScreenUpdating = True
　　
　　Erase FileList
　　Set ws = Nothing
　　
End Sub

'フォルダ内のエクセルファイルのファイルリスト作成
'引数1:検索フォルダパス 引数2:ファイルリスト
'戻り値:見つかったファイル数
Function GetAllxlsFilesInDir(ByVal strDirPath As String, ByRef xlsFiles() As String) As Long

　　Dim strTempName As String
　　Dim FileCnt　　As Long
　　
　　On Error GoTo GetAllFiles_End

　　FileCnt = 0
　　' strDirPath が "\" 文字で終わっていることを確認します。
　　If Right$(strDirPath, 1) <> "\" Then
　　　　strDirPath = strDirPath & "\"
　　End If
　　
　　' strDirPath がディレクトリであることを確認します。
　　If GetAttr(strDirPath) And vbDirectory <> vbDirectory Then
　　　　GoTo GetAllFiles_End
　　End If
　　　　
　　'エクセルファイルを検索する
　　strTempName = Dir(strDirPath & "*.xls")
　　
　　Do Until Len(strTempName) = 0
　　　　
　　　　' "." と ".." を除外
　　　　If (strTempName = ".") Or (strTempName = "..") Then
　　　　　　GoTo NEXT_DIR
　　　　End If
　　　　
　　　　If strTempName Like "*.xls" Then
　　　　　　'サブフォルダリストに登録する
　　　　　　FileCnt = FileCnt + 1
　　　　　　ReDim Preserve xlsFiles(FileCnt)
　　　　　　xlsFiles(FileCnt - 1) = strDirPath & strTempName
　　　　End If
　　　　
NEXT_DIR:
　　　　' Dir 関数を使用して、次のファイル名を検索します。
　　　　strTempName = Dir()
　　Loop
　　
　　
GetAllFiles_End:

　　GetAllxlsFilesInDir = FileCnt
　　
End Function

あらかじめファイルリストを作成するサンプルです。
#2さんの書き込みを見て気づいたんですが、1レコード検索する毎に
全エクセルファイルをオープン、クローズしているので
実行速度が遅いかもしれません。

Option Base 0
Option Explicit

Sub test()
　　Dim i As Long
　　Dim j As Long
　　Dim SearchWord As String
　　Dim FileList() As String
　　Dim FileCnt As Long
　　Dim ws As Worksheet
　　
　　Set ws = ActiveSheet
　　
　　Application.ScreenUpdating = False
　　'...続きを読む

Aベストアンサー

画面の文字の大きさは、
[表示] メニュー → [現在のビュー] → [現在のビューの編集] →
[その他の設定] と [自動書式] の項目でそれぞれフォントの大きさが変更できます。
また、送信メールとテキスト形式の受信メールのフォントの大きさは、
[ツール] メニュー → [メール形式] タブ → [ひな形およびフォント] → [ひな形] タブでそれぞれ変更できます。

Aベストアンサー

ちょうど正月休みでJavaScript - DOMのお勉強をしていましたので、試しにやってみました。
当方の環境（Win7Home64bit、IE10、xl2010-32bit）の環境ではお示しのコードは動きませんでした。
ソース（ページの見た目の割にとんでもなくごちゃごちゃしたソースで、自作のWebのTreeをワークシートに書き出すVBAコードを使って解析しました）を見ると、検索窓のIDや、「Google 検索」のタグも変わっている様でした。Googleさんの気分で時々変わるとすると、自力で作成できる様にお勉強していただくしかないと思います。下記で使用したidやclassnameも明日には変わっているかもしれません。
検索結果の最初の1ページ（10件分）のリンク－これも訳の分からない他のリンクが山ほど存在していて、正規表現による取得ではNGと思います－を取得して、5秒ごとにリンク先のページを表示するというところまでやってみました。ここまでで、自分の勉強に戻ります。ご参考まで。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'Googleで「VBA」と検索する
Sub GoogleSearch()
Dim objIE As Object
Dim myElements As Object
Dim i As Long
Dim urls() As String

'IE起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
'Googleに接続
objIE.navigate "http://www.google.co.jp"
'IEを待機
Call IEWait(objIE)
'検索窓に「VBA」と入力
objIE.document.getElementById("gbqfq").Value = "VBA"
'1秒停止
Sleep 1000
'検索ボタンを押す
objIE.document.getElementById("gbqfb").Click
'IEを待機
Call IEWait(objIE)
Sleep 1000
Set myElements = objIE.document.getElementsByClassName("altcts")
ReDim urls(0 To myElements.Length - 1)
For i = 0 To UBound(urls)
urls(i) = myElements(i).NextSibling.FirstChild.href
Next i
'取得したリンク先を表示する
For i = 0 To UBound(urls)
objIE.navigate urls(i)
Sleep 5000
Next i

'IE終了
' objIE.Quit
' Set objIE = Nothing
End Sub

'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function

ちょうど正月休みでJavaScript - DOMのお勉強をしていましたので、試しにやってみました。
当方の環境（Win7Home64bit、IE10、xl2010-32bit）の環境ではお示しのコードは動きませんでした。
ソース（ページの見た目の割にとんでもなくごちゃごちゃしたソースで、自作のWebのTreeをワークシートに書き出すVBAコードを使って解析しました）を見ると、検索窓のIDや、「Google 検索」のタグも変わっている様でした。Googleさんの気分で時々変わるとすると、自力で作成できる様にお勉強していただくしかないと思います...続きを読む

Aベストアンサー

IEを起動して始めに表示される画面（ホームページ）の状態で操作します。
マウスを使って表示させたい大きさにIEの全体のウィンドウを変更します。
任意の大きさと位置が決まったら「Shiftキー」を押しながら閉じるボタンをクリックしてIEを終了させます。

※Shiftキーでうまくいかない場合はShiftキーの替わりにCtrlキーを使って試してみてください
※大きさを決めるときは、いつも始めに開いたページでウィドウの大きさ・位置を決めるのがコツです
※IEにい限らず、エクスプローラも同じ要領で変更できます

Aベストアンサー

（１）エクセルの１つのブックの全シート（名）を１つずつとらえる方法（コード）
（２）指定シートのデータの最終行までをとらえる方法（コード）
（３）　別ブックの所定セル以下に貼り付け
（１）も（２）も毎日のように質問や回答で出てくるコードだ。
WEBででも照会すればコード例がたくさんでる。
勉強不足（丸投げ）。
Googleででも「VBA シート　全シート名　取得」で照会
Sub test01()
For Each ws In Worksheets
MsgBox ws.Name
MsgBox ws.Range("a1")
Next
End Sub
をやってみること。
ーー
Googleででも「VBA データ　最終行　取得」で照会
Sub test02()
Set ws = Worksheets("Sheet1")
d = ws.Range("a65536").End(xlUp).Row
MsgBox d
End Sub
をやってみること。
各ブック各シートを指定して、同様のことをするヒントは、
Set ws = Worksheets("Sheet1")
にある。その他ブック版を調べて勉強すること。
ーー
貼り付け先は、貼り付ける直前に、そのシートのデータ最終行（前段階のコピペ作業で行が増えていっている結果を見ている）をとらえて、その１行下から貼り付けすれば仕舞い。

（１）エクセルの１つのブックの全シート（名）を１つずつとらえる方法（コード）
（２）指定シートのデータの最終行までをとらえる方法（コード）
（３）　別ブックの所定セル以下に貼り付け
（１）も（２）も毎日のように質問や回答で出てくるコードだ。
WEBででも照会すればコード例がたくさんでる。
勉強不足（丸投げ）。
Googleででも「VBA シート　全シート名　取得」で照会
Sub test01()
For Each ws In Worksheets
MsgBox ws.Name
MsgBox ws.Range("a1")
Next
End Sub
をやってみること。
ーー
Googleで...続きを読む

Aベストアンサー

変えられないと思います。

Aベストアンサー

　StreamWriterやGraphicsなども、Application終了後にガベージコレクターに引っ掛かり、最終的には .Net がメモリを解放するはずなのですが、これらはリソースの消費が激しいので、Application内で何回も作成されることを防ぐために、まめに Usingブロックか、Disposeメソッドでメモリを掃除しろ、というのがMSの推奨です。

　_swは、使い切ってから End Using に達するので、問題ないように思えます。ただ蛇足ですが、_swがNothingでないかどうかだけで、所定の機能が果たせた、という判断は若干疑問です（大きなお世話ですね）。