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

[µo°Ý] [¨D§U] VBA ¤ñ¹ï«á«ùÄò¬Û´î °ÝÃD

[µo°Ý] [¨D§U] VBA ¤ñ¹ï«á«ùÄò¬Û´î °ÝÃD

EXCEL A ­¶
¦³¨â¦W¦P¾Ç »P ¨C¤éªá¶O


EXCEL B ­¶
¨â¦W¦P¾Ç¦s´Ú




VB¼gªk

Sub TEST()

Dim i As Integer
Dim j As Integer

Sheets("A").Select
        
       i = 3
      
    Do While Range("B" & i) <> ""
   
       j = 3
      
    Do While Sheets("B").Range("A" & j) <> ""
        If Range("B" & i) = Sheets("B").Range("A" & j) Then
           Range("D" & i) = Sheets("B").Range("B" & j) - Sheets("A").Range("C" & i)
    Exit Do
         End If
            j = j + 1
  Loop
            i = i + 1
Loop

MsgBox " TEST! "


End Sub
°ÝÃDÂI ¥L¥u·|¤ñ¹ï«á¨Ï¥Î¦s´Ú¬Û´î ·í¤éªá¶O ¨Ã¤£·|³sÄò¬Û´î
¨Ò¦p ¤p©ú ¦s´Ú 5000 ( 1/30 ¤p©ú ªá¶O 300 ) ( ¦s´Ú5000 - 300 = 4700 ) ¨ãÄò¤ñ¹ï 2/13 ¤p©ú ªá¶O 200 ( ¦s´Ú 5000 - 200 = 4800 )

½Ð±Ð¦U¦ì°ª¤â
«ü¾É¤@¤U §Æ±æ¥i¥H§ï¦¨
¨Ò¦p ¤p©ú ¦s´Ú 5000 ( 1/30 ¤p©ú ªá¶O 300 ) ( ¦s´Ú5000 - 300 = 4700 ) ¨ãÄò¤ñ¹ï 2/13 ¤p©ú ªá¶O 200 ( ¦s´Ú 4700 - 200 = 4500 )


¾Ò´o³\¤[¡A¤@ª½µLªk¸Ñ¨M¡C¡C¡C
·Ð½Ð«ü¾É¤@¤U !

3.jpg (36.11 KB)

3.jpg

¦^´_ 2# lpk187

«D±`·PÁÂÀ°§U..
¥i¬Oµ²ªG¦ü¥G¤£¤Ó¥¿½T !!
4.jpg
¤ý¤p©ú ²Ä¤G¦¸ªá¶OÅܦ¨­t¼Æ ...

TOP

¦^´_  sabery
lpk187 µoªí©ó 2015-4-11 23:02



    «D±`·PÁª©¤j !!
¤wª¾¹D°ÝÃDÂI¦b­þÃä !!

TOP

¥»©«³Ì«á¥Ñ sabery ©ó 2015-4-12 05:11 ½s¿è
¦^´_  sabery
lpk187 µoªí©ó 2015-4-11 23:02


            If Range("D" & i) < 0 Then
                Range("D" & i).Interior.Color = vbRed
                Else
                Range("D" & i).Font.Color = vbBlack
                End If

               
ª©¤j ¦A¦¸½Ð±Ð¤U !!  
¤µ¤Ñ °²¦p·Q§â­t¼Æ§ä¥X¨Ó §Ú¤å¤¤³o¼Ë¼g ¥u¦³³æ¿W§â Range("M" & i) ¸Ó®æ¤Ï¬õ ¦p¦ó§â¾ã¦æ¤Ï¬õ©O !!
¤£¦n·N«ä ·s¤â¤W¸ô ¯uªº¯uªº½Ð¦h­@¤ß«ü¾É !!

TOP

¦^´_  sabery
lpk187 µoªí©ó 2015-4-11 23:02


¥Ø«e¬O¦³¥Î³Ì²Â¤èªk
If Range("D" & i) < 0 Then
                Range("A" & i).Interior.Color = vbRed
                Range("B" & i).Interior.Color = vbRed
                Range("C" & i).Interior.Color = vbRed
                Range("D" & i).Interior.Color = vbRed
                Else
                Range("A" & i).Interior.Color = vbWhite
                Range("B" & i).Interior.Color = vbWhite
                Range("C" & i).Interior.Color = vbWhite
                Range("D" & i).Interior.Color = vbWhite
                End If

¤£ª¾¹D¦³¨S¦³§ó¦n¤è¦¡!?
¦]¬°­I´º´«¦â¾É­P½u¤£¨£¤F

TOP

¥»©«³Ì«á¥Ñ sabery ©ó 2015-4-15 05:21 ½s¿è
¦^´_  sabery
§c¡I§Ú¤£¬Oª©¤j¡A§Ú¤]¥u¬O­Ó·s¾Ç­û¦Ó¤w¡I
¸Õ¸Õ³o­Ó
lpk187 µoªí©ó 2015-4-12 23:05


¤£¦n·N«ä ª©¤j ³Ì«á¤@°Ý °²¨Ï
¤µ¤Ñ¼W¥[¤@·s¦P¾Ç
¤ý¤p´¼
1.jpg

¥i¬O¦s´Ú«o¨S¦³¥Lªº¸ê®Æ
13.jpg

§Æ±æ¦bD¥X²{­t¼Æ¤£°÷¦s´Ú ©Ò¥HÅã¥Ü
¨Ò¦p
2015/02/13       
§f¾å´¼        200  DÄæ = ¤£°÷
2015/02/26
§f¾å´¼        400  DÄæ = ¤£°÷
³o¼Ë¼g
  1. Sub TEST()
  2. Dim i As Integer
  3. Dim j As Integer
  4. Dim B As Long
  5. Sheets("A").Select
  6.        j = 5
  7.     Do While Sheets("B").Range("A" & j) <> ""
  8.            i = 6
  9.         Do While Range("B" & i) <> ""
  10.             If Range("B" & i) = Sheets("B").Range("A" & j) Then
  11.                 B = Sheets("A").Range("C" & i) + B
  12.                 Range("D" & i) = Sheets("B").Range("B" & j) - B
  13.             ElseIf Range("B" & i) <> Sheets("B").Range("A" & j) Then
  14.                 Range("D" & i) = "¤£°÷"
  15.             End If
  16.                 i = i + 1
  17.         Loop
  18.                 B = 0
  19.                 j = j + 1
  20.     Loop
  21. MsgBox " TEST! "
  22. End Sub
½Æ»s¥N½X
¥i¬O¿ù»~  ³s¤ý¤p©ú ³£¶]±¼ !
¥i¥H¦A¦¸«ü¾É¶Ü? «ô°U¤F.

TOP

¦^´_  sabery


  ¤U­±¬O§Ú°õ¦æªºµ²ªG
B¤u§@ªí

A¤u§@ªí
lpk187 µoªí©ó 2015-4-15 20:31


¤Ó±j¤F ...
¦]¬°¬O¿³½ì·Q¦Û¾Ç! ·íªì¾Ç®Õ¦³±Ð¹L¤@ÂIÂI .
¤£ª¾¹Dª©¤j¤]¬O¶Ü? ÁÙ¬O¦³¥h¤W¹L©O ?

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD