形式を選択して貼付けの 値で加算のボタンを出したい

質問

仕事で毎日数字を積み上げているのですが、
数字をコピーして、右クリックの、
形式を選択して貼付け　－　値　－　加算
をかなり頻繁に使います。
値貼付けだけのボタンはユーザー設定であるのですが、
値と加算のボタンは作れないのでしょうか。

これがあれば作業がかなり楽になるので、
ご存知であればぜひ教えてください。

回答No.1

mysticage · ベストアンサー

Sub Macro1()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
End Sub

というマクロを作り、ボタンにするのは？
（ツールバーにボタンを追加する際にマクロボタンの
ニコちゃんマークみたいなやつで該当マクロを登録してツールバーに組み込む）

回答No.3

Wendy02

＞値貼付けだけのボタンはユーザー設定であるのですが、
加算ボタンのみを作るのもやぶさかではありませんが、「値の貼り付け」のボタンの仕様を変更してみました。式の場合や最初にコピーしていない場合は、通常の値貼り付けになりますが、値をコピーして、定数に貼り付けするようにすると、加算になります。式の場合は、一旦、定数にしてからでないとできません。

なお、設定の仕方は、一旦保存して、再度、このブックを開けると、ボタンの仕様が変わっています。また、ブックを閉じると、その機能はなくなります。

なお、標準的な機能を忘れかねませんので、念のため（^^;

'----------------------------------------------------
'<ThisWorkbook>に全て登録
Option Explicit
Public WithEvents myCopyBtn As CommandBarButton
Private CopyRng As Range
Private Sub myCopyBtn_Click(ByVal Ctrl As Office.CommandBarButton, _
　　　　　　　　　　　　　　CancelDefault As Boolean)
　If CopyRng.Count = 1 And Not Selection.Cells(1).HasFormula Then
　　On Error Resume Next
　　Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd
　　If Err.Number > 0 Then MsgBox Err.Description
　　On Error GoTo 0
　　CancelDefault = True
　End If
End Sub
Sub CopyRngprc()
　Selection.Copy
　Set CopyRng = Selection
End Sub
Sub Setting_Button()
　 With Application
　　 .OnKey "^C", "ThisWorkbook.CopyRngPrc"
　　 .OnKey "^c", "ThisWorkbook.CopyRngPrc"
　　Set myCopyBtn = .CommandBars.FindControl(, 370)
　　End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　With Application
　.OnKey "^C"
　.OnKey "^c"
　Set myCopyBtn = Nothing
End With
End Sub
Private Sub Workbook_Open()
Call ThisWorkbook.Setting_Button
End Sub
'----------------------------------------------------

補足

できました。ありがとうございます。
ただ、書式も貼付けてしまうのと、できれば値貼付けボタンも使用するので別のボタンがいいのですが…。

図々しいですが…。

回答No.2

FlyingAce

ツールバーのユーザー設定ボタンに、マクロを登録することができます。
こちらを参考にカスタマイズされてはいかがでしょう？
http://www.excel7.com/tool_bar.htm

参考URL：

http://www.excel7.com/