月末日をただExcelA列に書いていくだけ…(家計簿とか使えるかも)

月末日をいちいち打つのがめんどかったので初心者が作った（もともとExcelにそういう機能があるのかは知らない。あったらこれはｺﾞﾐ)、改造でもなんでもどぞ…
うるう年は正確じゃないです

kinounoonigiri
2021/6/14 18:08

タグ：
タグはありません

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
    title "月末日を表示 0.1"
    screen 0,480,640
    inx=100 : iny=20
    mes "↓最初の年の入力(西暦),半角数字"
    nen=2020
    input nen,inx,iny,4
    mes "↓最初の月の入力,半角数字"
    tuki=5
    input tuki,inx,iny,2
    mes "↓何月分出す？,半角数字,1～999,0で無限"
    kai=10
    input kai,inx,iny,3
    button "GO!!" ,*main
    day=0
    count=0
    stop
*main
    newcom xlApp, "Excel.Application"
    xlApp("Visible") = 1      
    xlBooks = xlApp("Workbooks")   
    xlBook = xlBooks("Add")     
    xlSheet = xlBook("Worksheets", "sheet1")  
*start
    count=count+1
    
    if(tuki=1){day=31}
    if(tuki=2){if(nen\4=0){day=29}else{day=28}}
    if(tuki=3){day=31}
    if(tuki=4){day=30}
    if(tuki=5){day=31}
    if(tuki=6){day=30}
    if(tuki=7){day=31}
    if(tuki=8){day=31}
    if(tuki=9){day=30}
    if(tuki=10){day=31}
    if(tuki=11){day=30}
    if(tuki=12){day=31}
    //セルの指定(A列は固定)……countで代用可能？
    // セルの編集
    xlRange = xlSheet("Range", "A"+count+"") 
    xlRange("Value") = ""+nen+"."+tuki+"."+day+""  //出力ｩ
    if(count=kai){goto *endbutton}
    tuki=tuki+1
    if(tuki=13){tuki=1 : nen=nen+1}
    
    //wait 1
    
    goto *start //戻る！
    
*endbutton
    delcom xlRange
    delcom xlBook
    delcom xlBooks
    delcom xlApp
    button "終了" ,*owari
    stop
*owari
    end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする