「oval」を含む日記

はてなキーワード: ovalとは

2019-09-06

my.dictionary.Remove(impossible);

long step = 1;
double distance = 0;
while(distance &gt;= 1000){
    distance = step * 0.003;
    step++;
}

cat.set(oval);
pig.set(pearl);

Sub workbook_open()

Dim t As Variant

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

ハハハ！これでファイルを開いた時が午前中だったら図形はＡＭの所に！

午後だったらＰＭの方に図形が自動的に移動される！

自分の才能が怖いぃ！

図形の移動もＶＢＡで制御出来るのかと試しに記録してみたところ、

ActiveSheet.Shapes.Range(Array("Oval 1")).Select
Selection.ShapeRange.IncrementLeft 31.5

見事に出来た！

いやっほう！これにif足せば、ファイルを開く度にマウスを動かす必要が無くなるぜ！

あ、でもファイルを立ち上げると自動的にマクロが実行されるようにしないと。

……できるの？