[[20130926202057]]　『フォームコントロール』（素人）　ページの最後に飛ぶ

『フォームコントロール』（素人）

 2013/10/16の日付けがあります。そこで、2013年と１0月の部分を変えたいのです。
 10月を11月、12月と変えていき、1月と変えたときに、2013年が、2014年に変わり、
 その逆に、9月、8月と変えていき12月になると2012年と戻るようにしたいのですが、
 フォームコントロールを使用して、月を変えて動かすにはどのようにすればよいですか？

 日付はどこにどのような形で表示されているのでしょうか。
 コントロールはフォームコントロール（ActiveXコントロール ではなく）の
 スピンボタンでしょうか。
 (Mook)

 Mookさん

 お世話になります。

 A1 =DATE(A2,B2,C2)
 B1 2013   C2  11  D2  16

 ActiveXコントロール ではなくスピンボタンでやってましたが、B2とC2に1ずつ
 変えるようにしていました。（素人）

 横から失礼します。
 そのまま使うのであれば、たぶん↑のB1はA2、C2はB2のことですかね？　A1の数式見る限り
 A2 =2003+INT(C2/12)
 B2をリンクセルで、現在値を120。　増減を1ずつに。

 A1 =DATE(A2,MOD(B2,12)+1,C2)

 でいかがでしょうか？10年分しかさかのぼれませんが。

 （稲葉）2013/9/27（金曜日）　21:00

 とりあえず日付は28以下前提で（考えると面倒なので）

 A2は最小値1900、最大値9999
 B2は最小値0、最大値13
 で B2のスピンボタン（スピン2として）にマクロで、

 Sub スピン2_Change()
    Select Case Range("B2").Value
    Case 0
        Range("B2").Value = 12
        Range("A2").Value = Range("A2").Value - 1
    Case 13
        Range("B2").Value = 1
        Range("A2").Value = Range("A2").Value + 1
    End Select
 End Sub

 という感じでどうでしょうか。
 (Mook)

 有難うございます。
 お世話になりました。（素人）

コメント返信：

[ 一覧(最新更新順) ]

[[20130926202057]] 『フォームコントロール』（素人） ページの最後に飛ぶ

[[20130926202057]]　『フォームコントロール』（素人）　ページの最後に飛ぶ