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

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

ツリー一括表示

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


親記事 / ▼[ 13391 ]
■13390 / 親階層)  値の自動挿入
□投稿者/ miwa Mail -(2019/06/26(Wed) 15:03:34)
    よねさん、
    教えてください。
    出勤簿があります
    A列に出勤と入力すると、B列に9:00と自動で時間が入力されるようにしたいのです。
    宜しくお願いいたします。
[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13390 ] / ▼[ 13392 ]
■13391 / 1階層)  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
    

[ 親 13390 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13391 ] / 返信無し
■13392 / 2階層)  Re[2]: 値の自動挿入
□投稿者/ miwa Mail -(2019/06/27(Thu) 12:35:48)
    よねさん

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


Pass/

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

- Child Tree -