[[20190607104419]]　『コマンドボタンを使った貼り付け方法』（エクセル勉強中）　ページの最後に飛ぶ

『コマンドボタンを使った貼り付け方法』（エクセル勉強中）

こんにちは。
いつも利用させて頂いています。

シートにコマンドボタンを作成し、それを押すと（A2：B8）がコピーされて、（C9：D15）に張り付けするというマクロは組めたんですが、さらに、貼り付け先が空白でなければ、その隣の（E9:F15)に張り付けというマクロを追加でいれたんですが、どのようにしたらよろしいでしょうか？

Option Explicit

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A2：B8").Copy
            xSheet.Range("C9：D15").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

という形でマクロを組んでいます。
すいませんがよろしくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

↓のようにCountA関数で、空白でないセルの数を数え、０個じゃなかったら貼付先を２列ずらしたらいいんじゃないでしょうか？

    Sub てすと()
        Dim MyRNG As Range

        Stop '←ブレークポイントのかわり

        With ActiveSheet
            Set MyRNG = .Range("A2:B8")

            Select Case .Name
                Case Is = "Definitions", "fx", "Needs"
                    'なにもしない
                Case Else

                With .Range("C9:D15")
                    '▼空白でないセルの数を数える
                    If Application.WorksheetFunction.CountA(.Cells) >0 Then
                        MyRNG.Copy .Cells(1).Offset(, 2)
                    Else
                        MyRNG.Copy .Cells(1)
                    End If
                End With
            End Select
        End With
    End Sub

※CountA(.Cells) 【>0】について、0がFalseと判定されるから要らないと言えば要らないのですが、あったほうがわかりやすいかと思いあえて書いています。

（もこな２） 2019/06/07(金) 12:35

もこな２さん
連絡が遅くなってしまいすません。
回答して頂きありがとうございました。

やりたいことができたのでよかったんですが、
一つ質問で、コードにある「Stop’ブレークポイントのかわり」というのはどういうことでしょうか？
よろしくお願い致します。
（エクセル勉強中） 2019/06/07(金) 15:41

ニックネームから察するに勉強されているとはおもいますが・・・・

＞「Stop’ブレークポイントのかわり」というのはどういうことでしょうか？
こちらをどうぞ。

■デバッグ作業について（ステップ実行）
https://www.239-programing.com/excel-vba/basic/basic023.html

■デバッグ作業について（ブレークポイント）
https://www.239-programing.com/excel-vba/basic/basic022.html
http://kabu-macro.com/word/ha-ho/breakpoint.html

（もこな２） 2019/06/07(金) 16:52

もなこ２さん
連絡が遅くなってしまいすいません。
教えて頂きありがとうございます。
すいません。
まだまだ勉強不足というところであり抜けていました。
これからもっと勉強していこうと思います。
ありがとうございました。
（エクセル勉強中） 2019/06/09(日) 12:54

コメント返信：

[ 一覧(最新更新順) ]

[[20190607104419]] 『コマンドボタンを使った貼り付け方法』（エクセル勉強中） ページの最後に飛ぶ

[[20190607104419]]　『コマンドボタンを使った貼り付け方法』（エクセル勉強中）　ページの最後に飛ぶ