Excel VBA質問箱 IV

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

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


47418 / 76736 ←次へ | 前へ→

【34275】Re:空欄に数字を補完するコードを単純に書き換えたい
発言  ちくたく WEB  - 06/1/30(月) 12:32 -

引用なし
パスワード
   自己レスです。
オブジェクト変数を使って、変数の数は減らしてみました。
でも、やっぱりややこしいです。。。

Sub 数値の補完2()
  
  Dim myC As Range, myR As Range
  Dim tmpN As Double, minR As Range, maxR As Range
  Dim j As Integer, k As Integer
  
  For Each myC In Selection.Columns      'やはり、列ごとに処理
    For Each myR In myC.Cells        'それをセル毎に分解。
      If myR.Value <> 0 Then       'オブジェクトを使って処理する。変数の数は減る。
        If minR Is Nothing Then
          Set minR = myR
        ElseIf Not minR Is Nothing Then
          Set maxR = myR
        End If
        
        If Not minR Is Nothing And Not maxR Is Nothing Then
          tmpN = Round((maxR.Value - minR.Value) / (maxR.Row - minR.Row), 2)
          k = 1
          For j = minR.Row + 1 To maxR.Row - 1
            minR.Offset(k, 0).Value = minR.Value + tmpN * k
            k = k + 1
          Next j
          Set minR = Nothing: Set minR = maxR
        End If
        
      End If
    Next myR
  Next myC
End Sub

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 お礼

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