[Excel] 製品名はメニューシートのC3に入力した製

[Excel] 製品名はメニューシートのC3に入力した製。全体的に説明が不十分な気がしますそれに説明文とプログラムがあってない箇所が多く修正不可です。VBAで入出庫管理表を作ろうとしています
今は
C2に日付、C3に製品名、C4に数量を入力するようにしています
製造ボタンと出荷ボタンを作っています クリックすると入出庫履歴シートに履歴が残るようにしています

やりたい事は
製造または出荷ボタンをクリックすると、
添付したテストシートまたはテスト2シートの日別管理のエクセルに
製造または出荷の数量を反映したいです
製品名はメニューシートのC3に入力した製品名、日付はC2の日付のセルに反映したいです

入出庫履歴のコードまでしか作成できませんでした
教えていただけると幸いです
よろしくお願い致します

Private Sub 出荷_Click()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim a, b, c, myRow1, myRow2, r As Range
Set ws1 = ActiveSheet
Set ws2 = Worksheets("入出庫履歴")
If ws1 Range("C4") Value < ws1 Range("C3") Value Then
MsgBox "在庫数が不足しています ", vbExclamation
Exit Sub
End If
a = ws1 Range("C2") Value
b = ws1 Range("C3") Value
myRow1 = ws1 Cells(Rows Count, "B") End(xlUp) Row 10
myRow2 = ws2 Cells(Rows Count, "B") End(xlUp) Row + 1
If MsgBox(a & "を" & b & "個出荷しますか ", vbYesNo + vbQuestion) = vbYes Then
Set r = ws1 Range("B11") Resize(myRow1, 1) Find(What:=ws1 Range("C2") Value, lookat:=xlWhole)
If Not r Is Nothing Then
ws2 Cells(myRow2, "C") Value = ws1 Range("C4") Value
c = ws1 Cells(r Row, "C") Value
r Offset(0, 1) Value = c b
ws2 Cells(myRow2, "A") Value = Now
ws2 Cells(myRow2, "B") Value = a
ws2 Cells(myRow2, "E") Value = b
ws2 Cells(myRow2, "F") Value = ws1 Range("C4") Value
Range("C2,C3") ClearContents
End If
End If
End Sub

Private Sub 製造_Click()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim a, b, c, myRow1, myRow2, r As Range
Set ws1 = ActiveSheet
Set ws2 = Worksheets("入出庫履歴")
a = ws1 Range("C2") Value
b = ws1 Range("C3") Value
myRow1 = ws1 Cells(Rows Count, "B") End(xlUp) Row 10
myRow2 = ws2 Cells(Rows Count, "B") End(xlUp) Row + 1
If MsgBox(a & "を" & b & "個製造しますか ", vbYesNo + vbQuestion) = vbYes Then
Set r = ws1 Range("B11") Resize(myRow1, 1) Find(What:=ws1 Range("C2") Value, lookat:=xlWhole)
If Not r Is Nothing Then
ws2 Cells(myRow2, "C") Value = ws1 Range("C4") Value
c = ws1 Cells(r Row, "C") Value
r Offset(0, 1) Value = c + b
ws2 Cells(myRow2, "A") Value = Now
ws2 Cells(myRow2, "B") Value = a
ws2 Cells(myRow2, "D") Value = b
ws2 Cells(myRow2, "F") Value = ws1 Range("C4") Value
Range("C2,C3") ClearContents
End If
End If
End SubExcelのINDIRECT関数の使い方。の関数でもよく使われる関数は。セルの参照を文字列で指定する
関数です。セルだけ関数を使用すると数式を変更しないで参照
したいセルを変更することができます。りんご」「バナナ」「みかん」シート
にはそれぞれセルに価格が入力されています。他の行にも数式を反映させ
ます。セルに関数と関数を組み合わせて検索した結果が
表示されました。上図は日付ごとに商品と価格が入力されています。

Excelエクセルでよく起きるエラーの原因と解決方法まとめ。たとえば下の関数では。範囲の指定が正しくありません。目的の値の
参照先を指定する場合。実際のスプレッドシート名を入力する必要があります。
#–[Excel]。今回は。関数を使って。エクセルのファイルブック内にある別
のシートのセルを参照する複数のシートに表を分けている場合に効果を発揮
する関数なので。基本的な使い方を覚えておくと便利です。に「商品」~「
商品」シートのセルに入力した文字列を参照しようとしており。~セルに
シート名と全体」シートのセルここではを選択したら。数式バーに「=
」と入力し。セルをクリックして数式に反映させ回答計算式?関数。に入力した日付のような文字列 // を日付文字列とするには
。 セルに。 =,関数で二つの日付を比較し。今日の日付
よりも小さくなれば。今日の日付との差を計算し。何日前ですと表示します
→と。下2桁だけを別のセルに取り 出したいまず。それぞれの顧客
のファイル名はユニークな一意の名前である必要があります。セルには。
セルの「年」。セルの「月」。セルの「日」から日付シリアル値を返す
数式

請求書の作成:Excel実用編。エクセルで請求書を作成する例です。エクセルのワーク請求書シートの
セルに請求書[]を入力するだけで。請求書が作成されます。商品一覧表に
後からデータが追加されることを考えた場合。範囲の名前を毎回付け替えるのは
面倒です。 そこで。2セルに[請求書]と入力し。を選択して。[セルを
結合して中央揃え]ボタンをクリックします。メニューバーの[書式]→[セル]を
選択し。[表示形式]タブの分類[日付]で 種類を[平成]を選択しています

全体的に説明が不十分な気がしますそれに説明文とプログラムがあってない箇所が多く修正不可です。添付したテストシートまたはテスト2シートの日別管理どっちのシートに記載するか判断する条件が書かれていない。しかも、テスト2シートじゃないの?ActiveSheet→メニューシートを指しているの?C2に日付、C3に製品名、C4に数量を入力するa = ws1.RangeC2.Valueb = ws1.RangeC3.ValueIf MsgBoxaをb個製造しますか?, vbYesNo + vbQuestion ここだけ見るとC2に製品名C3に数量を入れる想定に読める。If ws1.RangeC4.Valuews1.RangeC3.Value ThenMsgBox 在庫数が不足しています!, vbExclamationここを見ると、C4に在庫数が入るように見えるそこらへんの説明が全くないので意味が分らない。他にもいろいろ突っ込みどころが多く、質問分を見直し、間違っている所は直してください。入出庫履歴シート、メニューシート、テスト2シートのレイアウトを提示してください。

  • SLV3000 ソールサイズ小さすぎるわけでなく十分対応
  • 乃木坂46 乃木坂46の真夏の全国ツアーの京セラドーム公
  • 心のひかり2 親金かけた分子供大成親戚一同見返せるみたい
  • 振り回されがちな 自分できてない事他人要求するのダメだ思
  • みそカツパン エビカツパンorカツパン

  • yzzljhz

    No description.Please update your profile.

    LEAVE A REPLY