|
▼IROC さん:
>>修正して1シートにデータ入力したら2シートを空セルのままでした。
>
>こんどは、全部2シートを参照しており
>1シートを参照していませんよ。
>
>右辺から左辺に代入されるのは理解されていますか?
ありがとうございます。
私は理解されていませんので箇所教えてくれませんか?
'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
Rpos = Worksheets("1シート").Range("A65536").End(xlUp).Row + 1
'B列(氏名)にテキストボックスの氏名を入力します。
With Worksheets("2シート")
If Rpos = 3 Then
.Cells(Rpos, 1).Value = 1
Else
.Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
End If
.Cells(Rpos, 3).Value = Worksheets("2シート").Cells(Rpos, 10).Value 'A-1
.Cells(Rpos, 5).Value = Worksheets("2シート").Cells(Rpos, 11).Value 'A-2
.Cells(Rpos, 7).Value = Worksheets("2シート").Cells(Rpos, 12).Value 'A-3
.Cells(Rpos, 9).Value = Worksheets("2シート").Cells(Rpos, 13).Value 'A-4
.Cells(Rpos, 11).Value = Worksheets("2シート").Cells(Rpos, 14).Value 'A-5
.Cells(Rpos, 13).Value = Worksheets("2シート").Cells(Rpos, 15).Value 'A-6
.Cells(Rpos, 15).Value = Worksheets("2シート").Cells(Rpos, 16).Value 'A-7
.Cells(Rpos, 17).Value = Worksheets("2シート").Cells(Rpos, 17).Value 'A-8
.Cells(Rpos, 19).Value = Worksheets("2シート").Cells(Rpos, 18).Value 'A-9
.Cells(Rpos, 21).Value = Worksheets("2シート").Cells(Rpos, 19).Value 'A-10
.Cells(Rpos, 23).Value = Worksheets("2シート").Cells(Rpos, 20).Value 'A-11
.Cells(Rpos, 25).Value = Worksheets("2シート").Cells(Rpos, 21).Value 'A-12
.Cells(Rpos, 27).Value = Worksheets("2シート").Cells(Rpos, 22).Value 'A-13
.Cells(Rpos, 29).Value = Worksheets("2シート").Cells(Rpos, 23).Value 'A-14
.Cells(Rpos, 31).Value = Worksheets("2シート").Cells(Rpos, 24).Value 'A-15
.Cells(Rpos, 33).Value = Worksheets("2シート").Cells(Rpos, 25).Value 'A-16
.Cells(Rpos, 35).Value = Worksheets("2シート").Cells(Rpos, 26).Value 'A-17
.Cells(Rpos, 37).Value = Worksheets("2シート").Cells(Rpos, 27).Value 'B-1
.Cells(Rpos, 39).Value = Worksheets("2シート").Cells(Rpos, 28).Value 'B-2
.Cells(Rpos, 41).Value = Worksheets("2シート").Cells(Rpos, 29).Value 'B-3
.Cells(Rpos, 43).Value = Worksheets("2シート").Cells(Rpos, 30).Value 'B-4
.Cells(Rpos, 45).Value = Worksheets("2シート").Cells(Rpos, 31).Value 'B-5
.Cells(Rpos, 47).Value = Worksheets("2シート").Cells(Rpos, 32).Value 'B-6
.Cells(Rpos, 49).Value = Worksheets("2シート").Cells(Rpos, 33).Value 'B-7
.Cells(Rpos, 51).Value = Worksheets("2シート").Cells(Rpos, 34).Value 'B-8
.Cells(Rpos, 53).Value = Worksheets("2シート").Cells(Rpos, 35).Value 'B-9
.Cells(Rpos, 55).Value = Worksheets("2シート").Cells(Rpos, 36).Value 'B-10
.Cells(Rpos, 57).Value = Worksheets("2シート").Cells(Rpos, 37).Value 'B-11
.Cells(Rpos, 59).Value = Worksheets("2シート").Cells(Rpos, 38).Value 'B-12
.Cells(Rpos, 61).Value = Worksheets("2シート").Cells(Rpos, 39).Value 'B-13
.Cells(Rpos, 63).Value = Worksheets("2シート").Cells(Rpos, 40).Value 'B-14
.Cells(Rpos, 65).Value = Worksheets("2シート").Cells(Rpos, 41).Value 'B-15
.Cells(Rpos, 67).Value = Worksheets("2シート").Cells(Rpos, 42).Value 'B-16
.Cells(Rpos, 69).Value = Worksheets("2シート").Cells(Rpos, 43).Value 'B-17
.Cells(Rpos, 71).Value = Worksheets("2シート").Cells(Rpos, 44).Value 'B-18
.Cells(Rpos, 73).Value = Worksheets("2シート").Cells(Rpos, 45).Value 'B-19
.Cells(Rpos, 75).Value = Worksheets("2シート").Cells(Rpos, 46).Value 'B-20
.Cells(Rpos, 77).Value = Worksheets("2シート").Cells(Rpos, 47).Value 'B-21
.Cells(Rpos, 79).Value = Worksheets("2シート").Cells(Rpos, 48).Value 'B-22
.Cells(Rpos, 81).Value = Worksheets("2シート").Cells(Rpos, 49).Value 'B-23
.Cells(Rpos, 83).Value = Worksheets("2シート").Cells(Rpos, 50).Value 'B-24
.Cells(Rpos, 85).Value = Worksheets("2シート").Cells(Rpos, 51).Value 'B-25
.Cells(Rpos, 87).Value = Worksheets("2シート").Cells(Rpos, 52).Value 'B-26
.Cells(Rpos, 89).Value = Worksheets("2シート").Cells(Rpos, 53).Value 'B-27
.Cells(Rpos, 91).Value = Worksheets("2シート").Cells(Rpos, 54).Value 'B-28
.Cells(Rpos, 93).Value = Worksheets("2シート").Cells(Rpos, 55).Value 'B-29
End With
End Sub
|
|