贴吧怎么贴VBA代码啊？贴上去都不会自动换行的~~~
excel吧
全部回复
仅看楼主
吧务
level 10
zzmxy 楼主
RT，有知道的高手教一下~~~[歪头]
2011年05月26日 05点05分 1
level 7
■往事如风■
你贴一个试试
2011年05月26日 06点05分 2
吧务
level 10
zzmxy 楼主
来，试一个！！
Function COMTXT(Rng1 As Range, Rng2 As Range, Crit)   Dim ComT   Arr1 = Rng1.Value   Arr2 = Rng2.Value   ReDim ComT(0 To UBound(Arr1, 2) - 1)   k = 0   For i = 1 To UBound(Arr1, 2)   If Arr1(1, i) = Crit Then   ComT(k) = Arr2(1, i)   k = k + 1   End If   Next   ReDim Preserve ComT(0 To k - 1)   COMTXT = Join(ComT, ",")End Function

2011年05月26日 06点05分 3
level 11
amulee
试试看
Public WithEvents Sht As Worksheet
Public Rng As Range
Public Color As Long
Private Sub Sht_Calculate()
     On Error Resume Next
     Rng.Interior.ColorIndex = Color
End Sub
2011年05月26日 06点05分 4
吧务
level 10
zzmxy 楼主
阿木，你的是怎么粘贴的？不会是一行行打的吧~~~[揉脸]
2011年05月26日 07点05分 5
level 11
amulee
就是选中代码---复制---粘贴啊
你用啥浏览器
2011年05月26日 07点05分 6
吧务
level 10
zzmxy 楼主
哟，还真的是浏览器的问题，换了个IE，就好了~~~[Yeah]
Function COMTXT(Rng1 As Range, Rng2 As Range, Crit)
     Dim ComT
     Arr1 = Rng1.Value
     Arr2 = Rng2.Value
     ReDim ComT(0 To UBound(Arr1, 2) - 1)
     k = 0
     For i = 1 To UBound(Arr1, 2)
         If Arr1(1, i) = Crit Then
             ComT(k) = Arr2(1, i)
             k = k + 1
         End If
     Next
     ReDim Preserve ComT(0 To k - 1)
     COMTXT = Join(ComT, ",")
End Function

2011年05月26日 07点05分 7
level 1
mn860429
来凑热闹。
2011年05月26日 07点05分 8
吧务
level 10
zzmxy 楼主
欢迎mn来凑热闹~~~不过，这里倒不缺乏熟人啊~~[Love]
2011年05月26日 07点05分 9
level 1
zxhui1986
Function COMTXT(Rng1 As Range, Rng2 As Range, Crit)
      Dim ComT
      Arr1 = Rng1.Value
      Arr2 = Rng2.Value
      ReDim ComT(0 To UBound(Arr1, 2) - 1)
      k = 0
      For i = 1 To UBound(Arr1, 2)
          If Arr1(1, i) = Crit Then
              ComT(k) = Arr2(1, i)
              k = k + 1
          End If
      Next
      ReDim Preserve ComT(0 To k - 1)
      COMTXT = Join(ComT, ",")
End Function
学习中~
2011年05月27日 01点05分 10
level 1
viozhan
i`m you fans
2011年05月27日 07点05分 11
1