■かんぺきなぷろぐらみんぐ
Sub workbook_open()
Dim t As Variant
t = Time
t = Mid(t, 1, 2)
If t < 9 And 12 Then
ElseIf t < 13 And 18 Then
Else
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
Selection.ShapeRange.IncrementLeft 31.5
End If
End Sub
ハハハ！これでファイルを開いた時が午前中だったら図形はＡＭの所に！
午後だったらＰＭの方に図形が自動的に移動される！
自分の才能が怖いぃ！
ツイートシェア
12
