Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1189 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75812】今日日付のセルを取得したいです 困ってます 14/7/9(水) 20:26 質問[未読]
【75813】Re:今日日付のセルを取得したいです γ 14/7/9(水) 20:44 発言[未読]
【75814】Re:今日日付のセルを取得したいです 困っています。 14/7/9(水) 20:58 発言[未読]
【75815】Re:今日日付のセルを取得したいです γ 14/7/9(水) 21:25 発言[未読]
【75816】Re:今日日付のセルを取得したいです γ 14/7/9(水) 22:00 回答[未読]
【75837】Re:今日日付のセルを取得したいです γ 14/7/12(土) 13:16 発言[未読]
【75812】今日日付のセルを取得したいです
質問  困ってます  - 14/7/9(水) 20:26 -
引用なし
パスワード
   従業員全員の行動予定を把握するためのブックが有ります。

一か月の全部の予定がカレンダーの様になっていて
今日の予定だけをピックアップできるVBAがあると助かります。

D4からAH4までに今月の日付が入っています。（表示形式はユーザー設定で「d」になっている為、日付のみが表示されています。）

今日のセルがアクティブになれば、その先のピックアップはできるのですが、「今日」のセルをアクティブにする事が出来ません。

簡単なことかもしれませんが、既に丸一日検索などしたのですが、分かりませんでした。教えて頂けますでしょうか。
【75813】Re:今日日付のセルを取得したいです
発言  γ  - 14/7/9(水) 20:44 -
引用なし
パスワード
   それらのセルを同時に選択する理由は何でしょうか。
つまり、そのあとどんなことをしようとしていますか？
（場合によっては、必ずしも選択する必要がないかもしれません。）
【75814】Re:今日日付のセルを取得したいです
発言  困っています。 E-MAIL  - 14/7/9(水) 20:58 -
引用なし
パスワード
   ▼γ さん：
>それらのセルを同時に選択する理由は何でしょうか。
>つまり、そのあとどんなことをしようとしていますか？
>（場合によっては、必ずしも選択する必要がないかもしれません。）


早速のお返事ありがとうございます。
今、全員のスケジュールを把握するために全体スケジュールから必要な情報だけをひとつひとつピックアップしている現状です。その作業の簡素化が目的です。

ボタン一つでその日の必要なスケジュールのピックアップをすることが目的です。
必要なスケジュールは特定のセルのため、その日のこのセルとこのセルとこのセルと・・・と指定すれば
時間短縮につながると考えているためです。
【75815】Re:今日日付のセルを取得したいです
発言  γ  - 14/7/9(水) 21:25 -
引用なし
パスワード
   ピックアップすることは理解しています。
それらのセルを同時に選択状態にする理由を尋ねています。

条件で取り出して、条件にかなったものを
ひとつずつ処理していくことはできないのですか？
という意味です。
【75816】Re:今日日付のセルを取得したいです
回答  γ  - 14/7/9(水) 22:00 -
引用なし
パスワード
   なにか、「Selectしないと作業できない」と決めつけている雰囲気で、
そこが気になったのですが、通じないようなのでスキップします。

Select動作をするものをとりあえず提示しておきます。

Sub test()
　　Dim r As Range
　　Dim myRange As Range

　　For Each r In Range("D4:AH4")
　　　　If r.Value = Date Then
　　　　　　If myRange Is Nothing Then
　　　　　　　　Set myRange = r
　　　　　　Else
　　　　　　　　Set myRange = Union(myRange, r)
　　　　　　End If
　　　　End If
　　Next
　　myRange.Select
End Sub
【75837】Re:今日日付のセルを取得したいです
発言  γ  - 14/7/12(土) 13:16 -
引用なし
パスワード
   「質問箱基本ポリシー」から引用
> ●必ず返事をしてください
>　 回答がついたら、その回答に必ず返事を書いてください。
>　 それが最低限のエチケットというものです。
>　 期待通りの回答があれば感謝の意を表すことはもちろん、
>　 期待した回答ではない場合も必ず返事を書いてください。
>　 どこがどう期待通りではないのかを具体的に書けば、
>　 よりあなたの期待に近い回答が得られることでしょう。
ルールを守りましょうね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1189 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free