Questions Excel වැඩ්ඩෙක් වරෙන්. formula එකක් දෙපැත්තටම calculate වෙන්න?

rukshrulz

Well-known member
  • Jul 16, 2013
    9,961
    16,990
    113
    Colombo
    1 Pcs Cost:​
    Rs. 1,495.99​
    Profit Margin:​
    20%​
    Resell Value:​
    Rs. 1,795.18​
    1 Pcs Profit:​
    Rs. 299.20​

    sheet එකක මෙහෙම data ටිකක් තියනව. මට ඕනෙ එකින් එක values change කරාම අනිත් values ඒ change කරපු value එක අනුව calculate වෙන්න.
    හිතපන් මට resell value එක 2000 කරන්න ඕනෙ කියල. එතකොට profit margine, 1pc profit එක calculate වෙන්න ඕනෙ.
    1 pc profit change කරාම profit margine, resell value change වෙන්න ඕනෙ.

    කොහොමද මෙහෙම 2 way formula එකක් ලියන්නෙ?
     

    hasithayad

    Well-known member
  • Sep 28, 2011
    30,792
    1
    44,999
    113
    excel නම් එච්චර දන්නෙ නැත. හැබැයි දෙපැත්තට calculate වෙනකොට infinite loop එකකට සෙට් නොවෙන්න නම් focus වෙච්ච cell එකට අදාල keydown event එකේ formula එක ලියන්න ඕනෙ.
     
    • Like
    Reactions: rukshrulz

    rukshrulz

    Well-known member
  • Jul 16, 2013
    9,961
    16,990
    113
    Colombo
    excel නම් එච්චර දන්නෙ නැත. හැබැයි දෙපැත්තට calculate වෙනකොට infinite loop එකකට සෙට් නොවෙන්න නම් focus වෙච්ච cell එකට අදාල keydown event එකේ formula එක ලියන්න ඕනෙ.
    sinhalen කියපන්. :angry:
     

    hasithayad

    Well-known member
  • Sep 28, 2011
    30,792
    1
    44,999
    113
    1 Pcs Cost:​
    Rs. 1,495.99​
    Profit Margin:​
    20%​
    Resell Value:​
    Rs. 1,795.18​
    1 Pcs Profit:​
    Rs. 299.20​

    sheet එකක මෙහෙම data ටිකක් තියනව. මට ඕනෙ එකින් එක values change කරාම අනිත් values ඒ change කරපු value එක අනුව calculate වෙන්න.
    හිතපන් මට resell value එක 2000 කරන්න ඕනෙ කියල. එතකොට profit margine, 1pc profit එක calculate වෙන්න ඕනෙ.
    1 pc profit change කරාම profit margine, resell value change වෙන්න ඕනෙ.

    කොහොමද මෙහෙම 2 way formula එකක් ලියන්නෙ?
    https://file.io/ragmaN0t9qOq

    Contents Enable කරලා ගන්න
     
    • Like
    Reactions: rukshrulz

    rukshrulz

    Well-known member
  • Jul 16, 2013
    9,961
    16,990
    113
    Colombo
    https://file.io/ragmaN0t9qOq

    Contents Enable කරලා ගන්න
    open wenne naneee

    image.png
     

    kasun090354t

    Well-known member
  • Aug 21, 2011
    24,318
    36,432
    113
    කෑගල්ල
    worksheet එකේ selection change වලට macro එකක් ලියන්න වෙනවා. මේ තියෙන්නේ sample එකක් ඔය A1,B1,C1 කියන cells තුන වෙනස් වෙනකොට අදාළ formula ලියන්න ඔනී if condition ඇතුලේ. මේක C # නෙමේ VBA
    C#:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count > 1 Then Exit Sub           
    If Not Intersect(Target, Range(Activesheet.range("A1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("B1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("C1")) Is Nothing Then
    
    
    end if
    end sub

    DOWNLOAD කරපු එකක් නිසා වෙන්නැති. file එක උඩ right click කරලා unblock කරන්න

    Windows-10-unblock-a-file-544x600.png
    ජාතික ප්‍රශ්න වෙනම video එකක් හදන ඉන්නේ job එකත් එක්කම යවන්න. :lol: :lol:
    ------ Post added on Jun 14, 2023 at 1:36 PM
     

    hasithayad

    Well-known member
  • Sep 28, 2011
    30,792
    1
    44,999
    113
    worksheet එකේ selection change වලට macro එකක් ලියන්න වෙනවා. මේ තියෙන්නේ sample එකක් ඔය A1,B1,C1 කියන cells තුන වෙනස් වෙනකොට අදාළ formula ලියන්න ඔනී if condition ඇතුලේ. මේක C # නෙමේ VBA
    C#:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count > 1 Then Exit Sub         
    If Not Intersect(Target, Range(Activesheet.range("A1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("B1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("C1")) Is Nothing Then
    
    
    end if
    end sub


    ජාතික ප්‍රශ්න වෙනම video එකක් හදන ඉන්නේ job එකත් එක්කම යවන්න. :lol: :lol:
    ------ Post added on Jun 14, 2023 at 1:36 PM
    මේ ඉන්නෙ VBA වැඩ්ඩෙක්. :D මම නිකන් ඇටෙව්ව විතරයි බන්. ෆයිල් එකම යැව්වෙ code එක දාගන්න බැරිවෙයි කියල :lol:
     
    • Love
    Reactions: rukshrulz

    rukshrulz

    Well-known member
  • Jul 16, 2013
    9,961
    16,990
    113
    Colombo
    DOWNLOAD කරපු එකක් නිසා වෙන්නැති. file එක උඩ right click කරලා unblock කරන්න

    Windows-10-unblock-a-file-544x600.png

    worksheet එකේ selection change වලට macro එකක් ලියන්න වෙනවා. මේ තියෙන්නේ sample එකක් ඔය A1,B1,C1 කියන cells තුන වෙනස් වෙනකොට අදාළ formula ලියන්න ඔනී if condition ඇතුලේ. මේක C # නෙමේ VBA
    C#:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count > 1 Then Exit Sub          
    If Not Intersect(Target, Range(Activesheet.range("A1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("B1")) Is Nothing Then
    
    
    end if
    If Not Intersect(Target, Range(Activesheet.range("C1")) Is Nothing Then
    
    
    end if
    end sub
    noice. badu wada. :love:
     
    • Like
    Reactions: hasithayad