mark15jill

¦^´_ 1# jcmdrt


    12¦ì¤¸ ¬O«ü  @  «e­±ªº¦ì¤¸¼Æ ÁÙ¬O Á`¦ì¤¸¼Æ??
[email protected]  ?
1234567891234 ?

mark15jill

¥H¤U¬O¤@ÂIÂIªº¤pµ{¦¡
¥i¥H¥ý©ñ¤@¨Ç¸ÕÅç¬Ý¬Ý
¦A¥Î¿z¿ï¥\¯à¿z¿ï

1. Private Sub CommandButton1_Click()
   
2. '«e¸m
   
3.     [a1] = "¹q¤l«H½c"
   
4.     [b1] = "Á`¦r¼Æ"
   
5.     [c1] = " @©Ò¦b¦ì¸m"
   
6.     [d1] = " @«e¦r¼Æ"
   
7.     [e1] = " @«á¦r¼Æ"
   
8.    
   
9. 'Äæ¼e
   
10.     Columns("a:a").Select
    
11.     Selection.ColumnWidth = 35
    
12.     Columns("B:B").Select
    
13.     Selection.ColumnWidth = 10
    
14.     Columns("C:C").Select
    
15.     Selection.ColumnWidth = 15
    
16.     Columns("D:D").Select
    
17.     Selection.ColumnWidth = 10
    
18.     Columns("E:E").Select
    
19.     Selection.ColumnWidth = 10
    
20.    
    
21. 'µ{¦¡°Ï
    
22.     For pg = 2 To ActiveSheet.Range("a1").CurrentRegion.Rows.Count
    
23.         Cells(pg, 2) = Len(Cells(pg, 1))
    
24.         Cells(pg, 3) = InStr(Cells(pg, 1), "@")
    
25.         Cells(pg, 4) = Mid(Cells(pg, 1), 1, Cells(pg, 3) - 1)
    
26.         Cells(pg, 5) = Mid(Cells(pg, 1), Cells(pg, 3) + 1, 90)
    
27.    
    
28.     Next
    
29. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 7# jcmdrt

³o­Ó¬O±N­n¤À¸Ñªº ¹q¤l«H½c ©ñ¦bAÄæ¦ì..
°õ¦æ«á  ·|¤À¸Ñ¶}¨Ó
¥i¨Ì·Ó Á`¦r¼Æ¬O§_¶W¹L12 ¦A¥h°µ¿z¿ï(excel ¤º¦³¹w³]¥\¯à)