텍스트 연결의 사용자 정의 함수를 소개합니다:contxt

4677 단어 Excel직장VBA레저
엑셀이 가지고 있는 CONCATENATE 함수는 텍스트를 연결할 수 있지만 메모리 그룹을 연결할 수 없습니다. 효과는 아직 없습니다. 이 연결부호가 편리하기 때문에 엑셀에서 가장 큰 계륵입니다.그래서 오늘은 제가 계속 사용하고 있는 텍스트 연결의 사용자 정의 함수 - contxt를 소개합니다.
 

  
  
  
  
  1. Function ConTxt(ParamArray args() As VariantAs Variant 
  2. Dim tmptext As Variant, i As Variant, cellv As Variant 
  3. Dim cell As Range 
  4. tmptext = "" 
  5.  
  6. For i = 0 To UBound(args) 
  7.     If Not IsMissing(args(i)) Then 
  8.         Select Case TypeName(args(i)) 
  9.             Case "Range" 
  10.                 For Each cell In args(i) 
  11.                     tmptext = tmptext & cell 
  12.                 Next cell 
  13.             Case "Variant()" 
  14.                 For Each cellv In args(i) 
  15.                     tmptext = tmptext & cellv 
  16.                 Next cellv 
  17.             Case Else 
  18.                 tmptext = tmptext & args(i) 
  19.         End Select 
  20.     End If 
  21. Next i 
  22.  
  23. ConTxt = tmptext 
  24. End Function 

예를 들어 CONCATENATE 함수의 차이가 많지 않다. 쉼표, 구분, 파라미터로 수조와 셀 영역을 지원한다.오리지널 작가는 Chenjun(진군), 마이크로소프트 MVP, EH의 전설적인 인물이다. 아쉽게도 내가 EH에 들어갔을 때 이 영웅은 이미 은거하여 가르침을 청할 인연이 없어서 매우 아쉽다.
PS: 여러분도 아시다시피 블로그가 거의 두 달 동안 업데이트되지 않았습니다. 그 동안 많은 일이 있었고 심성도 많이 바뀌었기 때문입니다. 엑셀은 다 배울 수 없을 정도로 내용이 풍부하지만 현재 수준은 실제 업무에서 충분합니다. 엑셀 외에 다른 방면, 즉 돈을 버는 것에 관심을 가져야 하기 때문에 최근에 인터넷 돈벌이에 관한 블로그를 하고 있습니다. 일과 후에 담배값을 구하고 싶은 친구는 적당히 관심을 가져도 됩니다.정력에 한계가 있기 때문에 VSTO는 더 이상 쓰기 어려울 것 같습니다. 앞으로도 새로 배운 Excel/VBA 등 Office 시리즈나 업무 중에 겪는 문제 같은 글만 쓸 것입니다.그래서 만약에 여러분들이 좋은 경험과 창의력을 가지고 EH, ET 등 황금 쓰레기 더미에 잠기고 싶지 않다면 저에게 투고한 것을 환영합니다. 제 메일박스:[email protected]또는[email protected], 문장은 나의 개인 블로그에 발표될 것이다.
 
저자: laoyebin(Paladin.lao) 개인 사이트 영문 출처:http://mrvsto.com/개인 사이트 중국어 출처:http://cn.mrvsto.com/ 
본고의 판권은 작가의 소유입니다. 전재를 환영하지만, 작가의 정보와 원문의 링크를 보류해 주십시오. 대단히 감사합니다.

좋은 웹페이지 즐겨찾기