Excel VBA質問箱 IV

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

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


41046 / 76732 ←次へ | 前へ→

【40771】Re:検索にかけ転記したいのですが。
回答  ナイスプログラム WEB  - 06/7/23(日) 19:49 -

引用なし
パスワード
    今晩は。

 ループで値を比較するとは、たとえば”4月”がvariant型2次元配列vv1(2,1)に入れてあって,"11"がinteger型 ixに入れてあれば、それを予算ブックのrange("b2:l2")とrange("a2:a6")の全ての値と比較する、ということです。たとえば製造番号11の4月のトータルが2次元配列vv11(2,2)に入れてあるとして、

Dim rr as range,r as range
dim ix as integer,ir as integer,ic as integer

set rr=range("b2:l2")
for each r in rr
  if r.value=vv1(2,1) then ir=r.column
next

set rr=range("a2:a6")
for each r in rr
  if r.value=s then ir=r.row
next

cells(ir,ic).value=vv11(2,2)
    
こんな感じです。

シートに書かれた値は、そのままvariant型2次元配列に簡単に代入出来ます。
たとえば

vv11 = Workbooks("詳細表11").Worksheets("詳細").usedRange.value
と書けば、表がそのまま配列になるので、

for i=3 to ubound(vv11,1)
  vv11(2,2)=vv11(2,2)+vv11(i,2)
next

とすれば、vv11(2,2)に、4月のトータルが代入されます。これの2重ループで
各月のトータルを出す訳です。

言葉で説明するのは結構難しいので、後でコードで書いて見ます。

0 hits

【40743】検索にかけ転記したいのですが。 toy 06/7/22(土) 1:11 質問
【40756】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 2:20 回答
【40769】Re:検索にかけ転記したいのですが。 toy 06/7/23(日) 16:44 発言
【40771】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 19:49 回答
【40773】Re:検索にかけ転記したいのですが。 ナイスプログラム 06/7/23(日) 21:27 回答
【40824】Re:検索にかけ転記したいのですが。 toy 06/7/24(月) 19:56 お礼
【40757】Re:検索にかけ転記したいのですが。 kobasan 06/7/23(日) 9:13 発言

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