よねさんのWordとExcelの小部屋　なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■13390 / inTopicNo.1) 　値の自動挿入
  ▼■
□投稿者/ miwa Mail -(2019/06/26(Wed) 15:03:34)
    よねさん、
    教えてください。
    出勤簿があります
    A列に出勤と入力すると、B列に9:00と自動で時間が入力されるようにしたいのです。
    宜しくお願いいたします。
引用返信/返信 削除キー/
■13391 / inTopicNo.2) 　Re[1]: 値の自動挿入
□投稿者/ よねさん -(2019/06/27(Thu) 11:47:06) 
    ふつうは　=IF(A1="出勤",TIME(9,0),"")　とすると思います。

VBAで処理するなら、↓のような方法があります。
Excel(エクセル) VBA入門：ワークシートのイベント
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        If Target.Value = "出勤" Then
          Target.Offset(0, 1).Value = TimeSerial(9, 0, 0)
        End If
    
    Application.EnableEvents = True
End Sub

引用返信/返信 削除キー/
■13392 / inTopicNo.3) 　Re[2]: 値の自動挿入
□投稿者/ miwa Mail -(2019/06/27(Thu) 12:35:48)
    よねさん

    ありがとうございました。
    無事に先に進むことができます。
    本当にありがとうございました。
引用返信/返信 削除キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ
Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -