Results 1 to 3 of 3

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User delev's Avatar
    Join Date: Nov:2006
    Location:
    Posts: 250

    ,
    , , . , .

    Code:
    Sub neshto-si()
    
    Dim b, c As Double
    Dim a, d As String
    Dim sum As Integer
    
    sum = 0
    
    For k = 1 to 20
    
          b = Sheet2.Cells(k, 2).Value
          a = Sheet2.Cells(k, 3).Value
    
    For i = 1 to 50
    
         c = Sheet1.Cells(i, 2).Value
         d = Sheet1.Cells(i, 3).Value
    
    If b = c Then
    
          sum = sum + 1
    
    End If
    
    If a = d Then
    
         sum = sum + 1
    
    End If
    
    If sum = 2 Then
    
         Sheet1.Cells(i, 1).Value = Sheet2.Cells(i, 1).Value
    
    End if 
    
    sum = 0
    
    Next i
    
    Next k 
    
    End Sub
    , , for "", b a, for "i", c d. b c, a d sum , .. a d, b c, Sheet1.Cells(i, 1).Value. , ?
    .
    Only real eyes
    realise
    real lies

  2. #2
    The point of no return ifch0's Avatar
    Join Date: Jun:2007
    Location:
    Posts: 3,678
    , "" ? , ?

    "" ?

    ', , :

    A, B, C D .

    E :
    (A = C, "y", "n") - A C , .

    F , , :
    ( B = D, "y", "n") - B D .

    G :
    ( = "y", ( F = "y", "y", "n"), "n") - , "y".

    - / - / "y" "G".

    , . , , , .
    Last edited by ifch0; 31st August 2016 at 23:47.
    , , , .
    : ( ) - (); (..) - (..).
    -----! , ...

  3. #3
    geek skrubalov's Avatar
    Join Date: Jan:2009
    Location:
    Posts: 769

    1 B1 C1 D1. E1.

    =IF(CONCATENATE(A1,B1)=CONCATENATE(C1,D1 ),1,0)

    1-
    0-
    Last edited by skrubalov; 1st September 2016 at 13:05.
    - - .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |