[讨论]有点难度的汇总

BrandSex

QUOTE:

以下是引用彭希仁在2007-11-27 10:44:24的发言：

单片机中的IF,左移右移,加法,减法我倒是知道如何通过数字电路实现,

至于你说的开发自已的Excel我是屁都不懂一个,估计中国人就你懂.哈哈

彭兄，你又提到我的强项了，单片机这块我太熟了，可以说是我的发展方向之一，想当年给老外做了一个项目（附图），老外连个物理参数都不让改，向老板建议自己搞，老板不愿在研发上投入，说人家这方面已经做得很成熟了，我想老板几百万美元宁可给老外也不让自己人拿，一不爽就走人了
这里我要承认自己犯了个低级的错误，我怎么能以国内的水平来衡量自己，对自己的要求也太低了吧

彭希仁

QUOTE:

以下是引用BrandSex在2007-11-27 11:49:18的发言：

彭兄，你又提到我的强项了，单片机这块我太熟了，可以说是我的发展方向之一，想当年给老外做了一个项目（附图），老外连个物理参数都不让改，向老板建议自己搞，老板不愿在研发上投入，说人家这方面已经做得很成熟了，我想老板几百万美元宁可给老外也不让自己人拿，一不爽就走人了
这里我要承认自己犯了个低级的错误，我怎么能以国内的水平来衡量自己，对自己的要求也太低了吧

你牛逼,即然你这么牛逼,那么就请你做做这题吧,让大伙见识见识.

ldy888

QUOTE:

以下是引用dxy27在2007-11-27 9:49:24的发言：

结果好象不对啊？

地区备注 栏的总数 才 388

应该是 658 才对。

ldy888

难处理的地方是报表的格式、美观的问题

“地区备注” 栏这样设计， 开始以为是统计各地区各型号故障 的总合。

仔细看又觉得是分别统计 各型号各种故障 在各地区的数量

如此一来“地区备注” 栏会非常宽（几十列）不知道题目的本意是否这样

另 不用ado 也可以用字典套字典实现

彭希仁

QUOTE:

以下是引用ldy888在2007-11-27 14:32:40的发言：

难处理的地方是报表的格式、美观的问题

“地区备注” 栏这样设计， 开始以为是统计各地区各型号故障 的总合。

仔细看又觉得是分别统计 各型号各种故障 在各地区的数量

如此一来“地区备注” 栏会非常宽（几十列）不知道题目的本意是否这样

另 不用ado 也可以用字典套字典实现

地区备注只需保留前三,难就难在这里.

ldy888兄用字典套字典写一个吧.

ldy888

哦 原来如此。

我试一下

dxy27

QUOTE:

以下是引用ldy888在2007-11-27 14:32:40的发言：

难处理的地方是报表的格式、美观的问题

“地区备注” 栏这样设计， 开始以为是统计各地区各型号故障 的总合。

仔细看又觉得是分别统计 各型号各种故障 在各地区的数量

如此一来“地区备注” 栏会非常宽（几十列）不知道题目的本意是否这样

另 不用ado 也可以用字典套字典实现

“地区备注” 栏的意思是每种型号的每种问题只取前3个最多的地区,而且是从大到小排列,我觉得

这是最难的地方.请参考

ldy888

Sub aaaa()
    'Dim d1 As New Dictionary  d1 是多余的注释掉
    Dim d2 As New Dictionary
    Dim d3 As New Dictionary
    Dim d4 As New Dictionary
    r = Sheet2.Range("a2").End(xlDown).Row - 1
    arr = Sheet2.Range("a2").Resize(r, 3)

    For I = 1 To r
        For j = 1 To 3
            arr(I, j) = Trim(arr(I, j))    '文字净化处理 去掉手误空格
        Next
      '  s = d1(arr(I, 1))
        d2(arr(I, 2)) = d2(arr(I, 2)) + 1
        s = d3(arr(I, 3))
        xhgz = arr(I, 2) & " " & arr(I, 3)    ' 型号 故障
        If d4.Exists(xhgz) = False Then Set d4(xhgz) = New Dictionary'字典套字典
        d4(xhgz)(arr(I, 1)) = d4(xhgz)(arr(I, 1)) + 1
    Next
    arr = d4.Items
    For I = 0 To UBound(arr)
        If arr(I).Count > X Then X = arr(I).Count: SS = d4.Keys(I)
    Next
    Erase arr
    ReDim AR(1 To (d2.Count + d4.Count), 1 To 11)
    I = 0
    For Each K In d4
        xh = Split(K)(0)
        gz = Split(K)(1)
        I = I + 1
        AR(I, 1) = (I - 1) Mod (d3.Count + 1) + 1

        AR(I, 2) = xh
        AR(I, 3) = gz

        For Each KK In d4(K)
            AR(I, 4) = AR(I, 4) + d4(K)(KK)

        For Each KK In d4(K)
            AR(i, 4) = AR(i, 4) + d4(K)(KK)
            If d4(K)(KK) >= AR(i, 7) Then' 这里重新改过了， 取前三名，优化问题就不管了
                AR(i, 10) = AR(i, 8): AR(i, 11) = AR(i, 9)
                AR(i, 8) = AR(i, 6): AR(i, 9) = AR(i, 7)
                AR(i, 6) = KK: AR(i, 7) = d4(K)(KK)
            ElseIf d4(K)(KK) >= AR(i, 9) Then
                AR(i, 10) = AR(i, 8): AR(i, 11) = AR(i, 9)
                AR(i, 8) = KK: AR(i, 9) = d4(K)(KK)
            ElseIf d4(K)(KK) > AR(i, 11) Then
                AR(i, 10) = KK: AR(i, 11) = d4(K)(KK)
            End If
        Next

        Next
        AR(I, 5) = AR(I, 4) / d2(xh)
        If AR(I, 1) = d3.Count Then
            I = I + 1
            AR(I, 1) = (I - 1) Mod (d3.Count + 1) + 1
            AR(I, 2) = xh
            AR(I, 3) = "合计"
            AR(I, 4) = d2(xh)
            AR(I, 5) = "100%"
        End If
    Next
    Range("a3").Resize(UBound(AR), 11) = AR
End Sub

[此贴子已经被作者于2007-11-27 17:26:17编辑过]

ldy888

彭兄的表里所有机型都出现了5 种故障

所以 没考虑某种型号的故障 没有出齐的情况。

比如 所有地区的s11都没有出现 不开机 的故障

否则又要增加判断语句.

彭希仁

QUOTE:

以下是引用ldy888在2007-11-27 16:11:15的发言：

Sub aaaa()
    Dim d1 As New Dictionary
    Dim d2 As New Dictionary
    Dim d3 As New Dictionary
    Dim d4 As New Dictionary
    r = Sheet2.Range("a2").End(xlDown).Row - 1
    arr = Sheet2.Range("a2").Resize(r, 3)

    For I = 1 To r
        For j = 1 To 3
            arr(I, j) = Trim(arr(I, j))    '文字净化处理 去掉手误空格
        Next
        s = d1(arr(I, 1))
        d2(arr(I, 2)) = d2(arr(I, 2)) + 1
        s = d3(arr(I, 3))
        xhgz = arr(I, 2) & " " & arr(I, 3)    ' 型号 故障
        If d4.Exists(xhgz) = False Then Set d4(xhgz) = New Dictionary'字典套字典
        d4(xhgz)(arr(I, 1)) = d4(xhgz)(arr(I, 1)) + 1
    Next
    arr = d4.Items
    For I = 0 To UBound(arr)
        If arr(I).Count > X Then X = arr(I).Count: SS = d4.Keys(I)
    Next
    Erase arr
    ReDim AR(1 To (d2.Count + d4.Count), 1 To 11)
    I = 0
    For Each K In d4
        xh = Split(K)(0)
        gz = Split(K)(1)
        I = I + 1
        AR(I, 1) = (I - 1) Mod (d3.Count + 1) + 1

        AR(I, 2) = xh
        AR(I, 3) = gz

        For Each KK In d4(K)
            AR(I, 4) = AR(I, 4) + d4(K)(KK)
            If d4(K)(KK) > AR(I, 7) Then  '前3个最多的地区
                AR(I, 6) = KK: AR(I, 7) = d4(K)(KK)
            ElseIf d4(K)(KK) > AR(I, 9) Then
                AR(I, 8) = KK: AR(I, 9) = d4(K)(KK)
            ElseIf d4(K)(KK) > AR(I, 11) Then
                AR(I, 10) = KK: AR(I, 11) = d4(K)(KK)
            End If
        Next
        AR(I, 5) = AR(I, 4) / d2(xh)
        If AR(I, 1) = d3.Count Then
            I = I + 1
            AR(I, 1) = (I - 1) Mod (d3.Count + 1) + 1
            AR(I, 2) = xh
            AR(I, 3) = "合计"
            AR(I, 4) = d2(xh)
            AR(I, 5) = "100%"
        End If
    Next
    Range("a3").Resize(UBound(AR), 11) = AR
End Sub

引用胡汗三的一句名言"高,实在是高"

总算见识了什么是字典套字典了