Excel VBA質問箱 IV

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

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


47383 / 76732 ←次へ | 前へ→

【34306】Re:空欄に数字を補完するコードを単純に...
回答  小僧  - 06/1/31(火) 0:23 -

引用なし
パスワード
   ▼ちくたく さん:
こんばんは。

>それでも、やっぱりちょっと難しめのコードになっちゃいますね。

掲示板の過去ログを見て、ちくたく さんが綺麗なコードを書かれているので、
当方なりに精一杯恰好つけたつもりです(笑)

選択範囲内をループさせるのではなく、
別の方向から攻めてみました。

Option Explicit

Sub シート処理()
Dim i As Long
Dim j As Long
Dim MyRange As Range
Dim Sabun As Double

  With Selection
  
'列ごとに処理
  For i = 1 To .Columns.Count
  
'基点のセルから Shift + Ctrl + ↓ のセルをつかむ
    Set MyRange = Range(.Cells(i), .Cells(i).End(xlDown))
      
'つかんだセルと選択範囲の最終行を比較
    Do Until MyRange(MyRange.Count).Row > .Cells(.Count).Row

'つかんだセルの最初と最後の差分を個数で割る
      Sabun = (MyRange(MyRange.Count).Value - MyRange(1).Value) / _
          (MyRange.Count - 1)
            
'空白セルに値を代入
      For j = 2 To MyRange.Count - 1
        MyRange(j).Value = MyRange(1).Value + Sabun * (j - 1)
      Next
      
'つかんだセルの最後から Shift + Ctrl + ↓ のセルをつかむ
    Set MyRange = Range(MyRange(MyRange.Count), _
              MyRange(MyRange.Count).End(xlDown))
    Loop
  Next
  End With
  
  Set MyRange = Nothing
End Sub


目安箱にあった Jaka さんのスレッドを参考にさせて頂きました。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=78;id=FAQ
0 hits

【34272】空欄に数字を補完するコードを単純に書き換えたい ちくたく 06/1/30(月) 10:49 質問
【34275】Re:空欄に数字を補完するコードを単純に書... ちくたく 06/1/30(月) 12:32 発言
【34281】Re:空欄に数字を補完するコードを単純に... 小僧 06/1/30(月) 16:06 発言
【34285】Re:空欄に数字を補完するコードを単純に... ちくたく 06/1/30(月) 16:51 質問
【34287】Re:空欄に数字を補完するコードを単純に... 小僧 06/1/30(月) 18:19 回答
【34288】Re:空欄に数字を補完するコードを単純に... ちくたく 06/1/30(月) 18:39 お礼
【34306】Re:空欄に数字を補完するコードを単純に... 小僧 06/1/31(火) 0:23 回答
【34311】Re:空欄に数字を補完するコードを単純に... ちくたく 06/1/31(火) 9:10 お礼
【34307】Re:空欄に数字を補完するコードを単純に書... ichinose 06/1/31(火) 7:01 発言
【34312】Re:空欄に数字を補完するコードを単純に書... ちくたく 06/1/31(火) 9:14 お礼
【34476】Re:空欄に数字を補完するコードを単純に書... ちくたく 06/2/3(金) 13:12 発言
【34337】Re:空欄に数字を補完するコードを単純に書... [名前なし] 06/1/31(火) 21:48 発言
【34478】Re:空欄に数字を補完するコードを単純に書... ちくたく 06/2/3(金) 13:17 お礼

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