エクセル、コマンドボタンについて

セルを配列に入れなくても、セル範囲は配列の扱いになります。 Private Sub CommandButton1_Click() Randomize R = Int(50 * Rnd + 1) MsgBox R Worksheets("sheet3").Range("A1:E10")(R).Copy ActiveSheet.Range("a1").Select ActiveSheet.Paste End Sub 私の場合Sheet2にコマンドボタンを貼り付け、Sheet3のA1:E10に値と書式設定してテストしました。Sheet2をアクチブにして（コマンドボタンをクリックするからそうなるでしょう）実行してください。 Msgboxは確認のためです。はずしてください。 ＞の書式のまま受け継ぎたい。 表示幅のことならば、AutoFitメソッドを入れてください。 標準モジュールに入れること。 Sub test03() Worksheets("Sheet2").Columns("A").AutoFit End Sub

こんばんは。 ＞表示させるセル（シート１）の書式を、 ＞引用もとのセル（シート２）の書式のまま受け継ぎたいのですが。 ＞※ランダムに表示させる文字列によって、 ＞　文字数等が違いセルに入りきらないため。 文字数が入らないために、書式をコピーするというのは、良く分りませんね。セル幅を変えるのでしたら、以下のようにすればよいのですが、かなりうっとうしいような気がします。セル幅を、文字列の文字数の最大値に設定してしまったほうがいいように思いますが。そのようなセル幅調整がいらないのでしたら、** ～** の間を削除してください。 　Dim myData(1 To 50) 　Dim k As Integer, c As Variant, t As Integer 　k = 1 　For Each c In Worksheets("Sheet2").Range("A1:E10") 　　myData(k) = c.Value 　　k = k + 1 　Next c 　Randomize ' 乱数発生ルーチンを初期化します。 　t = Int(50 * Rnd + 1) 　With Worksheets("Sheet1") 　.Range("A1").Value = myData(t) '** 　'セル幅を文字数に合わせるが、設定以下には狭めない。 　If Len(.Range("A1").Value) > .StandardWidth Then 　　.Range("A1").EntireColumn.AutoFit　'セル幅を整える 　Else 　　.Range("A1").EntireColumn.ColumnWidth = .StandardWidth 　End If '** 　End With '// コピーするなら、以下のようにする方法もあります。 セル幅は変更されません。データと書式のみです。 コマンドボタンの中身 　Dim myData(1 To 50), rng As Range 　Dim k As Integer, c As Variant, t As Integer 　Set rng = Worksheets("Sheet2").Range("A1:E10") 　k = 1 　Randomize ' 乱数発生ルーチンを初期化します。 　t = Int(50 * Rnd + 1) 　rng.Cells(t).Copy Worksheets("Sheet1").Range("A1") 　Set rng = Nothing

形式をコピーする場合は、このような方法があります。 Sheet2.Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 5) + 1).Copy これは、手操作での「コピー」と同じです。続いて、 Sheet1.Cells(1,1).PasteSpecial xlPasteAll とすれば、セルの中身が形式つきで貼り付けられます。ただし、列幅は貼り付かないので、列幅も貼り付けたい場合はさらに Sheet1.Cells(1,1).PastSpecial xlPasteColumnWidths とします。ここで出てきたPasteSpecialメソッドは、手操作での「形式を指定して貼り付け」に相当します。指定できる形式はいろいろあるので、詳しくはヘルプをご覧ください。 このあと、セルにつく「動く点線」が気になる場合は、 Application.CutCopyMode = False で消します。

コマンドボタンのコードに Sheet1.Cells(1,1) = Sheet2.Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 5) + 1) と書くのでどうでしょう。