ExcelのA列に日付がずらずらと入っているのですがその中から「今日」に該当する部分を探したいと思っています。
findを使うことが出来ないでいます。
Const xlValues = -4163
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open("C:\Book1.xls")
strLastDay = Cstr(Date - 1)
With objExcelApp.WorkSheets("Sheet1").Rangge("A8:A65535")
Set objClm = .Find(Trim(strLastDay),,xlValues)
If Not objClm Is Nothing Then
intCol = objClm.Column
intRow = objClm.Row
このあとどうしたらいいかわかりません・・・お願いします。
No.2ベストアンサー
- 回答日時:
なぜFindが使えないのか詳しいことは分かりませんでしたがとりあえず動くようにはしました。
シートのB列とC列を書き換えているので注意してください。
Const xlValues = -4163
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
objExcelApp.Workbooks.Open ("C:\Book1.xls")
Set ExcelSheet = objExcelApp.Worksheets("Sheet1")
With ExcelSheet
'Cells(1, 2)に検索する日付を入力(Date?)
.Cells(1, 2).Value = Date - 1
'Cells(1, 2)の値をTextプロパティで取得するので見た目を整えておく
.Columns("A:A").EntireColumn.AutoFit
.Columns("B:B").EntireColumn.AutoFit
i = 8 '検索開始行
j = 1 'Cells(j, 3)に見つかった行を入力する
On Error Resume Next
Do
Set rng = .Range("A" & i & ":A65535").Find(.Cells(1, 2).Text, , xlValues)
.Cells(j, 3).Value = rng.Row
j = j + 1
i = rng.Row + 1
Loop Until rng Is Nothing Or i > 65535
On Error GoTo 0
End With
No.1
- 回答日時:
>このあとどうしたらいいかわかりません・・・お願いします。
このあとしたいことは、質問者にしか分かりません。(^^;;;
それ以前に提示したコードはいくつかミスがあるので動作しません。
で、次のコードを試してみてください。
エクセルA列の日付の表示形式が、2009/9/5(YYYY/M/D) として。
'----------------------------------------------
Const xlValues = -4163
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set myBook = objExcelApp.Workbooks.Open("C:\Book1.xls")
strLastDay = Date
With myBook.WorkSheets("Sheet1").Range("A8:A65535")
Set objClm = .Find(strLastDay,,xlValues)
End with
If Not objClm Is Nothing Then
intCol = objClm.Column
intRow = objClm.Row
MsgBox "今日は、" & objClm.Address(0,0) & " のセルです"
End If
'------------------------------------------
最も重要なところは
Set myBook = objExcelApp.Workbooks.Open("C:\Book1.xls")
With myBook.WorkSheets("Sheet1").Range("A8:A65535")
これです。
また、今日を探すわけですから
>strLastDay = Cstr(Date - 1)
Dateから1引く必要はないし、
>Set objClm = .Find(Trim(strLastDay),,xlValues)
Trimも不必要だと思いますが。
以上です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBScriptで引数を省略したい場合
その他(プログラミング・Web制作)
-
VBSでExcelのオープン確認
Visual Basic(VBA)
-
vbsでExcelのシートをコピーするには
その他(プログラミング・Web制作)
-
-
4
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
5
vbsからのExcelマクロ呼び出しの際に保存ダイアログが表示されてしまう
その他(プログラミング・Web制作)
-
6
vbscriptを使いexcelを参照して値を出力するというvlookupのような事がしたいのですが
Visual Basic(VBA)
-
7
VBS Bookを閉じるコード
Visual Basic(VBA)
-
8
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
9
ステートメントの末尾が不正です
Windows Vista・XP
-
10
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
11
すでに開いているブックのマクロを起動させるvbsを教えてください
Visual Basic(VBA)
-
12
vbsでテキストファイル内の文字列検索
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
【VBA】複数行あるカンマ区切り...
-
エクセルVBA シートモジュール...
-
SpecialCells(xlCellTypeConsta...
-
VBAの構文 3列置きにコピーし...
-
VBAで文字列を結合
-
エクセルVBAにて =A1=B1とすれ...
-
IIF関数の使い方
-
vba 数値がゼロになるまで引く
-
VBScriptでfindを使うには??
-
VBAコンボボックスで選択した値...
-
VBAの処理で質問です。 例 番号...
-
VBAで指定範囲内の空白セルを左...
-
Worksheet_Change(ByVal Target...
-
Changeイベントでの複数セルの...
-
エクセル VBA ユーザーフォー...
-
空白セルをとばして転記
-
Excel VBA:エクセルのマクロで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報