ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦Û°Ê²£¥Í ½s¸¹·s¼W

[µo°Ý] ¦Û°Ê²£¥Í ½s¸¹·s¼W

¦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¸ê®Æ
  1. Sub ¶i³f()

  2.     If Range("k6").Value = "" Or Range("k7").Value = "" Then
  3.     MsgBox ("¸ê®Æ¥¼¶ñ¤J")
  4.     Exit Sub
  5.     End If
  6.    
  7.     Range("a1").Select
  8.     Selection.End(xlDown).Select
  9.     Range("a" & ActiveCell.Row + 1) = Range("k6").Value
  10.     Range("b" & ActiveCell.Row + 1) = Range("k7").Value
  11.      
  12.     Cells(Rows.Count, "$L").End(xlUp).Offset(1).Value = Range("k6").Value & Range("k7").Value
  13.     With Cells(Rows.Count, "$d").End(xlUp).Offset(1)
  14.     .Value = Range("k6").Value & "001"
  15.     .AutoFill Destination:=.Resize(Val(Range("k7"))), Type:=xlFillSeries
  16.     End With
  17.    
  18.     Range("A3:B1001").Select
  19.     Selection.Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlGuess, _
  20.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  21.     :=xlStroke, DataOption1:=xlSortNormal
  22.     'A:Cªº±Æ§Ç
  23.    
  24.     Range("D3:H1001").Select
  25.     Selection.Sort Key1:=Range("D3"), Order1:=xlDescending, Header:=xlGuess, _
  26.     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
  27.     :=xlStroke, DataOption1:=xlSortNormal
  28.     'D:Hªº±Æ§Ç
  29.    
  30.     Range("k6:k7").Value = ""
  31.    
  32.     Range("a1").Select
  33.    
  34.     MsgBox "³B²z§¹¦¨"
  35.    
  36. End Sub
½Æ»s¥N½X
  1. Sub »â®Æ()
  2.    
  3.    
  4.     If Range("k12").Value = "" Or Range("k13").Value = "" Or Range("k14").Value = "" Then
  5.     MsgBox ("¸ê®Æ¥¼¶ñ¤J")
  6.     Exit Sub
  7.     End If
  8.    
  9.     Dim f_cell, f_range   As Range
  10.     Set f_range = Columns("D")
  11.                      
  12.     Set f_cell = f_range.Find([K12].Value)
  13.     If f_cell Is Nothing Then MsgBox ("¬dµL¦¹§å¸¹") Else f_cell.Select
  14.     Selection.Offset(0, 2).Select
  15.     ActiveCell.Value = Range("K13").Value
  16.     Selection.Offset(0, 1).Select
  17.     ActiveCell.Value = Range("K14").Value
  18.     Selection.Offset(1, -3).Resize(, 5).Select
  19.     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  20.     Selection.Offset(0, 0).Resize(, 1).Select
  21.     ActiveCell.Value = Range("K12").Value
  22.     Selection.Offset(0, 1).Select
  23.     ActiveCell.Value = Selection.Offset(-1, 0).Value - Selection.Offset(-1, 2).Value
  24.    
  25.     'Range("k12").Value = ""
  26.     'Range("k14").Value = ""

  27.     'Range("a1").Select
  28.    
  29.     MsgBox "³B²z§¹¦¨"
  30.    
  31.     'Àx¦s®æ¦Û°Ê§ì¨ú¹q¸£¤é´Á
  32.     'DATE(YEAR(TODAY()),MONTH(TODAY()),DAY(TODAY()))
  33.    
  34. End Sub
½Æ»s¥N½X

1.jpg (71.63 KB)

1.jpg

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD