Excel VBA質問箱 IV

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

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


29790 / 76732 ←次へ | 前へ→

【52216】Re:らせん状(うず状)に数字を並べていく
発言  Jaka  - 07/10/31(水) 16:03 -

引用なし
パスワード
   こんにちは。
なんか面白そうだったので。
正方形セル範囲(縦横同じセル数で、奇数個)にしか対応してません。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub bbbb()
With Range("D3:L11")
  .ClearContents
  CCt = .Columns.Count
  RCt = .Rows.Count
  真中 = Int(CCt / 2 + 0.5)

  For i = 0 To Int(CCt / 2) Step 1
    RW = i * -1
    'Set Rag2 = .Cells(真中, 真中).Offset(RW, RW).Resize(RW * -2 + 1, RW * -2 + 1)
    
    With .Cells(真中, 真中).Offset(RW, RW).Resize(RW * -2 + 1, RW * -2 + 1)
      '.Select
      If Ct = 0 Then
        Ct = Ct + 1
        .Value = Ct
        Sleep 200 '約0.2秒待機
      Else
        With .Rows(1).Cells.Resize(, .Rows(1).Cells.Count - 1).Offset(, 1)
           '.Select
           For ii = 1 To .Cells.Count Step 1
            Ct = Ct + 1
            .Cells(ii) = Ct
            Sleep 200 '約0.2秒待機
           Next
        End With
        With .Columns(.Columns.Count).Cells.Resize(.Columns(.Columns.Count).Cells.Count - 1).Offset(1)
           '.Select
           For ii = 1 To .Cells.Count Step 1
            Ct = Ct + 1
            .Cells(ii) = Ct
            Sleep 200 '約0.2秒待機
           Next
        End With
        With .Rows(.Rows.Count).Cells.Resize(, .Rows(.Rows.Count).Cells.Count - 1)
           '.Select
           For ii = .Cells.Count To 1 Step -1
            Ct = Ct + 1
            .Cells(ii) = Ct
            Sleep 200 '約0.2秒待機
           Next
        End With
        With .Columns(1).Cells.Resize(.Columns(1).Cells.Count - 1)
           '.Select
           For ii = .Cells.Count To 1 Step -1
             Ct = Ct + 1
             .Cells(ii) = Ct
             Sleep 200 '約0.2秒待機
           Next
        End With
       End If
     End With
  Next
End With
End Sub

0 hits

【52188】らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 12:59 質問
【52189】Re:らせん状(うず状)に数字を並べていく ハチ 07/10/29(月) 13:10 発言
【52190】Re:らせん状(うず状)に数字を並べていく とおりすがり 07/10/29(月) 13:10 発言
【52191】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 13:58 質問
【52192】Re:らせん状(うず状)に数字を並べていく ichinose 07/10/29(月) 14:24 発言
【52196】Re:らせん状(うず状)に数字を並べていく 駿 07/10/29(月) 15:04 お礼
【52193】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 14:46 発言
【52194】Re:らせん状(うず状)に数字を並べていく じゅんじゅん 07/10/29(月) 14:49 発言
【52197】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 15:21 質問
【52198】Re:らせん状(うず状)に数字を並べていく ichinose 07/10/29(月) 19:39 発言
【52199】Re:らせん状(うず状)に数字を並べていく やまだ 07/10/29(月) 19:46 お礼
【52216】Re:らせん状(うず状)に数字を並べていく Jaka 07/10/31(水) 16:03 発言
【52223】Re:らせん状(うず状)に数字を並べていく 小僧 07/11/1(木) 10:50 回答
【52224】数学なんて嫌いだ。 Jaka 07/11/1(木) 11:29 発言
【52329】Re:らせん状(うず状)に数字を並べていく kon 07/11/9(金) 2:11 質問
【52332】Re:らせん状(うず状)に数字を並べていく ichinose 07/11/9(金) 7:46 発言
【52349】Re:らせん状(うず状)に数字を並べていく ichinose 07/11/10(土) 8:39 発言

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