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

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

■13391 / 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
    

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←値の自動挿入 /miwa Mail →Re[2]: 値の自動挿入 /miwa Mail
 
上記関連ツリー

Nomal 値の自動挿入 / miwa Mail (19/06/26(Wed) 15:03) #13390
Nomal 値の自動挿入 / よねさん (19/06/27(Thu) 11:47) #13391 ←Now
  └Nomal Re[2]: 値の自動挿入 / miwa Mail (19/06/27(Thu) 12:35) #13392

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

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

- Child Tree -