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

¨Ì±ø¥ó¿ï¹ïÀ³­È

¨Ì±ø¥ó¿ï¹ïÀ³­È

¦p¹Ï¡A¦p¦ó¦b²Ä1­Ó¤u§@ªí¤¤¡A¿é¤J¥õª×°_§¤ªº¦¸¼Æ¡Aµ{¦¡·|®Ú¾ÚCÄ檺¨k¡B¤k¡A
¨Ó§PÂ_­n§ä²Ä2­Ó¤u§@ªí¤¤ªº¨º¤@­Ó¹ï·Óªí¡A¦A§â¬Û¹ïÀ³ªº¤À¼Æ¡A¶ñ¦bEÄ椤¡K·PÁ¡K

kun1.zip (11.92 KB)

¦^´_ 1# yeh6712
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer, M As Variant, S As Integer, Rng As Range
  4.     i = 2
  5.     With Sheets("¦¨ÁZÁ`ªí")
  6.         Do While .Cells(i, "C") <> ""
  7.             S = 0               '¤£¬O¨k¤k
  8.             If .Cells(i, "C") = "¨k" Then
  9.                 S = 1                'AÄæ
  10.             ElseIf .Cells(i, "C") = "¤k" Then
  11.                 S = 4                'DÄæ
  12.             End If
  13.             If S > 0 And .Cells(i, "D") > 0 Then   '±ø¥ó: ¦³Äæ¦ì ¥B ¥õª×°_§¤¦¸¼Æ > 0
  14.                 If .Cells(i, "D") < Sheets("¥õª×°_§¤").Columns(S).Cells(2, 1) Then
  15.                     M = Application.Match(.Cells(i, "D"), Sheets("¥õª×°_§¤").Columns(S), 0)
  16.                 ElseIf .Cells(i, "D") >= Sheets("¥õª×°_§¤").Columns(S).Cells(2, 1) Then
  17.                     M = 2  '100¤À
  18.                 End If
  19.                 If IsNumeric(M) Then .Cells(i, "E") = Sheets("¥õª×°_§¤").Columns(S).Cells(M, 2)
  20.                 'Application.Match ¤u§@ªíªº¨ç¼Æ:¨S¦³§ä¨ì®É¶Ç¦^ ¿ù»~­È               
  21.             End If
  22.             i = i + 1
  23.         Loop
  24.     End With
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-4-9 13:14 ½s¿è

¦^´_ 1# yeh6712
1. ¤u§@ªí "¥õª×°_§¤", (²Ä2¦C)´¡¤J¤@¦C, ¨Ã¦U¶ñ 100,
³o¼Ë, ¨k¥Í¶W¹L60¦¸, ¤k¥Í¶W¹L45¦¸¤~¯à§ì¨ì¤À¼Æ
2. ©w¸q¦WºÙ¡G
x=¥õª×°_§¤!$A$2:$A$63
y=¥õª×°_§¤!$D$2:$D$47
¦p¤U¹Ï¡G

3. ¤u§@ªí "¦¨ÁZÁ`ªí" , E2 ¤½¦¡¡G
=IF(C2="¨k",INDIRECT("¥õª×°_§¤!B"&IF(C2="¨k",MATCH(D2,x,-1)+1,MATCH(D2,y,-1)+1)),INDIRECT("¥õª×°_§¤!E"&IF(C2="¨k",MATCH(D2,x,-1)+1,MATCH(D2,y,-1)+1)))
¦V¤U©Ô
½Ð°Ñ¦Ò!!
µù¡G­ìªþ¹Ï, ¤k¥Í45¦¸, À³¬°100¤À, §A»~¶ñ¬°¨k¥Íªº95¤À,
®`§Ú¥H¬°¤½¦¡¦³°ÝÃD, ¬d¤F¥b¤Ñ¤~µo²{°ÝÃD©Ò¦b.

TOP

¦^´_ 3# yen956

¤£¦n·N«ä­ì¹Ï¦³»~¡K·PÁ±z

TOP

¥»©«³Ì«á¥Ñ yeh6712 ©ó 2014-4-9 18:23 ½s¿è

¦^´_ 2# GBKEE

·PÁ¤j¤jªºµ{¦¡¡K¤F¸Ñ¡KÁÂÁ¡K¡I
¥Ø«e¬O¿é¤J¦¸¼Æ«á¡A¦A°õ¦æµ{¦¡¡A¤~¥iÅã¥Ü¤À¼Æ¡K
¥i§_¦b¿é¤J³æµ§¦¸¼Æ«á§YÅã¥Ü¬Û¹ïÀ³ªº¤À¼Æ¡K¡H

TOP

¦^´_ 5# yeh6712
©êºp, ¦Ò¼{¤[©P, ­×¥¿¤½¦¡¦p¤U¡G
=IF($D2="","",IF($C2="¨k",INDIRECT("¥õª×°_§¤!B"&IF($C2="¨k",MATCH($D2,x,-1)+1,MATCH($D2,y,-1)+1)),INDIRECT("¥õª×°_§¤!E"&IF($C2="¨k",MATCH($D2,x,-1)+1,MATCH($D2,y,-1)+1))))
¦V¤U©Ô, ¦h©Ô¤@ÂI¨SÃö«Y
¸Õ¹L¤F, À³¸Ó¨S°ÝÃD

TOP

¥»©«³Ì«á¥Ñ yeh6712 ©ó 2014-4-9 19:09 ½s¿è

¦^´_ 6# yen956
·PÁ±z§Ö³tªº¦^µª¡K
·s¤½¦¡OK¤F¡KÁÂÁ¡K¡I

TOP

¦^´_ 5# yeh6712
  1. Option Explicit
  2. '¦¨ÁZÁ`ªí ¤u§@ªí¼Ò²Õ: ¤u§@ªí¤WÀx¦s®æ¦³­×§ïªº¹w³]µ{¦¡
  3. Private Sub Worksheet_Change(ByVal Target As Range)  'TargetÅܼÆ->¤u§@ªí¤W¦³§ïÅܭȪºÀx¦s®æ
  4.     Dim Rng As Range, S As Integer, T As Range
  5.     If Target.Column = 3 Or Target.Column = 4 Then 'CÄæ ©Î DÄæ
  6.         Set T = Cells(Target.Row, "D")              'DÄæ
  7.         If (Cells(Target.Row, "C") = "¨k" Or Cells(Target.Row, "C") = "¤k") And IsNumeric(T) Then
  8.             With Sheets("¥õª×°_§¤")
  9.                 If Cells(Target.Row, "C") = "¨k" Then
  10.                     Set Rng = .Range("A2:A" & .[A2].End(xlDown).Row)
  11.                 Else
  12.                     Set Rng = .Range("D2:D" & .[D2].End(xlDown).Row)
  13.                 End If
  14.             End With
  15.             If T >= Rng.Cells(1) Then
  16.                 T.Cells(1, 2) = Rng.Cells(1, 2)
  17.             ElseIf T < Rng.Cells(1) And T > 0 Then
  18.                 S = Rng.Cells(1) - T
  19.                 T.Cells(1, 2) = Rng.Cells(S + 1, 2)
  20.             Else
  21.                 T.Cells(1, 2) = ""    'EÄæ
  22.             End If
  23.         Else
  24.            If T.Row > 1 Then T.Cells(1, 2) = ""      ' EÄæ ¦C¼Æ>1
  25.         End If
  26.     End If
  27. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ yeh6712 ©ó 2014-4-9 22:37 ½s¿è

¦^´_ 8# GBKEE

·PÁ¡K¤F¸Ñ¤F¡K:)

¤u§@ªí¤WÀx¦s®æ¦³­×§ïªº¹w³]µ{¦¡¡÷¬O¤£¬OÀx¦s®æ¥²¶·¦³¤â°Ê¿é¤J¤~ºâ¡A
¹w¥ý¥Î¤½¦¡¼g¦n¡A¦A¦Û°Êºâ¥X¨Óªº´N¤£ºâÀx¦s®æ¦³­×§ï¹L¡A¬O¶Ü¡H
¨Ò¡G ¹w³]C1=A1+B1  ¡AA1¿é¤J2 ¡A B1¿é¤J3 ¡A«hC1¦Û°Êºâ¥X5
³o®É¡AÀx¦s®æC1´N¤£ºâ¬O¦³­×§ï¹L¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-10 06:17 ½s¿è

¦^´_ 9# yeh6712
   
¨Ò¡G ¹w³]C1=A1+B1  ¡AA1¿é¤J2 ¡A B1¿é¤J3 ¡A«hC1¦Û°Êºâ¥X5
³o®É¡AÀx¦s®æC1´N¤£ºâ¬O¦³­×§ï¹L¶Ü

¤½¦¡­Èªº§ïÅܥέ«ºâ¨Æ¥ó
  1. Private Sub Worksheet_Calculate()
  2. MsgBox "A"
  3. End Sub
½Æ»s¥N½X
ÁÙ¦³³\¦h ¤u§@ªíªºÄ²°Ê¨Æ¥óµ{§Ç¥i¥Î

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD