![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
画像の伝票があります。
一覧表に所定のデータを転記していくコードを組みました。
転記自体は問題なく出来るのですが、転記ボタンを押した後に自動的に値をクリアしたいのです。
コードの中にWithで組み込んだのですが、エラーにはならないもののクリアできません。
どこがおかしいのでしょうか?
Sub データ転記()
Dim i As Long, EndRow As Long, rng As Range
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("受付表")
Set sh2 = Worksheets("受付一覧")
sh1.Select
Names.Add Name:="Target", RefersTo:=("=$H$3,$C$8,$C$10,$C$12,$A$17")
With sh2
.Select
EndRow = .Range("B" & Rows.Count).End(xlUp).Offset(1).Row
For Each rng In sh1.Range("Target")
.Cells(EndRow, i + 2) = rng.Value
i = i + 1
Next rng
End With
With sh2
.Range("C8,C10,C12,A17").ClearContents
End With
Sheets("受付表").Select
End Sub
※Targetセルは結合してあります
H3はH3~I3の結合
C8はC8~E8の結合
C10はC10~E10の結合
C12はC12~E10の結合
A17はA17~I36の結合 です。
![「データ転記後の値のクリア」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/3/542221590_5550603c2fce7/M.png)
No.1ベストアンサー
- 回答日時:
ClearContents のステートメント
sh2 じゃなくて、sh1 じゃないでしょうか。
それと、統合したセルで ClearContents をしようとすると、
「結合されたセルの一部を変更することはできません」
と出ますので、
With sh1
.Range("C8,C10,C12,A17").Value = ""
End With
で行ってみましょう。
ありがとうございました。上手くできました。
先ずはsh1とsh2の単純な間違いでしたね。
結合したセルではClearContents使用すると弊害があるのですね。
VBA勉強中でまだまだ解らないことだらけで・・・
お教えくださりありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで入力シートから別シートに蓄積方法について
Excel(エクセル)
-
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
TextBoxに日付を自動的に入れる
Visual Basic(VBA)
-
5
VBA アクティブでないシートのセルを選択したり、クリアしたり
Excel(エクセル)
-
6
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
7
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
8
VBAで結合セルを転記する法を教えてください
Excel(エクセル)
-
9
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELの散布図で日付が1900年に...
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
Excel分数の表示について
-
特定の文字列を含む、住所を抽...
-
Excelについての質問です。 B2...
-
文字2桁、3桁交じりの文字列...
-
Excelで表を作ったところに文字...
-
【マクロ】2回実行したら、エ...
-
【EXCEL】画像の黄色部分の抽出...
-
マイクロソフトのPADを使ってい...
-
絶対参照
-
マクロエクセルのブロック解除
-
在庫管理表に使うエクセルの関...
-
Excelピボットテーブルの1行目
-
エクセルのクイックアクセスツ...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
【マクロ】毎回、ファイル名が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報