एक्सेल मेरा वित्तीय लेखा परीक्षक है

सभी को नमस्कार। पृष्ठभूमि की एक बिट।

जैसे, निश्चित रूप से, किसी भी पत्नी, मेरी बहुत पैसा गिनना पसंद है। इसके अलावा, यह सरल नहीं है: "उन्होंने कितना कमाया और कितना खर्च किया।" नहीं, वह उन्हें समूहों में विभाजित करती है और हर दिन उन्हें गिनती है। यह व्यवसाय काफी थका देने वाला होता है और इसमें काफी समय लगता है, जिसके कारण मैं अक्सर अपने प्रिय को अपनी पीठ के बल मेज पर बैठा देखता हूं। उसके काम को सुविधाजनक बनाने के लिए, और मेरे स्वार्थी उद्देश्यों के कारण, मैंने एक छोटा कैलकुलेटर बनाया।



कई दिनों तक मैंने यह जानने की कोशिश की कि वह पढ़ने के कमरे से क्या चाहती है। अविश्वसनीय प्रयासों की कीमत पर, एक छोटी सूची प्राप्त की गई थी:

आवश्यकताओं

• राजस्व लेखा
  
  
  1. प्राप्ति की तिथि
  2. प्राप्त राशि
  3. किसके कार्ड या कैश पर
  
  
  
• लागत लेखांकन
  
  
  1. खर्च की तारीख
  2. खर्च की राशि
  3. क्या खर्च किया?
  
  
  
• हमारे पास कितना पैसा बचा है
• हम क्या पैसा खर्च कर रहे हैं (अनुसूची)

पसंद

किसी भी प्रोग्रामर की तरह, मेरा एक सवाल था: "क्या लिखना है?" पायथन से जावा तक कई विकल्प थे। लेकिन, जब से मैं एक बहुत आलसी व्यक्ति हूं, मैं बटन "आकर्षित" नहीं करना चाहता। और फिर मैंने एक्सेल को करीब से देखा। "तो यहाँ इंटरफ़ेस है," मैंने खुद से कहा। यह सच है कि यह और भी स्पष्ट रूप से समझा सकता है कि आपका पैसा टेबल से कहां गया है (मैं इन्फोग्राफिक्स के बारे में बात नहीं कर रहा हूं), और हर कोई इसके साथ काम कर सकता है।

प्रक्रिया है

तो, हम एक एक्सेल वर्कबुक बनाते हैं, डिफ़ॉल्ट रूप से तीन शीट हैं, यह हमारे लिए काफी पर्याप्त है।

पहली शीट ("शीट 1")

"1" लाइन में हम दिनांक, राशि, कार्ड / नकद, कुल दर्ज करते हैं







तो, कॉलम "दिनांक" का प्रारूप "दिनांक", "राशि" है - निकटतम पूरे के लिए धन। आपको "कार्ड / कैश" कॉलम के साथ थोड़ा टिंकर करना होगा। सबसे पहले, हम एक सूची बनाएंगे जो इस कॉलम में दिखाई देगी।

"Ctrl" + "राइट एरो" दबाएं, और हम शीट के सबसे दाहिने कॉलम में दिखाई देंगे। यहाँ हम सूची लिखते हैं:

• मेरा कार्ड
• पत्नी का कार्ड
• कैश

अब सेल "D2" पर खड़े होकर "Ctrl" + "डाउन एरो" दबाएं। इसलिए हम हेडर के बिना पूरे कॉलम का चयन करते हैं।

इन कोशिकाओं के लिए एक ड्रॉप-डाउन सूची बनाएं। "डेटा" -> "सत्यापन ..."। खुली खिड़की में, "डेटा प्रकार": "सूची" का चयन करें, और "स्रोत" में उस कॉलम को इंगित करें जिसमें सूची लिखी गई थी, मुझे उदाहरण मिला "= $ IV: $ IV"।

हम पूरे कॉलम का चयन करते हैं ताकि यदि हम कोई आइटम जोड़ते हैं, तो हमें मेनू को पुन: असाइन करने की आवश्यकता नहीं होगी।

अब हमारी कोशिकाओं में एक ड्रॉप-डाउन सूची है।







और अंत में, सेल "D2" में "कुल" कॉलम में: सूत्र यह होगा - "= SUM (B2: B65536)"

पहली शीट तैयार है। यहां हमारी आमदनी होगी।

दूसरी शीट ("शीट 3")

यहां सब कुछ समान है, केवल "कार्ड / कैश" कॉलम के बजाय एक "व्हाट" कॉलम होगा, और ड्रॉप-डाउन सूची भी बदल जाएगी, मेरा, उदाहरण के लिए, अब तक ऐसी प्रविष्टियां हैं।

• उत्पादों
• सिगरेट
• मार्ग
• बियर

तीसरी शीट ("डेटा")

सबसे दिलचस्प बात। शीट कुछ इस तरह दिखती है:





सेल "ए 2" में सूत्र "= शीट 1! डी 2-शीट 3! डी 2" है, और शीट में एक ग्राफ जोड़ें।







यह मुझे लगता है कि परिपत्र अधिक दृश्य है।



अब मैक्रोज़ को चलाने में आसान बनाने के लिए एक पैनल बनाएं। टूलबार पर राइट क्लिक करें -> "सेटिंग" बटन "बनाएँ"। मेरे मेनू को "MyToolBar" कहा जाता है, इस नाम का उपयोग मैक्रो में किया जाएगा, इसलिए यदि आप बदलते हैं, तो वहाँ भी बदलना याद रखें।

हमें एक टूलबार मिला, "Alt" + "F11" दबाएं।

टूलबार में बटन बनाने के लिए मैक्रो:



Public Sub InitToolBar()

Dim cmdBarSm As CommandBar

Dim ctlNewbtn As CommandBarButton

'Application.CommandBars("MyToolBar").Controls(" ").Delete

'Application.CommandBars("MyToolBar").Controls(" ").Delete

'Application.CommandBars("MyToolBar").Controls(" ").Delete

Set cmdBarSm = Application.CommandBars("MyToolBar")

Set ctlNewbtn = cmdBarSm.Controls.Add(msoControlButton)

ctlNewbtn.Caption = " "

ctlNewbtn.FaceId = 26

ctlNewbtn.OnAction = "getMonth"

Set ctlNewbtn = cmdBarSm.Controls.Add(msoControlButton)

ctlNewbtn.Caption = " "

ctlNewbtn.FaceId = 28

ctlNewbtn.OnAction = "getDay"

Set ctlNewbtn = cmdBarSm.Controls.Add(msoControlButton)

ctlNewbtn.Caption = " "

ctlNewbtn.FaceId = 31

ctlNewbtn.OnAction = "GetGroup"

End Sub







लॉक किए गए कोड में इन बटनों को हटाने का आदेश है। पहली बार आपको मैक्रो को इस तरह से चलाना होगा, अन्यथा यह शपथ लेता है कि वह बटन नहीं खोज सकता है।

हमने लागतों की गणना के लिए तीन बटन बनाए हैं: "दिन के अनुसार", "महीने से", "समूह द्वारा"; आईकॉन में आईकॉन को फेसआईडी में सेट किया गया है, जिसे मैक्रोज़ ऑनऑनशन कहा जाता है।



तो GetMonth मैक्रो:



Sub getMonth()

Dim ActSheet As Worksheet

Dim BeginCell As Integer

Dim SumCell As Integer

Dim CurSumCell As Integer

Dim NewData As Boolean

Dim CurData As Date

Dim ValueP As Integer

Dim MonthNow As String



'

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Range("A5", "D65536").Select

Selection.Clear

'

Set ActSheet = Worksheets.Item("3")

BeginCell = 2

CurSumCell = 5

ActSheet.Activate



While ActSheet.Cells(BeginCell, 1).Value <> Empty

NewData = True

SumCell = 5

CurData = ActSheet.Cells(BeginCell, 1).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

'

While ActSheet.Cells(SumCell, 1).Value <> Empty

If MonthName(Month(CurData)) = ActSheet.Cells(SumCell, 1).Value Then

NewData = False

End If

SumCell = SumCell + 1

Wend

'

If NewData Then

ActSheet.Cells(CurSumCell, 1).Value = MonthName(Month(CurData))

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell, 3).Value = ActSheet.Cells(CurSumCell, 3).Value + ValueP

CurSumCell = CurSumCell + 1

End If

'

If Not NewData Then

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell - 1, 3).Value = ActSheet.Cells(CurSumCell - 1, 3).Value + ValueP

End If

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

BeginCell = BeginCell + 1

Wend



'

Set ActSheet = Worksheets.Item("1")

BeginCell = 2

CurSumCell = 5

ActSheet.Activate



' A

While ActSheet.Cells(BeginCell, 1).Value <> Empty

NewData = True

SumCell = 5

CurData = ActSheet.Cells(BeginCell, 1).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

'

MonthNow = ActSheet.Cells(SumCell, 1).Value

While ActSheet.Cells(SumCell, 1).Value <> Empty

If MonthName(Month(CurData)) = ActSheet.Cells(SumCell, 1).Value Then

NewData = False

End If

SumCell = SumCell + 1

Wend

'

If NewData Then

ActSheet.Cells(CurSumCell, 1).Value = MonthName(Month(CurData))

Set ActSheet = Worksheets.Item("1")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell, 2).Value = ActSheet.Cells(CurSumCell, 2).Value + ValueP

CurSumCell = CurSumCell + 1

End If

'

If Not NewData Then

Set ActSheet = Worksheets.Item("1")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value



Set ActSheet = Worksheets.Item("")

ActSheet.Activate

If ActSheet.Cells(CurSumCell - 1, 1).Value <> MonthName(Month(CurData)) Then

ActSheet.Cells(CurSumCell, 4).FormulaR1C1 = "=RC[-2]-RC[-1]"

CurSumCell = CurSumCell + 1

End If

ActSheet.Cells(CurSumCell - 1, 2).Value = ActSheet.Cells(CurSumCell - 1, 2).Value + ValueP

End If

Set ActSheet = Worksheets.Item("1")

ActSheet.Activate

BeginCell = BeginCell + 1

Wend

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

End Sub







मैक्रो गेटडे:



Sub getDay()

Dim ActSheet As Worksheet

Dim BeginCell As Integer

Dim SumCell As Integer

Dim CurSumCell As Integer

Dim NewData As Boolean

Dim CurData As Date

Dim ValueP As Integer

Dim MonthNow As String



'

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Range("F5", "G65536").Clear

'

Set ActSheet = Worksheets.Item("3")

BeginCell = 2

CurSumCell = 5

ActSheet.Activate



While ActSheet.Cells(BeginCell, 1).Value <> Empty

NewData = True

SumCell = 5

CurData = ActSheet.Cells(BeginCell, 1).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

'

While ActSheet.Cells(SumCell, 6).Value <> Empty

If CurData = ActSheet.Cells(SumCell, 6).Value Then

NewData = False

End If

SumCell = SumCell + 1

Wend

'

If NewData Then

ActSheet.Cells(CurSumCell, 6).Value = CurData

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell, 7).Value = ActSheet.Cells(CurSumCell, 7).Value + ValueP

CurSumCell = CurSumCell + 1

End If

'

If Not NewData Then

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell - 1, 7).Value = ActSheet.Cells(CurSumCell - 1, 7).Value + ValueP

End If

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

BeginCell = BeginCell + 1

Wend



Set ActSheet = Worksheets.Item("")

ActSheet.Activate

End Sub







और अंत में अंतिम गेटग्रुप

Sub GetGroup()

Dim ActSheet As Worksheet

Dim BeginCell As Integer

Dim SumCell As Integer

Dim CurSumCell As Integer

Dim NewData As Boolean

Dim CurGroup As String

Dim ValueP As Integer



Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Range("I5", "J65536").Clear

Set ActSheet = Worksheets.Item("3")

BeginCell = 2

CurSumCell = 5

ActSheet.Activate



While ActSheet.Cells(BeginCell, 3).Value <> Empty

NewData = True

SumCell = 5

CurGroup = ActSheet.Cells(BeginCell, 3).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

'

While ActSheet.Cells(SumCell, 9).Value <> Empty

If CurGroup = ActSheet.Cells(SumCell, 9).Value Then

NewData = False

CurSumCell = SumCell + 1

End If

SumCell = SumCell + 1

Wend

'

If NewData Then

If ActSheet.Cells(CurSumCell, 9).Value <> Empty Then

CurSumCell = CurSumCell + 1

End If

ActSheet.Cells(CurSumCell, 9).Value = CurGroup

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell, 10).Value = ActSheet.Cells(CurSumCell, 10).Value + ValueP

CurSumCell = CurSumCell + 1

End If

'

If Not NewData Then

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

ValueP = ActSheet.Cells(BeginCell, 2).Value

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActSheet.Cells(CurSumCell - 1, 10).Value = ActSheet.Cells(CurSumCell - 1, 10).Value + ValueP

End If

Set ActSheet = Worksheets.Item("3")

ActSheet.Activate

BeginCell = BeginCell + 1

Wend

Set ActSheet = Worksheets.Item("")

ActSheet.Activate

ActiveSheet.Shapes("Chart 1").Select

ActiveChart.SetSourceData Source:=Sheets("").Range("I5:J" + CStr(CurSumCell - 1)), PlotBy:= _

xlColumns

End Sub









यहाँ एक दिलचस्प बात है

ActiveSheet.Shapes("Chart 1").Select

ActiveChart.SetSourceData Source:=Sheets("").Range("I5:J" + CStr(CurSumCell - 1)), PlotBy:= _

xlColumns







रेंज में, अपनी सीमा को इंगित करने के लिए मत भूलना, यदि आप, निश्चित रूप से, "डेटा" शीट के स्वरूपण को बदल दिया है।

निष्कर्ष

अब सब कुछ तैयार है। बेशक, मैं परफेक्ट मैक्रो कोड होने का दिखावा नहीं करता, लेकिन यह अपना काम बखूबी करता है। मुझे लगता है कि यह पाठक कई के लिए उपयोगी है और इन नए साल की छुट्टियों पर अपने प्रियजनों के साथ बिताने के लिए थोड़ा समय बचाएगा।