当前位置：文档之家 › Secondoncet

Secondoncet

  • 格式：doc
  • 大小：38.50 KB
  • 文档页数：12

Dim curSheet As ObjectDim Crow, Ccol, i As LongDim compdate As DateDim friday As DateDim today As IntegerDim Vendor As StringDim UPCcol, VendorCol, VendornbrCol As Integer'delete vendor to Nancy 090308 '102511 Updtaed - Ethan Sub Secondonceaweek()Set curSheet = ActiveWorkbook.ActiveSheet'ɾ³ýÁÐApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseColumns("U:U").SelectSelection.DeleteRange(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range("D1")Range(Cells(2, 1), Cells(80000, 256)).Sort Key1:=Range("T1")Cells.SelectSelection.AutoFilter Field:=35, Criteria1:="<>"r = [C1048576].End(xlUp).RowIf r <> 1 ThenRange("D2:D" & [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllDataCells.SelectSelection.AutoFilter Field:=34, Criteria1:="*ASN#*"r = [C1048576].End(xlUp).RowIf r <> 1 ThenRange("D2:D" & [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllDataCells.SelectSelection.AutoFilter Field:=18, Criteria1:="7"Selection.AutoFilter Field:=9, Criteria1:="C"r = [C1048576].End(xlUp).RowIf r <> 1 ThenRange("D2:D" & [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData'Cells(1, 15).SelectColumns("R:R").CopyColumns("R:R").Insert Shift:=xlToRightCells.SelectSelection.AutoFilter Field:=18, Criteria1:="<>20"Selection.AutoFilter Field:=19, Criteria1:="<>3", Operator:=xlAnd, Criteria2:="<>7" r = [C1048576].End(xlUp).RowIf r <> 1 ThenRange("D2:D" & [C1048576].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllDataColumns("R:R").DeleteRange("AA1").SelectSelection.AutoFilter Field:=27, Criteria1:="<>", Operator:=xlAndr = [D65536].End(xlUp).RowIf r <> 1 ThenRange("D2:D" & [D65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData'Dim e As Long'e = 2'Do Until Cells(e, 17) = Empty''If Cells(e, 13) = "BABY CONSUMABLES" Then 'Rows(e).Select'' With Selection.Interior' .Pattern = xlSolid' .PatternColorIndex = xlAutomatic' .ThemeColor = xlThemeColorAccent3 ' .TintAndShade = 0.399975585192419 ' .PatternTintAndShade = 0' End With'''Else'End If'e = e + 1'Loop'curSheet.Activate'Sheets("DeleteVendor").Activatetoday = Weekday(Date)If today = 2 Then compdate = Date + 6If today = 3 Then compdate = Date + 5If today = 4 Then compdate = Date + 4If today = 5 Then compdate = Date + 3If today = 6 Then compdate = Date + 2friday = compdate - 2Cells.Select'ship dateCells(1, "S").SelectSelection.AutoFilter Field:=19, Criteria1:=">" & compdate, Operator:=xlAndr = [D65536].End(xlUp).RowIf r <> 1 ThenRange("S2:S" & [D65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData'cancel dateCells(1, "T").SelectSelection.AutoFilter Field:=20, Criteria1:="<=" & friday, Operator:=xlAndr = [D65536].End(xlUp).RowIf r <> 1 ThenRange("Q2:Q" & [D65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData'curSheet.ActivateUPCcol = Look_In_KeyWord("UPC", "c")VendorCol = Look_In_KeyWord("VENDOR NAME", "c")'Crow = Fun_Rows_Columns_Count("rows", UPCcol, 100)VendornbrCol = Look_In_KeyWord("VENDOR NUM", "c")curSheet.SelectSheets.Add = "DeleteVendor"curSheet.SelectRange(Cells(1, 1), Cells(1, 256)).SelectSelection.CopySheets("DeleteVendor").SelectRange("A1").SelectActiveSheet.PastecurSheet.Activatei = 2j = 2Do Until curSheet.Cells(i, VendornbrCol).Value = EmptyVendor = curSheet.Cells(i, VendorCol).ValueIf InStr(UCase(Vendor), "ELEXA") > 0 Or InStr(UCase(Vendor), "JVC") > 0 OrInStr(UCase(Vendor), "CANON") > 0 _Or InStr(UCase(Vendor), "SONY") > 0 Or (InStr(UCase(Vendor), "PHILIPS") > 0 And ((InStr(UCase(Vendor), "PHILIPS DOMESTIC APPLIANCES") = 0) And (InStr(UCase(Vendor), "PHILIPS DOMESTIC APPLIANCES") = 0))) Or InStr(UCase(Vendor), "TTE TECHNOLOGY") > 0 _ Or InStr(UCase(Vendor), "SAMSUNG") > 0 Or InStr(UCase(Vendor), "DELL") > 0 OrInStr(UCase(Vendor), "DISGUISE") > 0 _Or InStr(UCase(Vendor), "HASBRO") > 0 Or InStr(UCase(Vendor), "MGA") > 0 _Or InStr(UCase(Vendor), "RADICA") > 0 Or InStr(UCase(Vendor), "EASTMAN KODAK") > 0 _ Or InStr(UCase(Vendor), "RADIO FLYER") > 0 Or InStr(UCase(Vendor), "PACIFIC CYCLE") > 0 Or InStr(UCase(Vendor), "ACER AMERICA") > 0 _Or InStr(UCase(Vendor), "P&F USA INC") > 0 Or InStr(UCase(Vendor), "P&F USA INC") > 0 ThenIf curSheet.Cells(i, VendornbrCol).Value <> "364342050" ThencurSheet.SelectRange(Cells(i, 1), Cells(i, 256)).SelectSelection.CopySheets("DeleteVendor").SelectCells(j, 1).SelectActiveSheet.PastecurSheet.SelectRange(Cells(i, 1), Cells(i, 256)).SelectSelection.Delete Shift:=xlUpj = j + 1i = i - 1End IfEnd Ifi = i + 1LoopSheets("DeleteVendor").ActivateCells.SelectSelection.AutoFilter Field:=34, Criteria1:="=*emailed*", Operator:=xlAndr = [D65536].End(xlUp).RowIf r <> 1 ThenRange("AH2:AH" & [D65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select Selection.EntireRow.DeleteEnd IfIf ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllDataColumns("K:K").SelectSelection.CopyColumns("A:A").SelectSelection.Insert Shift:=xlToRight Columns("AF:AF").SelectSelection.CopyColumns("B:B").SelectSelection.Insert Shift:=xlToRight Columns("S:S").SelectSelection.CopyColumns("C:C").SelectSelection.Insert Shift:=xlToRight Columns("AU:AU").SelectSelection.CopyColumns("D:D").SelectSelection.Insert Shift:=xlToRightColumns("AJ:AJ").SelectSelection.CopyColumns("E:E").SelectSelection.Insert Shift:=xlToRightColumns("A:B").SelectSelection.Insert Shift:=xlToRight Range("A1") = "Name"Range("B1") = "Status"Columns("H:H").SelectSelection.Insert Shift:=xlToRightRange("H1") = "Days Past Ship"Columns("E:E").NumberFormatLocal = "0000000000"Columns("AC:AC").SelectSelection.Insert Shift:=xlToRightRange("AC1") = "MABD"Columns("AF:AF").SelectSelection.Insert Shift:=xlToRightRange("AF1") = "90% FILLED"Range("A1:BZ" & [D65536].End(xlUp).Row).CopySet tmpSheet = Workbooks.Add.Sheets(1)curSheet.ActivateWorkbooks("Book1").ActivateRange("a1").SelectActiveSheet.PasteRange(Cells(2, 1), Cells(10000, 100)).Sort Key1:=Range("F1") Range(Cells(2, 1), Cells(10000, 100)).Sort Key1:=Range("E1")Range(Cells(2, 1), Cells(10000, 100)).Sort Key1:=Range("D1")Range(Cells(2, 1), Cells(10000, 100)).Sort Key1:=Range("C1")Range("E2:E" & [D65536].End(xlUp).Row).Copy = "adv"Range("a1").SelectActiveSheet.PasteRange("A1:A65536").AdvancedFilter Action:=xlFilterInPlace, Unique:=TrueRange("A1:A" & [a65536].End(xlUp).Row).Copy = "SQL"Range("a1").SelectActiveSheet.PasteRange("B1:B" & [a65536].End(xlUp).Row) = "=TEXT(RC[-1],""0000000000"")" Range("C1:C" & [a65536].End(xlUp).Row) = "=""'""&RC[-1]&""',"""Sheets("sheet3").Name = "SQL results"'Sheets("adv").DeleteActiveWorkbook.SaveAs Filename:="C:\Mail\once\" & Format(Date, "mmddyy") &"_CHINA_OO_DETAILS--2nd email.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _False, CreateBackup:=FalseApplication.ScreenUpdating = True'**************************************************************************** MsgBox "Completed!"End Sub。

合集下载

新概念第二册笔记

新概念第二册笔记

Lesson 28☆New words and expressions☆rare adj.罕见（在世界上少有）rare animal 稀有动物rare bird 珍稀鸟类rare illness 疑难杂症scarce 少有的（在某一地方或某一时间段少有）Watermelon is scarce in wintercoconut 椰子steak 牛排well done 全熟medium 半生半熟rare 几乎是生的☆ancient adj.古代的，古老的ancient Egypt 古埃及antique adj.古老而有价值的n.古董☆myth n.神话故事fairy 神仙故事☆trouble n.麻烦woman/man troubles 女人/男人真麻烦child troubles 孩子真麻烦never trouble troubles until troubles trouble you 永远不要自寻烦恼Let sleeping dog lie. 不要自找麻烦ask for trouble 自找麻烦He is asking for trouble. 他自找麻烦I'm sorry to put you in trouble.我很抱歉给你带来麻烦（口语）have trouble in doing sth. 在做某事上遇到了麻烦I have trouble (in) parking the car☆effect n.结果have an effect 有效果have no effect 没有效果have effect on 对...有效果The advice has no effect on me.Text☆one of 其中之一one of 后面加可数名词的复数none of ,neither of 做主语时作单数看待☆believe in 信任，信仰（彻彻底底地相信）believe +sb 相信（某人的话）☆ever since =since☆have trouble doing 做...有麻烦have trouble with sb. 和某人相处有麻烦I have trouble with my roommate.☆in the morning 每天早上in the afternoon 每天下午at night 每天晚上☆park a car 停车☆because of 由于because 的后面加句子because of 的后面加词☆be able to 的主语一般都是人，表示有能力去做☆get sth. into 把...弄进get his car into his garageI drove the car into the wall.I drove the car into the tree.drive the car into 把车子撞上某地☆put up 张贴put up the picture on the wall 在墙上贴画☆not any = no☆I have ever done 一旦作定语从句修饰名词时，这个名词前面往往用最高级This is the most difficult thing I have ever done. This is the most terrible news I have ever heard. 有两个结构一定是最高级1.of + 范围2.in + 地点He is the tallest in the room.3.I have ever 从句☆hope + that 从句☆turn sth. to 把前者变成后者turn the prince to a frogSpecial difficulties☆定语从句定语从句句子作定语，一般放在被修饰词后。

if once 的用法

if once 的用法

if once 的用法一、简介在英语中，if once是一个常用短语，用于描述一种条件，即如果某件事情发生了一次，就会发生另一种情况。

这个短语在各种语境中都有广泛的应用。

二、用法详解1. if once + 不定式：这个用法表示“一旦...就会...”。

例如：“If once we start, we won't be able to stop now.”（一旦开始，我们现在就不能停止了。

）2. if once + 从句：这个用法表示“如果某件事情发生了一次，就会发生另一个情况”。

从句通常是一个描述过去事实的句子，表示条件。

例如：“If once she arrived, she would call me.”（如果她一到，她就会给我打电话。

）3. if once + 完成时态的从句：这个用法比较少见，但是也是存在的。

在这种情况下，if once 通常后面跟着一个完成时态的从句，表示一种假设或想象的情况。

例如：“If once I had taken her advice, I wouldn't have made such a big mistake.”（如果我当初听了她的建议，我就不会犯这么大的错误了。

）三、示例1. If once we start, we won't be able to stop now. （一旦开始，我们就不能停下来。

）2. If once she arrived, she would call me. （如果她一到，她就会给我打电话。

）3. If once I had taken her advice, I would be happier now. （如果我当初听了她的建议，我现在会更加快乐。

）四、注意事项1. 在使用if once短语时，要注意语法和语境的正确性，以确保表达清晰和准确。

2. 在使用从句时，要注意时态和语态的正确性，以确保符合语法规则和表达意图。

小学六年级下册英语小升初副词课件(通用版)

小学六年级下册英语小升初副词课件(通用版)


—Because my daughter is ill today.
A．When
B．Why
C．How
( A )2.Jack went to school ________.His teacher was angry.
A．late
B．early
C．soon
( B )3.Which skirt do you like ________，the white one or the blue one?
副词
频度副词
同学们知道圈出的是什么词吗?
1.Mary __ra_r_e_ly_ goes to her dancing lesson. 2.She _u_s_u_a_ll_y plants tomatoes. 3.She _a_lw_a_y_s_ wears a flower for her hair. 4.She _o_f_t_e_n_ plants roses and lilies. 5.She _s_o_m__e_ti_m_e_s_ eats salads for breakfast.
一、按要求写单词。
1．good(副词) __w__e_ll__ 2.farther(原级) _f_a_r_
3．easy(副词) __e_a_si_l_y_
4.slowly(反义词) __f_a_s_t _
5．heavy(副词) _h_e_a_v_i_ly__ 6.badly(比较级) _w_o_r_s_e_
4. Mary _ra_r_e_ly___ plays basketball. 5. Mary s_o_m_e_t_im_e_s plays games. 6. Mary _of_t_e_n___ watches a film.
once的用法和搭配

once的用法和搭配

once的用法和搭配1. I went to that amazing concert once. It was like a dream come true, the music filling my soul and making me feel on top of the world. Can you imagine such a wonderful experience?（我去过那场超棒的音乐会一次。

那就像梦想成真，音乐填满我的灵魂，让我感觉棒极了。

你能想象这样美妙的经历吗？）2. She tried bungee jumping once. Oh my god, she said it was like flying for a second and then her heart was pounding like crazy.（她尝试过一次蹦极。

哦，我的天，她说那就像飞了一秒，然后她的心疯狂跳动。

）3. We visited that old castle once. It was so spooky, like stepping into a time warp where ghosts might lurk around every corner.（我们去过那座古老城堡一次。

它很阴森，就像踏入了一个时间扭曲的地方，鬼魂可能在每个角落潜伏。

）4. He ate that strange fruit once. It tasted so weird, like a mixture of heaven and hell in his mouth.（他吃过那种奇怪的水果一次。

味道很怪，就像嘴里同时有天堂和地狱的味道。

）5. I met that famous actor once. I was starstruck, my legs felt like jelly and I could barely speak.（我见过那位著名演员一次。