update,

2025-02-01 02:04:23 +08:00
parent 3de8aea20a
commit ec32653f3a
108 changed files with 12611 additions and 0 deletions
--- a/task1/_04_submit/.gitkeep
+++ b/task1/_04_submit/.gitkeep
--- a/task1/_04_submit/Example
+++ b/task1/_04_submit/Example
--- a/task1/_04_submit/Example_file_working_2016_test5.xlsm
+++ b/task1/_04_submit/Example_file_working_2016_test5.xlsm
--- a/task1/_04_submit/Example_file_working_2016_test5_deliver.xlsm
+++ b/task1/_04_submit/Example_file_working_2016_test5_deliver.xlsm
--- a/task1/_04_submit/Example_file_working_2016_test6.xlsm
+++ b/task1/_04_submit/Example_file_working_2016_test6.xlsm
--- a/task1/_04_submit/Example_file_working_2016_test6_deliver.xlsm
+++ b/task1/_04_submit/Example_file_working_2016_test6_deliver.xlsm
--- a/task1/_04_submit/Module1.bas
+++ b/task1/_04_submit/Module1.bas
@@ -0,0 +1,19 @@
+Attribute VB_Name = "Module1"
+Sub Macro6()
+Attribute Macro6.VB_ProcData.VB_Invoke_Func = " \n14"
+'
+' Macro6 Macro
+'
+
+'
+    Sheets("Sheet1").Select
+    Columns("B:P").Select
+    Range("P1").Activate
+    Selection.Copy
+    Sheets("Adjustment").Select
+    Columns("B:P").Select
+    Range("P1").Activate
+    Sheets("Adjustment").Paste
+
+
+End Sub
--- a/task1/_04_submit/ThisWorkbook.cls
+++ b/task1/_04_submit/ThisWorkbook.cls