Excel2007で年間勤務シフト表を作成しています。
4/1~3/31までのシフトを入力するため、非常に時間がかかることもあり、現在「初期値としてのグループNO」を入力して「シフト自動生成」のボタンを押すと休日指定したセル以外に1~6の数字が入る、というVBAを置いています(その際もこちらでお世話になりました)。
一旦、そのシステムを見て頂いたところ、「たとえば6月1日から後のシフトを変更したい、ってなった時に4/1~5/31のデータはそのままにして、6/1~のデータだけを変更できるようにしてもらえないか」と言われました。
そこで
1、「シフト修正」というボタンを押すとシフト修正用の入力フォームが表示され、変更をスタートする日付と、変更後のグループNOを入力する
2、指定したセルに、先ほどの日付とグループNOが転記される
3、その記載されたセルを元に、通常上端~下端まで行っている作業を、指定した列~下端、まで行う
と3段階で実行しようと思っています。
とりあえず1,2のステップまでは何とか作成できたのですが、3のステップが上手くいきません。
現在H20セルに指定した日付、H21セルに変更するグループNOが入っている状態ですが、
Dim c As Range
Dim firstAddress As String
With Worksheets("入力フォーム").UsedRange.Columns(2)
Set c = .Find(What:=Range("H20").Value, _
LookIn:=xlValues, LookAt:=xlPart)
という感じで検索してみても反映されずに無反応状態です…。
No.1ベストアンサー
- 回答日時:
試してみて
日付をシリアル値にして検索
Dim c As Range
Dim myForm1 As String
Dim firstAddress As String
With Worksheets("入力フォーム").UsedRange.Columns(2)
myForm1 = .cells(1).NumberFormatLocal
.NumberFormatLocal = "標準"
Set c = .Find(What:=CLng(Range("H20").Value), _
LookIn:=xlValues, LookAt:=xlWhole)
.NumberFormatLocal = myForm1
参考URL:http://www.moug.net/tech/exvba/0050163.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
-
4
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
5
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
6
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
7
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
8
エクセル表からある項目と同じ日付を検索しそのとなりの文字列を表示したい
Excel(エクセル)
-
9
VBA 日付一致で転記
Visual Basic(VBA)
-
10
本日の日付とマッチした列の値を抽出
Excel(エクセル)
-
11
VBA 別ブック(シート)の同一日付のデータ欄に値をコピー
Visual Basic(VBA)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
14
Do~Loopした回数をカウントしたい
Visual Basic(VBA)
-
15
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
16
エクセルで行の一番上にセルに移動させるVBA
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
Excelでセルに入力されたカラー...
-
IF関数で0より大きい数値が入力...
-
空白でないセルの値を返す方法...
-
ユーザーフォームのTextに数値...
-
エクセルで数字10が1に変わる。...
-
エクセルで複数の条件で掛け算...
-
エクセルで既に入力してある文...
-
値を入力後、自動的にアクティ...
-
入力したところまでを自動的に...
-
指定したセルと同じ日付の入っ...
-
エクセルで10分ごとの時刻の...
-
Excelで、リストから選択したら...
-
エクセルの数式がかぶって、選...
-
Excelの指数関数近似曲線からの...
-
エクセル ー1から0度の角度の...
-
エクセルを保存し終了する際に...
-
エクセルで列の一番最後の数値...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
入力したところまでを自動的に...
-
Excel:文字と数字の組合せ、次...
-
値を入力後、自動的にアクティ...
-
【Excel】セル内の時間帯が特定...
-
yyyy/mm/ddからyyyy/mmへの変換
-
エクセル セルに文字を入力した...
-
エクセルの数式がかぶって、選...
-
excel 関数にて文字を0として認...
-
エクセルで10分ごとの時刻の...
-
エクセルで時間の判定をしてい...
-
エクセルで複数の条件で掛け算...
-
Excel で空欄にも単位 \\や円 ...
-
マイナス同士の前年比
おすすめ情報