Excel VBA質問箱 IV

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

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


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

49563 / 76732

←次へ　｜　前へ→


	【32075】Re:コピーについて

ganko - 05/12/5(月) 21:10 -


	引用なし

	パスワード

▼hatena さん：

こんなのもいけるかも
高さも、幅も、セルの統合したのも対応できると思います。
標準のモジュールに…

Sub s_TableCopy()

Dim 元のセル As Range
Dim コピー先 As Range

On Error Resume Next

Set 元のセル = Application.InputBox("コピー元のセルを選択してください", Type:=8)

If 元のセル Is Nothing Then
Exit Sub
End If

Set コピー先 = Application.InputBox("コピー先のセルを選択してください", Type:=8)

If コピー先 Is Nothing Then
Exit Sub
End If

If コピー先.Count <> 1 Then
MsgBox "コピー先の複数セルは選択できません"
Exit Sub
End If

元のセル.Copy Destination:=コピー先

　For I = 1 To 元のセル.Columns.Count
　　コピー先.Columns(I).ColumnWidth = 元のセル.Columns(I).ColumnWidth
　Next
　
　For I = 1 To 元のセル.Rows.Count
　　コピー先.Rows(I).RowHeight = 元のセル.Rows(I).RowHeight
　Next
　
　
End Sub

1 hits

▼

【32056】コピーについて hatena 05/12/5(月) 16:22