初心者です。エクセルのVBAで設定した時刻になったらセルに色がつくようにしたいです。
例えば、１７：００時にA1セル、１８：００にA2セルに色を自動でつくようにしたいと思っています。
OnTimeを使ったらよいと思っていろいろ試しましたが、設定した時刻になってもなにも起こりません。
標準モジュールに以下の内容を記述して、パソコンの時計を変更して確認しています。
できたらクリックしないでファイルオープンしてなにもせずに設定時刻に実行されるようにしたいです。
最初の３秒でB１に現在の時間を取得。
セルA１とA２をクリアしてから設定時間に色をつけるようにしたつもりです。
下記が記述内容です。
Sub 指定時間にマクロを開始()
Dim stime As Date
Range("A1") = ""
Range("A2") = ""
Range("B1").Select
stime = Now + TimeValue("00:00:03")
Application.OnTime TimeValue(stime), "マクロ実行内容", TimeValue("00:05:00")
End Sub
Sub 時刻の設定1()
Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="Test"
End Sub
Sub Procedure()
Range("A1").Interior.ColorIndex = 8
End Sub
Sub 時刻の設定2()
Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="Test"
End Sub
Sub Procedure2()
Range("A2").Interior.ColorIndex = 9
End Sub
実行マクロは有効にしています。
ご教授よろしくお願いします。
いつもこちらでお世話になっております。
全くのど素人で申し訳ありません。
会社でエクセル2003を使用しています。
データを一括検索したく、あるサイトでこのマクロを見つけました。
「検索結果のセルをすべて選択する」
Sub SelectTargets()
Dim Target As String
Dim FoundCell As Range, SearchArea As Range
Dim Addr As String
Dim FoundAddr() As String
Dim i As Long
Target = Application.InputBox("検索文字列入力", "検索", Type:=2)
If Target = "False" Then Exit Sub
Set SearchArea = ActiveSheet.UsedRange
Set FoundCell = SearchArea.Find(what:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
If FoundCell Is Nothing Then Exit Sub
Addr = FoundCell.Address
Do
ReDim Preserve FoundAddr(i) '配列の内容を維持したまま再宣言
FoundAddr(i) = FoundCell.Address '検索結果のアドレスを配列に格納
Set FoundCell = SearchArea.FindNext(After:=FoundCell)
i = i + 1
If FoundCell Is Nothing Then Exit Do
Loop Until FoundCell.Address = Addr
'配列に格納されたアドレスをカンマ区切りで結合し、セル範囲を一括選択
Range(Join(FoundAddr, ",")).Select '---(1)
End Sub
補足として
Rangeプロパティの引数に指定する文字列には文字数制限があるため、検索対象のセルが多いと(1)でエラーが発生します。その場合はUnionメソッドを使用して対象セルを選択すると良いでしょう。
と、補記があり調べてみると「変数Targetの文字数が255を超えたとき」エラーとなるとのこと。
「Union メソッド」をいろいろ調べて試してみたのですが…
やはり、さっぱり全くできません。
ご教授いただけませんでしょうか?
全く理解できていない初心者です。
あるサイトで見つけたマクロです。
「検索結果のセルをすべて選択する」
Sub SelectTargets()
Dim Target As String
Dim FoundCell As Range, SearchArea As Range
Dim Addr As String
Dim FoundAddr() As String
Dim i As Long
Target = Application.InputBox("検索文字列入力", "検索", Type:=2)
If Target = "False" Then Exit Sub
Set SearchArea = ActiveSheet.UsedRange
* Set FoundCell = SearchArea.Find(what:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
If FoundCell Is Nothing Then Exit Sub
Addr = FoundCell.Address
Do
ReDim Preserve FoundAddr(i) '配列の内容を維持したまま再宣言
FoundAddr(i) = FoundCell.Address '検索結果のアドレスを配列に格納
Set FoundCell = SearchArea.FindNext(After:=FoundCell)
i = i + 1
If FoundCell Is Nothing Then Exit Do
Loop Until FoundCell.Address = Addr
'配列に格納されたアドレスをカンマ区切りで結合し、セル範囲を一括選択
Range(Join(FoundAddr, ",")).Select '---(1)
End Sub
↑家のエクセル（2010）では完璧でできるのですが、会社のエクセル（2003）では、「実行時424 オブジェクトが必要です」とエラーメッセージが出ます。
コードの入力ミスがありました。
上から2行目 Dim foundcell As Range, sercharea( 正 seacharea)As Range
後は、入力ミスはなさそうなのですが、実行キーを押すと
「実行時424 オブジェクトが必要で」と出ます。
黄色のマーカーが出るのが、*印を置いた
↓に出ます。
Set FoundCell = SearchArea.Find(what:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
後、気になるのがコードを入力して
「target」「searcharea」「foundcell」「foundaddr」「addr」などが頭文字が大文字になりません。
無理やり大文字にしてみたりしましたが…
「オブジェクトが必要です」に関係あるのかないのかも分かりませんが、なぜ、エラーが出てしまうのか?
入力ミスが原因なのか?
何が足りないのか？何か不要なコードがあるのか?
どの用意すればいいのか教えていただけませんか?
よろしくお願いします。
