Excel 今日から営業日が何日あるか調べたいんですけども

A列にカレンダー  
B列に営業日(〆チェック)を入れたときに
C列に今日から営業日が何日あるかを
入れたいんですけども
どうしたらいいですか
お願いします

このQ&Aに関連する最新のQ&A

A 回答 (3件)

>今日から営業日が何日あるか


の意味が今ひとつわからないのですが、
「ファイルを開いた日から、それぞれが何営業日後になるのかをC列に表示する」として考えてみました。
A、C、E、F、G、H列は下方向へコピーしてください。(E列~J列は作業用セルです。)

A列
 4月1日  ← 2007/4/1 です。
B列
 営業日に「〆」を入力
C列
 =IF(A1=$J$1,"今日",IF(H1=2,SUM(E1-$J$3),""))

E列
 =COUNTIF(B$1:B1,"〆")
F列
 =IF(B1="〆",1,0)
G列
 =IF($J$1<=A1,1,0)
H列
 =SUM(F1:G1)

J1 =TODAY()
J3 =VLOOKUP(J1,A1:E31,5)
    • good
    • 0
この回答へのお礼

回答ありがとうございます
 出来ました

お礼日時:2007/04/09 21:35

"〆"の記号を簡単に入れる方法は知りませんが、C列で "〆" の数を数えれば日数が出ると思います。



○ まず A2 が今日の日付と仮定して、B列に営業日(〆チェック)として,  
○ C2 に次の式を入れて、下方向にコピーします。
  =COUNTIF(B$2:B2,"〆")

これで C列 に今日からの営業日数が出ると思います。やってみてください。
    • good
    • 0
この回答へのお礼

回答ありがとうございます
A列にカレンダー  を作ると
今日の日付も移動しますのでANo.3さまの意見を頂戴します
ありがとうございました

お礼日時:2007/04/09 21:28

「A列にカレンダー」とは、どういうもの(内容)ですか?それは計算に影響しますか?


いわゆる稼働日を計算するための =NETWORKDAYS()関数を使ってみたら如何かと。
    • good
    • 0
この回答へのお礼

=NETWORKDAYS()関数 1度勉強します
ありがとうございます

お礼日時:2007/04/09 21:43

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QセルA1とF1、A2とF2、A3とF3…を比較して、内容が同じであれば"〆指示済"、異なれば"未〆指示"をD列に表示するようなVBA

たとえばセルA1とF1、A2とF2、A3とF3…を比較して、内容が同じであれば"〆指示済"、異なれば"未〆指示"をD列に表示するようなVBAって出来ますか?

・「作業中フォルダ」に存在するファイルのリストをA列に、「〆指示フォルダ」に存在するファイルのリストをE列に表示
・両者をVLOOKUPで照合したリストをF列に表示
以上の作業をVBAで行ったデータがあるのですが、その先がつまづいてしまってます…

r = 202
i = 3
Cells(i, 6) = Application.VLookup(Cells(i, 1), Worksheets("作業中リスト").Range("E3:E" & r), 1, False)
For i = 3 To r
If Cells(i, 1) = "" Then
Cells(i, 4) = ""
ElseIf Cells(i, 1) = Cells(i, 6) Then
Cells(i, 4) = "〆指示済"
Else
Cells(i, 4) = "未〆指示"
End If
Next i

ElseIfのところで「実行時エラー'13':型が一致しません。」としかられてしまいます…
これって間違ってるのでしょうか??
初心者及び独学なので「参考書買え!」といわれればそれまでなのですが、どうかご教授願えませんでしょうか?

たとえばセルA1とF1、A2とF2、A3とF3…を比較して、内容が同じであれば"〆指示済"、異なれば"未〆指示"をD列に表示するようなVBAって出来ますか?

・「作業中フォルダ」に存在するファイルのリストをA列に、「〆指示フォルダ」に存在するファイルのリストをE列に表示
・両者をVLOOKUPで照合したリストをF列に表示
以上の作業をVBAで行ったデータがあるのですが、その先がつまづいてしまってます…

r = 202
i = 3
Cells(i, 6) = Application.VLookup(Cells(i, 1), Worksheets("作業中リスト").Range("E3:E"...続きを読む

Aベストアンサー

ElseIf Cells(i,1) = Cells(i, 6) Then の部分で 「実行時エラー'13':型が一致しません。」
と出るのはANo.1さんが指摘されて、既に確認されたとおり#N/Aエラーが発生しているためです。
For 文の前に Cells(i, 6)の内容を""や"エラー"などに置き換えてはどうでしょうか?
If IsError(Cells(i, 6)) Then
  Cells(i, 6) = ""
End If
など

> Cells(i, 6) = Application.IsError(Application.VLookup(Cells(i, 1), Worksheets("作業中リスト").Range("E3:E" & r), 1, False), "", Application.VLookup(Cells(i, 1), Worksheets("作業中リスト").Range("E3:E" & r), 1, False))
の部分がエラーになるのは、IsErrorワークシート関数の使い方が間違っているためです。
恐らくIFワークシート関数を入れるのを忘れていませんか?

ElseIf Cells(i,1) = Cells(i, 6) Then の部分で 「実行時エラー'13':型が一致しません。」
と出るのはANo.1さんが指摘されて、既に確認されたとおり#N/Aエラーが発生しているためです。
For 文の前に Cells(i, 6)の内容を""や"エラー"などに置き換えてはどうでしょうか?
If IsError(Cells(i, 6)) Then
  Cells(i, 6) = ""
End If
など

> Cells(i, 6) = Application.IsError(Application.VLookup(Cells(i, 1), Worksheets("作業中リスト").Range("E3:E" & r), 1, False), "", Application.VLookup(Ce...続きを読む

QExcelを分割 A列には日付、A列以外には営業担当者や商品や金額などが入力された列があります。 営

Excelを分割

A列には日付、A列以外には営業担当者や商品や金額などが入力された列があります。

営業担当者毎に、ファイルを分割するマクロをおしえてください。10人いれば、10ファイルできることになります。

営業担当者が入力されている列が資料により、異なるので、C列に営業担当者が入っている場合は、それをセルとかに入力して指定できる様にしたいです。

また、ファイルの出力先も指定できる様にしたいです。

よろしくお願いします。

Aベストアンサー

No.2 mike_gさんの質問ですが、回答者側から言わせてもらうと非常に重要なことです。
何故なら、質問者のレベルに合わせて回答しないと何の役にも立たないからです。
今回は、マクロの知識があると云うことなので、その前提で回答させていただきました。
こんな感じです。

Sub sample()
Set ws = ActiveSheet
ce = Range("営業担当者セル").Value
fp = Range("出力先").Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, ce).End(xlUp).Row
Set d.Item(Cells(i, ce).Value) = Cells(i, ce)
Next i
For Each i In d.keys
ws.Copy
Columns(ce).ColumnDifferences(d.Item(i)).EntireRow.Delete
ActiveWorkbook.SaveAs Filename:=fp & "\" & i & ".xlsx"
ActiveWorkbook.Close
Next i
End Sub

No.2 mike_gさんの質問ですが、回答者側から言わせてもらうと非常に重要なことです。
何故なら、質問者のレベルに合わせて回答しないと何の役にも立たないからです。
今回は、マクロの知識があると云うことなので、その前提で回答させていただきました。
こんな感じです。

Sub sample()
Set ws = ActiveSheet
ce = Range("営業担当者セル").Value
fp = Range("出力先").Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, ce).End(xlUp).Row
Set d...続きを読む

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Q【EXCEL】条件付き書式、A列、C列、D列、E列が同じ値の時にB列の背景色を変えたい

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青になると思うのですが実際の結果は画像の通りです。

先の話の通りA列、C列、D列、E列の値が同じ時だけ
B列のセルの背景を青にしたい場合はどうい数式になるのでしょうか?

すいませんが、詳しい方、数式(関数?)で説明できる方よろしくお願い致します。

追記
可能でしたらA列、C列、D列、E列が空白の時はB列の背景色をなしにしたいと思っております。
→A列、C列、D列、E列に値があって、かつ同じ値の場合のみB列の背景を青にしたいです。

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青にな...続きを読む

Aベストアンサー

AND関数を使えば判定ができるのでは?
 =AND(A2<>"",A2=C2,C2=D2,D2=E2)

A列には常に判定する数値が入っているなら「A2<>""」は不要です。

参考サイト
http://www.relief.jp/itnote/archives/003940.php

Q行のデータ(a列b列c列)をd列に表示したい

a1、b1、c1のセルに入力したデータをd1セルに表示したい。可能でしょうか。一例「a1セルに1と入力、b1セルに2と入力、c1セルに3と入力しd1セルに123と表示する」

Aベストアンサー

d1セルに =a1&b1&c1

エクセルですよね?


人気Q&Aランキング

おすすめ情報