Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10312 / 76734

←次へ　｜　前へ→


	【71969】ランダムで出したい（抽出）のですが、どのようにしたら良いでしょうか

Yoshi - 12/5/4(金) 11:44 -


	引用なし

	パスワード

お休みのところ申し訳ございません、もしご覧になっておられればご回答お願いします。

現在写真９６点を写真にp (1)～p (96)のナンバーを振って、エクセルシート上にセルを一つ飛びに挿入・貼り付けています。　　　　　　　　　　　　　　　　　写真の連番には順調に貼り付けられるのですが、rand関数を入れて、毎回写真の出るセル位置を変えたいのですが…その方法を教えていただけませんでしょうか。

現在のコードは以下の通りです。
Sub Photo_Paste()
　　Dim m As Long, n As Long, p As Long
　　Dim CC As Long, RR As Long
　　Dim R As Range, SP As Shape, WS As Worksheet, FileName As String
　　
　Application.ScreenUpdating = False

　　On Error Resume Next
　　With Sheets("Sheet1")
　　　.Activate
　　For n = 1 To 97
　　　　.Rectangles("myPicture" & n).Delete
　　Next n
　　'On Error GoTo 0
　　
　　Set WS = Application.ActiveSheet
　　p = 1
　　m = 1
　　 For RR = 2 To 12 Step 2
　　　　For CC = 2 To 32 Step 2
　　　　　　Set R = .Cells(RR, CC)
　　　　　　With R
　　　　　　　　Set SP = Sheets("Sheet1").Shapes.AddShape(msoShapeRectangle, _
　　　　　　　　　　 .Left, .Top, 39, 38)　 '''''
　　　　　　　　FileName = _
　　　　　　　　 ThisWorkbook.Path & "\photo\" & "P" & " " & "(" & p & ")" & ".jpg"
　　　　　　　　 SP.Fill.UserPicture FileName
　 On Error GoTo 0
　　　　　　End With
　　　　　　　　p = p + 1
　　　　　　　　If p >= 98 Then
　　　　　　　　　Exit Sub
　　　　　　　　End If
　　　　　　　　m = m + 1
　　　　　　　　SP.Name = "myPicture" & m - 1
　　　　　　　　SP.Line.ForeColor.RGB = RGB(0, 0, 0)
　　　　　　　　SP.Line.Weight = 1.5
　　　　Next CC
　　　Next RR
　　Set SP = Nothing: Set R = Nothing: Set WS = Nothing
End With
Application.ScreenUpdating = True
End Sub

4 hits

▼

【71969】ランダムで出したい（抽出）のですが、どのようにしたら良いでしょうか Yoshi 12/5/4(金) 11:44

≪