Excel VBAデータ登録のスピードアップしたい
下記のようなコードがあります。
■input データ閲覧・登録・編集シート
■data データを格納するシート
inputシートとdataシートでdataの受け渡しを行っているのですが、データレコードを切り替えるだけで20秒ちょっとかかるため、作業効率が悪いです。
この時間を１～２秒ぐらいまで減らすには、どのように修正すれば、いいでしょうか？どうかアドバイスをお願いいたします。
Private Sub datatouroku()
’データを登録する
Dim touroku As Integer
Dim fRange As Range
Set fRange = Sheets("data").Columns(1).Find(What:=Range("BC1").Value, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
touroku = fRange.Row '検索されたNoの行位置を求める
Sheets("data").Cells(touroku, 1).Value = Range("BC1:BE1").Value
Sheets("data").Cells(touroku, 2).Value = Range("AX1").Value
Sheets("data").Cells(touroku, 3).Value = Range("I4").Value
'・・・上記のデータが全部で256件あります。
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub hyouji()
'データを表示させる
Dim fRange As Range
Dim kensaku As Long
Set fRange = Sheets("data").Columns(1).Find(What:=Range("BC1").Value, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (fRange Is Nothing) Then '見つからなかった？
MsgBox "入力された顧客コードが存在しません。", vbExclamation
Exit Sub
End If
kensaku = fRange.Row '検索された顧客DCの行位置を求める
Range("BC1:BE1").Value = Sheets("data").Cells(kensaku, 1).Value
Range("AX1").Value = Sheets("data").Cells(kensaku, 2).Value
Range("I4").Value = Sheets("data").Cells(kensaku, 3).Value
'・・・上記のデータが全部で256件あります。
Set trg = Sheets("data").Cells(kensaku, 1)
End Sub
お礼
ご回答ありがとうございます。 早速その辺りを探ってみたいと思います。 ありがとうございました！