update,

2025-01-31 21:13:26 +08:00
parent f08350ff38
commit 154255d9ca
98 changed files with 12589 additions and 0 deletions
--- a/natalie0312/task1/_04_submit/.gitkeep
+++ b/natalie0312/task1/_04_submit/.gitkeep
--- a/natalie0312/task1/_04_submit/Example
+++ b/natalie0312/task1/_04_submit/Example
--- a/natalie0312/task1/_04_submit/Example_file_working_2016_test5.xlsm
+++ b/natalie0312/task1/_04_submit/Example_file_working_2016_test5.xlsm
--- a/natalie0312/task1/_04_submit/Example_file_working_2016_test5_deliver.xlsm
+++ b/natalie0312/task1/_04_submit/Example_file_working_2016_test5_deliver.xlsm
--- a/natalie0312/task1/_04_submit/Example_file_working_2016_test6.xlsm
+++ b/natalie0312/task1/_04_submit/Example_file_working_2016_test6.xlsm
--- a/natalie0312/task1/_04_submit/Example_file_working_2016_test6_deliver.xlsm
+++ b/natalie0312/task1/_04_submit/Example_file_working_2016_test6_deliver.xlsm
--- a/natalie0312/task1/_04_submit/Module1.bas
+++ b/natalie0312/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/natalie0312/task1/_04_submit/ThisWorkbook.cls
+++ b/natalie0312/task1/_04_submit/ThisWorkbook.cls