Excel VBA質問箱 IV

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

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


31655 / 76738 ←次へ | 前へ→

【50330】Re:数字をまとめる
発言  ハチ  - 07/7/19(木) 19:58 -

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

自分も興味があったので、
Sub Sampleのデータで検証してみたのですが、
いくつか空白の箇所が出てしまいました。

>Case Is <= 2
Case Is >= 2
とすると全てのデータで表示するようになりました^^

Sub Sample()
  Dim r As Long, i As Integer, j As Integer
  Dim v As Variant
  With ActiveSheet
    .Cells.ClearContents
    r = 1
    For Each v In Array("A", "B", "C", "D")
      For i = 1 To 300
        Randomize
        j = CLng(Rnd)
        If j = 1 Then
          .Cells(r, 1).Value = i + 1000
          .Cells(r, 2).Value = v
          r = r + 1
        End If
      Next
    Next
  End With
End Sub
3 hits

【50306】数字をまとめる とも 07/7/19(木) 10:36 質問
【50309】Re:数字をまとめる ハチ 07/7/19(木) 11:42 発言
【50312】Re:数字をまとめる ハチ 07/7/19(木) 12:27 発言
【50314】Re:数字をまとめる とも 07/7/19(木) 13:01 お礼
【50321】Re:数字をまとめる ハチ 07/7/19(木) 15:08 発言
【50326】Re:数字をまとめる ちくたく 07/7/19(木) 17:41 回答
【50330】Re:数字をまとめる ハチ 07/7/19(木) 19:58 発言
【50346】Re:数字をまとめる ちくたく 07/7/20(金) 13:38 お礼
【50347】Re:数字をまとめる ちくたく 07/7/20(金) 13:43 発言
【50356】Re:数字をまとめる ハチ 07/7/20(金) 18:33 回答

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