質問編集履歴

説明文の改善

2023/03/17 11:07

投稿

touch-touch

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,14 +1,21 @@
 いくつもある項目を均等に振り分けたいと思っているんですが、ランダムなどの情報はいくつか目にしたのですが、順に振り分ける方法を探すことができませんでした。
 1000近い項目があります。
-その上から２件ずつ振り分けて、ひとつのグループが30件になるように振り分けたいと考えています。
+その項目をひとつのグループが30行ずつに振り分けたいと考えています。
+上の行からから２件ずつ（２行ずつA~Ｅ）を抽出。
+例）1000÷30＝33.33…
+　　33枚は最低30行グループが可能
+　　２行ずつ振り分けるため、1～66行がそれぞれの最初の段にくる
+　　67～132行がその次にくる
+　　つまり、一つ目のグループには「メインデータ」の
+　　　　1.2.67.68.133.134.199.200.265.266.331.332.397.398.463.464.529.530.595.596.661.662.727.728.793.794.859.860.925.926の行が振り分けられる
-30で全部が割り切れないと思いますので、最後のほうの数個のグループが29件や28件になるようにしてバランスをとりたいです。
+30で全部が割り切れないと思いますので、グループが増えても、数個のグループが26～29行になるようにしてバランスをとれるのがベストです。
 30年以上前に、友人がエクセルで作ってくれたものがあるのですが、私には扱えなくて、スプレッドシートで使用できるものを必要としています。
-振り分け後の30件ずつのグループは、「メインデータ」のシートはそのままで、別のシートに作成できるようにしたいです。
+振り分け後の30行ずつのグループは、「メインデータ」のシートはそのままで、別のシートに作成できるようにしたいです。
-また、振り分け前の「メインデータ」には、リンクが挿入されているため、振り分け後の30件ずつのデータにも、リンク情報がコピーされるようにしたいです。
+また、振り分け前の「メインデータ」には、リンクが挿入されているため、振り分け後の30行ずつのデータにも、リンク情報がコピーされるようにしたいです。
 友人が以前に作ってくれたエクセルのコードを、サンプルとして添付します。
@@ -27,14 +34,14 @@
     Dim 行数, Z件数, B行数, A行数 As Integer
     Dim ページ行数 As Integer
     Dim A数 As Integer
-    Dim 区域名
+    Dim 名
-    Dim 開始区域番号 As Integer
+    Dim 開始番号 As Integer
-    Dim 区域番号 As Integer
+    Dim 番号 As Integer
     'NEW 2007.02.07
     Dim i全作成 As Integer
     Dim i開始行 As Integer
-    Dim i開始区域部分作成 As Integer
+    Dim i開始部分作成 As Integer
     Dim i最大番号 As Integer
     Dim b部分作成でもヘッダー作成
@@ -43,21 +50,21 @@
     '設定取得
     Sheets("設定").Select
-    区域名 = Cells(4, 2)        '区域名
+    チーム名 = Cells(4, 2)        'チーム名
-    開始区域番号 = Cells(5, 2)  '開始する区域番号
+    開始番号 = Cells(5, 2)  '開始する番号
-    A数 = Cells(8, 2)  '1つの区域のA数
+    A数 = Cells(8, 2)  '1つのA数
-    ページ行数 = Cells(6, 2)  '1つの区域のA数
+    ページ行数 = Cells(6, 2)  '1つのA数
     i全作成 = (Range("B7").Value)
     If i全作成 = 1 Then
         i開始行 = 1
-        i開始区域部分作成 = 開始区域番号
+        i開始部分作成 = 開始番号
     Else
         i開始行 = Range("B15")
-        i開始区域部分作成 = Range("B16")
+        i開始部分作成 = Range("B16")
         i最大番号 = Range("B17")
         i_ret = MsgBox("部分作成が選択されています。既存のデータが上書きされる可能性がありますが、よろしいですか？", vbOKCancel + vbInformation, "チーム作成")
@@ -71,7 +78,8 @@
     'データの取り込み
+    チームデータ = チーム
-    区域データ = 区域名 + "データ"
+名 + "データ"
     Sheets(区域データ).Select
     全行番号 = 0
     iデータカウント = 0
@@ -111,7 +119,7 @@
             End If
     Wend
-    'データの振分け（A区域とB区域、Zに分ける）
+    'データの振分け（AチームとBチーム、Zに分ける）
     A数 = 0
     B数 = 0
     Z数 = 0
@@ -142,7 +150,7 @@
     'Aの作成
     Sheets("ヘッダー").Select
     head1(0) = Cells(1, 1)
-    head1(1) = 区域名
+    head1(1) = チーム名
     head1(2) = Cells(1, 3)
     head1(3) = Cells(1, 4)
     head1(4) = Cells(1, 5)
@@ -152,8 +160,8 @@
     head1(8) = Cells(1, 9)
     head1(9) = Cells(1, 10)
-    区域名区域 = 区域名 + "区域"
+    チーム名班 = チーム名 + "班"
-    Sheets(区域名区域).Select
+    Sheets(チーム名班).Select
     '全作成のときは、データを消去する
     If i全作成 = 1 Then
@@ -176,8 +184,8 @@
     '最初に始める場所を計算する
     番号 = i開始行
-    行番号 = i開始行 + (i開始区域部分作成 - 開始区域番号) * ページ行数
+    行番号 = i開始行 + (i開始部分作成 - 開始番号) * ページ行数
-    ヘッダー行 = 2 + (i開始区域部分作成 - 開始区域番号) * 2      'ヘッダー分の行数
+    ヘッダー行 = 2 + (i開始部分作成 - 開始番号) * 2      'ヘッダー分の行数
     '全区域数の計算
@@ -185,17 +193,17 @@
     If i全作成 = 1 Then
         If (A行数 / A数) = 0 Then
-            区域数 = A行数 / A数
+            チーム数 = A行数 / A数
         Else
             If (A数 Mod A数) < (A数 / 2) Then
-                区域数 = CInt(A数 / A数) + 1
+                チーム数 = CInt(A数 / A数) + 1
-            Else
+            Else
-                区域数 = CInt(A数 / A数)
+                チーム数 = CInt(A数 / A数)
             End If
         End If
     Else
     '部分作成のときは、最大番号を取得する
-        区域数 = i最大番号 - 開始区域番号 + 1
+        チーム数 = i最大番号 - 開始チーム番号 + 1
     End If
@@ -240,8 +248,8 @@
         ヘッダー行 = ヘッダー行 + 2
-        '    If 行番号 > 区域数 * A数 Then
+        '    If 行番号 > チーム数 * A数 Then
-        If 行番号 > 区域数 * ページ行数 Then
+        If 行番号 > チーム数 * ページ行数 Then
             番号 = 番号 + 2
             行番号 = 番号
             ヘッダー行 = 2
@@ -252,7 +260,7 @@
     If i全作成 = 1 Or b部分作成でもヘッダー作成 Then
         'Aのヘッダー
         行番号 = 2
-        For Index = 開始区域番号 To 開始区域番号 + 区域数 - 1
+        For Index = 開始番号 To 開始番号 + 数 - 1
             head1(0) = Index
             Range(Cells(行番号, 1), Cells(行番号, 10)) = head1
             Range(Cells(行番号, 1), Cells(行番号, 10)).Font.Bold = True
@@ -266,8 +274,8 @@
     Sheets("設定").Select
     Range("B20").Value = A行数
-    Range("B21").Value = 区域数
+    Range("B21").Value = チーム数
-    Range("B22").Value = 開始区域番号 + 区域数 - 1
+    Range("B22").Value = 開始番号 + 数 - 1
     Call MsgBox("処理が無事に終了しました", vbOKOnly, "チーム")

Google スプレッドシート Google Apps Script

文法の修正

2023/03/17 10:37

投稿

touch-touch

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,6 +1,6 @@
-いくつもある件数を均等に振り分けたいと思っているんですが、ランダムなどの情報はいくつか目にしたのですが、順に振り分ける方法を探すことができませんでした。
+いくつもある項目を均等に振り分けたいと思っているんですが、ランダムなどの情報はいくつか目にしたのですが、順に振り分ける方法を探すことができませんでした。
-一つのシートに200ほどの建物あり、トータル1000近い件数があります。
+1000近い項目があります。
 その上から２件ずつ振り分けて、ひとつのグループが30件になるように振り分けたいと考えています。
 30で全部が割り切れないと思いますので、最後のほうの数個のグループが29件や28件になるようにしてバランスをとりたいです。
@@ -20,13 +20,13 @@
     Dim 全行番号
     Dim iデータカウント
     Dim 全データ(1 To 100000, 1 To 7)
-    Dim マンション区域データ(1 To 10000, 1 To 7)
+    Dim Aデータ(1 To 10000, 1 To 7)
-    Dim 電話区域データ(1 To 5000, 1 To 7)
+    Dim Bデータ(1 To 5000, 1 To 7)
-    Dim 対象外データ(1 To 100, 1 To 7)
+    Dim Zデータ(1 To 100, 1 To 7)
     Dim head1(10), head2(11), 横1行分(10)
-    Dim 行数, 対象外件数, 電話行数, マンション行数 As Integer
+    Dim 行数, Z件数, B行数, A行数 As Integer
     Dim ページ行数 As Integer
-    Dim マンション数 As Integer
+    Dim A数 As Integer
     Dim 区域名
     Dim 開始区域番号 As Integer
     Dim 区域番号 As Integer
@@ -45,8 +45,8 @@
     区域名 = Cells(4, 2)        '区域名
     開始区域番号 = Cells(5, 2)  '開始する区域番号
-    マンション数 = Cells(8, 2)  '1つの区域のマンション数
+    A数 = Cells(8, 2)  '1つの区域のA数
-    ページ行数 = Cells(6, 2)  '1つの区域のマンション数
+    ページ行数 = Cells(6, 2)  '1つの区域のA数
     i全作成 = (Range("B7").Value)
@@ -60,7 +60,7 @@
         i開始区域部分作成 = Range("B16")
         i最大番号 = Range("B17")
-        i_ret = MsgBox("部分作成が選択されています。既存のデータが上書きされる可能性がありますが、よろしいですか？", vbOKCancel + vbInformation, "マンション区域作成")
+        i_ret = MsgBox("部分作成が選択されています。既存のデータが上書きされる可能性がありますが、よろしいですか？", vbOKCancel + vbInformation, "チーム作成")
         If i_ret = vbCancel Then
             Exit Sub
         End If
@@ -111,10 +111,10 @@
             End If
     Wend
-    'データの振分け（マンション区域と電話区域、対象外に分ける）
+    'データの振分け（A区域とB区域、Zに分ける）
-    マンション行数 = 0
-    電話行数 = 0
+    A数 = 0
-    対象外行数 = 0
+    B数 = 0
+    Z数 = 0
     For Index = 1 To iデータカウント
         '対象外の抽出
@@ -126,28 +126,20 @@
             対象外データ(対象外行数, 5) = 全データ(Index, 5)
             対象外データ(対象外行数, 6) = 全データ(Index, 6)
             対象外データ(対象外行数, 7) = 全データ(Index, 7)
-                   Else
+            Else
-            '電話区域の抽出
+                'Aの抽出
-            If 全データ(Index, 7) <> "" Then
-                電話行数 = 電話行数 + 1
+                A数 = A数 + 1
-                電話区域データ(電話行数, 2) = 全データ(Index, 2)
+                Aデータ(A数, 2) = 全データ(Index, 2)
-                電話区域データ(電話行数, 3) = 全データ(Index, 3)
+                Aデータ(A数, 3) = 全データ(Index, 3)
-                電話区域データ(電話行数, 4) = 全データ(Index, 4)
+                Aデータ(A数, 4) = 全データ(Index, 4)
-                電話区域データ(電話行数, 5) = 全データ(Index, 5)
+                Aデータ(A数, 5) = 全データ(Index, 5)
-                電話区域データ(電話行数, 6) = 全データ(Index, 6)
+                Aデータ(A数, 6) = 全データ(Index, 6)
-            Else
-                'ﾏﾝｼｮﾝ区域の抽出
-                マンション行数 = マンション行数 + 1
-                マンション区域データ(マンション行数, 2) = 全データ(Index, 2)
-                マンション区域データ(マンション行数, 3) = 全データ(Index, 3)
-                マンション区域データ(マンション行数, 4) = 全データ(Index, 4)
-                マンション区域データ(マンション行数, 5) = 全データ(Index, 5)
-                マンション区域データ(マンション行数, 6) = 全データ(Index, 6)
             End If
         End If
     Next Index
-    'マンション区域の作成
+    'Aの作成
     Sheets("ヘッダー").Select
     head1(0) = Cells(1, 1)
     head1(1) = 区域名
@@ -169,7 +161,7 @@
         Selection.ClearContents
     Else
-        i_ret = MsgBox("部分作成が選択されています。以前のデータを消す場合は「はい」" & vbCrLf & "、消さない場合は「いいえ」を押してください", vbYesNo + vbInformation, "マンション区域作成")
+        i_ret = MsgBox("部分作成が選択されています。以前のデータを消す場合は「はい」" & vbCrLf & "、消さない場合は「いいえ」を押してください", vbYesNo + vbInformation, "チーム作成")
         If i_ret = vbYes Then
             Cells.Select
             Selection.ClearContents
@@ -192,13 +184,13 @@
     '全作成のときは、件数を計算する
     If i全作成 = 1 Then
-        If (マンション行数 / マンション数) = 0 Then
+        If (A行数 / A数) = 0 Then
-            区域数 = マンション行数 / マンション数
+            区域数 = A行数 / A数
         Else
-            If (マンション行数 Mod マンション数) < (マンション数 / 2) Then
+            If (A数 Mod A数) < (A数 / 2) Then
-                区域数 = CInt(マンション行数 / マンション数) + 1
+                区域数 = CInt(A数 / A数) + 1
-            Else
+            Else
-                区域数 = CInt(マンション行数 / マンション数)
+                区域数 = CInt(A数 / A数)
             End If
         End If
     Else
@@ -208,13 +200,13 @@
-    For Index = 1 To マンション行数
+    For Index = 1 To A数
         横1行分(0) = 番号
-        横1行分(1) = マンション区域データ(Index, 2)
+        横1行分(1) = Aデータ(Index, 2)
-        横1行分(2) = マンション区域データ(Index, 3)
+        横1行分(2) = Aデータ(Index, 3)
-        横1行分(3) = マンション区域データ(Index, 4)
+        横1行分(3) = Aデータ(Index, 4)
-        横1行分(4) = マンション区域データ(Index, 5)
+        横1行分(4) = Aデータ(Index, 5)
-        横1行分(5) = マンション区域データ(Index, 6)
+        横1行分(5) = Aデータ(Index, 6)
         Range(Cells(行番号 + ヘッダー行, 1), Cells(行番号 + ヘッダー行, 10)) = 横1行分
@@ -228,11 +220,11 @@
         Index = Index + 1
         横1行分(0) = 番号
-        横1行分(1) = マンション区域データ(Index, 2)
+        横1行分(1) = Aデータ(Index, 2)
-        横1行分(2) = マンション区域データ(Index, 3)
+        横1行分(2) = Aデータ(Index, 3)
-        横1行分(3) = マンション区域データ(Index, 4)
+        横1行分(3) = Aデータ(Index, 4)
-        横1行分(4) = マンション区域データ(Index, 5)
+        横1行分(4) = Aデータ(Index, 5)
-        横1行分(5) = マンション区域データ(Index, 6)
+        横1行分(5) = Aデータ(Index, 6)
         Range(Cells(行番号 + ヘッダー行, 1), Cells(行番号 + ヘッダー行, 10)) = 横1行分
@@ -244,11 +236,11 @@
         番号 = 番号 - 1
         行番号 = 行番号 + ページ行数
-        '    行番号 = 行番号 + マンション数
+        '    行番号 = 行番号 + A数
         ヘッダー行 = ヘッダー行 + 2
-        '    If 行番号 > 区域数 * マンション数 Then
+        '    If 行番号 > 区域数 * A数 Then
         If 行番号 > 区域数 * ページ行数 Then
             番号 = 番号 + 2
             行番号 = 番号
@@ -258,14 +250,14 @@
     '全作成のときは、ヘッダーを作成する
     If i全作成 = 1 Or b部分作成でもヘッダー作成 Then
-        'マンション区域のヘッダー
+        'Aのヘッダー
         行番号 = 2
         For Index = 開始区域番号 To 開始区域番号 + 区域数 - 1
             head1(0) = Index
             Range(Cells(行番号, 1), Cells(行番号, 10)) = head1
             Range(Cells(行番号, 1), Cells(行番号, 10)).Font.Bold = True
             Range(Cells(行番号, 1), Cells(行番号, 10)).Font.Italic = True
-            '    行番号 = 行番号 + マンション数 + 2
+            '    行番号 = 行番号 + A数 + 2
             行番号 = 行番号 + ページ行数 + 2
         Next Index
     End If
@@ -273,11 +265,11 @@
     '後処理
     Sheets("設定").Select
-    Range("B20").Value = マンション行数
+    Range("B20").Value = A行数
     Range("B21").Value = 区域数
     Range("B22").Value = 開始区域番号 + 区域数 - 1
-    Call MsgBox("処理が無事に終了しました", vbOKOnly, "マンション区域")
+    Call MsgBox("処理が無事に終了しました", vbOKOnly, "チーム")
 End Sub

Google スプレッドシート Google Apps Script