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

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

¦^´_ 10# GBKEE

¹w¥ý¼g¦nFÄ檺¤½¦¡¡A¨Ã©Ô¦ÜF16¡A¦A©óD¡BEÄæ¿é¤J¦¸¼Æ¡AFÄæ¦Û°Êºâ¥X¥­§¡¦¸¼Æ¡A
¦ý¨Ã¤£·|IJµoGÄ檺¤À¼Æ¡K­«ºâ¨Æ¥óªºµ{§Ç­n¥[¦bVBAªº¨º¸Ì¡H¦p¦ó¼g¡HÁÂÁ±z¡K

kun2.zip (23.54 KB)

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD