高难度表格图片大全

‘壹’ 怎么做高难度表格

20分就要“万能”的表格？做梦吧？出2亿也弄不来“万能”的东西呀。

‘贰’ EXCEL表格制作（高难度会计类）

假设第一个表格叫Sheet1（不是的话，改下面的公式）。
在表格一中，点E列，右键，插入列。在E2输入=C2&D2&A2，鼠标移到E2右下角，双击那个“+”。
在表格二中，把商品二字都去掉（不去也行，但下面公式中得用函数Right），
在B2输入
=SUMIF(Sheet1!$E$2:$E$1000,$A2&B$1&"存入",Sheet1!$F$2:$F$1000)-SUMIF(Sheet1!$E$2:$E$1000,$A2&B$1&"支出",Sheet1!$F$2:$F$1000)
公式往下、往右复制。完成。

‘叁’ 急求一张相对比较复杂的含有公式的excel表格，最好附有图片和显示出公式！谢谢！

‘肆’ 高难excel表格制作；请高手指教，如能解决，绝对加分或QQ1095939208现金支付报酬也可（不是高手勿扰）；急

这的确不算高难度。

在VBA中插入一个模块，将以下代码粘贴进去，执行其中的DismantleSUM()过程，即刻完成任务。
执行过程前，请确保你需要拆分合计的表处于活动状态，即先单击它置于最前，再执行此过程。

注意：要再次运行拆分汇总DismantleSUM过程，请先运行DeleteMonthSheet将自动生成的各汇总表删除，否则，分月汇总数据会自动递增。

'以下为完整代码（草稿，可能并不完善）：

Sub DismantleSUM()
'对活动工作表按项目拆分表并合计
'该过程只能运行一次，否则，分月合计会自动增加，但汇总数据准确

Dim mySheet As Worksheet
Dim Rs As Long, R As Long, theR As Long
Dim C As Integer, Cs As Integer
Dim StrDate As String, StrSheet As String, StrHang As String '项目
'Dim StrMoney As Currency '金额
Dim StrMoney As Long '金额

Set mySheet = ActiveSheet

Rs = EndRow(mySheet)
Cs = EndCol(mySheet)

'关闭屏刷
Application.ScreenUpdating = False

'添加汇总表
StrSheet = "汇总表"
If SheetBol(StrSheet) = False Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
End If

With Worksheets(Worksheets.Count)
.Name = StrSheet
.Cells.Clear
.Cells(1, 1).Value = "项目"
.Cells(1, 2).Value = "付款金额"
End With

With mySheet

For R = 2 To Rs
For C = 2 To Cs Step 2

StrHang = CStr(.Cells(R, 1).Value) '项目
StrDate = CStr(.Cells(R, C).Value) '日期
StrMoney = .Cells(R, C + 1).Value '金额

If IsDate(StrDate) = True Then

'添加当月表
StrSheet = Format(StrDate, "yyyy-mm")
If SheetBol(StrSheet) = False Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
.Name = StrSheet
.Cells(1, 1).Value = "项目"
.Cells(1, 2).Value = "付款金额"
End With
End If

'目标表的行号
theR = FindRow(Worksheets(StrSheet), StrHang)

'既有项目金额相加，否则下移行
If theR <> 0 Then
StrMoney = Worksheets(StrSheet).Cells(theR, 2) + StrMoney
Else
theR = EndRow(Worksheets(StrSheet)) + 1
End If
With Worksheets(StrSheet)
.Cells(theR, 1) = StrHang
.Cells(theR, 2) = StrMoney
End With

'处理汇总表
theR = FindRow(Worksheets("汇总表"), StrHang)
If theR = 0 Then
theR = EndRow(Worksheets("汇总表")) + 1
End If
StrMoney = mySheet.Cells(R, C + 1).Value
With Worksheets("汇总表")
.Cells(theR, 1) = StrHang
.Cells(theR, 2) = .Cells(theR, 2).Value + StrMoney
End With

End If
Next
Next
End With

Set mySheet = Nothing

Application.ScreenUpdating = True

MsgBox "处理完毕！", vbInformation, "易健生活网提示"

'排序一下表名
Call SheetSort

End Sub
Sub DeleteMonthSheet()
'删除分月合计及汇总表
On Error GoTo handerr

Dim mySheet As Worksheet
Dim Rs As Long, R As Long
Dim C As Integer, Cs As Integer
Dim StrDate As String, StrSheet As String

If MsgBox("确实需要删除分月合计表及汇总表吗？", vbQuestion + vbYesNo, "提示") = vbNo Then
Exit Sub
End If

Set mySheet = ActiveSheet

Rs = EndRow(mySheet)
Cs = EndCol(mySheet)

'关闭屏刷
Application.ScreenUpdating = False
Application.DisplayAlerts = False

If SheetBol("汇总表") = True Then
Worksheets("汇总表").Delete
End If

With mySheet
For R = 2 To Rs
For C = 2 To Cs Step 2
StrDate = CStr(.Cells(R, C).Value) '日期
If IsDate(StrDate) = True Then
StrSheet = Format(StrDate, "yyyy-mm")
If SheetBol(StrSheet) = True Then
Worksheets(StrSheet).Delete
End If
End If
Next
Next
End With

Set mySheet = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Exit Sub
handerr:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox Err.Description, vbInformation, "易健生活网提示"

End Sub
Public Function SheetBol(StrName As String) As Boolean
'工作表是否存在
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name = StrName Then
SheetBol = True
End If
Next
End Function
Public Function EndRow(theSheet As Worksheet) As Long
'最后一行
EndRow = theSheet.UsedRange.Rows(theSheet.UsedRange.Rows.Count).Row
End Function
Public Function EndCol(theSheet As Worksheet) As Integer
'最后一列
EndCol = theSheet.UsedRange.Columns(theSheet.UsedRange.Columns.Count).Column
End Function
Public Function FindRow(theSheet As Worksheet, strWhat As String) As Long
'指定项目存在的行
Dim myRange As Range

Set myRange = theSheet.Range("A:A").Find(strWhat)
If Not myRange Is Nothing Then
FindRow = myRange.Row
Else
FindRow = 0
End If

Set myRange = Nothing

End Function
Sub SheetSort()
'按名称排序工作表
On Error Resume Next
Dim i As Long
Dim Sh As Worksheet

'关屏刷
Application.ScreenUpdating = False

'添加临时表提取表名并排序
ThisWorkbook.Worksheets.Add after:=Worksheets(Worksheets.Count)
Set Sh = ActiveSheet
For i = 1 To Worksheets.Count - 1
Sh.Cells(i, 1) = Worksheets(i).Name
Next
Sh.Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:= _
xlPinYin, DataOption1:=xlSortNormal

'按名称排序后移动表
For i = 1 To Worksheets.Count - 1
Worksheets(Sh.Cells(i, 1).Text).Move after:=Worksheets(Worksheets.Count)
Next

'禁止提示删除临时表再恢复提示
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True

'恢复屏刷
Application.ScreenUpdating = True

End Sub

‘伍’ 高难度EXCEL制表。求助。。。

如果数据A2:A2，在B2输入=IF(A2>21,"优",IF(A2>=11,"良",IF(A2>=1,"及格",IF(A2=0,"加强锻炼","输入错误"))))，下拉。

‘陆’ 6×6舒尔特方格图高清表格图片

6×6舒尔特方格图高清表格图片：

舒尔特方格在一张方形卡片上画上 1cm*1cm 的 25 个方格，格子内任意填写上阿拉伯数字 1 ~ 25 等共 25 个数字。

训练时，要求被测者用手指按 1 ～ 25 的顺序依次指出其位置，同时诵读出声，施测者一旁记录所用时间。数完 25 个数字所用时间越短，注意力水平越高。

(6)高难度表格图片大全扩展阅读

注意事项

①眼晴距表30～35厘米，视点自然放在表的中心；

②在所有字符全部清晰入目的前提下，按顺序（1～9，A～I，汉字应先熟悉顺序）找全所有注意不要顾此失彼，因找一个字符而对其他字符视而不见；

③每看完一个表,眼晴稍做休息，或闭目养神；

④练习初期不考虑记忆因素。每天看10个表。

‘柒’ 高难度excel制作表格的步骤如何在表格中插一条线

打开excel表格，点击插入——自选图形——点击线条中的直线按钮，就可以插入一条线了，你试一试。

‘捌’ 求高级excel高难度图表

你这样说我还真不知道，不过想一想，图表中的数据是在表格中实际存在的，而且是保持动态链接的，也就是说，如果表格中的数据更改了，那图表也就会更改！我的意思是，既然图表存在，那表格还有表格中的数据也是存在的！那就好办了，在表格上点右键，源数据那一项，看一下源数据在什么位置，不就OK了？

‘玖’ 高难度三线表的画法

你可以插入表格啊

‘拾’ 怎么做这么一个高难度excel表格

菜单
工具——保护——保护工作表