[[20200511092120]]　『マクロを実行すると　実行された指定セルにも反映』（n）　ページの最後に飛ぶ

『マクロを実行すると　実行された指定セルにも反映されてしまいます。』（n）

たびたびお世話になっております。

今回ランダムに人名や誕生日を生成するマクロを組んでおります。

マクロを実行すると、アクティブであるセルにも誕生日が反映されてしまいます。

試行錯誤したのですが、ご教授いただきたいため質問させていただきます。

私の作ったコードは下記になります。

Sub ランダム人名()

Dim arr(1 To 4) As String
Dim rng As Range

arr(1) = "山田"
arr(2) = "田中"
arr(3) = "田口"
arr(4) = "川島"

Randomize

For Each rng In Selection

    Cells(2, 3).Value = arr(Int((Rnd * 4) + 1))
  Next

Dim arr2(1 To 4) As String
Dim rng2 As Range

arr2(1) = "実"
arr2(2) = "洋"
arr2(3) = "愛"
arr2(4) = "香"

Randomize

For Each rng2 In Selection

    Cells(3, 3).Value = arr2(Int((Rnd * 4) + 1))
  Next

Dim tmp As String

    tmp = Cells(2, 3)

    tmp = Application.GetPhonetic(Cells(2, 3))

    Cells(4, 3).Value = tmp

Dim tmp2 As String

    tmp2 = Cells(3, 3)

    tmp2 = Application.GetPhonetic(Cells(3, 3))

    Cells(5, 3).Value = tmp2

  Dim fstDate As Date
  Dim lstDate As Date
  Dim c As Range

  fstDate = #4/1/1950#
  lstDate = #9/30/2019#

  Randomize

  For Each c In Selection
    c.Value = Int((lstDate - fstDate + 1) * Rnd + fstDate)
    c.NumberFormat = "yyyymmdd"
    Cells(6, 3).Value = c
  Next

End Sub

どうか、よろしくお願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

解決しました。すいません！
（n） 2020/05/11(月) 09:36

コメント返信：