Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


55052 / 76732 ←次へ | 前へ→

【26460】Re:シート1に無ければ次のシートから検索...
発言  かみちゃん  - 05/7/5(火) 23:42 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>見つけた日付の下に貼り付ける値は何を貼り付けるのですか?
>
>貼り付ける値は「数字」になります。

数字をどう貼り付けるのかわかりませんが、
とりあえず、次のような感じで、なんとなくできるようです。
ちょっと、不具合も多少あるかもしれませんし、スマートではないので、その辺りは、とりあえずということで、参考にしてください。

Option Explicit
Sub Macro1()
 Dim strDate As String
 Dim c As Range
 
 strDate = Format(Range("A1").Value, "m/d")
 
 'Sheet1を検索
 With Sheets("Sheet1").Rows(1)
  Set c = .Find(strDate, LookIn:=xlValues)
  If Not c Is Nothing Then
   Range(c.Offset(1), c.Offset(5)).Value = 1
  End If
 End With
 'Sheet2を検索
 With Sheets("Sheet2").Rows(1)
  Set c = .Find(strDate, LookIn:=xlValues)
  If Not c Is Nothing Then
   Range(c.Offset(1), c.Offset(5)).Value = 1
  End If
 End With

End Sub
0 hits

【26456】シート1に無ければ次のシートから検索に... しげさん 05/7/5(火) 22:29 質問
【26457】Re:シート1に無ければ次のシートから検索に... かみちゃん 05/7/5(火) 22:36 発言
【26459】Re:シート1に無ければ次のシートから検索... しげさん 05/7/5(火) 23:03 質問
【26460】Re:シート1に無ければ次のシートから検索... かみちゃん 05/7/5(火) 23:42 発言
【26464】Re:シート1に無ければ次のシートから検索... しげさん 05/7/6(水) 7:08 お礼

55052 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free