Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38365 / 76738

←次へ　｜　前へ→


	【43511】セルに入力した値によってコピーする内容を変えたい

そうごん - 06/10/18(水) 14:47 -


	引用なし

	パスワード

今、職場で勤務表を作成しております。
ＶＢＡはまだ初心者です

エクセルシート1（勤務表）に

　　A　B　C・・　J　K　・・・・　　AN6

１　
２
３
４
５　氏名　　　　１　２　　　　　　３１　　
６　ああああ
　　いいい
　　ううう

このような勤務表があり、Sheet2（パターン）を休日パターンのデータ置き場としています。
入力を簡単にする為に、Sheet1セルj6の値が１ならSheet2のL7（休日）をコピペ
　　　　　　　　　　　Sheet1セルj6の値が２ならSheet2のL8（半日）をコピペ
　　　　　　　　　　　Sheet1セルj6の値が３ならSheet2のL9（有休）をコピペ

などのようにマクロを組みたいのですが、どのようにすれば良いのでしょうか？

一応　今書いたものは

If Range("j6") = 1 Then
　 Worksheets("パターン").Range("L7").Copy Range("j6")
ElseIf Range("j6") = 2 Then
　 Worksheets("パターン").Range("L8").Copy Range("j6")
ElseIf Range("j6") = 3 Then
　 Worksheets("パターン").Range("L9").Copy Range("j6")
ElseIf Range("j6") = 4 Then
　Worksheets("パターン").Range("L10").Copy Range("j6")
ElseIf Range("j6") = 5 Then
　Worksheets("パターン").Range("L11").Copy Range("j6")
ElseIf Range("j6") = 6 Then
　Worksheets("パターン").Range("L12").Copy Range("j6")
ElseIf Range("j6") = 7 Then
　Worksheets("パターン").Range("L13").Copy Range("j6")
ElseIf Range("j6") = 8 Then
　Worksheets("パターン").Range("L14").Copy Range("j6")
ElseIf Range("j6") = 9 Then
　Worksheets("パターン").Range("L15").Copy Range("j6")
ElseIf Range("j6") = 10 Then
　Worksheets("パターン").Range("L16").Copy Range("j6")
End If

です。
１つのセルだけならこれで動くのですが、
K6 L6 ・・・とAN6 まで３１日分入力し、
２人目を書いていた途中１回テストしてみたところ
「プロシージャが大きすぎます」とのコンパイルエラーになりました。

よろしくおねがいします。

0 hits

▼

【43511】セルに入力した値によってコピーする内容を変えたい そうごん 06/10/18(水) 14:47

≪