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

[µo°Ý] ¬°«ü©wªº¤u§@ªí ±Æ§Ç??

[µo°Ý] ¬°«ü©wªº¤u§@ªí ±Æ§Ç??

½Ð°Ý¦U¦ì¤j¤j

¤U¤è<¤@>³o¬q¬O¥[¦b<¤G>¤§«eªº ·íListBox ¿ï¾Ü ¡¨ FPR-003¡¨ °õ¦æ®É ·|±Ò°Ê¸Ó¤u§@ªí
¤U¤è<¤G>¬Oª½±µ¨Ï¥Î¥¨¶°¿ý»s¥X¨Óªºµ{¦¡
¦ý³o¥u¯à¦b«ü©wªº¤u§@ªí ("FPR-002") ¤~¯à°õ¦æ
¦pªGListBox ¿ï¾Ü ¨ä¥¦("FPR-003")....µ¥µ¥ ¥h°õ¦æ°Ê§@®É´NµL°Ê§@
·Q°Ý³oÃä¬O­nµ¹ ¡§FPR-002¡¨,¡¨ FPR-003¡¨¡Kµ¥µ¥ µ¹¥¦¤@­ÓÅܼƭȶÜ??°µ¤@­Ó°j°é§óÅÜ??
½Ð¦U¦ì¤j¤j «ü¾É ±Ð¾Ç ¤@¤U ÁÂÁ @@~

<¤@>
  1. If ListBox1.Value = "FPR-002" Then Worksheets("FPR-002").Activate
  2. If ListBox1.Value = "FPR-003" Then Worksheets("FPR-003").Activate
  3. If ListBox1.Value = "FPR-006" Then Worksheets("FPR-006").Activate
  4.     If ListBox1.Value = "FPR-008" Then Worksheets("FPR-008").Activate
  5.     If ListBox1.Value = "FPR-011" Then Worksheets("FPR-011").Activate
  6.     If ListBox1.Value = "FPR-015" Then Worksheets("FPR-015").Activate
  7.     If ListBox1.Value = "FPR-018" Then Worksheets("FPR-018").Activate
  8.     If ListBox1.Value = "FPR-019" Then Worksheets("FPR-019").Activate
  9.     If ListBox1.Value = "FPR-020" Then Worksheets("FPR-020").Activate
  10.     If ListBox1.Value = "FPR-031" Then Worksheets("FPR-031").Activate
  11.     If ListBox1.Value = "FPR-034" Then Worksheets("FPR-034").Activate
  12.     If ListBox1.Value = "FPR-040" Then Worksheets("FPR-040").Activate
  13.     If ListBox1.Value = "RPR-017" Then Worksheets("RPR-017").Activate
  14.     If ListBox1.Value = "RPR-018" Then Worksheets("RPR-018").Activate
  15.     If ListBox1.Value = "NFPR-010" Then Worksheets("NFPR-010").Activate
½Æ»s¥N½X
<¤G>
  1. Range("A3:C3").Select
  2.             Range(Selection, Selection.End(xlDown)).Select
  3.             Range(Selection, Selection.End(xlDown)).Select
  4.             ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Clear
  5.             ActiveWorkbook.Worksheets("FPR-002").Sort.SortFields.Add Key:=Range( _
  6.             "A4:A1001"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
  7.             xlSortNormal
  8.             With ActiveWorkbook.Worksheets("FPR-002").Sort
  9.             .SetRange Range("A3:C1001")
  10.             .Header = xlYes
  11.             .MatchCase = False
  12.             .Orientation = xlTopToBottom
  13.             .SortMethod = xlPinYin
  14.             .Apply
  15.             End With
  16.             Range("A4").Select
  17.             
  18.             'A:Cªº±Æ§Ç
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD