Excel VBA質問箱 IV

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

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


13302 / 76734 ←次へ | 前へ→

【68938】Re:グループ分け後、枠囲み
発言  kanabun  - 11/4/29(金) 20:19 -

引用なし
パスワード
   ▼ひろし さん:
マルチですか? あまり気分のいいもんじゃないですね

先ほどのコード、すこし修正(simple化)しました。
Sub Try2()
  Dim dic As Object
  Dim i As Long, k As Long, n As Long
  Dim v, vv, sp
  Dim ss As String
  
  Set dic = CreateObject("Scripting.Dictionary")
  With Cells(1).CurrentRegion
    v = .Value
    n = UBound(v)
    ReDim vv(1 To n, 0)
    ReDim sp(1 To n, 0)
    For i = 1 To n
      ss = v(i, 1)
      If Not dic.Exists(ss) Then
        k = k + 1
        vv(i, 0) = k
        sp(k, 0) = k
        dic(ss) = k
      Else
        vv(i, 0) = dic(ss)
      End If
    Next
  End With
  With Range("C1")  '作業列にグループ番号を書き込む
    .Resize(n).Value = vv
    .Offset(n).Resize(k).Value = sp
  End With
    
  With Cells(1).CurrentRegion
    .Sort Key1:=.Columns(3), Header:=xlNo
    .Columns(3).Clear
    .Resize(, 2).SpecialCells(xlConstants) _
        .BorderAround xlContinuous
  End With
  
End Sub


現在は、出現順に、グループ化しています。

> できるならば、並べる部活動のグループの並べる順番までもコントロールしたいのですが。
これは、現在、考慮していません。
部活動の名称ははじめから決まっていて、その並び順も決まっているということですか?
3 hits

【68934】グループ分け後、枠囲み ひろし 11/4/29(金) 13:02 質問
【68935】Re:グループ分け後、枠囲み kanabun 11/4/29(金) 15:10 発言
【68936】Re:グループ分け後、枠囲み oyoyo 11/4/29(金) 18:36 発言
【68937】Re:グループ分け後、枠囲み UO3 11/4/29(金) 18:46 回答
【68940】Re:グループ分け後、枠囲み kanabun 11/4/29(金) 20:54 発言
【68941】Re:グループ分け後、枠囲み UO3 11/4/29(金) 22:26 発言
【68942】Re:グループ分け後、枠囲み UO3 11/4/29(金) 23:08 発言
【68938】Re:グループ分け後、枠囲み kanabun 11/4/29(金) 20:19 発言
【68939】Re:グループ分け後、枠囲み kanabun 11/4/29(金) 20:42 発言
【68943】Re:グループ分け後、枠囲み ひろし 11/4/30(土) 17:50 お礼
【68947】Re:グループ分け後、枠囲み UO3 11/5/1(日) 20:49 回答
【68977】Re:グループ分け後、枠囲み ひろし 11/5/5(木) 12:08 お礼

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