Excel VBA質問箱 IV

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

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


47382 / 76732 ←次へ | 前へ→

【34307】Re:空欄に数字を補完するコードを単純に書き換えたい
発言  ichinose  - 06/1/31(火) 7:01 -

引用なし
パスワード
   おはようございます。

ワークシート関数を使ってみました。
新規ブックの未入力のアクティブシートで
適当にセル範囲を選択した状態でsampleを実行してみて下さい。


'========================================================
Sub sample()
  Dim rng As Range
  Set rng = Selection
  With rng
    .Formula = "=if(mod(int(rand()*" & .Count & ")+1,2),"""",int(rand()*" & .Count & ")+1)"
    .Value = .Value
    End With
  MsgBox "sample complete and start test"
  '****************** ↑ サンプル作成
  call test
End Sub
'=================================================================
Sub test()
  Dim idx As Long
  Dim colrng As Range
  Dim crng As Range
  Dim f_ans
  On Error Resume Next
  For Each colrng In Selection.Columns
    If colrng.Rows.Count > 1 Then
     With colrng.SpecialCells(xlCellTypeConstants, xlNumbers)
       idx = 1
       ReDim v(1 To .Count)
       ReDim r(1 To .Count)
       For Each crng In .Cells
        v(idx) = crng.Value
        r(idx) = crng.Row
        idx = idx + 1
        Next
       End With
     For Each crng In colrng.SpecialCells(xlCellTypeBlanks)
       f_ans = Application.Match(crng.Row, r(), 1)
       crng.Value = Round((v(f_ans + 1) - v(f_ans)) / (r(f_ans + 1) - r(f_ans)) * _
                  (crng.Row - r(f_ans)) + v(f_ans), 2)
       Next
     End If
    Next
  Set colrng = Nothing: crng = Nothing
  Erase v(), r()
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 お礼

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