本文目录一览：
- 1、Excel记账本怎么用
- 2、Excel表格中怎么自制记账本
- 3、如何用Excel制作记账本
- 4、谁有 Excel进销存记账本2.0 破解 密码
- 5、在用excel制作的记账本中实现自动计算当天的收入总和支出总和及余额
Excel记账本怎么用
记账是一个好习惯，但一定要支持下去。如果能用一个简单方便的工具，将如虎添翼。那么，怎么用EXCEL记账？
（1）首先，打开电脑后，找到EXCEL图标，双击打开它。
（2）按照你的个人习惯，设置你的日记账格式。例如写上日期，收入，支出。
（3）在日期的下一行，写上当天的时间：某年某月某日
（4）然后在收入和支出栏下，写下当天的收入数和支出数额。
（5）最后，选中日期、收入、支出三栏，将它们改为红色或者你自己喜欢的颜色，再把它们的字体加粗即可。
Excel表格中怎么自制记账本
首先新建一个Excel表格，然后打开。
2.在最上面一行输入各类开支名目，然后再日期栏输入两个开始日期。
3.利用EXCEL本身的自动接续功能将日期补充完毕。
4.然后在左下角sheet1上点右键——重命名，改为1月。
5.然后利用EXcel的求和功能在合计一栏输入公式。
6.再利用自动接续功能将其他项目公式自动生成。由于我们目前没有填写数据，所以都是0.
7.如果是在笔记本上看可能会觉得不方便，因为上面被遮挡了。我们可以利用EXCEL的冻结窗口功能，让项目栏一直显示。方法就是，选中项目栏下的那一栏，然后依次选择窗口——冻结窗口。
8.再来看看，项目栏就会一直显示了，这样就能很方便的知道自己当月在各项开支上的金额了。
9.为了看起来更加简洁，我们可以在sheet表格中继续插入sheet表，一直加到12个，然后改为各个月份，里面的内容可以直接复制1月的表格内容，然后只需对时间项进行修改就OK了。
如何用Excel制作记账本
用Excel制作记账本，可以按用途功能来制作，方法如下：
一、初步设计账本
1、首先罗列出你日常生活中的开销，可以分为几个大类，如日常生活，固定支出等等，同时先给自己制定一个预算，小编自己用的记账本如下：
2、新建一个表格，详细列出自己的支出。写上日期，消费类别，消费数额以及付款方式。
3、至此表格就制作完成了，
下面来看如何列用行数来自动统计我们日常生活中的具体消费，这样对我们的消费明细就能更好的了解。
二、自动统计消费
1、账本制作好了，后续我们要做的事情就是把自己的生活消费都放在明细这个工作表就可以了，计划这张表我们让他自己来填写。
我们以日常生活用品为例：
=SUMIFS(详细!$C$2:$C$3000,详细!$B$2:$B$3000,B14,详细!$A$2:$A$3000,"="G$1,详细!$A$2:$A$3000,"="H$1)
简单说明：
我们要计算详细表中C列中第二行到第3000行数据。
条件：
（1）对应的B列是日常生活用品(B14)，
（2）消费日期在2014-1-1（G1）到2014-12-31（H1)之间；
2、其他对应的位置，通过复制--粘贴就能达到如下的效果，当然“小计”部分需要通过sum函数来完成哦。
三、分月统计
1、上述是统计全年的，那如何统计每个月份的部分呢，这个也很容易，需要做如下的步骤；
2、复制计划这个表格；
3、选中建立副本并点击确定；
修改掉一些不需要的项目。修改工作表名称，同时修改时间。
4、
这样我们的记账本就制作好了，
后面我们就需要在这个账本的详细工作表中填写之间的日常消费就可以了。
谁有 Excel进销存记账本2.0 破解 密码
用以下方法，亲测可用！
Excel工作表保护密码清除2009-05-23 14:461，打开需要解除保护的EXCEL工作表；
2，选择工具---宏----录制新宏---输入名字如:aa；
3，停止录制(这样得到一个空宏)；
4，工具---宏----宏,选aa,点编辑按钮；
5，删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)；
6，关闭编辑窗口；
7，工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,旧的密码自动提示，工作表也自动解除保护了。
内容如下：
==================================================================================
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine vbNewLine
Const AUTHORS As String = DBLSPACE vbNewLine _
"Adapted from Bob McCormick base code by" _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE "Please report failure " _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE "The workbook should " _
"now be free of all password protection, so make sure you:" _
DBLSPACE "SAVE IT NOW!" DBLSPACE "and also" _
DBLSPACE "BACKUP!, BACKUP!!, BACKUP!!!" _
DBLSPACE "Also, remember that the password was " _
"put there for a reason. Don't stuff up crucial formulas " _
"or data." DBLSPACE "Access and use of some data " _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " _
"sheets, or workbook structure or windows." AUTHORS VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " _
"workbook structure or windows." DBLSPACE _
"Proceeding to unprotect sheets." AUTHORS VERSION
Const MSGTAKETIME As String = "After pressing OK button this " _
"will take some time." DBLSPACE "Amount of time " _
"depends on how many different passwords, the " _
"passwords, and your computer's specification." DBLSPACE _
"Just be patient! Make me a coffee!" AUTHORS VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " _
"Structure or Windows Password set." DBLSPACE _
"The password found was: " DBLSPACE "$$" DBLSPACE _
"Note it down for potential future use in other workbooks by " _
"the same person who set this password." DBLSPACE _
"Now to check and clear other passwords." AUTHORS VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " _
"password set." DBLSPACE "The password found was: " _
DBLSPACE "$$" DBLSPACE "Note it down for potential " _
"future use in other workbooks by same person who " _
"set this password." DBLSPACE "Now to check and clear " _
"other passwords." AUTHORS VERSION
Const MSGONLYONE As String = "Only structure / windows " _
"protected with the password that was just found." _
ALLCLEAR AUTHORS VERSION REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) Chr(j) Chr(k) Chr(l) _
Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation, HEADER
End Sub
==============================================================================
Excel表格密码保护的解除方法
表格受密码保护时，我们修改数据Excel弹出“您试图更改的单元格或图表受保护，因而是只读的。若要修改受保护单元格或图表，请先使用‘撤消工作表保护’命令(在‘审阅’选项卡的‘更改’组中)来取消保护。可能会提示您输入密码。这时候我们可以用VBA宏代码破解法来破解表格保护密码：第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”。再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker，点击“确定”退出；第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) Chr(j) Chr(k) _
Chr(l) Chr(m) Chr(i1) Chr(i2) Chr(i3) _
Chr(i4) Chr(i5) Chr(i6) Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " Chr(i) Chr(j) _
Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) Chr(j) _
Chr(k) Chr(l) Chr(m) Chr(i1) Chr(i2) _
Chr(i3) Chr(i4) Chr(i5) Chr(i6) Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了
第四步：点击“撤消工作表保护”，然后输入密码即可解除锁定；
在用excel制作的记账本中实现自动计算当天的收入总和支出总和及余额
1，我用的是这样的公式：在最上面（K1）=SUBTOTAL(9,K3:K3640)，就是对所选择的K3到K3640格进行求和。这里“所选择的”是指用筛选选择出来的。比如筛选本日的，就只求本日的和。想到要求什么合计数，就在每笔业务上加一个标识，日期是可以选择某一天，月份就可以选择某月了……。余额是由上一行的余额加上本条增加数减去本条减少数得出。
2，查收入支出的范围也是用到筛选功能。在筛选中选择自定义，挺多功能的。只要选择了，上面的数就会计算出来。