Excel VBA質問箱 IV

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

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


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

5926 / 76732

←次へ　｜　前へ→


	【76410】値のコピペ

こずえ - 14/11/27(木) 13:27 -


	引用なし

	パスワード

Sheet[メニュー]C3:F3(セルの結合)に住所を入力されるようになっています。
ボタンを押したら、【Sheets("Sheet2")の8箇所】に値の貼り付け。

Sheet[メニュー]C4:F4(セルの結合)に社名を入力されるようになっています。
ボタンを押したら、【Sheets"メニュー"の１箇所に値の貼り付け】、【Sheets("Sheet2")の8箇所に値の貼り付け】を
するモジュールです。もっと短く出来たらと思ってこの掲示板に書き込みました。
宜しくお願い致します。

Sub CA()

'住所コピー
Sheets("メニュー").Range("C3").Copy　'メニュー,C3:F3(セルの結合)コピー
Sheets("Sheet2").Range("C10").PasteSpecial Paste:=xlPasteValues
'Sheet2,C10:H10(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C61").PasteSpecial Paste:=xlPasteValues
'Sheet2,C61:H61(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C112").PasteSpecial Paste:=xlPasteValues
'Sheet2,C112:H112(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C163").PasteSpecial Paste:=xlPasteValues
'Sheet2,C163:H163(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C216").PasteSpecial Paste:=xlPasteValues
'Sheet2,C216:H216(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C245").PasteSpecial Paste:=xlPasteValues
'Sheet2,C245:H245(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C274").PasteSpecial Paste:=xlPasteValues
'Sheet2,C274:H163(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C303").PasteSpecial Paste:=xlPasteValues
'Sheet2,C303:H303(セルの結合)値の貼り付け
Sheets("メニュー").Range("A1").Select

'社名
Sheets("メニュー").Range("C4").Copy　'メニュー,C4:F4(セルの結合)コピー
Sheets("メニュー").Range("B7").PasteSpecial Paste:=xlPasteValues　'メニュー,B7:J7(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C11").PasteSpecial Paste:=xlPasteValues
'Sheet2,C11:H11(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C62").PasteSpecial Paste:=xlPasteValues
'Sheet2,C62:H62(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C113").PasteSpecial Paste:=xlPasteValues
'Sheet2,C113:H113(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C164").PasteSpecial Paste:=xlPasteValues
'Sheet2,C164:H164(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C217").PasteSpecial Paste:=xlPasteValues
'Sheet2,C217:H217(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C246").PasteSpecial Paste:=xlPasteValues
'Sheet2,C246:H246(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C275").PasteSpecial Paste:=xlPasteValues
'Sheet2,C275:H275(セルの結合)値の貼り付け
Sheets("Sheet2").Range("C304").PasteSpecial Paste:=xlPasteValues
'Sheet2,C304:H304(セルの結合)値の貼り付け

End Sub

1 hits

▼

【76410】値のコピペ こずえ 14/11/27(木) 13:27