Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2765 / 13645 ツリー ←次へ | 前へ→

【66095】ソート結果をシートに保存したい。 たくみ 10/7/27(火) 23:15 質問[未読]
【66096】Re:ソート結果をシートに保存したい。 かみちゃん 10/7/27(火) 23:26 発言[未読]
【66097】Re:ソート結果をシートに保存したい。 たくみ 10/7/28(水) 9:55 発言[未読]

【66095】ソート結果をシートに保存したい。
質問  たくみ  - 10/7/27(火) 23:15 -

引用なし
パスワード
   下記の様な表をシステムデータを利用して作成するマクロを作りました。
さらに借方補助、貸方補助ごとにシートを分けて保存するマクロを作りたいと
思っています。
過去のものも見せてもらいましたが、マクロ初心者のため
応用出来ませんでした。
教えていただけると嬉しいです。


日付|借 方|借方補助|貸 方|貸方補助|金額
10/7|現 金|0    |売上高|1    |42,000
10/2|交通費|2    |現 金|0    | 3,000
10/4|消耗品|3    |現 金|0    | 1,000
       ・
       ・
   以降500件ほど
       ・
       ・
       ・
*借方補助、貸方補助共にIDのようなものです。
0は指定なし、1は京都、2は大阪、3は兵庫です。

最終的にしたいことはAとBです。
Bはエクセルでは(私の力量では)難しいのかなとも思いますが、
かかせて貰いました。
宜しくご指導ください。

A
借方補助もしくは貸方補助が1のレコードを集め新規シートに[1]と名前を付ける。
借方補助もしくは貸方補助が2のレコードを集め新規シートに[2]と名前を付ける。借方補助もしくは貸方補助が3のレコードを集め新規シートに[3]と名前を付ける。
借方補助、貸方補助ともに0のレコードを集め新規シートに[0]と名前を付ける。

B
新規シートのレコードは借方科目ごと、貸方科目ごとに金額が集計されている。

【66096】Re:ソート結果をシートに保存したい。
発言  かみちゃん E-MAIL  - 10/7/27(火) 23:26 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>日付|借 方|借方補助|貸 方|貸方補助|金額
>10/7|現 金|0    |売上高|1    |42,000
>10/2|交通費|2    |現 金|0    | 3,000
>10/4|消耗品|3    |現 金|0    | 1,000
>       ・
>       ・
>   以降500件ほど
>       ・
>       ・
>       ・
>*借方補助、貸方補助共にIDのようなものです。
>0は指定なし、1は京都、2は大阪、3は兵庫です。
>
>A
>借方補助もしくは貸方補助が1のレコードを集め新規シートに[1]と名前を付ける。
>借方補助もしくは貸方補助が2のレコードを集め新規シートに[2]と名前を付ける。借方補助もしくは貸方補助が3のレコードを集め新規シートに[3]と名前を付ける。
>借方補助、貸方補助ともに0のレコードを集め新規シートに[0]と名前を付ける。

手作業でしようと思えばできますか?
できるならば、「マクロの記録」で記録してみましょう。
大体のコードはそれで得られます。

>B
>新規シートのレコードは借方科目ごと、貸方科目ごとに金額が集計されている。

サンプルデータを少し作って、提示してみませんか?
金額集計のイメージがよくわかりません。

【66097】Re:ソート結果をシートに保存したい。
発言  たくみ  - 10/7/28(水) 9:55 -

引用なし
パスワード
   >こんにちは。かみちゃん です。
こんにちわ、ありがとうございます。

>手作業でしようと思えばできますか?
>できるならば、「マクロの記録」で記録してみましょう。
>大体のコードはそれで得られます。
なるほど、自動記録してからですね。
まずはやってみます。

>サンプルデータを少し作って、提示してみませんか?
>金額集計のイメージがよくわかりません。
こちらも提示できるよう、やってみます。

2765 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free