- 476 名前：デフォルトの名無しさん mailto:sage [2009/08/14(金) 00:13:30 ]
- >>472
作ってみたよ。
Option Explicit
Sub 整数を入力して大きい順に並べ替える()
Dim aaa As Integer
For aaa = 1 To 20
Cells(aaa, 1).Value = Application.InputBox(Prompt:="数値を入力してください", _
Title:="数値入力", _
Type:=1)
Next
Range("A1:A20").Sort _
Key1:=Range("A1") _
, Order1:=xlDescending _
, Header:=xlGuess _
, MatchCase:=False _
, Orientation:=xlTopToBottom _
End Sub
