stillfish00

¦^´_ 1# joslau

1. Sub Ex()
   
2.   Dim rngSelect As Range, sMerge As String
   
3.   
   
4. SELECT_RANGE_AGAIN:
   
5.   On Error Resume Next
   
6.   Set rngSelect = Application.InputBox(prompt:="½Ð¿ï¾Ü³æ¦C½d³ò©Î³æÄæ½d³ò", Default:=Selection.Address, Type:=8)
   
7.   On Error GoTo 0
   
8.   If rngSelect Is Nothing Then Exit Sub
   
9.   rngSelect.Select
   
10.   
    
11.   With rngSelect
    
12.     If .Rows.Count = 1 And .Columns.Count = 1 Then  '³æ®æ
    
13.       sMerge = rngSelect.Value
    
14.     ElseIf .Rows.Count = 1 And .Columns.Count > 1 Then  '³æ¦C
    
15.       sMerge = Join(Application.Transpose(Application.Transpose(rngSelect.Value)), ",")
    
16.     ElseIf .Rows.Count > 1 And .Columns.Count = 1 Then  '³æÄæ
    
17.       sMerge = Join(Application.Transpose(rngSelect.Value), ",")
    
18.     Else
    
19.       GoTo SELECT_RANGE_AGAIN
    
20.     End If
    
21.   End With
    
22.   
    
23.   With New DataObject '»Ý¤Þ¥Î Microsoft Form Object Library
    
24.     .SetText sMerge
    
25.     .PutInClipboard
    
26.   End With
    
27. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 3# wufonna
´¡¤J¤@­ÓªÅ¥Õªí³æ¡A¦A¬Ý¬Ý¬O§_¦Û°Ê¤Þ¥Î¤F¡F¦pªGÁÙ¬O¨S¦³¡A¤â°ÊÂsÄý¥[¤J C:\windows\system32\FM20.DLL¡C

stillfish00

¦^´_ 8# wufonna
§Ú¬O«üVB½s¿è¾¹>¤u¨ã>³]©w¤Þ¥Î¶µ¥Ø>ÂsÄý¡A¦Û¤v¿ï¸ÓÀɮסA¦ý¸ò§A³ocodeÀ³¸Ó¬O¦P¼Ë·N«ä