シート”11月”の11月度実績データ(”N1083~N1183”)をシート”予測計算”のセルL4”11”の直下に11月度実績データ(”N1083~N1183”)を張り付けたいのですが、なかなか進みません。
シート”11月”のセルC1は”11”であり、別のマクロ処理にて使用しています。
作業としては、シート”11月”を開いている状態なので、11月のシートの識別はいらないと思いますが、必要であればこのセルを利用しようかと思っています。
12月のデータはシート”予測計算”の貼り付け位置が1つ右にずれていきます。来週の打ち合わせに間に合わせたいので、助けてください。。
No.4ベストアンサー
- 回答日時:
No.3の物です。
11のセルに、計算式か何か入っているのでしょうか?
この部分を
Range("N1083~N1183").Copy WorkSheets("予測計算").Range("A5:A105").Offset(, Val(myDat))
下記に変更して、どうでしょうか?
Range("N1083~N1183").Copy
WorkSheets("予測計算").select
Range("A5").Offset(, Val(myDat)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
No.3
- 回答日時:
こんばんは。
テストはしていませんが、例えば下記の様な感じはどうでしょうか?
アクティブシート名の月の数字を取って、"予測計算"シートの列方向を
シフトさせています。
Sub コピーのテスト()
Dim myDat As String
myDat = ActiveSheet.Name 'シート名を取得
myDat = Left(myDat, Len(myDat) - 1) '数字を取得
If IsNumeric(myDat) Then '数字として使えるか?
Range("N1083~N1183").Copy WorkSheets("予測計算").Range("A5:A105").Offset(, Val(myDat))
End If
End Sub
もし、何かしらエラーが出たら、対応して下さい。
No.1
- 回答日時:
こんにちは
マクロに関するご質問なのでしょうか?
以下は、仮にそうだとしての回答です。
>コピペ方法を教えてください。
シート間のコピペの場合は、シートを明示する記述方法にさえしておけば、他は変わりません。
Worksheets("コピー元").Range("範囲").Copy Destination:=Worksheets("コピー先").Range("範囲")
のような感じです。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
ただし、手操作のコピペと同様なので、セルに関数式等が入っている場合は、その内容によっては計算結果がおかしなものになる可能性があります。
そのようなことを避けて、値だけをコピーするので良い場合は、
Worksheets("コピー先").Range("範囲").Value = Worksheets("コピー元").Range("範囲").Value
とすることでも済みます。
※ 結合セルなどを含む場合、(手操作でもそうですが)形式が異なるとうまくいかない可能性がありますのでご注意ください。
早々のご連絡ありがとうございます。
月ごとで各シートのセルの場所が変わるので、ご回答の内容では困難かと思います。補足説明しました。時間がありましたらご確認ください。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
シート保護してても並び替えを...
-
ロックしたセルのコピー&貼り付け
-
エクセルでセルの書式設定がで...
-
シート保護したExcelへの画像貼...
-
ワークシートの行が途中から表...
-
エクセルの下部のシートタブの...
-
シート全体を他のブックのシー...
-
VBA アクティブでないシートの...
-
エクセルVBA シートの保護につ...
-
excelで勝手にテキストボックス...
-
EXCELでコピーしたグラフのデー...
-
エクセルファイルの容量が大き...
-
▲特定のセルからランダムに抽出...
-
スプレッドシートが真っ白にな...
-
Excelで保護のかかったシートの...
-
worksheetクラスのcopyメソッド...
-
縦書き文章で『―』表示を『|』...
-
マウスのクリック、指離したの...
-
マウスのポインタが勝手に上下...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで別シートの同じ位置...
-
エクセルの下部のシートタブの...
-
EXCELでコピーしたグラフのデー...
-
エクセルでセルの書式設定がで...
-
ワークシートの行が途中から表...
-
ロックしたセルのコピー&貼り付け
-
シート全体を他のブックのシー...
-
エクセルで数式は残したまま他...
-
Excelで保護のかかったシートの...
-
excelで勝手にテキストボックス...
-
VBA アクティブでないシートの...
-
Excelで大量の2000個のリストを...
-
シート保護してても並び替えを...
-
【エクセル】数式のセル番地を...
-
【エクセル】表から条件に合っ...
-
スプレッドシートが真っ白にな...
-
シート保護したExcelへの画像貼...
-
行の挿入ができなくなった
-
Excelでハイパーリンク先の表示...
-
worksheetクラスのcopyメソッド...
おすすめ情報
早々のご回答ありがとうございます。
現在は、シート”11月”に下記マクロを作成しています。
シート”予測計算”のL5は’11月’なので、12月となると、L6に手動変更しなければいけません。
毎月のシートも毎月作成しているので、マクロ処理にて対応したいと思っています。
ご協力の程よろしくお願いいたします。
Sub 中間経費を予測計算にデータ転送()
Range("M1083:M1449").Select
Selection.Copy
Sheets("予測計算").Select
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
No3さんのマクロ処理に若干の変更しましたが、マクロ処理後に ” #REF! ”の表示となります。
ちょいちょいさわっているのですが、数値表示になりません。ヘルプお願いしまーす。。