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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 【再投稿】VBAのシフト表でバグが出て困っています 3 2022/09/24 08:29
- Visual Basic(VBA) シフト表のコマで「ブロック」されている前の時間の「出」を同一列の「休」と入れ替えたいがふぇきません。 2 2023/08/02 18:49
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセル 全自動シフト表の祝日シフト表示を消すには? 3 2022/04/23 16:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
今日の日付が入った行のデータを取得するマクロ
Excel(エクセル)
-
-
4
エクセル VBAマクロ セルの移動
Excel(エクセル)
-
5
ファイルのオープン時に今日の日付にジャンプ
Excel(エクセル)
-
6
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
7
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
8
エクセル表からある項目と同じ日付を検索しそのとなりの文字列を表示したい
Excel(エクセル)
-
9
VBA 別ブック(シート)の同一日付のデータ欄に値をコピー
Visual Basic(VBA)
-
10
ExcelVBAで、選択範囲内で同じ値が入力されたセルを調べる
Visual Basic(VBA)
-
11
エクセルで行の一番上にセルに移動させるVBA
Excel(エクセル)
-
12
VBA 日付一致で転記
Visual Basic(VBA)
-
13
Excel VBA Findで日付だけのセルが検索できない
Word(ワード)
-
14
空白セルをとばして転記
Visual Basic(VBA)
-
15
Do~Loopした回数をカウントしたい
Visual Basic(VBA)
-
16
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
19
excel vbaで日付一致の行にデータ転記
Excel(エクセル)
-
20
エクセルVBAで日付に合わせて図形を動かす際に土日を考慮外にしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
参照先セルに値が入っていない...
-
空白でないセルの値を返す方法...
-
エクセルで既に入力してある文...
-
エクセルで、特定のセルの内容...
-
バーコードが読み取れない原因...
-
IF関数で0より大きい数値が入力...
-
エクセルの数式がかぶって、選...
-
IF関数1と6なら「〇」それ以...
-
Excelでセルに入力されたカラー...
-
Excel:文字と数字の組合せ、次...
-
マイナス同士の前年比
-
excel 関数にて文字を0として認...
-
自分のEXCELに株価を自動的に取...
-
yyyy/mm/ddからyyyy/mmへの変換
-
エクセルで複数の条件で掛け算...
-
エクセルの数式で計算結果に文...
-
エクセル:コメントのようなも...
-
百万単位
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
エクセルで既に入力してある文...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
Excel:文字と数字の組合せ、次...
-
値を入力後、自動的にアクティ...
-
エクセルで時間の判定をしてい...
-
yyyy/mm/ddからyyyy/mmへの変換
-
入力したところまでを自動的に...
-
エクセルで、特定のセルの内容...
-
エクセルの数式がかぶって、選...
-
エクセルで複数の条件で掛け算...
-
EXCELのセル上のURLを...
-
excel 関数にて文字を0として認...
-
エクセルの数式で計算結果に文...
-
マイナス同士の前年比
-
バーコードが読み取れない原因...
おすすめ情報