鱼骨图设计程序代码

代码01

' problemback Macro

' Macro recorded 10/23/2000 by Joshua Finer '

ActiveWindow.ScrollRow = 1

End Sub

Sub problemstatement()

' problemstatement Macro

' Macro recorded 10/23/2000 by Joshua Finer '

Sheets("Sheet1").Select

Range("A01").Select

ActiveWindow.SmallScroll Down:=35 End Sub

Sub causesback()

' causesback Macro

' Macro recorded 10/23/2000 by Joshua Finer '

ActiveWindow.ScrollRow = 1

End Sub

Sub GeneralCauses()

' GeneralCauses Macro

' Macro recorded 10/23/2000 by Joshua Finer '

Sheets("Sheet1").Select

Range("A01").Select

ActiveWindow.SmallScroll Down:=71 End Sub

Sub ServiceIndustry()

' ServiceIndustry Macro

' Macro recorded 10/23/2000 by Joshua Finer

Range("F84").Select

ActiveCell.FormulaR1C1 = "方针"

Range("F85").Select

ActiveCell.FormulaR1C1 = "程序"

Range("F86").Select

ActiveCell.FormulaR1C1 = "设施"

Range("I84").Select

ActiveCell.FormulaR1C1 = "人员"

Range("D109").Select

ActiveCell.FormulaR1C1 = "方针"

Range("D115").Select

ActiveCell.FormulaR1C1 = "程序"

Range("D121").Select

ActiveCell.FormulaR1C1 = "设施"

Range("I109").Select

ActiveCell.FormulaR1C1 = "人员"

Sheets("Sheet1").Select

ActiveWindow.SmallScroll Down:=9

End Sub

Sub cleargeneral()

' cleargeneral Macro

' Macro recorded 10/23/2000 by Joshua Finer '

Range("I84").Select

ActiveCell.FormulaR1C1 = ""

Range("I85").Select

ActiveCell.FormulaR1C1 = ""

Range("I86").Select

ActiveCell.FormulaR1C1 = ""

Range("F84").Select

ActiveCell.FormulaR1C1 = ""

Range("F85").Select

ActiveCell.FormulaR1C1 = ""

Range("F86").Select

ActiveCell.FormulaR1C1 = ""

End Sub

Sub Manufacturing()

' Manufacturing Macro

' Macro recorded 10/23/2000 by Joshua Finer

Range("F84").Select

ActiveCell.FormulaR1C1 = "设备"

Range("F85").Select

ActiveCell.FormulaR1C1 = "方法"

Range("F86").Select

ActiveCell.FormulaR1C1 = "材料"

Range("I84").Select

ActiveCell.FormulaR1C1 = "人员"

Range("D109").Select

ActiveCell.FormulaR1C1 = "设备"

Range("D115").Select

ActiveCell.FormulaR1C1 = "方法"

Range("D121").Select

ActiveCell.FormulaR1C1 = "材料"

Range("I109").Select

ActiveCell.FormulaR1C1 = "人员"

Sheets("Sheet1").Select

ActiveWindow.SmallScroll Down:=9

End Sub

Sub fb2general()

' fb2general Macro

' Macro recorded 10/23/2000 by Joshua Finer

Sheets("Sheet1").Select

Application.Run "Fishbone.xls!GeneralCauses" End Sub

Sub gotofishbone()

' gotofishbone Macro

' Macro recorded 10/23/2000 by Joshua Finer '

Sheets("Sheet1").Select

ActiveSheet.Shapes("Text Box 10").Select

theproblem = Selection.Characters.Text

'-------------------------

d110 = Range("D110").Text

d111 = Range("d111").Text

d112 = Range("d112").Text

d113 = Range("d113").Text

d116 = Range("d116").Text

d117 = Range("d117").Text

d118 = Range("d118").Text

d119 = Range("d119").Text

d122 = Range("d122").Text

d123 = Range("d123").Text

d124 = Range("d124").Text

d125 = Range("d125").Text

i110 = Range("I110").Text

i111 = Range("i111").Text

i112 = Range("i112").Text

i113 = Range("i113").Text

i116 = Range("I116").Text

i117 = Range("i117").Text

i118 = Range("i118").Text

i119 = Range("i119").Text

i122 = Range("i122").Text

i123 = Range("i123").Text

i124 = Range("i124").Text

i125 = Range("i125").Text

general105 = Range("F84").Text

general109 = Range("F85").Text

general106 = Range("F86").Text

general108 = Range("I84").Text

general101 = Range("i85").Text

general107 = Range("i86").Text

'--------------------------------

Sheets("Sheet2").Select

ActiveSheet.Shapes("Text Box 49").Select Selection.Characters.Text = theproblem

ActiveSheet.Shapes("Text Box 78").Select Selection.Characters.Text = d110

ActiveSheet.Shapes("Text Box 76").Select Selection.Characters.Text = d111

ActiveSheet.Shapes("Text Box 80").Select Selection.Characters.Text = d112

ActiveSheet.Shapes("Text Box 70").Select Selection.Characters.Text = d113

ActiveSheet.Shapes("Text Box 98").Select Selection.Characters.Text = d116

ActiveSheet.Shapes("Text Box 90").Select Selection.Characters.Text = d117

ActiveSheet.Shapes("Text Box 99").Select Selection.Characters.Text = d118

ActiveSheet.Shapes("Text Box 91").Select Selection.Characters.Text = d119

ActiveSheet.Shapes("Text Box 85").Select Selection.Characters.Text = d122

ActiveSheet.Shapes("Text Box 77").Select Selection.Characters.Text = d123

ActiveSheet.Shapes("Text Box 87").Select Selection.Characters.Text = d124

ActiveSheet.Shapes("Text Box 79").Select Selection.Characters.Text = d125

ActiveSheet.Shapes("Text Box 95").Select Selection.Characters.Text = i110

ActiveSheet.Shapes("Text Box 93").Select Selection.Characters.Text = i111

ActiveSheet.Shapes("Text Box 94").Select Selection.Characters.Text = i112

ActiveSheet.Shapes("Text Box 92").Select Selection.Characters.Text = i113

ActiveSheet.Shapes("Text Box 86").Select Selection.Characters.Text = i116

ActiveSheet.Shapes("Text Box 88").Select Selection.Characters.Text = i117

ActiveSheet.Shapes("Text Box 84").Select Selection.Characters.Text = i118

ActiveSheet.Shapes("Text Box 89").Select Selection.Characters.Text = i119

ActiveSheet.Shapes("Text Box 97").Select Selection.Characters.Text = i122

ActiveSheet.Shapes("Text Box 82").Select Selection.Characters.Text = i123

ActiveSheet.Shapes("Text Box 83").Select Selection.Characters.Text = i124

ActiveSheet.Shapes("Text Box 96").Select Selection.Characters.Text = i125

'--------------------------

ActiveSheet.Shapes("Text Box 105").Select Selection.Characters.Text = general105

ActiveSheet.Shapes("Text Box 109").Select Selection.Characters.Text = general109

ActiveSheet.Shapes("Text Box 106").Select Selection.Characters.Text = general106

ActiveSheet.Shapes("Text Box 108").Select

Selection.Characters.Text = general108

ActiveSheet.Shapes("Text Box 101").Select

Selection.Characters.Text = general101

ActiveSheet.Shapes("Text Box 107").Select

Selection.Characters.Text = general107

End Sub

代码02

Sub gotospecific()

' gotospecific Macro

' Macro recorded 10/24/2000 by Joshua Finer

Sheets("Sheet1").Select

ActiveWindow.SmallScroll Down:=105

End Sub

代码03

Sub printfishbone()

' printfishbone Macro

' Macro recorded 10/24/2000 by Joshua Finer

Range("F34").Select

Application.CutCopyMode = False

Selection.Cut

Range("F34").Select

Application.CutCopyMode = False

Selection.Copy

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = ""

Range("S35").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("F33").Select

ActiveCell.FormulaR1C1 = _

"If you are unhappy with the fishbone diagram, click on the appropriate buttons below to adjust data"

Range("F33").Select

Selection.Cut

Range("G33").Select

ActiveSheet.Paste

ActiveCell.FormulaR1C1 = _

" If you are unhappy with the fishbone diagram, click on the appropriate buttons below to adjust data"

Range("S33").Select

ActiveWindow.SmallScroll Down:=0

End Sub

代码04

Sub fishtomain()

' fishtomain Macro

' Macro recorded 10/25/00 by Kevin Dougherty

Sheets("Sheet1").Select

End Sub

代码05

Sub blackwhite()

' blackwhite Macro

' Macro recorded 10/25/00 by Kevin Dougherty

Range("P17").Select

ActiveSheet.Shapes("Text Box 98").Select

Selection.Characters.Text = "methods"

With Selection.Characters(Start:=1, Length:=7).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlTop

.Orientation = xlHorizontal

.AutoSize = False

End With

ActiveSheet.Shapes("Text Box 90").Select

Selection.Characters.Text = "1"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 99").Select

Selection.Characters.Text = "2"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 91").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 92").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 92").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Range("K25").Select

ActiveSheet.Shapes("Text Box 92").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

ActiveSheet.Shapes("Line 25").Select

Selection.ShapeRange.Item("Line 25").Left = 421.5

Selection.ShapeRange.Item("Line 25").Width = 35.25 Selection.ShapeRange.Item("Line 25").Top = 471.75 Selection.ShapeRange.Item("Line 25").Height = 1.5

Selection.ShapeRange.Flip msoFlipVertical

Range("J26").Select

ActiveSheet.Shapes("Text Box 93").Select

Selection.Characters.Text = "1"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 93").Select

Selection.Characters.Text = "1"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

ActiveSheet.Shapes("Line 31").Select

Selection.ShapeRange.Item("Line 31").Left = 508.5

Selection.ShapeRange.Item("Line 31").Width = 30#

Selection.ShapeRange.Item("Line 31").Top = 382.5

Selection.ShapeRange.Item("Line 31").Height = 1.5

Range("K25").Select

ActiveSheet.Shapes("Text Box 95").Select

Selection.Characters.Text = "people"

With Selection.Characters(Start:=1, Length:=6).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("K26").Select

ActiveSheet.Shapes("Text Box 94").Select

Selection.Characters.Text = "2"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("I25").Select

ActiveSheet.Shapes("Line 32").Select

Selection.ShapeRange.Item("Line 32").Left = 423#

Selection.ShapeRange.Item("Line 32").Width = 35.25 Selection.ShapeRange.Item("Line 32").Top = 426#

Selection.ShapeRange.Item("Line 32").Height = 1.5

Selection.ShapeRange.Flip msoFlipVertical

Range("J23").Select

ActiveSheet.Shapes("Text Box 96").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Line 30").Select

Selection.ShapeRange.Item("Line 30").Left = 151.5

Selection.ShapeRange.Item("Line 30").Width = 33#

Selection.ShapeRange.Item("Line 30").Top = 470.25 Selection.ShapeRange.Item("Line 30").Height = 1.5

Selection.ShapeRange.Flip msoFlipVertical

Range("E26").Select

ActiveSheet.Shapes("Text Box 82").Select

Selection.Characters.Text = "1"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Line 29").Select

Selection.ShapeRange.Item("Line 29").Left = 264#

Selection.ShapeRange.Item("Line 29").Width = 24#

Selection.ShapeRange.Item("Line 29").Top = 376.5

Selection.ShapeRange.Item("Line 29").Height = 1.5

Selection.ShapeRange.Flip msoFlipVertical

Selection.ShapeRange.Item("Line 29").Left = 264#

Selection.ShapeRange.Item("Line 29").Width = 28.5

Range("H19").Select

ActiveSheet.Shapes("Text Box 97").Select

Selection.Characters.Text = "Josh"

With Selection.Characters(Start:=1, Length:=4).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 83").Select

Selection.Characters.Text = "2"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

ActiveSheet.Shapes("Text Box 107").Select

Selection.Characters.Text = "Josh 6"

With Selection.Characters(Start:=1, Length:=6).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

ActiveSheet.Shapes("Text Box 86").Select

Selection.Characters.Text = "kevin"

With Selection.Characters(Start:=1, Length:=5).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 88").Select

Selection.Characters.Text = "1"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("D9").Select

ActiveSheet.Shapes("Text Box 88").Select

ActiveSheet.Shapes("Line 14").Select

Selection.ShapeRange.Item("Line 14").Left = 279#

Selection.ShapeRange.Item("Line 14").Width = 27# ActiveSheet.Shapes("Line 36").Select

Selection.ShapeRange.Item("Line 36").Left = 268.5

Selection.ShapeRange.Item("Line 36").Width = 25.5 ActiveSheet.Shapes("Line 39").Select

Selection.ShapeRange.Item("Line 39").Left = 166.5

Selection.ShapeRange.Item("Line 39").Width = 36#

Range("D23").Select

ActiveSheet.Shapes("Text Box 84").Select

Selection.Characters.Text = "2"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Text Box 89").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Range("D4").Select

ActiveSheet.Shapes("Line 11").Select

Selection.ShapeRange.Item("Line 11").Left = 183#

Selection.ShapeRange.Item("Line 11").Width = 25.5 Selection.ShapeRange.Item("Line 11").Top = 147#

Selection.ShapeRange.Item("Line 11").Height = 1.5

Range("F2").Select

ActiveSheet.Shapes("Text Box 79").Select

Selection.Characters.Text = "3"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveSheet.Shapes("Line 21").Select

Selection.ShapeRange.Item("Line 21").Left = 420#

Selection.ShapeRange.Item("Line 21").Width = 30.75 Selection.ShapeRange.Item("Line 21").Top = 142.5

Selection.ShapeRange.Item("Line 21").Height = 1.5

Range("I5").Select

ActiveSheet.Shapes("Line 21").Select

Selection.ShapeRange.Item("Line 21").Left = 420#

Selection.ShapeRange.Item("Line 21").Width = 32.25

Range("I4").Select

ActiveSheet.Shapes("Text Box 87").Select

Selection.Characters.Text = "2"

With Selection.Characters(Start:=1, Length:=1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoFalse

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid

鱼骨图分析法(完整篇)

编号：SY-AQ-01646 ( 安全管理) 单位：_____________________ 审批：_____________________ 日期：_____________________ WORD文档/ A4打印/ 可编辑鱼骨图分析法(完整篇) Fishbone diagram analysis

鱼骨图分析法(完整篇) 导语：进行安全管理的目的是预防、消灭事故，防止或消除事故伤害，保护劳动者的安全与健康。在安全管理的四项主要内容中，虽然都是为了达到安全管理的目的，但是对生产因素状态的控制，与安全管理目的关系更直接，显得更为突出。鱼骨分析法是咨询人员进行因果分析时经常采用的一种方法，其特点是简捷实用，比较直观。现以上面提到的某炼油厂情况作为实例，采用鱼骨分析法对其市场营销题进行解析。鱼骨分析法简介鱼骨图是由日本管理大师石川馨先生所发展出来的，故又名石川图。鱼骨图是一种发现问题“根本原因”的方法，它也可以称之为“因果图”。鱼骨图原本用于质量管理。问题的特性总是受到一些因素的影响，我们通过头脑风暴找出这些因素，并将它们与特性值一起，按相互关联性整理而成的层次分明、条理清楚，并标出重要因素的图形就叫特性要因图。因其形状如鱼骨，所以又叫鱼骨图（以下称鱼骨图），它是一种透过现象看本质的分析方法。头脑风暴法（BrainStorming——BS）：一种通过集思广益、

发挥团体智慧，从各种不同角度找出问题所有原因或构成要素的会议方法。BS有四大原则：严禁批评、自由奔放、多多益善、搭便车。鱼骨图的三种类型 A、整理问题型鱼骨图（各要素与特性值间不存在原因关系，而是结构构成关系） B、原因型鱼骨图（鱼头在右，特性值通常以“为什么……”来写） C、对策型鱼骨图（鱼头在左，特性值通常以“如何提高/改善……”来写）鱼骨图制作制作鱼骨图分两个步骤：分析问题原因/结构、绘制鱼骨图。 1、分析问题原因/结构。 A、针对问题点，选择层别方法（如人机料法环等）。 B、按头脑风暴分别对各层别类别找出所有可能原因（因素）。 C、将找出的各要素进行归类、整理，明确其从属关系。 D、分析选取重要因素。

圆设计及思维导图精编版

圆设计及思维导图集团企业公司编码：（LL3698-KKI1269-TM2483-LUI12689-ITT289-

主题单元设计

学习活动设计（针对该专题所选择的活动形式及过程）一、创设生活情境、导入新课。 1、欣赏，走进圆的世界。 2、借助实物画圆 3、师：以往同学们在画图时都用的是尺子，今天你为什么不用尺子画圆呢(尺子边是直的，不好画圆) 二、动手操作、认识各部分名称。 1、画圆 2、观察、认识圆的各部分名称。让学生自读课本例2，了解圆的各部分名称 ②认识圆的圆心。 ③认识圆的半径。。三、合作探究，学习特征。 1、谈话：刚才我们通过学习知道了圆的各部分名称，那么圆有什么特征呢请同学们在纸上任意画一个圆，并将它剪下来。画一画，量一量，折一折手中的圆形纸片，看看有什么发现 2、学生自主探究。课件出示讨论题: ①在同一个圆里有多少条半径多少条直径 ②在同一个圆里半径的长度都相等吗直径的呢 ③在同一个圆里半径和直径有什么关系？ ④圆是轴对称图形吗它有几条对称轴 3、合作交流： ①用画、折的方法来验证半径、直径有无数条。 ②用画、折的方法来验证半径、直径相等。③通过测量和推理的方法验证直径是半径的2倍，并让学生理解用字母表示直径与半径的关系。④通过把圆沿不同方向对折来理解圆是轴对称图形，有无数条对称轴。 (四)、实践运用，反馈内化。我们知道了圆的画法，名称，特征，请同学们运用今天的知识解决几个问题。 1、你认为下面的说法对吗（课件展示） ①圆的直径是半径的2倍。 ②圆有无数条对称轴。 ③半径3厘米的圆比直径4厘米的圆小。 ④画直径是6厘米的圆时，圆规两脚之间的距离为3厘米。五、运用新知、解决实际问题。圆的特征在生活中得到广泛的应用。车轮为什么做成圆形车轴为什么要安放在圆心（课件展示）六、总结评价、拓展延伸。

圆资料设计与思维导图

主题单元设计

学习活动设计（针对该专题所选择的活动形式及过程）一、创设生活情境、导入新课。 1、欣赏，走进圆的世界。 2、借助实物画圆 3、师：以往同学们在画图时都用的是尺子，今天你为什么不用尺子画圆呢？(尺子边是直的，不好画圆) 二、动手操作、认识各部分名称。 1、画圆 2、观察、认识圆的各部分名称。让学生自读课本例2，了解圆的各部分名称 ②认识圆的圆心。 ③认识圆的半径。。三、合作探究，学习特征。 1、谈话：刚才我们通过学习知道了圆的各部分名称，那么圆有什么特征呢？请同学们在纸上任意画一个圆，并将它剪下来。画一画，量一量，折一折手中的圆形纸片，看看有什么发现？ 2、学生自主探究。课件出示讨论题: ①在同一个圆里有多少条半径？多少条直径？ ②在同一个圆里半径的长度都相等吗？直径的呢？ ③在同一个圆里半径和直径有什么关系？ ④圆是轴对称图形吗？它有几条对称轴？ 3、合作交流： ①用画、折的方法来验证半径、直径有无数条。 ②用画、折的方法来验证半径、直径相等。③通过测量和推理的方法验证直径是半径的2倍，并让学生理解用字母表示直径与半径的关系。④通过把圆沿不同方向对折来理解圆是轴对称图形，有无数条对称轴。 (四)、实践运用，反馈化。我们知道了圆的画法，名称，特征，请同学们运用今天的知识解决几个问题。 1、你认为下面的说法对吗？（课件展示） ①圆的直径是半径的2倍。 ②圆有无数条对称轴。 ③半径3厘米的圆比直径4厘米的圆小。 ④画直径是6厘米的圆时，圆规两脚之间的距离为3厘米。五、运用新知、解决实际问题。圆的特征在生活中得到广泛的应用。车轮为什么做成圆形？车轴为什么要安放在圆心？（课件展示）六、总结评价、拓展延伸。教学评价1、让学生自主探索。在教学的各个环节始终将学生自主探索的理念贯穿其中。例如：让学生自主尝试画圆的方法；让学生小组合作，观察、探究圆的半径和直径的特点等。在各个探究活动中力求使学崭露出他们的个性和潜在的创新意识，使他们的创新能力在探究展露本色和活力。 2、注意数学与生活的联系例如：让学生举例，说说生活中哪些物体的表面的圆形的；讨论生活中的车轮为什么是圆形的，车轴应装在哪里等环节，都注意了密切联系生活实际。 3、以学生为本在对圆的概念的要求上，并没有强加给学生圆的科学概念，而是让学生通过观察、动手操作等活动进行学习，在头脑中自然形成圆的概念。正如加涅所认为的：概念能通过定义，也可以通过直接观察得到。当一个人能区别概念的例子和非例子时，就学会了概念。在本课教学中给学生订出的这一切实可行的目标正是新课标中人本主义思想的具体体现。

《圆》主题单元设计思维导图

这一单元的内容是圆，在这个单元中，教材安排了“圆的认识”、“圆的周长和面积”三个具体的内容，这三个内容由易到难，层层深入。本单元内容是在学生学过了直线图形的认识和面积计算，以及圆的初步认识的基础上进行教学的。学生从学习直线图形的知识，到学习曲线图形的知识，不论是内容本身，还是研究问题的方法，都有所变化。教材通过对圆的研究，使学生初步认识到研究曲线图形的基本方法。同时，也渗透了曲线图形与直线图形的关系。这样不仅扩展了学生的知识面，而且从空间观念方面来说，进入了一个新的领域。因此，通过对圆的有关知识的学习，不仅加深学生对周围事物的理解，提高解决简单实际问题的能力，也为以后学习圆柱、圆锥等知识和绘制简单统计图打好基础。学生将在这个单元中，结合动手操作、比较、测量等多种数学活动，更深入的理解、掌握圆的特点，进一步发展空间观念。

学习活动设计（针对该专题所选择的活动形式及过程）（一）激发兴趣小黄狗和小灰狗比赛跑，小黄狗沿着正方形路线跑，小灰狗沿着圆形路线跑，结果小灰狗获胜。小黄狗看到小灰得了第一名，心里很不服气它说这样的比赛不公平。同学们，你认为这样的比赛公平吗？（二）认识圆的周长 1.回忆正方形周长：小黄狗跑的路程实际上就是正方形的什么？什么是正方形的周长？ 2.认识圆的周长: 那小灰狗所跑的路程呢？圆的周长又指的是什么意思？每个同学的桌上都有一元硬币、茶叶筒、易拉罐等物品，从这些物体中找出一个圆形来，互相指一指这些圆的周长。（三）讨论正方形周长与其边长的关系 1．我们要想对这两个路程的长度进行比较，实际上需要知道什么？ 2. 怎样才能知道这个正方形的周长？说说你是怎么想的？ 3. 那也就是说，正方形的周长和它的哪部分有关系？正方形的周长总是边长的几倍？（四）讨论圆周长的测量方法 1.讨论方法：刚才我们已经解决了正方形周长的问题，而圆的周长呢？如果我们用直尺直接测量圆的周长，你觉得可行吗？请同学们结合我们手里的圆想一想，有没有办法来测量它们的周长？ 2.反馈：（基本情况）（1）“滚动”——把实物圆沿直尺滚动一周；（2）“缠绕”——用绸带缠绕实物圆一周并打开；（3）“折叠”——把圆形纸片对折几次，再进行测量和计算；（4）初步明确运用各种方法进行测量时应该注意的问题。活动延伸1.老师家里有一块圆形的桌布，直径为1米。为了美观，准备在桌布边缘镶上一圈花边。请问，老师至少需要准备多长的花边？ 2.请同学们以小组为单位，画一个周长是12.56厘米的圆，先讨论如何画，再操作。教学评价1．推导出圆周长的计算公式，并能正确的进行简单的计算。2．培养学生的观察、比较、分析、综合及动手操作能力。3．结合圆周率的学习，对学生进行爱国主义教育。

鱼骨图案例分析

魚骨圖案例分析 [編輯] 案例一：利用魚骨圖對某煉油廠市場營銷問題的分析魚骨圖分析法是咨詢人員進行因果分析時經常採用的一種方法，其特點是簡捷實用，比較直觀。現以某煉油廠情況作為實例，採用魚骨圖分析法對其市場營銷問題進行解析，具體如圖所示：圖中的“魚頭”表示需要解決的問題，即該煉油廠產品在市場中所占份額少。根據現場調查，可以把產生該煉油廠市場營銷問題的原因，概括為5類。即人員、渠道、廣告、競爭和其它。在每一類中包括若幹造成這些原因的可能因素，如營銷人員數量少、銷售點少、缺少宣傳策略、進口油廣告攻勢等。將5類原因及其相關因素分別以魚骨分佈態勢展開，形成魚骨分析圖。下一步的工作是找出產生問題的主要原因，為此可以根據現場調查的數據，計算出每種原因或相關因素在產生問題過程中所占的比重，以百分數表示。例如，通過計算發現，“營銷人員數量少”，在產生問題過程中所占比重為35%，“廣告宣傳差”為18%，“小包裝少”為25%，三者在產生問題過程中共占78%的比

重，可以被認為是導致該煉油廠產品市場份額少的主要原因。如果我們針對這三大因素提出改進方案，就可以解決整個問題的78%。該案例也反映了“20:80原則”，即根據經驗規律，20%的原因往往產生80%的問題，如果由於條件限制，不能100%解決問題，只要抓住占全部原因20%，就能夠取得80%解決問題的成效。 [編輯] 案例二：用魚骨圖與層次分析法結合進行企業診斷[3] 一、層次分析法簡介魚骨圖成功完成後，影響問題的原因一般能詳盡的列出。但哪些是主要原因，哪些是次要原因，該如何確定呢?各個主要原因的重要性、優先程度應如何確定?層次分析法(AHP)做了最好的回答。 AHP的基本思路與魚骨圖的基本思路是一致的。兩者都是在深人分析實際問題的基礎上，將有關因素按不同的屬性自上而下的分解成若幹層次，同一層次的諸因素從屬於上一層的因素或對上層因素有影響，同時又支配下一層的因素或受下一層因素的作用。一個魚骨圖如圖1可方便的轉化成層次結構模型如圖3。圖3 由魚骨圖轉化成層次結構模型

初中数学《圆柱和圆锥》单元教学设计以及思维导图

圆柱和圆锥适用年级初一所需时间课堂5课时，课后4课时练习主题单元学习概述本单元内容是在学生已经探索并掌握了长方形、正方形和圆等一些常见的平面图形的特征，以及长方体、正方体的特征，并直观认识圆柱的基础上进行教学的。前面的学习内容既为新知识的学习奠定了知识基础，同时也积累了探索的经验，准备了研究的方法。学习了新知，既是学生认识上的一次飞跃，又拓宽了学习空间，知识结构得到了进一步的完善，为今后学习其它的立体图形打好了基础。教材分5部分进行教学。第部分：认识圆柱和圆锥的基本特征；第二部分：探索并掌握圆柱侧面积和表面积的计算方法，解决相关的一些简单的实际问题；第三部分：探索并掌握圆柱的体积计算公式，并运用此体积公式解决一些简单的实际问题；第四部分：探索并掌握圆锥的体积公式，并应用体积公式解决相关的实际问题。第五部分：圆柱和圆锥的推广——旋转体主题单元规划思维导图

/ 主题单元学习目标知识与技能： 1、使学生通过观察、操作等活动认识圆柱和圆锥，知道圆柱和圆锥底面、侧面和高的含义，掌握圆柱和圆锥的基本特征 2、使学生在具体情境中，经历操作、猜想、估计、验证、讨论、归纳等数学活动过程，探索并掌握圆柱侧面积和表面积的计算方法，以及圆柱和圆锥的体积计算公式，能解决与圆柱表面积以及圆柱圆锥体积计算相关的一些简单的实际问题。过程与方法：使学生在活动中进一步积累空间与图形的学习经验，增强空间观念，发展数学思考，培养初步的分析、综合、比较、抽象、概括和简单的判断、推理能力。情感态度和价值观：使学生进一步体会图形与实际生活的联系，感受立体图形学习的价值，提高数学学习的兴趣和学好数学的自信心。

5M因素法(鱼骨图)及其案例分析实例

案例分析方法：5M因素法（鱼骨图）及其案例分析实例发布时间:2010-09-28 （来源:应届毕业生求职网）运用5M因素法（鱼骨图）分析及解决问题的实际操作案例背景：某民营房地产集团公司下属商贸分公司，在自有房产基础上经营有超市5家，经营业种以生鲜食品、传统食品、日用日化为主，总营业面积10000平方米；百货一家，主要经营业种为服装针织、皮具、皮鞋、化妆品，小吃，营业面积4500平方米；正在筹备中的购物中心18000平方米。问题1：经过统计商贸公司2001年9月—2002年3月的销售，总体毛利率为不到8%，注意：此毛利率是在公司无低毛利的家电以及百货毛利率近20%的基础上产生的总体毛利率，相对于市场状况以及竞争对手来讲，此毛利率偏低，从中反映了占销售比重近80%的超市经营毛利不正常。问题2：经过进一步的市场调查，针对超市每个业种安排如下数量的市调（按销售数量排名），得出以下数据比较：注：甲连锁店为一国营零售企业，在本地有34家连锁店，拥有诸多食品、日化产品的代理批发权；

乙连锁店为一民营连锁零售企业，现有18家分店，拥有部分食品、日化产品的批发代理权；丙为一家200平方米左右的便利店；将市调数据经过进一步分析，发现价格问题----我司进价比竞争对手售价高的情况如下（先忽略在正常供价基础上零售价格异常状况）：感觉到问题的严重性，公司紧急召开了采购人员的专项会议，要求在规定时间内（一周）针对以上问题各采购主任做出解释并及时与供应商进行谈判，希望能得到实质性的解决。一周过去了，供价问题依然没有得到明显的改善，高出比例依然居高不下。总结各采购主任的解释，主要如下： 1、甲、乙对手拥有诸多敏感商品的控制权，近水楼台先得月，人家有权利及有实力去进行降价； 2、公司政策对于供应商的通道利润要求过高，厂商在无奈情况下，只有提高供价，保持其基本利润，如果要求供应商降价，只有舍弃部分通道利润才可行； 3、公司要求的经营方式过于呆板，竞争对手部分商品是从批发市场上进行铲货来冲击市场，而公司没有此先例，都是以正常方式进行经营； 4、公司的付款方式问题：由于现金进货与押款进货的供价有区别，但是公司最低的付款要求为7天付款，因此在价格上没有办法降低；

护理质量管理PDCA加鱼骨图案例分析

和平卫生服务中心输液室满意度不达标原因分析讨论（头脑风暴）时间：2015-10-1611:00 地点：输液室办公室主持者：管海丽参加人员：管海丽、王茹、马爱芝、荣雪琼、程菲、田甜、陈衍芬记录者：朱习习管海丽：前几天做的满意度调查，满意度为87.1%，满意度较前下降明显，今天召开这个会议，请大家应用头脑风暴方法，针对出现的问题进行原因分析，请大家各抒己见。王茹：护士缺乏服务理念，没有做到热情主动服务，个别护士只知机械地执行医嘱，工作时面部表情僵板，答语生硬。荣雪琼：部分护士的沟通能力欠缺。护理人员太少了，也是造成满意度下降的原因。

马爱芝：输液时，巡视不及时，输液渗出未及时处理。护士过于依赖家属呼叫，缺乏主动服务意识，对输液情况预计不足。陈衍芬：有病人反映护士没有主动告知输液注意事项、不良反应、疾病的相关注意事项等。对健康教育的重要性认识不足，宣教欠仔细深入，未做好分阶段宣教。田甜：咱们科地方小，环境吵杂，输液时无电视、VCD给病人观看。朱习习：另外保洁工人打扫不及时，也引起病人的不满。管海丽：大家今天能够对我们科室存在的问题提出解决的办法，很好，今后将针对这些问题和解决办法，积极改进。

为什么满意度下降？环境人后勤保障法护士健康宣教不到位护士巡视不及时科室监管不到位培训不到位操作流程不全制度不健全输液室输液环境欠佳卫生间打扫不及时输液室保洁不及时领导对输液室不重视房屋使用年限长房屋年久失修输液室面积小儿童输液和成人输液在一起，未分区护理工作人员少护士缺乏服务意识

和平卫生服务中心输液室满意度不达标整改措施分析讨论（头脑风暴）时间：2015-11-6 10:50 地点：输液室办公室主持者：管海丽参加人员：管海丽、王茹、马爱芝、荣雪琼、程菲、田甜、陈衍芬记录者：朱习习管海丽：前几天我科开展头脑风暴效果很好，今天请大家再结合我们平时的工作，为科室献计献策。王茹：我们全科同志都要加强自身修养的意识，将病人的需求放在第一，真正做到想病人所想，急病人所急。荣雪琼：我们科护士太少了，可以想领导提出申请，增加护理人员。

鱼骨图fishbone diagram

鱼骨图(fishbone diagram) 原因分析类工具适用于质量改进的5阶段发散思维又名：因果图(cause-and-effect diagram)，石川馨图(Ishikawa diagram) 方法演变：原因列举图，过程分析图，延时鱼骨图，CEDAC（有附加卡片的因果图），期望-结果鱼骨图，反向鱼骨图 ?概述鱼骨图将原因和结果联系起来。它可以用来组织头脑风暴的会议，并对观点进行有效分类。?适用场合 ·当需要找出可能的原因时； ·当组织的思维趋于定式时。 ?实施步骤所需材料：挂纸或者白板、标记笔。 1确定一个讨论主题（结果）。在挂纸或白板的正中写下问题，在问题周围画框，然后画一个水平的箭头指向它。 2用头脑风暴法讨论造成问题原因的主要种类。如果不好决定，可采用一般性种类：方法、机器（设备）、人（人力）、材料、测量、环境。在主箭头的旁边画上分支表示原因的分类。 3用头脑风暴法找出所有可能的原因。提问：“为什么会这样？”有了答案后辅导者就在对应的原因分支上记下来。如果有多重关系，子原因可以写在几个地方。 4再对于原因提问：“为什么会这样？”在子原因的分支下记下它的子原因。继续问“为什么？”以找出更深层次的原因。分支的层次表示原因的关系。 5当找出了所有原因后，集中讨论原因较少的部分。 ?示例图表5. 59是ZZ-400用来找出阶段性铁污染原因的鱼骨图，这个例子是第4章中ZZ- 400改进案例中的一部分。小组选用了六个常用分类，找出了问题的深层原因所在。例如，在“机器”标题下，“建筑材料”显示了四种设备及其具体的机器型号。有些想法出现在两个不同的地方。“刻度”既出现在“方法”下，表示分析过程中的一个因素，也出现在‘‘测量”下，表示一种造成误差的原因。“铁具”出现在“方法”一项中，作为分析步骤的一个因素，或者出现在“人力”一项中，作为劳动力失误原因。另一个用于表示改进过程的鱼骨图请参阅第4章圣鲁克医院的案例和Medard的案例是构造鱼骨图的非传统的方法。 ?原因列举图( cause enumeration diagram) 所需村料：粘贴纸或卡片、标记笔、工作裁体（墙、桌子、地板）、挂纸。 1确定一个讨论主题。 2用头脑风暴法找出所有可能的原因（参阅“头脑风暴法”和“NGT"）。在商务贴或挂纸上记录下来。继续这个过程直到组员再也找不出原因为止。 3用亲和图将原因分类，并标上类别名称。 4将这些原因按类别标在鱼骨图上，并把鱼骨图画在挂纸上。 5用鱼骨图来激发更多的想法，特别是那些原因较少的分支。 ?过程分析鱼骨图( process fishbone）

《圆》主题单元设计思维导图

单元标题圆学科领域(（在内打√表示主属学科，打+ 表示相关学科）思想品德+ 音乐化学信息技术社区服务+ 语文 + 美术 + 生物劳动与技术 √数学外语历史 + 科学体育物理地理 + 社会实践其他（请列出）：健康适用年级小学六年级上册所需时间八个课时主题学习概述(对主题内容进行简要的概述，并可附上相应的思维导图) 这一单元的内容是圆，在这个单元中，教材安排了“圆的认识”、“圆的周长和面积”三个具体的内容，这三个内容由易到难，层层深入。本单元内容是在学生学过了直线图形的认识和面积计算，以及圆的初步认识的基础上进行教学的。学生从学习直线图形的知识，到学习曲线图形的知识，不论是内容本身，还是研究问题的方法，都有所变化。教材通过对圆的研究，使学生初步认识到研究曲线图形的基本方法。同时，也渗透了曲线图形与直线图形的关系。这样不仅扩展了学生的知识面，而且从空间观念方面来说，进入了一个新的领域。因此，通过对圆的有关知识的学习，不仅加深学生对周围事物的理解，提高解决简单实际问题的能力，也为以后学习圆柱、圆锥等知识和绘制简单统计图打好基础。学生将在这个单元中，结合动手操作、比较、测量等多种数学活动，更深入的理解、掌握圆的特点，进一步发展空间观念。主题学习目标(描述该学习所要达到的主要目标)

知识与技能： 1.学生认识圆，掌握圆的特征；理解直径半径的相互关系；理解圆周率的意义，掌握圆周率的近似值。 2.探索圆的周长与面积的计算方法，并能运用计算方法解决生活中的一些实际问题。过程与方法： 1.探索圆的周长与面积的计算方法中，获得探索问题成功的体验。 2.亲历动手操作、实验观察等方法，探索圆的周长、面积的计算方法，并能运用计算方法解决生活中的一些实际问题。情感态度与价值观： 1.通过以上一系列的学习活动，激发学生的学习兴趣，培养主动探索的欲望和创新精神。 2.培养学生观察、比较、想象等能力，进一步发展学生的空间观念。主题单元问题设计1．为什么车子的轮胎是圆的？2．什么圆的周长？该如何求？3. 什么是圆的面积？该如何求？主题单元学习评价1.是否掌握圆的基本知识。 2. 能够参与活动的积极性和主动性。 3. 能够与同伴一起进行相关测量专题划分（学习活动过程）专题1：认识圆专题2：圆的周长专题3：圆的面积专题4：专题5：专题6：活动专题1 认识圆所需课时2课时活动专题1概述 (对专题内容进行简要的概述，并可附上相应的思维导图) 圆是在学生学过了直线图形以及圆的初步认识的基础上进行教学的。圆这一平面上的曲线图形，学生在生活中经常看到，它到底有什么特征呢？是本节课学生学习的重点，在学习圆的认识时，学生通过观察、操作，自己获取一些有关圆的特征的知识，这样回大大提高学生的学习兴趣，发挥学生的主体性。本专题学习成果（描述该学习所要达到的主要成果） 1．使学生认识圆，掌握圆的各部分名称。 2．通过动手操作、实验观察探索出圆的特征及同一个圆里半径和直径的关系。 3．初步学会用圆规画圆，培养学生的作图能力。 4．培养学生观察、分析、抽象、概括等思维能力。

模块3作业《圆》设计及思维导图

主题单元设计圆主题单元教学内容是在学生已经初步掌握正方形、长方形、平行四边形、三角形和梯形的基本特征及其周长、面积公式，并已经直观认识圆的基础上进行教学的。圆是小学数学里最后教学的一个平面图形，也是教学的惟一一个曲线图形。本单元在教学圆的基础知识的同时，还通过化曲为直、等积变形这些方法与手段，进一步发展转化的策略和推理能力。从认识直线图形到认识圆这样的曲线图形，不仅能拓宽学生的知识面，丰富学生“空间与图形”的学习经验，而且也能给学生探索学习的方法注入一些新的内容，并使学生的空间概念得到进一步发展，这部分的内容分为两段安排。第一段，认识圆的基本特征以及圆的圆心、半径和直径，学会用圆规画圆。第二段，探索并掌握圆的周长公式，理解圆周率的含义，应用圆的周长公式解决一些实际问题。这次学习可以开展的活动主要有：（1）观察、画图——感受并发现圆的有关特征。（2）操作、猜想、测量——

学习活动设计（针对该专题所选择的活动形式及过程）一、创设生活情境、导入新课。 1、欣赏，走进圆的世界。 2、借助实物画圆 3、师：以往同学们在画图时都用的是尺子，今天你为什么不用尺子画圆呢？(尺子边是直的，不好画圆) 二、动手操作、认识各部分名称。 1、画圆 2、观察、认识圆的各部分名称。让学生自读课本例2，了解圆的各部分名称 ②认识圆的圆心。 ③认识圆的半径。。三、合作探究，学习特征。 1、谈话：刚才我们通过学习知道了圆的各部分名称，那么圆有什么特征呢？请同学们在纸上任意画一个圆，并将它剪下来。画一画，量一量，折一折手中的圆形纸片，看看有什么发现？ 2、学生自主探究。课件出示讨论题: ①在同一个圆里有多少条半径？多少条直径？ ②在同一个圆里半径的长度都相等吗？直径的呢？ ③在同一个圆里半径和直径有什么关系？ ④圆是轴对称图形吗？它有几条对称轴？ 3、合作交流： ①用画、折的方法来验证半径、直径有无数条。 ②用画、折的方法来验证半径、直径相等。③通过测量和推理的方法验证直径是半径的2倍，并让学生理解用字母表示直径与半径的关系。④通过把圆沿不同方向对折来理解圆是轴对称图形，有无数条对称轴。 (四)、实践运用，反馈内化。我们知道了圆的画法，名称，特征，请同学们运用今天的知识解决几个问题。 1、你认为下面的说法对吗？（课件展示） ①圆的直径是半径的2倍。 ②圆有无数条对称轴。 ③半径3厘米的圆比直径4厘米的圆小。 ④画直径是6厘米的圆时，圆规两脚之间的距离为3厘米。五、运用新知、解决实际问题。圆的特征在生活中得到广泛的应用。车轮为什么做成圆形？车轴为什么要安放在圆心？（课件展示）六、总结评价、拓展延伸。教学评价1、让学生自主探索。在教学的各个环节始终将学生自主探索的理念贯穿其中。例如：让学生自主尝试画圆的方法；让学生小组合作，观察、探究圆的半径和直径的特点等。在各个探究活动中力求使学崭露出他们的个性和潜在的创新意识，使他们的创新能力在探究展露本色和活力。 2、注意数学与生活的联系例如：让学生举例，说说生活中哪些物体的表面的圆形的；讨论生活中的车轮为什么是圆形的，车轴应装在哪里等环节，都注意了密切联系生活实际。 3、以学生为本在对圆的概念的要求上，并没有强加给学生圆的科学概念，而是让学生通过观察、动手操作等活动进行学习，在头脑中自然形成圆的概念。正如加涅所认为的：概念能通过定义，也可以通过直接观察得到。当一个人能区别概念的例子和非例子时，就学会了概念。在本课教学中给学生订出的这一切实可行的目标正是新课标中人本主义思想的具体体现。

鱼刺图(鱼骨图)

鱼刺图(鱼骨图) 一、定义问题的特性总是受到一些因素的影响，我们通过脑力激荡找出这些因素，并将它们与特性值一起，按相互关联性整理而成的层次分明、条理清楚，并标出重要因素的图形就叫特性要因图。因其形状如鱼骨，所以又叫鱼骨图（以下称鱼骨图），它是一种透过现象看本质的分析方法。脑力激荡法（Brain Storming——BS）：一种通过集思广益、发挥团体智慧，从各种不同角度找出问题所有原因或构成要素的会议方法。BS有四大原则：严禁批评、自由奔放、多多益善、搭便车。二、鱼骨图的三种类型 A、整理问题型鱼骨图（各要素与特性值间不存在原因关系，而是结构构成关系） B、原因型鱼骨图（鱼头在右，特性值通常以“为什么……”来写） C、对策型鱼骨图（鱼头在左，特性值通常以“如何提高/改善……”来写）（由于原因型鱼骨图最常用，本次宣传以原因型鱼骨图为主）三、鱼骨图制作

制作鱼骨图分两个步骤：分析问题原因/结构、绘制鱼骨图。 1、分析问题原因/结构 A、针对问题点，选择层别方法（如人机料法环等）； B、按脑力激荡分别对各层别类别找出所有可能原因（因素）。 C、将找出的各要素进行归类、整理，明确其从属关系。 D、分析选取重要因素。 E、检查各要素的描述方法，确保语法简明、意思明确。分析要点： a、确定大要因（大骨）时，现场作业一般从“人机料法环”着手,管理类问题一般从“人事时地物”层别，应视具体情况决定； b、大要因必须用中性词描述（不说明好坏），中、小要因必须使用价值判断（如…不良）； c、脑力激荡时，应尽可能多而全地找出所有可能原因，而不仅限于自己能完全掌控或正在执行的内容。对人的原因，宜从行动而非思想态度面着手分析； d、中要因跟特性值、小要因跟中要因间有直接的原因-问题关系，小要因应分析至可以直接下对策； e、如果某种原因可同时归属于两种或两种以上因素，请以关联性最强者为准（必要时考虑三现主义：即现时到现场看现物，通过相对条件的比较，找出相关性最强的要因归类。） f、选取重要原因时，不要超过7项，且应标识在最末端原因；绘图过程 A、填写鱼头（按为什么不好的方式描述），画出主骨

《圆》设计及思维导图(优选.)

最新文件---------------- 仅供参考--------------------已改成-----------word文本 --------------------- 方便更改赠人玫瑰，手留余香。主题单元设计

学习活动设计︵针对该专题所选择的活动形式及过程︶一、创设生活情境、导入新课。 1、欣赏，走进圆的世界。 2、借助实物画圆 3、师：以往同学们在画图时都用的是尺子，今天你为什么不用尺子画圆呢？(尺子边是直的，不好画圆) 二、动手操作、认识各部分名称。 1、画圆 2、观察、认识圆的各部分名称。让学生自读课本例2，了解圆的各部分名称 ②认识圆的圆心。 ③认识圆的半径。。三、合作探究，学习特征。 1、谈话：刚才我们通过学习知道了圆的各部分名称，那么圆有什么特征呢？请同学们在纸上任意画一个圆，并将它剪下来。画一画，量一量，折一折手中的圆形纸片，看看有什么发现？ 2、学生自主探究。课件出示讨论题: ①在同一个圆里有多少条半径？多少条直径？ ②在同一个圆里半径的长度都相等吗？直径的呢？ ③在同一个圆里半径和直径有什么关系？ ④圆是轴对称图形吗？它有几条对称轴？ 3、合作交流： ①用画、折的方法来验证半径、直径有无数条。 ②用画、折的方法来验证半径、直径相等。③通过测量和推理的方法验证直径是半径的2倍，并让学生理解用字母表示直径与半径的关系。④通过把圆沿不同方向对折来理解圆是轴对称图形，有无数条对称轴。 (四)、实践运用，反馈内化。我们知道了圆的画法，名称，特征，请同学们运用今天的知识解决几个问题。 1、你认为下面的说法对吗？（课件展示） ①圆的直径是半径的2倍。 ②圆有无数条对称轴。 ③半径3厘米的圆比直径4厘米的圆小。 ④画直径是6厘米的圆时，圆规两脚之间的距离为3厘米。五、运用新知、解决实际问题。圆的特征在生活中得到广泛的应用。车轮为什么做成圆形？车轴为什么要安放在圆心？（课件展示）六、总结评价、拓展延伸。

鱼骨图应用案例

感觉到问题的严重性，公司紧急召开了采购人员的专项会议，要求在规定时间内（一周）针对以上问题各采购主任做出解释并及时与供应商进行谈判，希望能得到实质性的解决。一周过去了，供价问题依然没有得到明显的改善，高出比例依然居高不下。总结各采购主任的解释，主要如下： 1、甲、乙对手拥有诸多敏感商品的控制权，近水楼台先得月，人家有权利及有实力去进行降价； 2、公司政策对于供应商的通道利润要求过高，厂商在无奈情况下，只有提高供价，保持其基本利润，如果要求供应商降价，只有舍弃部分通道利润才可行； 3、公司要求的经营方式过于呆板，竞争对手部分商品是从批发市场上进行铲货来冲击市场，而公司没有此先例，都是以正常方式进行经营； 4、公司的付款方式问题：由于现金进货与押款进货的供价有区别，但是公司最低的付款要求为7天付款，因此在价格上没有办法降低； 5、竞争对手的恶意竞争行为：牺牲利润，亏本赚吆喝； 6、人手不够，杂事多，没有办法集中时间与精力与供应商谈判。针对以上解释，公司明确回复：如果在有把握的情况下，以上由于公司自身原因造成的供价高的问题，可以放宽尺度与供应商进行交涉。

鱼骨图制作及案例分析

精心整理鱼骨图：鱼骨图又名特性因素图是由日本管理大师石川馨先生所发展出来的，故又名石川图。鱼骨图是一种发现问题“根本原因”的方法，它也可以称之为“因果图”。鱼骨图原本用于质量管理。 C、将找出的各要素进行归类、整理，明确其从属关系。 D、分析选取重要因素。 E、检查各要素的描述方法，确保语法简明、意思明确。分析要点：

a、确定大要因（大骨）时，现场作业一般从“人机料法环”着手,管理类问题一般从“人事时地物”层别，应视具体情况决定； b、大要因必须用中性词描述（不说明好坏），中、小要因必须使用价值判断（如…不良）； c、脑力激荡时，应尽可能多而全地找出所有可能原因，而不仅限于自己能完全掌控主要原因，这些成45°角的直线称为大骨。 4．对引起问题的原因进一步细化，画出中骨、小骨……，尽可能列出所有原因5．对鱼骨图进行优化整理。

6．根据鱼骨图进行讨论。完整的鱼骨图如图2所示，由于鱼骨图不以数值来表示，并处理问题，而是通过整理问题与它的原因的层次来标明关系，因此，能很好的描述定性问题。鱼骨图的实施要求工作组负责人(即进行企业诊断的专家)有丰富的指导经验，整个过程负责人尽可能为工作组成员创造友好、平等、宽松的讨论环境，使每个成员的意见都能完全表达，同时保证鱼骨图正确做出，即防止工作组成员将鱼骨图分析法是咨询人员进行因果分析时经常采用的一种方法，其特点是简捷实用，比较直观。现以某炼油厂情况作为实例，采用鱼骨图分析法对其市场营销问题进行解析，具体如图所示：图中的“鱼头”表示需要解决的问题，即该炼油厂产品在市场中所占份额少。根据现场调查，可以把产生该炼油厂市场营销问题的原因，概括为5类。即人员、

圆的面积思维导图教学设计

《圆》思维导图教学设计设计人：高司杰适用年级小学六年级上册所需时间八个课时主题学习概述(对主题内容进行简要的概述，并可附上相应的思维导图) 这一单元的内容是圆，在这个单元中，教材安排了“圆的认识”、“圆的周长和面积”三个具体的内容，这三个内容由易到难，层层深入。本单元内容是在学生学过了直线图形的认识和面积计算，以及圆的初步认识的基础上进行教学的。学生从学习直线图形的知识，到学习曲线图形的知识，不论是内容本身，还是研究问题的方法，都有所变化。教材通过对圆的研究，使学生初步认识到研究曲线图形的基本方法。同时，也渗透了曲线图形与直线图形的关系。这样不仅扩展了学生的知识面，而且从空间观念方面来说，进入了一个新的领域。因此，通过对圆的有关知识的学习，不仅加深学生对周围事物的理解，提高解决简单实际问题的能力，也为以后学习圆柱、圆锥等知识和绘制简单统计图打好基础。学生将在这个单元中，结合动手操作、比较、测量等多种数学活动，更深入的理解、掌握圆的特点，进一步发展空间观念。主题学习目标(描述该学习所要达到的主要目标) 知识与技能： 1.学生认识圆，掌握圆的特征；理解直径半径的相互关系；理解圆周率的意义，掌握圆周率的近似值。 2.探索圆的周长与面积的计算方法，并能运用计算方法解决生活中的一些实际问题。过程与方法： 1.探索圆的周长与面积的计算方法中，获得探索问题成功的体验。 2.亲历动手操作、实验观察等方法，探索圆的周长、面积的计算方法，并能运用计算方法解决生活中的一些实际问题。情感态度与价值观： 1.通过以上一系列的学习活动，激发学生的学习兴趣，培养主动探索的欲望和创新精神。 2.培养学生观察、比较、想象等能力，进一步发展学生的空间观念。

运用鱼骨图分析及解决问题的实际操作案例

运用5M因素法（鱼骨图）分析及解决问题的实际操作案例背景：某民营房地产集团公司下属商贸分公司，在自有房产基础上经营有超市5家，经营业种以生鲜食品、传统食品、日用日化为主，总营业面积10000平方米；百货一家，主要经营业种为服装针织、皮具、皮鞋、化妆品，小吃，营业面积4500平方米；正在筹备中的购物中心18000平方米。问题1：经过统计商贸公司2001年9月—2002年3月的销售，总体毛利率为不到8%，注意：此毛利率是在公司无低毛利的家电以及百货毛利率近20%的基础上产生的总体毛利率，相对于市场状况以及竞争对手来讲，此毛利率偏低，从中反映了占销售比重近80%的超市经营毛利不正常。问题2：经过进一步的市场调查，针对超市每个业种安排如下数量的市调（按销售数量排名），得出以下数据比较：注：甲连锁店为一国营零售企业，在本地有34家连锁店，拥有诸多食品、日化产品的代理批发权；乙连锁店为一民营连锁零售企业，现有18家分店，拥有部分食品、日化产品的批发代理权；丙为一家200平方米左右的便利店；将市调数据经过进一步分析，发现价格问题----[b]我司进价比竞争对手售价高[/h]的情况如下（先忽略在正常供价基础上零售价格异常状况）：感觉到问题的严重性，公司紧急召开了采购人员的专项会议，要求在规定时间内（一周）针对以上问题各采购主任做出解释并及时与供应商进行谈判，希望能得到实质性的解决。一周过去了，供价问题依然没有得到明显的改善，高出比例依然居高不下。总结各采购主任的解释，主要如下： 1、甲、乙对手拥有诸多敏感商品的控制权，近水楼台先得月，人家有权利及有实力去进行降价； 2、公司政策对于供应商的通道利润要求过高，厂商在无奈情况下，只有提高供价，保持其基本利润，如果要求供应商降价，只有舍弃部分通道利润才可行； 3、公司要求的经营方式过于呆板，竞争对手部分商品是从批发市场上进行铲货来冲击市场，而公司没有此先例，都是以正常方式进行经营； 4、公司的付款方式问题：由于现金进货与押款进货的供价有区别，但是公司最低的付款要求为7天付款，因此在价格上没有办法降低； 5、竞争对手的恶意竞争行为：牺牲利润，亏本赚吆喝； 6、人手不够，杂事多，没有办法集中时间与精力与供应商谈判。针对以上解释，公司明确回复：如果在有把握的情况下，以上由于公司自身原因造成的供价高的问题，可以放宽尺度与供应商进行交涉。真的就是以上问题造成的吗？是主要的原因呢还是有其他的原因？没有过多的责怪各采购主任，在随后的中层干部例会上，此问题谈了出来，然后让大家了解了什么是鱼骨图分析法（5M因素分析法），希望通过大家的理解来讨论这个问题产生的根源所在，主要问题主要出现在哪些环节，哪些是需要重点解决的问题，哪些是虽然是先天的因素，但是可以通过努力去改进的环节，哪些是虽然由于条件的限制暂时不能改进但是可以通过改进其他问题予以弥补的问题。

鱼骨图制作及使用步骤

一、定义问题的特性总是受到一些因素的影响，我们通过头脑风暴找出这些因素，并将它们与特性值一起，按相互关联性整理而成的层次分明、条理清楚，并标出重要因素的图形就叫特性要因图。因其形状如鱼骨，所以又叫鱼骨图（以下称鱼骨图），它是一种透过现象看本质的分析方法。头脑风暴法（BrainStorming——BS）：一种通过集思广益、发挥团体智慧，从各种不同角度找出问题所有原因或构成要素的会议方法。BS有四大原则：严禁批评、自由奔放、多多益善、搭便车。二、鱼骨图的三种类型 A、整理问题型鱼骨图（各要素与特性值间不存在原因关系，而是结构构成关系） B、原因型鱼骨图（鱼头在右，特性值通常以“为什么……”来写） C、对策型鱼骨图（鱼头在左，特性值通常以“如何提高/改善……”来写）三、鱼骨图制作制作鱼骨图分两个步骤：分析问题原因/结构、绘制鱼骨图。 1、分析问题原因/结构。 A、针对问题点，选择层别方法（如人机料法环等）。 B、按头脑风暴分别对各层别类别找出所有可能原因（因素）。 C、将找出的各要素进行归类、整理，明确其从属关系。 D、分析选取重要因素。 E、检查各要素的描述方法，确保语法简明、意思明确。分析要点： a、确定大要因（大骨）时，现场作业一般从“人机料法环”着手,管理类问题一般从“人事时地物”层别，应视具体情况决定； b、大要因必须用中性词描述（不说明好坏），中、小要因必须使用价值判断（如…不良）； c、脑力激荡时，应尽可能多而全地找出所有可能原因，而不仅限于自己能完全掌控或正在执行的内容。对人的原因，宜从行动而非思想态度面着手分析； d、中要因跟特性值、小要因跟中要因间有直接的原因-问题关系，小要因应分析至可以直接下对策；

学习资料：思维导图课例(圆的认识)!(精.选)

让思维在头脑风暴中诠释 —《圆的认识》一课中思维导图的应用和体会贵阳市第二实验小学姚琛思维导图自20世纪90年代传入我国后，在教育领域产生了积极的影响，其潜在的教育价值，引起了教育研究者的高度重视，并已经开始应用到了教学中来。通过学习，我知道思维导图又叫心智图，是表达发射思维的有效的图形思维工具。我校“学习力”课题组也开始加入了这一研究行列，作为课题组的一员，我开始尝试在自己的数学课中使用思维导图，下面我就以一节苏教版五年级下册数学中《圆的认识》一课为例，从复习导入、讲授新课、拓展总结三个方面谈一谈自己对思维导图在一节数学课中的应用和体会。 1、复习导入以往的数学课堂，我喜欢出示一些复习题来巩固已经学过的知识，为新的知识做铺垫，了解思维导图后，我决定改变这种做法，在课堂教学的开始，我要为学生搭建合适的知识“脚手架”，找到新旧知识的连接点，而不只是简单的复习题。如同学们在学习《圆的认识》这一知识点时，是在学生已经初步掌握长方形、正方形、平行四边形、三角形和梯形的基本特征的基础上进行教学的。主要是让学生认识圆的基本特征以及圆心、半径和直径，并学会用圆规画圆。在此基础上拓展同圆的半径与直径的关系，圆是轴对称图形，有无数条对称轴。复习题变成了如图1所示的思维导图图1

通过之前的学习，学生已经掌握了研究平面图形的基本方法，就是找特征，因此在研究圆时自然就想到了找圆的特征，为新授课埋下了伏笔。由于课前安排了预习，所以同学们会七嘴八舌地说出自己要从哪些方面研究圆的特征，这样可以有效地刺激学生的学习兴趣，使他们在自己的头脑中快速地组织好自己的思维。 2、讲授新课根据同学们的研究方向我将思维导图1补充为思维导图2.。图2 在图2中，我采取了以下的方式进行教学。其一对于思维导图2中出现的圆心、半径、直径的概念和字母表示，采用自学和阅读相结合的方式，让学生们自己勾画，节省了记数学笔记的时间。其二在画圆时，我放手让学生自己试着完成，也可以同伴互助，只要画的美观，流畅就可以了。其三我展示了同学画的圆，同学们自己作出评价，找到了画好圆的秘诀（定点、定长、旋转一周）我接着对思维导图2进行第二次补充。整个课堂没有谁不听课，大家都在比赛看谁画的圆最漂亮。 3、总结拓展针对同学们画出的不同的圆，我开始进行提问，为什么同样是画圆，有的同学画的圆大一些，有的小一些。同学们异口同声地回答我因为圆的半径不同，我在图2上补充拓展为图3（半径决定了圆的大小）；接着我又问圆心可以决定

鱼骨图设计程序代码

鱼骨图分析法(完整篇)

圆设计及思维导图精编版

圆资料设计与思维导图

《圆》主题单元设计 思维导图

鱼骨图案例分析

初中数学《圆柱和圆锥》单元教学设计以及思维导图

5M因素法(鱼骨图)及其案例分析实例

护理质量管理PDCA加鱼骨图案例分析

鱼骨图fishbone diagram

《圆》主题单元设计 思维导图

模块3作业《圆》设计及思维导图

鱼刺图(鱼骨图)

《圆》设计及思维导图(优选.)

鱼骨图应用案例

鱼骨图制作及案例分析

圆的面积思维导图教学设计

运用鱼骨图分析及解决问题的实际操作案例

鱼骨图制作及使用步骤

学习资料：思维导图课例(圆的认识)!(精.选)

《圆》主题单元设计思维导图

《圆》主题单元设计思维导图