Excel VBA質問箱 IV

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

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


17710 / 76732 ←次へ | 前へ→

【64471】Re:処理が重い
質問  tetu  - 10/2/11(木) 1:12 -

引用なし
パスワード
   返事遅れてすいません構文が難しく悩んでいて八方ふさがりになっていました。
とりあえず処理自体は希望どうりの動きと結果でした。
自分も勘違いしていた部分もあり理解した部分もあるのですが理解できない
部分は、いまだにインターネット又本等で調べているのですがわからず
あつかましのですがもう一度教えてください

vntKeys = Array(0, 1) 


カンマがついていたので2次元配列と勘違いしていました。
Array関数は1次元配列のバリアント型なのは納得しましたが、Arrayで列を格納する場合
Array(”A”、”B”、”C”、”D”)又は数字の場合Array(Array(0,1)・・・・
見たいな感じかとおもっていました?
上記文だと
Vntkeys(0)=0’VntKeys(0)に0を格納する
vntKeys(1)=1’VntKeys(1)に1を格納する
と自分は解釈していまあしたが、これで2列をキーとできるのがとても不思議です?
後Private Subの構文も処理がわからず

特に
lngNum = -Int(-(UBound(vntK) + 1) / 3) * 3 - 1 ’///この構文がわからない?
  
  ReDim Preserve vntK(lngNum), vntO(lngNum)
  For i = UBound(vntOrders) + 1 To lngNum ’動的配列宣言範囲VntOrdersに1                        ’を足した数字〜lngNumまで
    vntO(i) = xlAscending ’vnt0で繰り返し参照している部分を昇順にする
  Next i iに処理を移行
  
  With rngScope rngScopeに対して同じ処理を行う
    For i = lngNum To 0 Step -3 ’///なんでステップ3ずつ?
      .Sort _
        Key1:=.Cells(1, vntK(i - 2) + 1), _
        Key2:=IIf(IsEmpty(vntK(i - 1)), vntK(i - 1), .Cells(1, vntK(i - 1) + 1)), _
        Key3:=IIf(IsEmpty(vntK(i)), vntK(i), .Cells(1, vntK(i) + 1)), _
        Order1:=vntO(i - 2), _
        Order2:=vntO(i - 1), _
        Order3:=vntO(i), _
        Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, SortMethod:=xlStroke
後上記配列を使用しないコードを処理してみましたがこちらも処理結果はOKですが
ステップごとに動かして見ましたがE列に連番を振っている部分は確認できましたが
その後は処理が早すぎるため動きが確認できませんでした。
一応報告まで
0 hits

【64329】処理が重い tetu 10/1/30(土) 18:26 質問
【64330】Re:処理が重い かみちゃん 10/1/30(土) 18:32 発言
【64376】Re:処理が重い tetu 10/1/31(日) 23:18 お礼
【64331】Re:処理が重い Hirofumi 10/1/30(土) 20:07 発言
【64335】Re:処理が重い Hirofumi 10/1/31(日) 0:26 発言
【64337】Re:処理が重い tetu 10/1/31(日) 2:32 発言
【64341】Re:処理が重い Hirofumi 10/1/31(日) 9:13 回答
【64344】Re:処理が重い Hirofumi 10/1/31(日) 9:44 発言
【64377】Re:処理が重い tetu 10/1/31(日) 23:27 質問
【64379】Re:処理が重い Hirofumi 10/2/1(月) 8:03 回答
【64411】Re:処理が重い tetu 10/2/4(木) 1:56 質問
【64416】Re:処理が重い Hirofumi 10/2/4(木) 11:54 回答
【64471】Re:処理が重い tetu 10/2/11(木) 1:12 質問
【64473】Re:処理が重い Hirofumi 10/2/11(木) 9:49 回答
【64372】Re:処理が重い よろずや 10/1/31(日) 20:55 発言
【64378】Re:処理が重い tetu 10/1/31(日) 23:29 お礼
【64380】Re:処理が重い Jaka 10/2/1(月) 9:19 発言
【64412】Re:処理が重い tetu 10/2/4(木) 2:00 お礼
【64413】Re:処理が重い かみちゃん 10/2/4(木) 6:25 発言
【64470】Re:処理が重い tetu 10/2/11(木) 0:23 お礼

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