家計簿ソフトを作ってみよう

Step 3 収入・支出ボタンで費目を入力する

ボタンがクリックされると、現在のカーソルセル位置を調べD列(費目列)かどうか調べます。
D列の場合、ボタンのキャプションをセルにセットします。
D列でない場合、ブザーを鳴らします。

列数を取得するには、ActiveCell.Column を使います。
セル位置の行列位置を取得するには、ActiveCell.Address を使います。

メニューに戻る

スポンサーリンク



実行画面

収入・支出ボタンをクリックすると、ボタンに応じた費目がセルに記入されます。
カーソル位置がD列にない場合は、ブザーを鳴らし警告します。
費目入力シート

スポンサーリンク



実行コード


Option Explicit

'費目のセット
Private Sub ExHimokuSet(st As String)
    Dim s1 As String
    
    If ActiveCell.Column = 4 Then
        s1 = ActiveCell.Address
        Range(s1) = st
    Else
        Beep
    End If
End Sub

Private Sub CommandButton1_Click()
    ExHimokuSet CommandButton1.Caption
End Sub

Private Sub CommandButton10_Click()
    ExHimokuSet CommandButton10.Caption
End Sub

Private Sub CommandButton11_Click()
    ExHimokuSet CommandButton11.Caption
End Sub

Private Sub CommandButton12_Click()
    ExHimokuSet CommandButton12.Caption
End Sub

Private Sub CommandButton13_Click()
    ExHimokuSet CommandButton13.Caption
End Sub

Private Sub CommandButton14_Click()
    ExHimokuSet CommandButton14.Caption
End Sub

Private Sub CommandButton15_Click()
    ExHimokuSet CommandButton15.Caption
End Sub

Private Sub CommandButton16_Click()
    ExHimokuSet CommandButton16.Caption
End Sub

Private Sub CommandButton17_Click()
    ExHimokuSet CommandButton17.Caption
End Sub

Private Sub CommandButton18_Click()
    ExHimokuSet CommandButton18.Caption
End Sub

Private Sub CommandButton19_Click()
    ExHimokuSet CommandButton19.Caption
End Sub

Private Sub CommandButton2_Click()
    ExHimokuSet CommandButton2.Caption
End Sub

Private Sub CommandButton20_Click()
    ExHimokuSet CommandButton20.Caption
End Sub

Private Sub CommandButton21_Click()
    ExHimokuSet CommandButton21.Caption
End Sub

Private Sub CommandButton3_Click()
    ExHimokuSet CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
    ExHimokuSet CommandButton4.Caption
End Sub

Private Sub CommandButton5_Click()
    ExHimokuSet CommandButton5.Caption
End Sub

Private Sub CommandButton6_Click()
    ExHimokuSet CommandButton6.Caption
End Sub

Private Sub CommandButton7_Click()
    ExHimokuSet CommandButton7.Caption
End Sub

Private Sub CommandButton8_Click()
    ExHimokuSet CommandButton8.Caption
End Sub

Private Sub CommandButton9_Click()
    ExHimokuSet CommandButton9.Caption
End Sub

スポンサーリンク






メニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved