Excel VBA質問箱 IV

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

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


5795 / 76732 ←次へ | 前へ→

【76544】2次元配列の範囲指定について
質問  みかん  - 14/12/30(火) 12:16 -

引用なし
パスワード
   はじめまして。よろしくお願いします。

既存コードのスピードアップのため、配列のコーディングに取組みだしました。
セルからセルへの値の転記のイメージで、配列からセルへの値の転記を
実施しようとしています。

予め、セルの範囲わかっている場合の、配列から一気にセルに転記する例は、
Webでいろいろ検索出来たのですが、配列ないの範囲指定してセルに一気に
転記する例は見つける事が出来ませんでした。

以下のKizonコードを作り直ししていますが、配列の範囲指定が出来るのか、
方法もわからず悩んでいます。
※LOOPでトライしましたが、既存コードの方がスピードが速かったので、
 やはり、一気に転記する方法で実現したいと思っています。

ご指導のほど、お願いいたします。


【既存コード】------------------------------------------------------------
Sub kizon()

Dim Ij(1) as Integer:Dim Maxrows as Long

Maxrows = Ws.Cells(Rows.count, 46).End(xlUp).Row
Ij(1) = 54

Do Until Ij(1) >= 142
  Ws.Select
  Ws.Range(Cells(4, Ij(1) + 1), Cells(Maxrows, Ij(1) + 1)).Select
    Selection.Copy

  Ws.Range(Cells(4, Ij(1)), Cells(Maxrows, Ij(1))).Select
  Selection.PasteSpecial Paste:=xlPasteFormulas,
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Ws.Range(Cells(4, Ij(1) + 1), Cells(Maxrows, Ij(1) + 1)) = 0
 
  Ij(1) = Ij(1) + 4
Loop

End sub


【リメイク中のコード】----------------------------------------------------
Private Function Sheet2Array(BookName As String, SheetName As String) As Variant

 Dim RowNum1 As Double
 Dim ColNum1 As Double

 With Workbooks(BookName).Sheets(SheetName)
   RowNum1 = .UsedRange.Rows.count
   ColNum1 = .UsedRange.Columns.count
   Sheet2Array = .Range(.Cells(1, 1), .Cells(RowNum1, ColNum1))
 End With

End Function
---------------------------------------------------------------------------

Sub ReMake()

Dim Ij(1) as Integer:Dim Maxrows as Long
Dim DataBase() As Variant

Maxrows = Ws.Cells(Rows.count, 46).End(xlUp).Row
Ij(1) = 54

Do Until Ij(1) >= 142
  Ws.Select
  Ws.Range(Cells(4, Ij(1)), Cells(Maxrows, Ij(1))) = 'DataBase・・・ここが不明
  Ws.Range(Cells(4, Ij(1) + 1), Cells(Maxrows, Ij(1) + 1)) = 0
 
  Ij(1) = Ij(1) + 4
Loop

End sub

1 hits

【76544】2次元配列の範囲指定について みかん 14/12/30(火) 12:16 質問[未読]
【76545】Re:2次元配列の範囲指定について β 14/12/30(火) 13:24 発言[未読]
【76546】Re:2次元配列の範囲指定について β 14/12/30(火) 15:46 発言[未読]
【76547】Re:2次元配列の範囲指定について β 14/12/30(火) 20:48 発言[未読]
【76548】Re:2次元配列の範囲指定について みかん 14/12/31(水) 14:46 お礼[未読]
【76549】Re:2次元配列の範囲指定について β 14/12/31(水) 21:39 発言[未読]

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