エクセル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")をやって、
期待した結果になるのか、確認した方がイイと思います。
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")をやって、
期待した結果になるのか、確認した方がイイと思います。
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
このようにすると、以下のように出来上がります。
私が別で質問した所から追いかけて回答してくださりありがとうございます。
コンボボックスというものでもできるのですね!
今回は入力規則で作ってしまった為、教えて頂いた情報も元に
コンボボックスで作ってみたいと思います。
ありがとうございます。
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と一致してないですが、シート設計を直して良いのならば、単純に作り込んだ方が、数式が単純で済みます。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
VBA 条件が一致した場合のみコピーする
その他(ビジネス・キャリア)
-
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
【VBA】特定の条件でセルをコピー
Visual Basic(VBA)
-
-
4
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
VBAで条件が一致する行をコピーしその1つ下へ挿入
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
10
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
14
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
15
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
16
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
19
エクセル マクロ 貼り付け先が空白でない場合 1行下に貼りつける
Excel(エクセル)
-
20
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
製造業におけるSV派遣てどうい...
-
一人残業または一人休日出勤っ...
-
特殊土木作業員ってなんですか?
-
照明器具交換 活線作業について
-
未経験エンジニアの年収
-
建設業の作業中止基準
-
カブの葉は、アク抜き必要です...
-
鉄粉、粉塵について
-
手袋をしているにもかかわらず...
-
重労働
-
話好きな近所の方々にいつも話...
-
建築業界では新規入場者記入書...
-
実作業はどんな意味ですか?
-
高枝チェーンソー便利?
-
Excelにて数式を使用して 工数...
-
なぜ建設業の作業員は罵倒して...
-
工程監査でかなりやられました...
-
白衣について
-
エクセル2000 作業グループ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
仕事において、「(ある作業を)...
-
特殊土木作業員ってなんですか?
-
一人残業または一人休日出勤っ...
-
製造業におけるSV派遣てどうい...
-
照明器具交換 活線作業について
-
カブの葉は、アク抜き必要です...
-
建設業の作業中止基準
-
トイレのつまり除去作業
-
毎月、オンラインでPhotoshopを...
-
鉄粉、粉塵について
-
エクセルVBAのIFを使ったコピペ
-
楽に、土木作業をする方法を教...
-
作業をしながら数を数え続ける...
-
建設工事 土日祝 時間 法律
-
B型事業所にて、わがままです。
-
冷凍庫での作業限度は何分くらい?
-
高枝チェーンソー便利?
-
データ移行作業プロジェクトに...
-
「TT」とはどういう意味でしょ...
-
承認者が照査を兼ねていたら照...
おすすめ情報