Excel VBA質問箱 IV

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

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


69572 / 76738 ←次へ | 前へ→

【11684】Re:列全体を選択したときの高速処理
お礼  カド E-MAIL  - 04/3/14(日) 16:33 -

引用なし
パスワード
   ▼Jカーター さん 本当に何度もありがとう御座います。

私にとっては非常に有効なコードだと思い、また今後実際に使いまわしたいと
思ったので何度もお尋ねしました。
本やネットを見てもこのようなコードを見つけることは出来ませんでした。

結局以下のように解釈し、この解釈に基づき今後は使ってみようと思います。

Sub aaa()

  Dim i As Long
  Dim aa As Variant
  Dim bb As Range
 
  '1,よけいな範囲は処理しない
  'シート全体で使われているセル かつ 選択されているセル
  Set bb = Intersect(Selection, ActiveSheet.UsedRange)
 
  '2,セルへのアクセスはできるだけ少なく
  'bb範囲のセルの値をaa配列に入れる
  aa = bb.Value
 
  For i = 1 To UBound(aa, 1) '配列の添時の使用できる最大値を返す
                '1は行の数、2だったら列の数
    aa(i, 1) = StrConv(aa(i, 1), vbNarrow)
  Next i
 
  bb.Value = aa
  Set bb = Nothing
End Sub

0 hits

【11521】列全体を選択したときの高速処理 カド 04/3/10(水) 21:37 質問
【11523】Re:列全体を選択したときの高速処理 Jカーター 04/3/10(水) 22:14 回答
【11524】Re:列全体を選択したときの高速処理 Jカーター 04/3/10(水) 22:17 発言
【11526】Re:列全体を選択したときの高速処理 カド 04/3/10(水) 23:07 質問
【11529】Re:列全体を選択したときの高速処理 Jカーター 04/3/10(水) 23:31 発言
【11532】Re:列全体を選択したときの高速処理 カド 04/3/10(水) 23:41 お礼
【11681】Re:列全体を選択したときの高速処理 カド 04/3/14(日) 12:22 質問
【11682】Re:列全体を選択したときの高速処理 Jカーター 04/3/14(日) 15:23 発言
【11684】Re:列全体を選択したときの高速処理 カド 04/3/14(日) 16:33 お礼
【11686】Re:列全体を選択したときの高速処理 カド 04/3/14(日) 19:09 発言

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