Excel #A019 ≪形式を選択して貼り付け色々《PasteSpecial》≫

ＥｘｃｅｌＴｉｐｓ by pPoy

←Top 　　　

VBA　　

VBA 基礎　　

一般　　

Macro ABC	形式を選択して貼り付け色々《PasteSpecial》（Excel97,2000,2002）
形式を選択して貼り付けの色々をまとめてみました。ツールバーのマクロボタンに登録して使用すると便利です。詳しい登録方法は、こちらです。

≪値のみ貼付け≫
Sub PasteSpecialValues() '値のみ貼付け(クリップボードの結果) 'マクロボタンから実行しないと失敗します。2005/01/22 pPoy On Error GoTo Err_PSV Selection.PasteSpecial Paste:=xlPasteValues Err_PSV: Err.Clear End Sub

≪値のみ貼付け≫

Sub PasteSpecialValues()
    '値のみ貼付け(クリップボードの結果)
    'マクロボタンから実行しないと失敗します。2005/01/22 pPoy
    On Error GoTo Err_PSV
    Selection.PasteSpecial Paste:=xlPasteValues
Err_PSV:
    Err.Clear
End Sub

≪計算式のみ貼付け≫
Sub PasteSpecialFormulas() '計算式のみ貼付け(クリップボードの結果) 'マクロボタンから実行しないと失敗します。 On Error GoTo Err_PSF Selection.PasteSpecial Paste:=xlPasteFormulas Err_PSF: Err.Clear End Sub

≪計算式のみ貼付け≫

Sub PasteSpecialFormulas()
    '計算式のみ貼付け(クリップボードの結果)
    'マクロボタンから実行しないと失敗します。
    On Error GoTo Err_PSF
    Selection.PasteSpecial Paste:=xlPasteFormulas
Err_PSF:
    Err.Clear
End Sub

≪値のみ加算して貼付け≫
Sub PasteSpecialValuesAdd() '値のみ加算して貼付け(クリップボードの結果) 'マクロボタンから実行しないと失敗します。 On Error GoTo Err_PSA Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, _ SkipBlanks:=False, Transpose:=False Err_PSA: Err.Clear End Sub

≪値のみ加算して貼付け≫

Sub PasteSpecialValuesAdd()
    '値のみ加算して貼付け(クリップボードの結果)
    'マクロボタンから実行しないと失敗します。
    On Error GoTo Err_PSA
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, _
        SkipBlanks:=False, Transpose:=False
Err_PSA:
    Err.Clear
End Sub

↑Top

≪おまけ≫
Sub WrapTextFalse() '選択範囲の折り返しを無し With Selection .VerticalAlignment = xlBottom 'セルの下に文字位置配置 .WrapText = False '折り返し無し .Orientation = 0 '水平表示 .AddIndent = False 'インデント無し .ShrinkToFit = False '文字列自動縮小無し .MergeCells = False 'セルの結合無し End With End Sub

≪おまけ≫

Sub WrapTextFalse()
    '選択範囲の折り返しを無し
    With Selection
        .VerticalAlignment = xlBottom       'セルの下に文字位置配置
        .WrapText = False                   '折り返し無し
        .Orientation = 0                    '水平表示
        .AddIndent = False                  'インデント無し
        .ShrinkToFit = False                '文字列自動縮小無し
        .MergeCells = False                 'セルの結合無し
    End With
End Sub

≪使い方≫

上のマクロのどれかを標準モジュールとして VBE シートに貼り付けます。
それぞれのマクロをツールバーのマクロボタンとして登録します。方法はこちらです。

　　ここまでが準備です。

予め、どこかのセルをコピーします。
(クリップボードの中に何か入っていることが必要です。)
続けて、貼り付けたいセルをクリックしてから、マクロを登録したボタンを押します。

↑Top