以下のVBAを実行したいのですが
Private Sub test()
Dim objWorkbook1 As Excel.Workbook
Dim objWorkbook2 As Excel.Workbook
Set objWorkbook1 = GetObject("C:\あいうえお\200706.xls")
Set objWorkbook2 = GetObject("C:\かきくけこ\200706.xls")←別の場所にある同じファイル
End Sub
「アプリケーション定義またはオブジェクト定義のエラーです。」と
表示されます、GetObjectを2回連続で呼ぶことは
出来ないのでしょうか？
よろしくお願いします。
Sub test()
Set Rng = Range("B2:E7")
Rng.Cells(2, 2).Select
End Sub
これで、範囲Rng内では2行/2列目となるC3セルが選択されます。
では、C3セルが、範囲Rng内で何行/何列目であるかを取得するにはどのように記述すればよいのでしょうか？
Rng.Cells(2, 2).Rowは、当たり前ですが、3になってしまいます。
Excelの「コードの表示(V)」に、下記のフォントサイズ変更コードを登録してあります。この有効範囲を、あるセル範囲、たとえば（C3:S20) などのように限定したいのですが、どう記述したらよいのでしょうか、教えて下さい。よろしくお願いします。
（現在のコード）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
If IsNumeric(c.Value) Then
If Len(Mid$(c.Text, InStr(c.Text, ".") + 1)) > 1 Then
c.Font.Size = 8
Else
c.Font.Size = 9
End If
End If
Next c
Application.EnableEvents = True
End Sub
Excelを普通に起動して閉じた後、タスクマネージャで確認すると、EXCEL.EXEのプロセスが残っています。
ファイルを開いた場合も、空で起動した場合も同様です。
さらに、終了後もEXCEL.EXEのプロセスが多くのメモリを消費しており(200MB以上)、CPU使用量も高くなっています。これでは困るので、毎回強制的に落としています…。
このような症状なのですが、解決策はありますでしょうか。
念のため、ウイルスチェックとOfficeアップデートを試してみましたが改善しません。
どなたかご存知でしたらご教示ください。
Microsoft Windows XP Professional Version 2002 SP2
Microsoft Office Excel2003 SP2
エクセル2000です。
BOOK内の全シートに、ある処理をしようと思いますが、シートの種類によって分岐させたいのです。そのためにはシートが
Worksheetか、古いですがDialogsheetか、あるいはグラフなのかを判別しなければなりません。
ためしに、
Sub test01()
For Each st In Sheets
st.Activate
MsgBox st.Type
Next
End Sub
としてみましたが取得できませんでした。
シートの種類を取得するにはどのような記述になるのでしょうか？
