Excel VBA質問箱 IV

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

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


475 / 73896 ←次へ | 前へ→

【79052】Re:VBAを用いて日付を自動判別して、その横に貼り付けたい
発言  せいじ E-MAIL  - 17/4/21(金) 16:49 -

引用なし
パスワード
   早速の回答ありがとうございました。
私の質問の方法がわかりくかったので例を出しながら書いてみます。

現在作っているのは出勤表です。
シート1では前日の勤務内容・売上金額等を担当者毎に入力します。
シート2以降では各担当者の当該月の出勤状況が見られるようにします。

シート1に入力された内容はマクロボタンを押すと、シート2の該当箇所に
転記されるようなVBAを組みたいと思っています。

(シート1例)
           日付  勤務時間  現場  売上
担当者名:川田  1/1  8時〜5時  町田市 150,000   ボタン
担当者名:田中  1/1  8時〜5時  日野市 100,000   ボタン

*出勤表入力は毎日行います。その為日付は毎日変わります。

(シート2例)
日付  勤務時間  現場  売上
1/1 
1/2
1/3
1/4
.
.
.
.

*予め、日付だけは入力しておきます。

以上のようなシートを用意しておきます。
シート1の内容を各担当者のシートに転記するのは簡単ですが、
問題はどの列に転記するかということになります。
そこで基準となるのが日付です。シート1に入力された日付を自動で判別して
シート2の該当する日付の横に内容を転記するVBAを作成したいのです。
たとえば上記の例だと、シート1の入力フォームには1/1となっているので、
シート2の1/1の横に転記され、翌日1/2に入力すればシート2の1/2の横に
転記されるようなものです。
以下に作成途中のコードを記載します。

sub test35 ()
dim rng as range  ←勤務時間・現場・売上の内容を変数にします。
dim dat as date   ←シート1の日付を変数にします。
dim rng2 as range  ←シート2の日付列を変数にします。

set rng = range(勤務時間〜売上のセル範囲)
set dat = range(シート1の日付のセル)
set rng2 = Range("シート2日付列").Find(What:=dat)

rng.copy Destination:=worksheet("川田").rng2.offset(0,-1)

勤務時間以下の内容をコピーして、川田シートのfindメソッドで見つかったセルの
一つ左のセルに貼り付け

…でうまくいきませんでした。
そもそもの考え方が間違っているのでしょうか?

長くなってしまい申し訳ございません。
もしお助けいただけるのであれは、よろしくお願いいたします!

97 hits

【79047】VBAを用いて日付を自動判別して、その横に貼り付けたい せいじ 17/4/20(木) 14:12 質問[未読]
【79048】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/20(木) 20:10 発言[未読]
【79052】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/21(金) 16:49 発言[未読]
【79053】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/21(金) 18:59 発言[未読]
【79054】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/21(金) 20:29 発言[未読]
【79055】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/21(金) 21:01 発言[未読]
【79056】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 10:31 発言[未読]
【79057】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 11:27 発言[未読]
【79058】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 13:30 発言[未読]
【79059】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 14:13 発言[未読]
【79060】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 14:26 発言[未読]
【79061】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 14:47 発言[未読]
【79062】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 15:08 発言[未読]
【79063】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/24(月) 8:22 発言[未読]
【79064】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/24(月) 8:59 発言[未読]
【79066】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/24(月) 20:18 発言[未読]
【79067】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/24(月) 21:05 発言[未読]
【79068】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/25(火) 9:04 発言[未読]
【79070】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/25(火) 19:42 発言[未読]
【79071】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/25(火) 20:43 発言[未読]
【79072】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/25(火) 20:52 発言[未読]

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