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