「Oval」を含む日記 RSS

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

2019-09-06

anond:20190905203132

my.dictionary.Remove(impossible);
long step = 1;
double distance = 0;
while(distance >= 1000){
    distance = step * 0.003;
    step++;
}
cat.set(oval);
pig.set(pearl);

2017-07-14

かんぺきなぷろぐらみんぐ

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

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

午後だったらPMの方に図形が自動的に移動される!

自分の才能が怖いぃ!

図形の移動もVBAで

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

ActiveSheet.Shapes.Range(Array("Oval 1")).Select

Selection.ShapeRange.IncrementLeft 31.5

見事に出来た!

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

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

……できるの?

 
ログイン ユーザー登録
ようこそ ゲスト さん