>一人の行を色づけしてから全列を降順で並べ替えていますので、 =IFERROR(INDEX(J:J,SMALL(F:F,ROW(A1))),"") 申し訳ありませんが、教えていただけますでしょうか? 結果が「業務報酬」と「預り金」のどちらかになります。 月の行から粗利の行まで8行で作成されている表が何行もあります。 言葉足らずな点は補足します。よろしくお願いいたします。, No.1です。 No2で、E列が変わっても、対応できるようにしました。(E→Hの場合にも対応) 123456789123.7 でオートフィルターで「TRUE」を抽出します, 皆様のお知恵を頂いたおかげで、1日分の書式が完成しました。     '4行目を選択 https://oshiete.goo.ne.jp/qa/9798861.html もし、$AP$7="×" ×で(請求書が弊社宛ではなくて) [Ctrl]+[H]置換 合計のSUMIF関数の参照先が自動的に変わるようにしたいです。 セル固定を使ってますので、当然コピーしたら式を修正しないといけません。     Rows("4:4").Select Sheet2!A2セルを変更すると抽出されます 今回はセルの操作に関する設定のうち、コピー・切り取り・値の書き換えに関する内容を紹介します。, 《セルの値を取得する》 【Valueプロパティ使用】  変数 = Cells(行番号,列番号).Value 【Valueプロパティ不使用】  変数 = Cells(行番号,列番号), 上記の違いは、セルの指定の後に”.Value”があるか無いかです。Valueプロパティは省略しても問題ないです。なおこのブログでは、Valueプロパティを省略してコードを書いています。, 上記の表から、リンゴの金額を任意の変数(kingaku)へ取得するには、次の手順となります。, 1.変数kingakuのデータ型を決定する。2.変数kingakuへ値を格納する。3.画面へkingakuを表示させる。, 変数”kingaku”は、果物の金額が整数なので整数型を選びます。ただし、浮動小数点数型やVariant型でも格納は数値として格納することは可能です。また、金額を文字列として取得したい場合は文字列型を使用します。, Sub sample()  Dim kingaku As Integer  kingaku = Cells(5,3)  MsgBox(kingaku) End Sub, 処理の内容としては、1行目では、変数”kingaku”を整数型として宣言2行目では、変数”kingaku”へリンゴの金額(セル(5行目,3列目)の値)を格納3行目は、変数”kingaku”へ格納した値を表示させるとなっています。, 【数値の場合】  Cells(行番号,列番号)= 数値 (そのまま数値を記入)【文字列の場合】  Cells(行番号,列番号)= ”文字列” (文字列を””( ダブルクォーテーション )で囲む), 【「表.1 くだものの種類と金額」において、12行目に「ぶどう」の名前と金額「300」を追加する】, この場合の作業としては、1.セル(12行目,2列目)に文字列”ぶどう”を記入2.セル(12行目,3列目)に数値”300”を記入となります。, Cells(12,2)=”ぶどう” ‘①セル(12,2)へ”ぶどう”を記入 Cells(12,3)=300   ‘②セル(12,3)へ”300″を記入, 《セルのコピー・切り取り》 【コピー】  コピー元.Copy Destination:=コピー先 【切り取り】  切り取り元.Cut Destination :=貼り付け先, セルのコピーと切り取りの違いは、”Copy”か”Cut”の部分だけで他は同じです。, 《セル範囲の指定》 【単独のセル】  Cells(行番号,列番号) 【任意の範囲】  Range(範囲の左上のセル , 範囲の右下のセル) 【行/列】  行の場合:Rows(行番号)  列の場合:Columns(列番号), コピー時にDestinationを省略することも可能です。その場合は、クリップボードに保持された状態となるので貼り付けを行う場合は貼り付けの指示が必要です。貼り付けの指示は次の二つです。, 《Destination省略時の貼り付け》 【通常の貼り付け】  張り付けるワークシート.Paste 張り付け先のセル 【指定した内容を張り付ける】  張り付け先.PasteSpecial Paste:=貼り付け方法、Operation:=処理方法、Transpose:= True or False, 通常の貼り付け方法について説明します。「張り付けるワークシート」は今使っているシートか、別のシートにするかで書き方が変わります。, 1.今のシートに張り付ける: ActiveSheet2.別のシートに張り付ける: Worksheets(“シート名”), なお、現在のシートに張り付ける場合でも2のようにシート名を指定して張り付けることも可能です。, 貼り付け方法は、張り付けたい内容に応じて指定します。内容と値は以下の表のとおりです。, 最後に、Transposeは、TrueかFalseで指定します。Trueの場合は、行列が入れ替わります。なお、Paste:、Operatopm、Transposeは省略可能で、省略は表の規定値が適用されます。, 【挿入】 任意の範囲.Insert Shit:=ずらす方向【削除】  任意の範囲.Delete Shit:=ずらす方向, 方向は「xlShiftUp」もしくは「xlShiftToLeft」が指定できます。【 xlShiftUp 】 削除したセルの範囲の下を上に詰める【 xlShiftToLeft 】削除したセルの範囲の右を左に詰める, 【行の挿入】 Rows(行番号).Insert【行の削除】 Rows(行番号).Delete 【列の挿入】 Columns(行番号).Insert 【列の削除】 Columns(行番号).Delete, 次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。. 1. (式1)と(式2)を合体させると、条件①~⑧全てを処理できる式になります。 B,C列に何かしらの値が入った場合、E列には2を、 123456789123.0 テキストエディタで、正規表現を使用して 1行目では、変数”kingaku”を整数型として宣言 2行目では、変数”kingaku”へリンゴの金額(セル(5行目,3列目)の値)を格納 3行目は、変数”kingaku”へ格納した値を表示させる となっています。 サンプルコードと説明. >配列数式を使わずに出来ますか? 私が回答投稿して良い空気なのかわからないけど… 7. シート1に随時入力(担当者、品名、価格)しながらデータベースとして保存しつつ、 K3,L3,M3セルも上記の繰り返し 報告書を作成する際、入力内容から、A(業務報酬) [データ]-[区切り位置]-[文字列]で文字列に変換すると G15に修正した式をいれて、下に数式コピーしたいです。 yokomayaさんの回答をヒントに 下記貼り付け もしも上記条件でよければ、以下の式で対応できます。 表示したいセルに yokomayaさんの回答をヒントに ④=③÷② 小数点3位未満切り捨て 添付した表を前提条件としての別解を。 https://oshiete.goo.ne.jp/qa/9798521.html G3セルに 12345678 これで式を考えてみます。 End Sub, 肝心な数式を提示してくれっていうの忘れてました。(^^; ③=①-② もし請求書が弊社宛では無ければ、預り金、そうでなければ業務報酬 B列、C列、D列に値が入った入らないにより、E列に表示される数字を変動させたいです。 =IF(AY<>"","業務報酬","預り金")   …【式2】 ご教示頂けましたら幸いです。, テキストデータだったら、 添付したような売上管理表があります。     '[Ctrl]+[Shift]+[↓] マクロ実行後. (1から順に行が下に下がるにつれ増える数 - ある定数)を12で割ったあまり+1 B列に何かしらの値が入った場合、E列には3を、 =MOD(MATCH(F3,F$3:F$14,0)-MATCH($B$3,F$3:F$14,0),12)+1     '行の削除 それをコピーしてエクセル貼ってはいかがでしょうか。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 B =$V$18(預り金) 123456789123.7