Aというブックのマクロを動かし、別ブックのコマンドボタンに埋め込まれているマクロの動作を行いたいのですがうまく行きません。
下記がコードになります。
Option Explicit
Public strName As String
Public strPath As String
Public xlApp As Object
Public xlBook As Object
Public xlSheet As Object
Public Function テスト処理()
'ファイル名
strName = Worksheets("名前").Range("B2")
'ファイルを置いている場所
strPath = Worksheets("名前").Range("B3")
Set xlApp = CreateObject("Excel.Application")
'別Excelを開く
Set xlBook = xlApp.Workbooks.Open(strPath, True)
'シートの選択
Set xlSheet = xlBook.Worksheets("操作画面")
xlApp.Visible = True
xlApp.UserControl = True
xlSheet.Activate
setブック処理
End Function
Public Sub setブック処理()
'別ブックのマクロを動かす
Application.Run (strName & "!CmdClick"), ThisWorkbook
End Sub
上記のマクロを動かすと、Application.Runの部分で下記エラーが表示されます。
実行時エラー1004
'別ブック.xls'が見付かりません。ファイル名及びファイルの保存場所が正しいかどうか確認してください。
setで飛ぶ前に別のブックは開けているので、ファイル名や保存場所は正しいと思うのですがエラーが出てしまいます。
宣言の仕方が間違っているのでしょうか？
ちなみに、別ブックのコマンドボタンのマクロは下記の名称なので、マクロ名の間違いという事も無いと思います。
Private Sub CmdClick()
～処理～
End Sub
エクセル2013です。
セルの値が0又は空白の場合でそのセルが色塗りされていたら色を消す
というマクロをを作成しました。
ただ700行55列では処理が遅いです。
Sub 色消()
'成功
Dim 最終行
Dim 最終列
Dim 対象セル As Range
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Value = 0 Or 対象セル = "" Then
対象セル.Interior.ColorIndex = 0
End If
Next 対象セル
End Sub
対象範囲から対象セルを全部見つけて一括処理すれば早いのではと
以下のマクロを作成してみましたが
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
で構文ERRです。
どこを直せばいいのでしょうか？
よろしくお願いします。
Sub 色消2()
'2014/8/4
'失敗
Dim 対象範囲
Dim 最終行
Dim 最終列
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
対象範囲 = Range(Cells(10, 17), Cells(最終行, 最終列))
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
If Not 対象範囲 Is Nothing Then
対象範囲.Interior.ColorIndex = 0
End If
End Sub
エクセル2013です。
セルの値が0又は空白の場合でそのセルが色塗りされていたら色を消す
というマクロをを作成しました。
ただ700行55列では処理が遅いです。
Sub 色消()
'成功
Dim 最終行
Dim 最終列
Dim 対象セル As Range
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Value = 0 Or 対象セル = "" Then
対象セル.Interior.ColorIndex = 0
End If
Next 対象セル
End Sub
対象範囲から対象セルを全部見つけて一括処理すれば早いのではと
以下のマクロを作成してみましたが
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
で構文ERRです。
どこを直せばいいのでしょうか？
よろしくお願いします。
Sub 色消2()
'2014/8/4
'失敗
Dim 対象範囲
Dim 最終行
Dim 最終列
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
対象範囲 = Range(Cells(10, 17), Cells(最終行, 最終列))
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
If Not 対象範囲 Is Nothing Then
対象範囲.Interior.ColorIndex = 0
End If
End Sub
エクセル2013です。
セルの値が0又は空白の場合でそのセルが色塗りされていたら色を消す
というマクロをを作成しました。
ただ700行55列では処理が遅いです。
Sub 色消()
'成功
Dim 最終行
Dim 最終列
Dim 対象セル As Range
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
For Each 対象セル In Range(Cells(10, 17), Cells(最終行, 最終列))
If 対象セル.Value = 0 Or 対象セル = "" Then
対象セル.Interior.ColorIndex = 0
End If
Next 対象セル
End Sub
対象範囲から対象セルを全部見つけて一括処理すれば早いのではと
以下のマクロを作成してみましたが
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
で構文ERRです。
どこを直せばいいのでしょうか？
よろしくお願いします。
Sub 色消2()
'2014/8/4
'失敗
Dim 対象範囲
Dim 最終行
Dim 最終列
最終列 = Cells(8, Columns.Count).End(xlToLeft).Column '8行目の最終列を取得
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得
対象範囲 = Range(Cells(10, 17), Cells(最終行, 最終列))
Set 対象範囲 = Cells.Find(What:=0 Or "", LookIn:=xlValues, LookAt:=xlWhole)
If Not 対象範囲 Is Nothing Then
対象範囲.Interior.ColorIndex = 0
End If
End Sub
「一定の時間間隔で5秒毎にMacro1を実行する」
一応startマクロ、stopマクロは作成してみたのですが、
下記stopコマンド実行しても止まらなかったような気がします。
ここから改変するとしたらどうですか？
Public timestop As Boolean
Sub test()
Dim tt As Double
Dim wt As Double
tt = Now + TimeValue("00:00:05") '5秒後
wt = TimeValue("00:00:02") 'インターバル2秒
Application.OnTime tt, "Macro1", wt
If (timestop = False) Then
Time = Timer
Application.OnTime earliesttime:=(Now + TimeValue("00:00:01")), procedure:="test"
End If
End Sub
----------------------------------------
ここからstart,stopマクロ
Sub t_start()
timestop = False
Call test
End Sub
Sub t_stop()
timestop = True
End Sub
「一定の時間間隔で5秒毎にMacro1を実行する」
一応startマクロ、stopマクロは作成してみたのですが、
下記stopコマンド実行しても止まらなかったような気がします。
ここから改変するとしたらどうですか？
Public timestop As Boolean
Sub test()
Dim tt As Double
Dim wt As Double
tt = Now + TimeValue("00:00:05") '5秒後
wt = TimeValue("00:00:02") 'インターバル2秒
Application.OnTime tt, "Macro1", wt
If (timestop = False) Then
Time = Timer
Application.OnTime earliesttime:=(Now + TimeValue("00:00:01")), procedure:="test"
End If
End Sub
----------------------------------------
ここからstart,stopマクロ
Sub t_start()
timestop = False
Call test
End Sub
Sub t_stop()
timestop = True
End Sub
