![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセルVBAについてご教示お願いします。
指定されたセルに特定の文字が入力された際に
特定のセル範囲からコピーしたセルの貼り付けを行いたいのですが
うまくいきません。
A2に入力された清掃作業、工事作業、除草作業の3つの内
・清掃作業を入力した場合はA17:F24のセルをA4に貼り付け。
・工事作業を入力した場合はA27:F43のセルをA4に貼り付け
・除草作業を入力した場合はH17:M33のセルをA4に貼り付け
VBAは全く触ったことが無く探り探りで書いてみたのですが
多分めちゃくちゃだと思います・・・
正しいやり方を教えて頂ければ幸いです。
' 清掃作業
If Cells(2, "A").Value = "清掃作業" Then
Range("A17:F24").Copy Range("A4")
End Sub
' 工事作業
ElseIf Cells(2, "A").Value = "工事作業" Then
Range("A27:F43").Copy Range("A4")
End Sub
' 除草作業
ElseIf Cells(2, "A") >= "除草作業" Then
Range("H17:M33").Copy Range("A4")
End Sub
No.6ベストアンサー
- 回答日時:
もしも、次のコードを実行すると
1)Range("A27:F43").Copy Range("A4")
2)Range("H17:M33").Copy Range("A4")
Range("A4:F20")が書き換わります。
もしも、Range("A17:F20")にデータなどが入っていると、
そこは 次の範囲が貼り付けられた状態になります。
1)Range("A40:F43")
2)Range("H30:M33")
その後に、
Range("A17:F24").Copy Range("A4")をやって、
期待した結果になるのか、確認した方がイイと思います。
![「エクセルVBAのIFを使ったコピペ」の回答画像6](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/c/542340841_58d65b228e708/M.jpg)
No.5
- 回答日時:
もしも、次のコードを実行すると
1)Range("A27:F43").Copy Range("A4")
2)Range("H17:M33").Copy Range("A4")
Range("A4:F20")が書き換わります。
もしも、Range("A17:F20")にデータなどが入っていると、
そこは 次の範囲が貼り付けられた状態になります。
1)Range("A40:F43")
2)Range("H30:M33")
その後に、
Range("A17:F24").Copy Range("A4")をやって、
期待した結果になるのか、確認した方がイイと思います。
![「エクセルVBAのIFを使ったコピペ」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/3/542340841_58d65a8dec46e/M.jpg)
No.4
- 回答日時:
こんにちは。
「EXELEマクロで入力規則を使ったコピペ方法 」
こちらをみて気がついたことですが、やはり『コンボボックス』のことではないでしょうか?
そのために、3つ別れているのでしょうね。
初心者コースとしては、ActiveX コントロールで、開発タブから、コントロールの中の挿入から、ActiveX コントロール-コンボボックスを選びます。
画面にドラッグしたら、形ができます。
次に、コマンドボタンが必要ですが、同じActiveX コントロールの中で、コマンドボタンを選択して、画面にドラックします。そして、そのボタンをダブルクリックをすると、新しい画面が出てきますから、そこに、
Private Sub CommandButton1_Click()
If ComboBox1.ListCount = 0 Then 'コンボボックスが空の場合
Call Auto_Open
End If
Range("A4").CurrentRegion.ClearContents
Select Case ComboBox1.ListIndex '選択肢
Case 0
Range("A17:F24").Copy Range("A4")
Case 1
Range("A27:F43").Copy Range("A4")
Case 2
Range("H17:M33").Copy Range("A4")
Case Else
End Select
ComboBox1.Text = "選択してください。"
End Sub
その画面から、上のメニューの挿入-標準モジュールをクリックしますと、画面が出てきますから、
Sub Auto_Open() '起動した時に設定するマクロ
With Worksheets("Sheet1") 'シート名は任意。
.ComboBox1.AddItem "清掃作業"
.ComboBox1.AddItem "工事作業"
.ComboBox1.AddItem "除草作業"
.ComboBox1.Text = "選択してください。"
End With
End Sub
このようにすると、以下のように出来上がります。
![「エクセルVBAのIFを使ったコピペ」の回答画像4](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/f/1138040_58d1cebb6bcb4/M.jpg)
私が別で質問した所から追いかけて回答してくださりありがとうございます。
コンボボックスというものでもできるのですね!
今回は入力規則で作ってしまった為、教えて頂いた情報も元に
コンボボックスで作ってみたいと思います。
ありがとうございます。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_14.png?5a7ff87)
No.3
- 回答日時:
以下のようにしてください。
------------------------------------------------------
' 清掃作業
If Cells(2, "A").Value = "清掃作業" Then
Range("A17:F24").Copy Range("A4")
' 工事作業
ElseIf Cells(2, "A").Value = "工事作業" Then
Range("A27:F43").Copy Range("A4")
' 除草作業
ElseIf Cells(2, "A") = "除草作業" Then
Range("H17:M33").Copy Range("A4")
End If
--------------------------------------------
No.2
- 回答日時:
ただ、《A4:F20に、(A17:F24)(A27:F43)(H17:M33)にある値を、A2の値によって切り替えて表示させたい》のであれば、マクロを使わずに、A4:F20に関数を入れて表示させたらいかがでしょうか。
VBAでやるなら、チェンジイベント機能を使う必要がありそうです。
関数なら、=INDEX(INDIRECT(A2),1,1)のようなのでなんとか済ませて、単純そうです。
範囲の名前定義を使えば、IF文もいらないでしょう。
A2に、"未指定"も選択可能なリストの入力規制をつくり、一見無用な空白で良いセルには、" "(スペース)を入力しておけば済むと思います。
範囲が、(A17:F24)=8×6、(A27:F43)=17×6、(H17:M33)=17×6と一致してないですが、シート設計を直して良いのならば、単純に作り込んだ方が、数式が単純で済みます。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.1
- 回答日時:
合ってますよ。
但し End Sub → End If に修正して下さい。
またElseIfの前にはEnd Ifは入れない
' 清掃作業
If Cells(2, "A").Value = "清掃作業" Then
Range("A17:F24").Copy Range("A4")
' 工事作業
ElseIf Cells(2, "A").Value = "工事作業" Then
Range("A27:F43").Copy Range("A4")
' 除草作業
ElseIf Cells(2, "A") >= "除草作業" Then
Range("H17:M33").Copy Range("A4")
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Visual Basic(VBA) VBAで列を削除 3 2023/02/01 11:00
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
5
【VBA】特定の条件でセルをコピー
Visual Basic(VBA)
-
6
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
7
ある条件を満たすセルに対応する行のセル内容をコピーして・・
Visual Basic(VBA)
-
8
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
9
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
12
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
13
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
14
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
15
VBA別シートの最終行の下行へ貼り付けされるようにしたいです。
その他(Microsoft Office)
-
16
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
17
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
18
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
19
エクセルVBA Ifでシート名が合致したら別ファイルから転記する場合のElse IfとForの書き方
Visual Basic(VBA)
-
20
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
製造業におけるSV派遣てどうい...
-
ジモティーで直接、作業・サー...
-
特殊土木作業員ってなんですか?
-
照明器具交換 活線作業について
-
建設業の作業中止基準
-
「TT」とはどういう意味でしょ...
-
一人残業または一人休日出勤っ...
-
作業をしながら数を数え続ける...
-
カブの葉は、アク抜き必要です...
-
不器用でバイトの仕事が遅いん...
-
冷凍庫での作業限度は何分くらい?
-
データ復旧業者ってどういう方...
-
現業職と技能職の違い
-
白衣について
-
ある動作が「ひとまず終わった...
-
重労働
-
合帳(あいちょう)とは言わな...
-
土木積算「潮間作業」について
-
VBA 指定した範囲内の最終行を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
製造業におけるSV派遣てどうい...
-
カブの葉は、アク抜き必要です...
-
特殊土木作業員ってなんですか?
-
一人残業または一人休日出勤っ...
-
照明器具交換 活線作業について
-
建設業の作業中止基準
-
未経験エンジニアの年収
-
作業をしながら数を数え続ける...
-
高枝チェーンソー便利?
-
鉄粉、粉塵について
-
エクセルVBAのIFを使ったコピペ
-
「TT」とはどういう意味でしょ...
-
効率の悪い人
-
承認者が照査を兼ねていたら照...
-
土木積算「潮間作業」について
-
【工学・鉛ライニング】工業の...
-
手袋をしているにもかかわらず...
-
ACCESS2007 レポートデザインビ...
-
迷惑コンクリートミキサー
おすすめ情報