高難度表格圖片大全

『壹』 怎麼做高難度表格

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表格

菜單
工具——保護——保護工作表