| |
▼IROC さん：
>>すみません。2シートを指定する構文は何でしょうか？
>>教えてください。
>
>Worksheets("2シート").Cells(・・・
>
>です。
>
>
>掲載されたコードは
>左辺が ws で 1シートを指定し、
>右辺は .で始まっているので、
>with 文の ws が指定されています。
>
>各構文の使い方が分かっていないのであれば、
>１つずつ、ヘルプで調べて見て下さい。
ありがとうございます。
修正して１シートにデータ入力したら２シートを空セルのままでした。
どこに間違えている箇所を教えてください。
Private Sub Worksheet_Activate()（２シート）
Dim Rpos As Long
'A列（番号）の最終行をチェックし、そこに通し番号を入力します。
Rpos = Worksheets("２シート").Range("A65536").End(xlUp).Row + 1
'B列（氏名）にテキストボックスの氏名を入力します。
With Worksheets("２シート")
If Rpos = 3 Then
.Cells(Rpos, 1).Value = 1
Else
.Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
End If
Worksheets("２シート").Cells(Rpos, 10).Value = .Cells(Rpos, 3).Value 'A-1
Worksheets("２シート").Cells(Rpos, 11).Value = .Cells(Rpos, 5).Value 'A-2
Worksheets("２シート").Cells(Rpos, 12).Value = .Cells(Rpos, 7).Value 'A-3
Worksheets("２シート").Cells(Rpos, 13).Value = .Cells(Rpos, 9).Value 'A-4
Worksheets("２シート").Cells(Rpos, 14).Value = .Cells(Rpos, 11).Value 'A-5
Worksheets("２シート").Cells(Rpos, 15).Value = .Cells(Rpos, 13).Value 'A-6
Worksheets("２シート").Cells(Rpos, 16).Value = .Cells(Rpos, 15).Value 'A-7
Worksheets("２シート").Cells(Rpos, 17).Value = .Cells(Rpos, 17).Value 'A-8
Worksheets("２シート").Cells(Rpos, 18).Value = .Cells(Rpos, 19).Value 'A-9
Worksheets("２シート").Cells(Rpos, 19).Value = .Cells(Rpos, 21).Value 'A-10
Worksheets("２シート").Cells(Rpos, 20).Value = .Cells(Rpos, 23).Value 'A-11
Worksheets("２シート").Cells(Rpos, 21).Value = .Cells(Rpos, 25).Value 'A-12
Worksheets("２シート").Cells(Rpos, 22).Value = .Cells(Rpos, 27).Value 'A-13
Worksheets("２シート").Cells(Rpos, 23).Value = .Cells(Rpos, 29).Value 'A-14
Worksheets("２シート").Cells(Rpos, 24).Value = .Cells(Rpos, 31).Value 'A-15
Worksheets("２シート").Cells(Rpos, 25).Value = .Cells(Rpos, 33).Value 'A-16
Worksheets("２シート").Cells(Rpos, 26).Value = .Cells(Rpos, 35).Value 'A-17
Worksheets("２シート").Cells(Rpos, 27).Value = .Cells(Rpos, 37).Value 'B-1
Worksheets("２シート").Cells(Rpos, 28).Value = .Cells(Rpos, 39).Value 'B-2
Worksheets("２シート").Cells(Rpos, 29).Value = .Cells(Rpos, 41).Value 'B-3
Worksheets("２シート").Cells(Rpos, 30).Value = .Cells(Rpos, 43).Value 'B-4
Worksheets("２シート").Cells(Rpos, 31).Value = .Cells(Rpos, 45).Value 'B-5
Worksheets("２シート").Cells(Rpos, 32).Value = .Cells(Rpos, 47).Value 'B-6
Worksheets("２シート").Cells(Rpos, 33).Value = .Cells(Rpos, 49).Value 'B-7
Worksheets("２シート").Cells(Rpos, 34).Value = .Cells(Rpos, 51).Value 'B-8
Worksheets("２シート").Cells(Rpos, 35).Value = .Cells(Rpos, 53).Value 'B-9
Worksheets("２シート").Cells(Rpos, 36).Value = .Cells(Rpos, 55).Value 'B-10
Worksheets("２シート").Cells(Rpos, 37).Value = .Cells(Rpos, 57).Value 'B-11
Worksheets("２シート").Cells(Rpos, 38).Value = .Cells(Rpos, 59).Value 'B-12
Worksheets("２シート").Cells(Rpos, 39).Value = .Cells(Rpos, 61).Value 'B-13
Worksheets("２シート").Cells(Rpos, 40).Value = .Cells(Rpos, 63).Value 'B-14
Worksheets("２シート").Cells(Rpos, 41).Value = .Cells(Rpos, 65).Value 'B-15
Worksheets("２シート").Cells(Rpos, 42).Value = .Cells(Rpos, 67).Value 'B-16
Worksheets("２シート").Cells(Rpos, 43).Value = .Cells(Rpos, 69).Value 'B-17
Worksheets("２シート").Cells(Rpos, 44).Value = .Cells(Rpos, 71).Value 'B-18
Worksheets("２シート").Cells(Rpos, 45).Value = .Cells(Rpos, 73).Value 'B-19
Worksheets("２シート").Cells(Rpos, 46).Value = .Cells(Rpos, 75).Value 'B-20
Worksheets("２シート").Cells(Rpos, 47).Value = .Cells(Rpos, 77).Value 'B-21
Worksheets("２シート").Cells(Rpos, 48).Value = .Cells(Rpos, 79).Value 'B-22
Worksheets("２シート").Cells(Rpos, 49).Value = .Cells(Rpos, 81).Value 'B-23
Worksheets("２シート").Cells(Rpos, 50).Value = .Cells(Rpos, 83).Value 'B-24
Worksheets("２シート").Cells(Rpos, 51).Value = .Cells(Rpos, 85).Value 'B-25
Worksheets("２シート").Cells(Rpos, 52).Value = .Cells(Rpos, 87).Value 'B-26
Worksheets("２シート").Cells(Rpos, 53).Value = .Cells(Rpos, 89).Value 'B-27
Worksheets("２シート").Cells(Rpos, 54).Value = .Cells(Rpos, 91).Value 'B-28
Worksheets("２シート").Cells(Rpos, 55).Value = .Cells(Rpos, 93).Value 'B-29
End With
End Sub
|
|
さる
- 04/7/25(日) 18:45 -
