|
▼IROC さん:
>>コードみてもらいませんか?
>
>いいですよ。
>出来ているところまで掲載して下さい。
ありがとうございます。
Private Sub Worksheet_Activate()’・・・2シート
Dim i As Long
Dim ws As Worksheet, Rpos As Long
Set ws = Worksheets("1シート")
ws.Activate
'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
Rpos = ws.Range("A65536").End(xlUp).Row + 1
'B列(氏名)にテキストボックスの氏名を入力します。
With ws
If Rpos = 3 Then
.Cells(Rpos, 1).Value = 1
Else
.Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
End If
ws.Cells(Rpos, 10).Value = .Cells(Rpos, 3).Value 'A-1
ws.Cells(Rpos, 11).Value = .Cells(Rpos, 5).Value 'A-2
ws.Cells(Rpos, 12).Value = .Cells(Rpos, 7).Value 'A-3
ws.Cells(Rpos, 13).Value = .Cells(Rpos, 9).Value 'A-4
ws.Cells(Rpos, 14).Value = .Cells(Rpos, 11).Value 'A-5
ws.Cells(Rpos, 15).Value = .Cells(Rpos, 13).Value 'A-6
ws.Cells(Rpos, 16).Value = .Cells(Rpos, 15).Value 'A-7
ws.Cells(Rpos, 17).Value = .Cells(Rpos, 17).Value 'A-8
ws.Cells(Rpos, 18).Value = .Cells(Rpos, 19).Value 'A-9
ws.Cells(Rpos, 19).Value = .Cells(Rpos, 21).Value 'A-10
ws.Cells(Rpos, 20).Value = .Cells(Rpos, 23).Value 'A-11
ws.Cells(Rpos, 21).Value = .Cells(Rpos, 25).Value 'A-12
ws.Cells(Rpos, 22).Value = .Cells(Rpos, 27).Value 'A-13
ws.Cells(Rpos, 23).Value = .Cells(Rpos, 29).Value 'A-14
ws.Cells(Rpos, 24).Value = .Cells(Rpos, 31).Value 'A-15
ws.Cells(Rpos, 25).Value = .Cells(Rpos, 33).Value 'A-16
ws.Cells(Rpos, 26).Value = .Cells(Rpos, 35).Value 'A-17
ws.Cells(Rpos, 27).Value = .Cells(Rpos, 37).Value 'B-1
ws.Cells(Rpos, 28).Value = .Cells(Rpos, 39).Value 'B-2
ws.Cells(Rpos, 29).Value = .Cells(Rpos, 41).Value 'B-3
ws.Cells(Rpos, 30).Value = .Cells(Rpos, 43).Value 'B-4
ws.Cells(Rpos, 31).Value = .Cells(Rpos, 45).Value 'B-5
ws.Cells(Rpos, 32).Value = .Cells(Rpos, 47).Value 'B-6
ws.Cells(Rpos, 33).Value = .Cells(Rpos, 49).Value 'B-7
ws.Cells(Rpos, 34).Value = .Cells(Rpos, 51).Value 'B-8
ws.Cells(Rpos, 35).Value = .Cells(Rpos, 53).Value 'B-9
ws.Cells(Rpos, 36).Value = .Cells(Rpos, 55).Value 'B-10
ws.Cells(Rpos, 37).Value = .Cells(Rpos, 57).Value 'B-11
ws.Cells(Rpos, 38).Value = .Cells(Rpos, 59).Value 'B-12
ws.Cells(Rpos, 39).Value = .Cells(Rpos, 61).Value 'B-13
ws.Cells(Rpos, 40).Value = .Cells(Rpos, 63).Value 'B-14
ws.Cells(Rpos, 41).Value = .Cells(Rpos, 65).Value 'B-15
ws.Cells(Rpos, 42).Value = .Cells(Rpos, 67).Value 'B-16
ws.Cells(Rpos, 43).Value = .Cells(Rpos, 69).Value 'B-17
ws.Cells(Rpos, 44).Value = .Cells(Rpos, 71).Value 'B-18
ws.Cells(Rpos, 45).Value = .Cells(Rpos, 73).Value 'B-19
ws.Cells(Rpos, 46).Value = .Cells(Rpos, 75).Value 'B-20
ws.Cells(Rpos, 47).Value = .Cells(Rpos, 77).Value 'B-21
ws.Cells(Rpos, 48).Value = .Cells(Rpos, 79).Value 'B-22
ws.Cells(Rpos, 49).Value = .Cells(Rpos, 81).Value 'B-23
ws.Cells(Rpos, 50).Value = .Cells(Rpos, 83).Value 'B-24
ws.Cells(Rpos, 51).Value = .Cells(Rpos, 85).Value 'B-25
ws.Cells(Rpos, 52).Value = .Cells(Rpos, 87).Value 'B-26
ws.Cells(Rpos, 53).Value = .Cells(Rpos, 89).Value 'B-27
ws.Cells(Rpos, 54).Value = .Cells(Rpos, 91).Value 'B-28
ws.Cells(Rpos, 55).Value = .Cells(Rpos, 93).Value 'B-29
End With
End Sub
|
|