■困っていること
vbaの worksheetfunction のmatach関数を用いているが、日付が見つかってくれない。
なぜ見つからないか、原因を教えていただけないでしょうか?よろしくお願いします。
■状況、やりたいこと
下記、コードで、「fRow」と「syu」までは正しく求められるのですが、「tcol」を求めようとすると、どうしても0になってしまいます。
ワークシートはD1セルに日付を入力おり、さらに右のセルへ行く毎に+7しています。「syu」の日付がどの週に該当するのかを、列数で求めたいです。
例えば、10年3月17日なら、Fの列なので 6 を求められるようにしたいです。
sub test()
Dim fRow As Long
Dim tcol As Long
Dim syu As long
With Worksheets("data")
Set fRange = Sheets("data").Columns(1).Find(What:=TextBox1.Value, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (fRange Is Nothing) Then
Exit Sub
End If
fRow = fRange.Row
syu = .Cells(fRow, 2).Value
tcol = Application.WorksheetFunction.Match(syu, .Range("1:1"), 1)
msgbox tcol
end with
end sub
No.2ベストアンサー
- 回答日時:
TextBox1.Value の属性が、日付でなく文字列になってしまっているからだと思われます。
検索対象が、日付なのであれば、VBAのDateValue関数で
What:=DateValue(TextBox1.Value)
とすればいいかと。
セル内の日付は、表示はどうあれ1900年1月1日を1とするシリアル値です。
テキストボックスの入力形式を、DateValue関数が日付と認識できないようであれば、年月日を区切り、Year, Month, Day関数でYear(入力した年) + Month(入力した月) + Day(入力した日) で日付属性のシリアル値になります。
ワークシート上の検索対象の日付の属性を文字列にするのは、弊害の可能性を考慮しておすすめしません。
お試しくださいませ。
参考URL:http://www.d3.dion.ne.jp/~jkondou/excelvba/date. …
解答ありがとうございました。
日付の検索は、関数だと楽なのに、vbaだととても苦労します。
勉強になりました。ありがとうございました。
No.3
- 回答日時:
B列は作業名称になっており、日付ではないですね。
作業の内容は関数でも対応できる内容ですね。マクロを考える前に関数で行うとしたらどうなるかを考えることが必要でしょう。No.4
- 回答日時:
No2.です。
もう一箇所ありました。検索範囲指定がColumns(1)ではなく、Rows(1)では?
できれば、Rangeで指定された方がいいようにも思います。
SearchOrder:=xlByRowsも若干気になります。いらないといえばいらないし、xlByColumnsでは?
参考URLもご参照くださいませ。
参考URL:http://officetanaka.net/excel/vba/cell/cell11.htm
No.5
- 回答日時:
>TextBox1.Valueを使っているが、テキストボックスは、ワークシート上に貼り付けているのか、フォーム上に貼り付けているのか、質問に書くべきだ。
コードを変えるべき場合が在る。経験して無いか。またテキストボックスのTEXTは文字通りテキストで、エクセルの日付セルに普通設定される日付シリアル値では無いだろう。この点エクセルの基本。普通のエクセルのことを不十分な勉強で、VBAに取りかかっていないか。
DateValue関数などでの変換をやらずに検索しているのはなぜ。
基礎的なことだ。
ーー
Sheet1でA列A1:A20などに
2011/11/1
2011/11/2
2011/11/3
2011/11/4
2011/11/5
2011/11/6
2011/11/7
2011/11/8
2011/11/9
・・・
ト入れて
Sub test()
Dim fRow As Long
Dim tcol As Long
Dim syu As Long
With Worksheets("Sheet1")
dt = DateValue(Worksheets("Sheet1").TextBox1.Value)
MsgBox dt
Set fRange = Sheets("Sheet1").Columns(1).Find(What:=dt, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (fRange Is Nothing) Then
Exit Sub
End If
fRow = fRange.Row
MsgBox fRow
syu = .Cells(fRow, 2).Value
tcol = Application.WorksheetFunction.Match(syu, .Range("1:1"), 1)
MsgBox tcol
End With
End Sub
を実行すると5行目がMsgBox fRowのところで返ったよ。
それ以後行は不知。
ーー
要点は
(1)DateValue関数 基礎的なこと
(2)Worksheets("Sheet1").TextBox1.ValueのWorksheets("Sheet1").が必要なのは、経験
から原因では無いか。質問する前にMsgbox を要所に入れて確認してみれば、何処でおかしいかすぐ判る。正式にはデバッグの方法を使うこと。
(3)それに質問には、簡単にするため、修正したり、略したのかもしれないが、テキストボックスの値を変えて、やるようなものなら、コマンドボタンのクリックイベントなどを、実行のきっかけにしないと使いづらいのでは。
(4)前半はFind、後半はMatchを使っている不統一はなぜ。
>tcol = Application.WorksheetFunction.Match(syu, .Range("1:1"), 1)
は何をしたかったのかデータ例を挙げて文章で説明すべきだ。
コードを書けばそれぐらい判ってくれる、というのは質問者の甘え。コードが絶対的じゃないから、ここに質問するはず。
シートのデータ例(と目的)は必ず質問異挙げよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
Application.Matchで特定行の検索
Visual Basic(VBA)
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
-
4
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
5
VBAマクロ 実行時エラーが出たり出なかったり
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
8
ApplicationとWorksheetFunctionの違い
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
11
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力後に日付順になるように自...
-
日付だけを変更して印刷(Excel)
-
31:30:00が1900/1/1 7:30:0
-
Excelで8/26等の日付を全てその...
-
VBAでセルに入っている日付をシ...
-
エクセル関数で日付かどうかの...
-
ファイルのオープン時に今日の...
-
満X歳に達した後の最初のX月...
-
Excelで半年後の日付を計算したい
-
EXCELで直近の日付を抽出する関数
-
EXCEL 日付の入力形式
-
EXCELでユリウス通日を求める関...
-
入力日付がカレンダーにある日...
-
Excelに入力した個々の日付の数...
-
エクセルで数字列の間に『/』を...
-
word、日付選択コンテンツの隣...
-
Excelで日付を4ケタで入力し、○...
-
エクセル 当番表の作り方 エク...
-
☆Excelエクセルで入力した日の...
-
エクセルでENTERを押すと数式が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
31:30:00が1900/1/1 7:30:0
-
Excelで半年後の日付を計算したい
-
日付だけを変更して印刷(Excel)
-
入力後に日付順になるように自...
-
エクセルでENTERを押すと数式が...
-
エクセル関数で日付かどうかの...
-
Excelで8/26等の日付を全てその...
-
エクセルで数字列の間に『/』を...
-
Excelに入力した個々の日付の数...
-
EXCELで直近の日付を抽出する関数
-
エクセル 当番表の作り方 エク...
-
エクセルで1年後の月末を表示さ...
-
ファイルのオープン時に今日の...
-
日付を入力したセルをファイル...
-
WORDで翌日や翌々日の日付を表...
-
☆Excelエクセルで入力した日の...
-
excelで月末日を判定したい
-
エクセルのセルにカレンダーを...
-
エクセルで日付入力欄を作成し...
-
エクセルのセルにたとえば「756...
おすすめ情報