ポケモンvba_ver3.2

更新日：2015-11-20 21:42:35

Private Type Information
Name As String
Id As String
Type As String
End Type

Sub Select_type()
ActiveSheet.Unprotect

Dim i As Integer
Dim Same As Boolean
Dim Member(20) As Information

'start time'
Dim start As Double: start = CDbl(Timer)

'member information'
Member(0).Name = "***"
Member(0).Id = "abcde"
Member(1).Name = "雪"
Member(1).Id = "5648dazo"
Member(2).Name = "だるみーと"
Member(2).Id = "daruma1417"
Member(3).Name = "ヒビキ"
Member(3).Id = "78712"
Member(4).Name = "ていてい"
Member(4).Id = "himazin0809"
Member(5).Name = "爆炎"
Member(5).Id = "qqqqq"
Member(6).Name = "ゼロ"
Member(6).Id = "zero0614"

i = 0
Do Until Cells(i + 2, 3) = ""
Member(i).Type = Cells(i + 2, 3)
i = i + 1
Loop

'select type'
Randomize

i = 0
Do Until Member(i).Name = ""
Same = False
Do Until Same = True
Same = True

If Member(i).Type = "" Then
Select Case Int(Rnd * 18)
Case 0: Member(i).Type = "ノーマル"
Case 1: Member(i).Type = "ほのお"
Case 2: Member(i).Type = "みず"
Case 3: Member(i).Type = "でんき"
Case 4: Member(i).Type = "くさ"
Case 5: Member(i).Type = "こおり"
Case 6: Member(i).Type = "かくとう"
Case 7: Member(i).Type = "どく"
Case 8: Member(i).Type = "じめん"
Case 9: Member(i).Type = "ひこう"
Case 10: Member(i).Type = "エスパー"
Case 11: Member(i).Type = "むし"
Case 12: Member(i).Type = "いわ"
Case 13: Member(i).Type = "ゴースト"
Case 14: Member(i).Type = "ドラゴン"
Case 15: Member(i).Type = "あく"
Case 16: Member(i).Type = "はがね"
Case 17: Member(i).Type = "フェアリー"
End Select
End If

If i > 0 Then
For j = 0 To i - 1
If Member(i).Type = Member(j).Type Then
Member(i).Type = ""
Same = False
Exit For
End If
Next j
End If
Loop

i = i + 1
Loop

'write cells'
Range("A1") = "name"
Range("B1") = "ID"
Range("C1") = "type"

i = 0
Do Until Member(i).Name = ""
Cells(i + 2, 2).NumberFormatLocal = "@"
Cells(i + 2, 1) = Member(i).Name
Cells(i + 2, 2) = Member(i).Id
Cells(i + 2, 3) = Member(i).Type
i = i + 1
Loop

'finish time'
Dim finish As Double: finish = CDbl(Timer)

Range("D1") = "Start_time"
Range("E1") = "Finish_time"

i = 2
Do Until Cells(i, 4) = ""
i = i + 1
Loop

Cells(i, 4).NumberFormatLocal = "yy/m/d/ h:mm:ss.000"
Cells(i, 5).NumberFormatLocal = "yy/m/d/ h:mm:ss.000"
Cells(i, 4) = Now & start - Hour(Time) * 3600 - Minute(Now) * 60 - Second(Now)
Cells(i, 5) = Now & finish - Hour(Time) * 3600 - Minute(Now) * 60 - Second(Now)

Columns("A:E").AutoFit

ActiveSheet.Protect
End Sub