|
初めまして kaeru144といいます
私も高校で教務をしており、今年から私が作成したもので時間割変更を行っています。まだまだ改良の余地があるのですが、今のところは動いています。
良ければ参考までに…。
Public Sub セル交換()
Sheets("変更").Select
Dim w, x As Range, y As Range
If Selection.Areas.Count <> 2 Then Exit Sub
Set x = Selection.Areas(1)
Set y = Selection.Areas(2)
w = x.Formula
x.Formula = y.Formula
y.Formula = w
'上:入れ替え 下:備考欄
Dim Number1
Number1 = Selection.Areas(1).EntireColumn.Range("A1").Value
Dim Number2
Number2 = Selection.Areas(2).EntireColumn.Range("A1").Value
Selection.Areas(1).Offset(2, 0).Value = Number1 & Range("A1").Value & Number2
Selection.Areas(2).Offset(2, 0).Value = Number1 & Range("A1").Value & Number2
End Sub
セル交換の後、その下にいつから変更がきたのか分かるようになっています。
実際のプログラムをみないと分からないかもしれませんね・・・
|
|