編集履歴

回答編集履歴

テーブルとして書式設定するかを選択可能に変更

2015/11/12 13:45

投稿

スコア15

test CHANGED Viewed

@@ -46,6 +46,10 @@
         Const tableName = "データテーブル"
+        'テーブルとして書式設定するか
+        Const listFlag = False
     '左端列格納配列
@@ -220,51 +224,75 @@
-        '（見出し,セル幅設定）（テーブル化）
+        'リスト削除用
-        If Range(outputListStartPosition).Row > 1 Then
-            Range(Me.Range(outputListStartPosition).Offset(-1), Me.Range(outputListStartPosition).Offset(-1, pasteColumnShift + WEIGHTcolShift)) _
-                = Split("ID,TYPE,NUMBER,DATA,WEIGHT", ",")
-        End If
         Dim delList As Variant
+        'リスト化
+        If listFlag Then
+            '（見出し,セル幅設定）（テーブル化）
+            If Range(outputListStartPosition).Row > 1 Then
+                    Range(Me.Range(outputListStartPosition).Offset(-1), Me.Range(outputListStartPosition).Offset(-1, pasteColumnShift + WEIGHTcolShift)) _
+                        = Split("ID,TYPE,NUMBER,DATA,WEIGHT", ",")
-        For Each delList In Me.ListObjects
+                For Each delList In Me.ListObjects
-            If delList.Name = tableName Then
+                    If delList.Name = tableName Then
-                delList.Unlist
+                        delList.Unlist
+                    End If
+                Next
+                'テーブル化
+                Range(Me.Range(outputListStartPosition).Offset(-1), outputListLastPosition).ClearFormats
+                ListObjects.Add( _
+                    xlSrcRange, _
+                    Range(Me.Range(outputListStartPosition).Offset(-1), outputListLastPosition), , _
+                    , xlYes, "TableStyleMedium1").Name = tableName
+                'ソート
+                Range(tableName).Sort , _
+                    key1:=Me.Range(outputListStartPosition).Offset(, pasteColumnShift + WEIGHTcolShift), order1:=xlAscending, _
+                    key2:=Me.Range(outputListStartPosition).Offset(, NUMcol), order2:=xlAscending, _
+                    Header:=xlYes
             End If
-        Next
-        'テーブル化
+       'リスト化しない
-        Range(Me.Range(outputListStartPosition).Offset(-1), outputListLastPosition).ClearFormats
-        ListObjects.Add( _
-            xlSrcRange, _
+       Else
-            Range(Me.Range(outputListStartPosition).Offset(-1), outputListLastPosition), , _
-            , xlYes, "TableStyleMedium1").Name = tableName
-        'ソート
+                'ソート
-        Range(tableName).Sort , _
+                Range(Me.Range(outputListStartPosition), outputListLastPosition).Sort , _
-            key1:=Me.Range(outputListStartPosition).Offset(, pasteColumnShift + WEIGHTcolShift), order1:=xlAscending, _
+                    key1:=Me.Range(outputListStartPosition).Offset(, pasteColumnShift + WEIGHTcolShift), order1:=xlAscending, _
-            key2:=Me.Range(outputListStartPosition).Offset(, NUMcol), order2:=xlAscending, _
+                    key2:=Me.Range(outputListStartPosition).Offset(, NUMcol), order2:=xlAscending, _
-            Header:=xlYes
+                    Header:=xlNo
+       End If
@@ -278,4 +306,12 @@
 実行後イメージは下記のとおりです。
+・listFlag = True
 ![イメージ説明](ccf1668341347f4abb12e0a695b1c520.jpeg)
+・listFlag = False
+![イメージ説明](0bd6965090a6b0c841be1183fb285c61.jpeg)