Sunday, 23 January 2022

UPSC Prelims 2021 Paper Analysis I Geography

 HOME PAGE                                               Geography

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module


Q1. The vegetation of savannah consists of grassland with scattered small trees, but extensive areas have no tree . The forest development in such areas is generally kept in check by one or more or a combination of some conditions. Which of the following are such conditions ?

 1. Burrowing animals and termites

 2. Fire

 3. Grazing herbivores

 4. Seasonal rainfall

 5. Soil properties

 Select the correct answer using the code given below

 A) 1 and 2

 B) 4 and 5 

 C) 2 , 3 and 4

 D) 1 , 3 and 5


 Ans C




Q2. With reference to the water on the planet Earth, consider the following statements:

 1. The amount of water in the rivers and lakes is more than the amount of groundwater.

 2. The amount of water in polar ice caps and glaciers is more than the amount to groundwater.

 Which of the statements given above is/are correct ?

 A) 1 only

 B) 2 only

 C) Both 1 and 2 

 D) Neither 1 nor 2


 Ans B

     

     * Mahasagar - 1370 ( valume)10lake qube kilomiter - 97.25(%)

     * Polar ice cap and glaciers - 29 (valume)10lake qube kilomiter - 2.05 (%)

     * Ground Water - 9.25 (valume)10lake qube kilomiter - 0.68 (%)

     * lake - 0.125 (valume)10lake qube kilomiter - 0.01 (%)

     * Humidity of air - 0.065 (valume)10lake qube kilomiter - 0.005 (%)

     * Air - 0.013 (valume)10lake qube kilomiter - 0.001 (%)

     * River and gotter - 0.0017 (Valume)10lake qube kilomiter - 0.0001 (%)

     * Biospear - 0.0006 (valume)10lake qube kilomiter - 0.00004 (%)




Q3. Consider the following statements:

 1. moringa (drumstick tree ) is a leguminous evergreen tree.

 2. Tamarid tree is endemic to South Asia .

 3. In India, most of the tarmarind is collectd as minor forest produce.

 4. India exports tamarind and seeds of moringa.

 5. Seeds of moringa and tamarind can be used in the production of biofuels.

 Which of the statements given above are correct.

 A) 1,2,4 and 5

 B) 3,4 and 5

 C) 1,3 and 4

 D) 1,2,3 and 5


Ans B




Q4. The black cotton soil of india has been formed due to the weathering of 

 A) Brown forest soil

 B) Fissure volcanic rock

 C) Granite and schist 

 D) Shale and limestone


Ans B


   


Q5. How is permaculture farming different from conventional chemical froming?

 1. Permaculture farming discourages monocultural practices but in conventional chemical farming, monoculture practices are pre-dominant.

 2. Conventional chemical farming can cause increase in soil salinity but the occurrence of such phenomenon is not observed in permaculture farming.

 3. Conventional chemical farmingis easily possible in semi-arid regions but permaculture farming is no so easily possible in such regious.

 4. Practice of mulching is very important in permaculture but not necessarily so in conventional chemical farming.

 Select the correct answer using the code given below.

 A) 1 and 3 

 B) 1,2 and 4

 C) 4 only

 D) 2 and 3 

 

Ans B




Q6.With reference to 'palm oil' , consider the following statements :

 1. The palm oil tree is netive to Southeast Asia.

 2. The palm oil is a raw material for some industries producing lipstick and perfumes.

 3. The palm oil can be used to produce biodiesel.

 Which of the statements given above are correct ?

 A) 1 and 2 only

 B) 2 and 3 only

 C) 1 and 3 only

 D) 1, 2 and 3


Ans B




Q7. With reference to India, Didwana, Kuchaman, Sargol and Khatu are the names of

 A) Glaciers

 B) Mangrove areas 

 C) Ramsar sites

 D) Saline lakes


Ans D





Q8. Consider the following rivers :

 1. Brahmani

 2. Nagavali

 3. Subarnarekha

 4. Vemsadhara

 Which of the above rise from the Eastern Ghat

 A) 1 and 2 

 B) 2 and 4

 C) 3 and 4

 D) 1 and 3


Ans B


Friday, 21 January 2022

UPSC Prelims 2021 Paper Analysis I Science & Technology

 HOME PAGE                                Science & Technology  

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module



Q1. Which one of the Following is used in preparing a natural masquito repellent ?

 

 A) Congress grass

 B) Elephant grass

 C) Lemon grass

 D) Nut grass


Ans c


     * Congress Grass is Danger for the former Cropt . It is not preparing a natural masquito repellent.

     * Elephant Grass is the Very big lief grass.

     * Nut grass is also know as moya grass.

     * Lemon grass praduce the Acorbic acid then it is usid the natural masquito repellent.




Q2. With reference to recent developments regarding 'Recombinant Vector Vaccines', consider the following statements :

 1. Genetic engineering is applied in the development of these vaccines.

 1. Dacteria and viruses are used as vactors.

 Which of the statements given above is/are correct ?

 A) 1 only

 B) 2 only

 C) Both 1 and 2 

 D) Neither 1 nor 2


Ans C


     


Q3. In the context of hereditary diseases, consider the following statements:

 1. Passing on mitochondrial diseases from parest to child can be prevented by mitochondrial replacement therapy either before or after in vitro fertilization of egg.

 2. Achild inherits mitochondrial diseases entirely from mother and not from father.

 Which of the Statements given above is/are correct ?

 A) 1 only

 B) 2 only

 C) Both 1 and 2 

 D) Neither 1 nor 2


Ans C

 

  * DNA  - I) Nuclear DNA

           II) Extra nulear DNA

                               1. Mitochondrial DNA (mt-DNA) 

                               2. Plastid DNA   




Q4. Bollgard I and Bollgard II Technologies are mentioned in the context of 

 A) clonal Propagation of crop plants

 B) Developing genetically modified crop plants.

 C) Production of plant growth substances

 D) Production of biofertilizers 


Ans B


     * Bollgar - I - Single Gene tech - cry - 1 Ac

     * Bollgar - II - Double Gene tech - Cry - 1 Ac and 1 Ab




Q5. In a pressure cooker, the temperature at which the food is cooked depends mainly upon which of the following ?

 1. Area of the hole in the lid

 2. Temperature of the flame

 3. Weight of the lid

 Select the correct answer using the code given below.

 A) 1 and 2 only

 B) 2 and 3 only

 C) 1 and 3 only

 D) 1, 2 and 3 only


Ans D


      


Q6. Water can dissolve more substances than any other liquid becouse.

 A) It is dipolar nature

 B) It is a good conductor of heat

 C) It has high value of specific heat

 D) It is an oxide of hydrogen


Ans A




Q7. With reference to street-lighting , how do sodium lamps differ from LED lamps?

 1. Sodium lamps produce light in 360 degrees but it is not so in the case of LED lamps.

 2.As street-light , sodium lamps have longer life span then LED lamps.

 3.Thee Sectrum of visible light from sodium lamps is almost monochromatic while LED lamps offer significant color advantagers in street-lighting.

 Select the correct answer using the code given below.

A) 3 only

B) 2 only

C) 1 and 3 only

D) 1, 2 and 3 


Ans C

          



 Sodium lamp :-

               * Gas Discharge Based

               * 589-589.56 nm (yellow)



Led :-

      * 400-700 nm 

Some other topics 

Wednesday, 19 January 2022

UPSC Prelims 2021 Paper Analysis I Indian Polity

   HOME PAGE                                     Indian Polity :-

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module



Q1. Under the Indian Constition , concentration of wealth voilates - 

 A) the Right to Equality

 B) the Directive Principles of State Policy.

 C) the Right to Freedom.

 D) the Concept of Welfare.


Ans B

   

    * the Directive Principle of State Policy.     Act 39(C)      



Q2. What is the position of the Right to Property in India.

 A) Legal right available to citizens Only.

 B) Legal right available to any person.

 C) Fundamental Right available to citizens only.

 D) Neither Fundamental Rights nor legal right.

 

Ans D

  

     * Rights to Property in India Position is not difine.

       

                  Rights in India

             .............................

 1. Fundamental Right             2. Legal Right 

      Part - (3)                       Act - 300A and 301

     Act - (12-35)



  * Right to Property     Act - 19(1)(f) 

                          Act - 31 

             44th Constitutional Avetment 1978 . Act - 19(1)(f) and Act - 31 is Deleted and the Part - 12 Act - 300(A)



Q3. What was the exact constitutional status of India on 26th January, 1950 ?

 A) A Democratic Republic.

 B) A Sovereign Democratic Republic.

 c) A Sovereign Secular Democratic Republic.

 D) A Sovereign Socialist Secular Democratic Republic.


Ans B


     * 42th Constitutional Avetment ,1976 Socialist Secular is add .



Q4. Constitutional Government means

 A) A representative government of a nation with federal structure.

 B) A government whose Head enjoys nominal powers.

 C) A government whose Head enjoys real powers.

 D) a government limited by the terms of the Constitution.


Ans D



Q5. Consider the following statements in respect of Bharat Ratna and Padma Awards-

 1. Bharat Ratna and Padma Awards are titles under the Article - 18(1) of the Consitution of India.

 2. Padma Awards, which were instututed in the year 1954, were suspended only once.

 3. the number of Bharat Ratna Awards is restricted to a maximum of five in a particular year.

  Which of the above statements are not correct?

 A) 1 and 2 only

 B) 2 and 3 only

 c) 1 and 3 only

 d) 1,2 and 3 

 

Ans D


      * 1954 - Start Award - Bharat Ratna 

                           - Padam Award - Vibhushan

                                         - bhushan

                                         - shree


      * In the Speacial Category People maximam Number of people who awarded Bharat Ratna is 3 .

      * in 1977 - 1980 and 1992 Bharat Ratna Award is Canceled.

      * Bala ju Raghavan kesh is related to Bharat Ratna Award 




Q6. With reference to India, consider the following statements-

    1. Judicial custody means an accused is in the custody of the concerned and such accused is locked up in police station, not in jail

    2. During judicial custody, the police officer in charge of the case is not allowed to interrogate the suspect without the approval of the  court.

   Which of the statements given above is are correct?

 A) 1 only

 B) 2 only

 C) Both 1 and  2

 D) Nither 1 nor 2 


Ans B



Q7. With reference to India, consider the following statements-

    1. When a prisoner makes out a sufficient case, parole connot be denied to such Prisoner becouse it becomes a matter of his/her right.

    2. State Governments have their own Prisoners Release on Parole Rules.

  Which of the statements given above is/are correct?

  A) 1 only

  B) 2 only

  C) Both 1 and  2

  D) Nither 1 nor 2 

  

Ans B                         


Q8. At the national level , which ministry is the modal agency to ensure effective implementation of the Sucheduled Tribes and Other Traditional Forest Dwellers (Recogition to Forest Rights) Act, 2006 ?
 A) Ministry of Environment, Forest and Climate Chage .
 B) Ministry of Panchayati Raj
 C) Ministry of Rural Development
 D) Ministry of Tribal Affairs

Ans D
                       

Q9. A legislation which confers on the executive or administrative authority an unguided and uncontrolled discretionary power in the matter of application of law violates which one of the following Articles of the Constitution of India?
 A) Article-14
 B) Article-28
 C) Article-32
 D) Article-44

Ans A

      * Article - 14 (Write to Freedom of judiciary) Equality Before Low.


Q10. Which one of the following in Indian polity is an essential feature that indicates that it is federal in character?
 A) The independence of judiciary is safeguarded.
 B) The Union Legistature has elected representatives from consituent units.
 C) The Union Cabinet can have representatives from regional parties.
 D) The Fundamental Rights are enforceable by Court of Low.

Ans A



Q11. Which one of the following best defines the term 'State' ?
 A) A community of persons permanently occupying a definite territory independent of external control and possessing an organized government.
 B) A politically organized people of a definite territory and possessing an authority to govern them, maintain law and order, protect their natural rights and safeguard their means of sustance.
 C) A number of persons who have been living in a difinite territory for a very long time with their own culture, tradition government.
 D) A societypermanently living in a definite territory with a central authority, an executive responsible to the central authority and an independent judiciary.

Ans A

      * Defines the term 'state' in Part 6.
      * This part is cary in USA .

Some other topics 

Saturday, 8 January 2022

MS Excel UserForm Save and Edit Button Part-2 Module

    HOME PAGE      

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module



 1) Save Button Module :-

                                          Let :-  Module

TextBox change Module 

II) Edit Button Module :-

                                         Let :-

                                     MS Excel Work Sheet Name Sale

                                     TextBox1Me.TextBoxPos_Entry_Id

                                     CommandButton1 CommandButtonPosEntryEdit

                                      ListBox1 =  ListBoxPos_Entry_Detail

                                      TextBox1 =   Me.TextBoxPos_Entry_Barcode1

                                     TextBox2 =    Me.TextBoxPos_Entry_Qty1

                                    TextBox3 =      Me.TextBoxPos_Entry_Rate1

                                    TextBox4 =       Me.TextBoxPos_Entry_Discount_Percentage1

                                    TextBox5 =      Me.TextBoxPos_Entry_Discount1

                                    TextBox6 =      Me.TextBoxPos_Entry_Taxtable_Value1

                                    TextBox7 =      Me.TextBoxPos_Entry_Amount1

                                     TextBox8 =     Me.TextBoxPos_Entry_Sales_Man1

Private Sub CommandButtonPosEntryEdit_Click()


'''''''''''validation'''''''''''

 If Me.TextBoxPos_Entry_Barcode1.Value = "" Then

      msgbox "Please Enter the Product Name", vbCritical

      Exit Sub

 End If

 

 If IsNumeric(Me.TextBoxPos_Entry_Qty1.Value) = False Then

     msgbox "Please Enter the Correct Purchase Price", vbCritical

     Exit Sub

End If


If IsNumeric(Me.TextBoxPos_Entry_Rate1.Value) = False Then

     msgbox "Please Enter the Correct Sale Price", vbCritical

     Exit Sub

End If


Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets("Sale")



 

 ''''''''''''Update Data

 Dim lr As Integer

 

 lr = Me.TextBoxPos_Entry_Id.Value

 

 sh.Range("A" & lr + 1).Value = lr

 sh.Range("B" & lr + 1).Value = Me.TextBoxPos_Entry_Barcode1.Value

 sh.Range("C" & lr + 1).Value = Me.TextBoxPos_Entry_Qty1.Value

 sh.Range("D" & lr + 1).Value = Me.TextBoxPos_Entry_Rate1.Value

 sh.Range("E" & lr + 1).Value = Me.TextBoxPos_Entry_Discount_Percentage1.Value

 sh.Range("F" & lr + 1).Value = Me.TextBoxPos_Entry_Discount1.Value

 sh.Range("G" & lr + 1).Value = Me.TextBoxPos_Entry_Taxtable_Value1.Value

 sh.Range("H" & lr + 1).Value = Me.TextBoxPos_Entry_Amount1.Value

 sh.Range("I" & lr + 1).Value = Me.TextBoxPos_Entry_Sales_Man1.Value


 

 

 ''''''''''Clear Boxes

  Me.TextBoxPos_Entry_Barcode1.Value = ""

  Me.TextBoxPos_Entry_Qty1.Value = ""

  Me.TextBoxPos_Entry_Rate1.Value = ""

  Me.TextBoxPos_Entry_Discount_Percentage1.Value = ""

  Me.TextBoxPos_Entry_Discount1.Value = "" 

  Me.TextBoxPos_Entry_Taxtable_Value1.Value = ""

  Me.TextBoxPos_Entry_Amount1.Value = ""

  Me.TextBoxPos_Entry_Sales_Man1.Value = ""


 Call Show_Data

 

 

 msgbox "Product has been Updated in Product Master", vbInformation


End Sub




Private Sub ListBoxPos_Entry_Detail_(ByVal Cancel As MSForms.ReturnBoolean)

     Me.TextBoxPos_Entry_Id.Value = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 0)
 
    Me.TextBoxPos_Entry_Barcode1.Value  =Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 1) 
 
  Me.TextBoxPos_Entry_Qty1.Value = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 2)
 
    Me.TextBoxPos_Entry_Rate1.Value  = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 3)

 Me.TextBoxPos_Entry_Discount_Percentage1.Value = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 4) 
 
  Me.TextBoxPos_Entry_Discount1.Value  = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 5)
 
  Me.TextBoxPos_Entry_Taxtable_Value1.Value  = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 6)

   Me.TextBoxPos_Entry_Amount1.Value  = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 7)
   
    Me.TextBoxPos_Entry_Sales_Man1.Value = Me.ListBoxPos_Entry_Detail.List(Me.ListBoxPos_Entry_Detail.ListIndex, 8)



End Sub



Some other topics:- 










Friday, 7 January 2022

MS Excel UserForm Save and Edit Button Part-1 Module

     HOME PAGE    

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module


Save Button Module :-

                                    Fist Create a  table in ms excel user form .  And Set all the Text Boxes Properties.

as like instruction . In this module fist three line is the module of massage. Next of  line in this program is set the Text box filling check up .  

The Next process is that Add the data in the ms excel data sheets. if the data is complete Adding process then the massage box is open . Click the yes Button in the massage box Data is Add successfully.

       User Form Text boxes properties is write below. 


  1) Save Button Module :-

                                          Let :- 

                                      MS Excel Table Sheet Name = Sale

                                      ListBox1 =  ListBoxPos_Entry_Detail

                                      TextBox1 =   Me.TextBoxPos_Entry_Barcode1

                                     TextBox2 =    Me.TextBoxPos_Entry_Qty1

                                    TextBox3 =      Me.TextBoxPos_Entry_Rate1

                                    TextBox4 =       Me.TextBoxPos_Entry_Discount_Percentage1

                                    TextBox5 =      Me.TextBoxPos_Entry_Discount1

                                    TextBox6 =      Me.TextBoxPos_Entry_Taxtable_Value1

                                    TextBox7 =      Me.TextBoxPos_Entry_Amount1

                                     TextBox8 =     Me.TextBoxPos_Entry_Sales_Man1

                                    CommandButton1 = CommandButtonPos_Entry_Save


Private Sub CommandButtonPos_Entry_Save_Click()


Dim MsgValue As VbMsgBoxResult

MsgValue = MsgBox("Do You Want to save the Date?", vbYesNo + vbInformation, "Confirmation")

If MsgValue = vbNo Then Exit Sub


 '''''''''''validation'''''''''''


  If Me.TextBoxPos_Entry_Barcode1.Value = "" Then

      MsgBox "Please Enter the Barcede", vbCritical

       

      Exit Sub

 End If

 

 If IsNumeric(Me.TextBoxPos_Entry_Qty1.Value) = False Then

     MsgBox "Please Enter the Wright Qty", vbCritical

   

     

     Exit Sub

End If


If IsNumeric(Me.TextBoxPos_Entry_Rate1.Value) = False Then

     MsgBox "Please Enter the wright Rate", vbCritical

     Exit Sub

End If


 

 ''''''''''''Add Data

 Dim lr As Integer

 Set sh = ThisWorkbook.Sheets("Sale")

 

 ''1

 

 lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))

 sh.Range("A" & lr + 1).Value = lr

 sh.Range("B" & lr + 1).Value = Me.TextBoxPos_Entry_Barcode1.Value

 sh.Range("C" & lr + 1).Value = Me.TextBoxPos_Entry_Qty1.Value

 sh.Range("D" & lr + 1).Value = Me.TextBoxPos_Entry_Rate1.Value

 sh.Range("E" & lr + 1).Value = Me.TextBoxPos_Entry_Discount_Percentage1.Value

 sh.Range("F" & lr + 1).Value = Me.TextBoxPos_Entry_Discount1.Value

 sh.Range("G" & lr + 1).Value = Me.TextBoxPos_Entry_Taxtable_Value1.Value

 sh.Range("H" & lr + 1).Value = Me.TextBoxPos_Entry_Amount1.Value

 sh.Range("I" & lr + 1).Value = Me.TextBoxPos_Entry_Sales_Man1.Value

 



 '''''''item Clear

 

 Me.TextBoxPos_Entry_Barcode1.Value = ""

 Me.TextBoxPos_Entry_Qty1.Value = ""

 Me.TextBoxPos_Entry_Rate1.Value = ""

 Me.TextBoxPos_Entry_Discount_Percentage1.Value = ""

 Me.TextBoxPos_Entry_Discount1.Value = ""

 Me.TextBoxPos_Entry_Taxtable_Value1.Value = ""

 Me.TextBoxPos_Entry_Amount1.Value = ""

 Me.TextBoxPos_Entry_Sales_Man1.Value = ""


 Call Show_Data


 MsgBox "Product has been added in Product Master", vbInformation


End Sub



 Sub Show_Data()

  Dim sh As Worksheet

 Set sh = ThisWorkbook.Sheets("Sale")

 Dim lr As Integer

 lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))

  If lr = 1 Then lr = 2

 With Me.ListBoxPos_Entry_Detail

 .ColumnCount = 9

 .ColumnHeads = True

 .ColumnWidths = "100,130,130,100,100,100,100,100,100"

 .RowSource = "Sale!A2:I" & lr

 

End With

End Sub


2) Edit Button Module :-

                                        Let :- Module


 Some other topics:-

1. TextBox change Module           

2. TextBox Enter Module  

Thursday, 6 January 2022

Who to apply Mathematical Formula in MS Excel User Form

 HOME PAGE    

UPSC :-UPSC Prelims 2021 Paper Analysis I Indian Polity             UPSC Prelims 2021 Paper Analysis I Science & Technology                 UPSC Prelims 2021 Paper Analysis I Geography             IAS/PCS Essay Book  Paper Notice and syllabus :PET EXAMINATION SYLLABUS            PET QUESTION PAPER                 SINDHU GHATI SABHYATA                         GST                     B.Ed Second Year Book -2021                            DIGITAL INDIA                    CHILD LABOUR IN INDIA  Competitive Book :- GK/GS Book 2021                              All Competitive Maths Book                    All Competitive Resigning Book            Important Project :-Visual Studio C # Project      Tally Erp9 Account Feature      Microsoft  Excel VBA Project                    who to  apply mathematical Formula in ms excel user form                   MS Excel UserForm Save And Edit Button Part-1 Module          MS Excel UserForm Save And Edit Button Part-2 Module


Type of mathematical Formula :-

                                                    1) Addition

                                                    2) Subtraction

                                                    3) Multiplication

                                                    4) Division

                                                    5) Complex


1) Addition :-

                      First of make a Form in MS Excel User Form  . If you do't know that the who to make the User Form then  First of go to the ms Excel windows button . Click the windows button and select the ms excel option button . And Select the Developer Tab option .

When you Select the Developer tab . Developer tab is open in the ms excel title bar.

The Next Process is that Select the Developer tab and go to the Visual Basic option. And Insert the user form .

   Next is fallow in given below :-

                           All the Button is insert Tool box. What type of need.

   

Textbox automatically charged Module Click Here 

             Let :-   TextBox1 =  TextBoxPos_Entry_Qty1

                            TextBox2 =  TextBoxPos_Entry_Qty2

                            TextBox3 =  TextBoxPos_Entry_Qty3

                            TextBox4 =  TextBoxPos_Entry_Total_Qty

                         CommandButton1 =  CommandButtonPos_Entry_Add


 

  User Form is Competed Design then Double Click the Add Command button.

       Write the below code:-


 Private Sub CommandButtonPos_Entry_Add_Click()

  TextBoxPos_Entry_Total_Qty.Value = Val(TextBoxPos_Entry_Qty1.Value) +                                                                            Val(TextBoxPos_Entry_Qty2.Value)+                                                                                                       Val(TextBoxPos_Entry_Qty3.Value)                                                                                  

End Sub

 Result :-

                 When Run the Program . Text Box is ready to type the Data . But Not type the Total Qty value .

          All the data is Filling in the Text box and Click the Add . Text Box Total Qty Text Box is automatic Fill the total value. 

All the given description is fallow in the below Mathematical Operation.




2) Subtraction :-

                    Let:- TextBox1 =  TextBoxPos_Entry_Dis1

                            TextBox2 =  TextBoxPos_Entry_Amount

                             TextBox3 =  TextBoxPos_Entry_Total_Amount

                          CommandButton1 =  CommandButtonPos_Entry_Subraction


 Private Sub CommandButtonPos_Entry_Subraction_Click()

  TextBoxPos_Entry_Total_Amount.Value = Val( TextBoxPos_Entry_Amount.Value) - Val( TextBoxPos_Entry_Dis1.Value)                    

End Sub



 3) Multiplication :-

                       Let :-  TextBox1 =  TextBoxPos_Entry_Qty1

                                   TextBox2TextBoxPos_Entry_Rate1

                                   TextBox3 =  TextBoxPos_Entry_Amount

                                  CommandButton1 =  CommandButtonPos_Entry_Multiplication

Private Sub CommandButtonPos_Entry_Multiplication_Click()

 TextBoxPos_Entry_Amount.Value = Val(TextBoxPos_Entry_Qty1.Value) * Val(TextBoxPos_Entry_Rate1.Value)


End Sub

    


4) Division :-

                   Let:-        TextBox1 =  TextBoxPos_Entry_Qty1

                                   TextBox2 = TextBoxPos_Entry_Rate1

                                   TextBox3 =  TextBoxPos_Entry_Amount

                                  CommandButton1 =  CommandButtonPos_Entry_Division

Private Sub CommandButtonPos_Entry_Division_Click()

 TextBoxPos_Entry_Amount.Value = Val(TextBoxPos_Entry_Rate1.Value) / Val(TextBoxPos_Entry_Qty1.Value 


End Sub

                         

5) Complex :-

                     Find the Value of Net Amount Maximum Round 2 if Qty and Rate is given.

                       Let :-

                                TextBox1 =  TextBoxPos_Entry_Qty

                                 TextBox2 = TextBoxPos_Entry_Rate

                                 TextBox3 =  TextBoxPos_Entry_Net_Amount

                                 TextBox4 =  TextBoxPos_Entry_Discount_Percentage

                                  CommandButton1 =  CommandButtonPos_Entry_Complex

                           

Private Sub CommandButtonPos_Entry_Complex_Click()


TextBoxPos_Entry_Net_Amount.Value = ((Round((Val(TextBoxPos_Entry_Qty.Value) * Val(TextBoxPos_Entry_Rate.Value)), 2)) - (((Val(TextBoxPos_Entry_Qty.Value) * Val(TextBoxPos_Entry_Rate.Value)) * Val(TextBoxPos_Entry_Discount_Percentage.Value)) / 100))

End Sub



Note :-
       I)    Copy data in one TextBox to another TextBox.

            Let :-
                                  TextBox1 =  TextBoxPos_Entry_Qty1

                                   TextBox2 = TextBoxPos_Entry_Qty2

                                   TextBox3 =  TextBoxPos_Entry_Qty3

                                   TextBox4 =  TextBoxPos_Entry_Qty4

                                   TextBox5 = TextBoxPos_Entry_Qty5

                                   TextBox6 =  TextBoxPos_Entry_Qty6

                         Qty1, Qty2, Qty3 date copy in Qty4, Qty5, Qty6

                              CommandButton1 =  CommandButtonPos_Entry_Copy 


Private Sub CommandButtonPos_Entry_Copy_Click()


    TextBoxPos_Entry_Qty1.Value =   TextBoxPos_Entry_Qty4.Value
    TextBoxPos_Entry_Qty2.Value =  TextBoxPos_Entry_Qty5.Value
    TextBoxPos_Entry_Qty3.Value = TextBoxPos_Entry_Qty6.Value


End Sub

  
       II) If and Else Statement used in UserForm TaxtBox.

         Let :-
                       TextBox1 =  TextBoxPos_Entry_Qty

                       TextBox2 = TextBoxPos_Entry_Sr_No

                   CommandButton1 =  CommandButtonPos_Entry_Refresh 

 Case I:-  If Refresh Command Button is Click then Sr. No. Show Automatic                       



Private Sub CommandButtonPos_Entry_Refresh_Click()

 If TextBoxPos_Entry_Qty.Value = "" Then
 TextBoxPos_Entry_Sr_No.Value = ""
 Else
 TextBoxPos_Entry_Sr_No.Value = 1
 End If                 

End Sub


Case II:- If Refresh Command Button is Click Then Qty and Rate Given Value is Multiply . When qty and Rate is Not Given Then Amount Value is "" .

          Let:-
                       TextBox1 =  TextBoxPos_Entry_Qty

                       TextBox2 = TextBoxPos_Entry_Rate

                       TextBox3 = TextBoxPos_Entry_Amount

                   CommandButton1 =  CommandButtonPos_Entry_Refresh 



Private Sub CommandButtonPos_Entry_Refresh_Click()


 If TextBoxPos_Entry_Qty.Value = "" Then
TextBoxPos_Entry_Amount .Value = ""
 Else
TextBoxPos_Entry_Amount.Value = Val(TextBoxPos_Entry_Rate.Value) * Val(TextBoxPos_Entry_Qty.Value)
 End If  



Seperation method of Glucose in Sugarcane using HPLC || HPLC का उपयोग करके गन्ने से ग्लूकोज को अलग करने का तरीका

 गन्ने में मौजूद ग्लूकोज (glucose) की मात्रा का विश्लेषण करने के लिए LC-MS एक बहुत ही प्रभावी तरीका है। यह तकनीक दो प्रमुख चरणों में काम करत...