- ©«¤l
- 25
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2014-12-4
- ³Ì«áµn¿ý
- 2018-6-6
|
¦U¦ì¤j¤j ¥iÀ°¦£¬Ý¬Ý «ü¾É¤@¤U ÁÂÁÂ@@
¥»µ{§Ç°Ê§@¬yµ{
¥k¤è K12:k14
"»â®Æ§å¸¹"(¦³¨Ï¥Î¸ê®ÆÅçÃÒ>²M³æ §ì¨ú¥ªÃäD4:D10"»â®Æ§å¸¹" ¸¹½X)
"¨Ï¥Î¤é´Á"
"¨Ï¥Î¤Ø¼Æ"
key¤J«á«ö"»â®Æ"
¥¦·|¨Ìkey¤Jªº"»â®Æ§å¸¹"
¥h·j´M¥ª¤èD4:D10"»â®Æ§å¸¹"
¦b¤U¤è´¡¤JÀx¦s®æ d5:h5
·|§â ¥kÃäkey ¤Jªº "»â®Æ§å¸¹" "¤Ø¼Æ" "¤é´Á" ±a¤J
¤Ø¼Æ ·|¶¶«K pºâ 55-5 = 50
Q1 ·í·j´M®É ¥¦·| ¥ý·j´M¨ì §å¸¹«á ¦A¥h·j´M «á¤è H4:H6 1.2¨ì«á³Ì¤@½X®É ·s¼W3 ¦Û°Ê·s¼W±N¸ê®Æ- Sub ¶i³f()
- If Range("k6").Value = "" Or Range("k7").Value = "" Then
- MsgBox ("¸ê®Æ¥¼¶ñ¤J")
- Exit Sub
- End If
-
- Range("a1").Select
- Selection.End(xlDown).Select
- Range("a" & ActiveCell.Row + 1) = Range("k6").Value
- Range("b" & ActiveCell.Row + 1) = Range("k7").Value
-
- Cells(Rows.Count, "$L").End(xlUp).Offset(1).Value = Range("k6").Value & Range("k7").Value
- With Cells(Rows.Count, "$d").End(xlUp).Offset(1)
- .Value = Range("k6").Value & "001"
- .AutoFill Destination:=.Resize(Val(Range("k7"))), Type:=xlFillSeries
- End With
-
- Range("A3:B1001").Select
- Selection.Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlGuess, _
- OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
- :=xlStroke, DataOption1:=xlSortNormal
- 'A:Cªº±Æ§Ç
-
- Range("D3:H1001").Select
- Selection.Sort Key1:=Range("D3"), Order1:=xlDescending, Header:=xlGuess, _
- OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
- :=xlStroke, DataOption1:=xlSortNormal
- 'D:Hªº±Æ§Ç
-
- Range("k6:k7").Value = ""
-
- Range("a1").Select
-
- MsgBox "³B²z§¹¦¨"
-
- End Sub
½Æ»s¥N½X- Sub »â®Æ()
-
-
- If Range("k12").Value = "" Or Range("k13").Value = "" Or Range("k14").Value = "" Then
- MsgBox ("¸ê®Æ¥¼¶ñ¤J")
- Exit Sub
- End If
-
- Dim f_cell, f_range As Range
- Set f_range = Columns("D")
-
- Set f_cell = f_range.Find([K12].Value)
- If f_cell Is Nothing Then MsgBox ("¬dµL¦¹§å¸¹") Else f_cell.Select
- Selection.Offset(0, 2).Select
- ActiveCell.Value = Range("K13").Value
- Selection.Offset(0, 1).Select
- ActiveCell.Value = Range("K14").Value
- Selection.Offset(1, -3).Resize(, 5).Select
- Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
- Selection.Offset(0, 0).Resize(, 1).Select
- ActiveCell.Value = Range("K12").Value
- Selection.Offset(0, 1).Select
- ActiveCell.Value = Selection.Offset(-1, 0).Value - Selection.Offset(-1, 2).Value
-
- 'Range("k12").Value = ""
- 'Range("k14").Value = ""
- 'Range("a1").Select
-
- MsgBox "³B²z§¹¦¨"
-
- 'Àx¦s®æ¦Û°Ê§ì¨ú¹q¸£¤é´Á
- 'DATE(YEAR(TODAY()),MONTH(TODAY()),DAY(TODAY()))
-
- End Sub
½Æ»s¥N½X |
-
-
1.jpg
(71.63 KB)
|