以前、excellで在庫管理する方法を質問させていただきましたが、追加の質問（２点）をさせていただきます。
内容は下記のとおりです。
セット加工品の資材の残数と、セット加工品の残数、セット加工品の納品数が日別、月別にわかる表が知りたいと質問させていただきました。その際、回答いただいた内容は、
A B C D E F
日付 資材納品数 加工数 出荷数 資材残数 加工品残数
とシートを構成したとします。
上記シートで
E列に =SUM(B$2:B2)-SUM(C$2:C2)
F列に =SUM(C$2:C2)-SUM(D$2:D2)
と入れて、下までコピーしておきます。
日々の在庫数がでます。
月末とかの状況が知りたければ
別シートに
A B C
在庫を知りたい日付 資材在庫数 加工品在庫数
と準備して、日付を入れると Vlookup関数でその日の在庫を表示させることが出来ます。
ここまでは理解できたのですが、
月別の在庫数をみたい時、例えば5/31の日付を入れると、５月の在庫数はわかります。
しかし、６月の在庫数をみたい時は、またVlookup関数で範囲を指定しなければなりません。
月別で在庫数をあらわす方法はないでしょうか。
また、日別、月別の売り上げをあらわす方法はないでしょうか。
例えば、上記の出荷数の単価が100円だった場合で、ご教授いただけると助かります。
よろしくお願いします。
いろいろ指導していただき 解決したと思ったらまた振り出しに戻ってしまいました。
N3が終了と表示されたら A列に 5／3が表示できるようにしたい(＋１日後)
B列が毎週なら、A列は(＋７日後)を表示したい
現在 下記のような計算式が入っているのですが、動作しません。
その理由として、
N列には=IF(I1>0,"終了","未着手")
B列は プルダウンで =$B$8:$B$9から選ぶようにしています
つまり、I列によって 自動的に、終了か、着手が決まっています。
B列は私が手動でプルダウンで２つのいずれかを選んでいます。
このような計算式が入っていると下記のやり方では無理らしいのですが
結局 マクロを使う以外日付を増やすのは無理なのでしょうか？
そしてマクロを使うには、数式が入っていると作動しないのでしょうか？
－－－－－－－－－－－－－
エクセルのシート名タブを右クリックしてコードの表示－現れたシートに下記をコピー貼り付けています
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h As Range
On Error Resume Next
For Each h In Application.Intersect(Target, Range("N:N"))
If h = "終了" Then
If h.Offset(0, -12) = "毎日" Then
h.Offset(0, -13) = h.Offset(0, -13) + 1
ElseIf h.Offset(0, -12) = "毎週" Then
h.Offset(0, -13) = h.Offset(0, -13) + 7
End If
End If
Next
End Sub
先ほど、
http://okwave.jp/qa/q7454676.html
の質問して サンプルにはきちんと作動することを確認しました。
そこで、サンプル版ではないものに手を加えても動作がうまくいきません
private sub Worksheet_Change(byval Target as excel.range)
dim h as range
on error resume next
for each h in application.intersect(target, range("C:C"))
if h = "完了" then
if h.offset(0, -1) = "毎日" then
h.offset(0, -2) = h.offset(0, -2) + 1
elseif h.offset(0, -1) = "毎週" then
h.offset(0, -2) = h.offset(0, -2) + 7
end if
end if
next
end sub
－－－－－－－－－－－－－
for each h in application.intersect(target, range("N:N"))
と変更したのですが、動作しません。
どこを修正すれば、動作するでしょうか？
エクセル２００３についてお尋ねします。
Ａ1には行番号にあたる変数が表示されるようになっています。
その変数によって選択するセルの範囲が変わるようにすることが目的でした。
「Ａ１の行番号の５～10列目を選択する」というマクロを
下記のような記述を行いましたが、※のところでエラーが出てしまい、問題がわからずにおります。
お手数ですが解決策をご教授ください。
Sub マクロ1()
Dim j As Integer
j = Range("A1")
Worksheets("Sheet1").Activate
Range(Cells(j, 5), Cells(j, 10)).Select ←※
End Sub
よろしくお願いいたします。
