学习字典

qldd2200

       各位老师请指教：根据工作表“表”中单位个数制作客户对帐单，工作表“表”中每个客户制作一个对帐单（一个工作表），并以客户名称命名工作表，提取客户名称到对帐单的【b13】,提取余额到对帐单的【d8】,现有代码可以满足要求，主要是为了学习字典方法，请老师用字典法写个代码，不胜感谢！！！

夸不得

你这个表格，单位是否是会有重复公司，如有重复，余额取哪一个，如果不重复就没有用字典的意义了

qldd2200

夸不得 发表于 2018-5-10 09:17
你这个表格，单位是否是会有重复公司，如有重复，余额取哪一个，如果不重复就没有用字典的意义了

老师，没有重复的，主要是想学习这个字典方法【d8】的金额是不是能在这句“With ActiveSheet
                .Name = Mid(Itm, 1, 6)
                .[b13] = Itm
            End With”中提取？谢谢您！

abc123281

呵呵  看了一下  你这个用不到字典

abc123281

1  你的数据表中数据很少
2  你需要提取的只有两个数据   所以没有写代码的必要

yexin.wu

Sub 客户对账单()
   
        Dim d As Object, Itm
        Dim Arr, Ary, b%
         Set d = CreateObject("Scripting.Dictionary")
        Sheets("表").Select
        b = [b65536].End(3).Row
        Arr = Range("b4", "c" & b)
        For b = 1 To UBound(Arr)
            d(Arr(b, 1)) = Arr(b, 2)
        Next
        For Each Itm In d
            Sheet2.Copy after:=Sheets(Sheets.Count - 1)
            With ActiveSheet
                .Name = Mid(Itm, 1, 6)
                .[b13] = Itm
                .[d8] = d(Itm)
                .[d8].NumberFormatLocal = "0.00"
            End With
        Next
   
End Sub

qldd2200

abc123281 发表于 2018-5-10 09:22
呵呵  看了一下  你这个用不到字典

老师，这段代码中有一部分是用字典写的（借用别人的），就是想【d8】
能用这个代码一下提取出来，不知道能不能实现？谢谢您！

yexin.wu

qldd2200 发表于 2018-5-10 09:24
老师，这段代码中有一部分是用字典写的（借用别人的），就是想【d8】
能用这个代码一下提取出来，不知道 ...

我应该理解了你的意思，试一下上面的代码。

qldd2200

yexin.wu 发表于 2018-5-10 09:24
Sub 客户对账单()
   
        Dim d As Object, Itm

谢谢老师，完全符合要求，学习一下代码，谢谢您！

qldd2200

yexin.wu 发表于 2018-5-10 09:24
Sub 客户对账单()
   
        Dim d As Object, Itm

老师，请问.[d8] = d(Itm)是什么意思？谢谢！