Excel VBA質問箱 IV

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

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


54661 / 76738 ←次へ | 前へ→

【26863】Re:VBA処理速度向上のアドバイス求む!
発言  Jaka  - 05/7/21(木) 17:34 -

引用なし
パスワード
   こんにちは。

>'前回値を保持するシートを参照する式をセット
これが全く解ってませんが..。
解ってないのでほとんど途中ですが、オートフィルタを使ったらどうですか。


  With Range("HNY_INPUT_FLAG")
     With Range(.Cells(1), .Cells(65535).End(xlUp))
       .AutoFilter Field:=1, Criteria1:="1"
       With .Resize(.Rows.Count - 1).Offset(1, 1).SpecialCells(xlCellTypeVisible)
         '.Formula = "=INDIRECT(""PHNYL"" & Row() - 5 & "" _"" & k)"
          上は試行錯誤中、INDIRECTとRow()関数でうまく行くと思うんですが、内容が良く解ってない。
         .Value = .Value
       End With
     End With
  End With
  ActiveSheet.AutoFilterMode = False
0 hits

【26858】VBA処理速度向上のアドバイス求む! yuki 05/7/21(木) 15:27 質問
【26859】Re:VBA処理速度向上のアドバイス求む! IROC 05/7/21(木) 15:51 回答
【26860】Re:VBA処理速度向上のアドバイス求む! yuki 05/7/21(木) 15:59 質問
【26861】Re:VBA処理速度向上のアドバイス求む! IROC 05/7/21(木) 16:51 回答
【26862】Re:VBA処理速度向上のアドバイス求む! yuki 05/7/21(木) 17:01 お礼
【26863】Re:VBA処理速度向上のアドバイス求む! Jaka 05/7/21(木) 17:34 発言
【26864】Re:VBA処理速度向上のアドバイス求む! yuki 05/7/21(木) 17:49 お礼
【27007】Re:VBA処理速度向上のアドバイス求む! yuki 05/7/26(火) 13:41 お礼

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