GBKEE

¦^´_ 1# PKKO
±NUserFormªºÅܼƦWºÙ,¦b¤@¯ë¼Ò²Õ¤º(«Dª«¥ó¼Ò²Õ(UserForm,ThisWorkbook,Sheet1... )
«Å§i¬°³o±M®×ªº Public ¤½¥ÎÅܼÆ,¦p¦¹UserFormªºÅܼÆ,¥i¦b¤@¯ë¼Ò²Õ¤º©I¥s¨ì

GBKEE

¦^´_ 4# PKKO
¸Õ¸Õ¬Ý

¼Ò²Õ³»ºÝ«Å§i¨p¥ÎÅܼÆ
Dim S As Range

1.   With Sheets("¸ê®Æ®w")
   
2.     If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
   
3.         C = .Cells.Find(sheetname, Lookat:=1).Column
   
4.         Set S = .Cells(2, C).Resize(16)
   
5.         Sheets("DIR").Activate
   
6.     Else
   
7.         MsgBox "½Ð­«·s½T»{!"
   
8.     End If
   
9. 
   
10. End With

½Æ»s¥N½X

1. For Each E In S
   
2.     Set ctrl = S
   
3.     If ctrl = " " Then ctrl = ""
   
4. Next

½Æ»s¥N½X

GBKEE

¦^´_ 6# PKKO

1. Dim i As Integer
   
2.     With Sheets(1)
   
3.         If Not .Cells.Find(sheetname, Lookat:=1) Is Nothing Then
   
4.             c = .Cells.Find(sheetname, Lookat:=1).Column
   
5.             Set q = .Cells(2, c).Resize(16)
   
6.             Sheets("DIR").Activate
   
7.         Else
   
8.             MsgBox "½Ð­«·s½T»{!"
   
9.         End If
   
10.     End With
    
11.     myArray = Application.WorksheetFunction.Transpose(q)
    
12.     For i = 1 To q.Count
    
13.         If ctrl = " " Then myArray(i) = "" Else myArray(i) = ctrl
    
14.    
    
15.     Next
    
16. '***************************
    
17.     'For i = 1 To UBound(myArray)
    
18.     '   If ctrl = " " Then myArray(i) = "" Else myArray(i) = ctrl
    
19.     'Next

½Æ»s¥N½X

'***************************