basarasy

¦^´_ 10# kimbal
RUN®É¦³°ÝÃD
A1=10  E1="">RUN 2¦¸>  C1¥X1(¥¿±`C1·|¥X2 )
18-21.¨º¸Ì¬O­n   IF  ES<>"" AND V=ES  THEN....>RUN >C1=e
¥i¥H¥[¦h­Óg1   if  g1=1 ´N§â ©Ò¦³saveªºªF¦èdel. ÁÙ¦³,¦pªG§Ú³o­Óexcel¦³°ÝÃD,¥i¥H§âsaveªºªF¦ècopy¨ì²Ä2­Óexcel¶Ü?

kimbal

¦^´_ 11# basarasy
¦³Ãöc1°ÝÃD, ¤§¦¸¿ù§R¤F¤@¤U,¥i¥H¦A¸Õ¸Õ³o­Ó

1.     On Error Resume Next
   
2.     Dim currRow As Long
   
3.     Dim es As String
   
4.     Dim e As Integer
   
5.     Dim nextvalue As Integer
   
6.     Dim sheetname As String
   
7.    
   
8.     sheetname = Worksheets("entries").Name
   
9.    
   
10.     If sheetname = "" Then
    
11.         MsgBox ("Sheet ""entries"" not found!")
    
12.         Exit Sub
    
13.     End If
    
14.     currRow = 0
    
15.    
    
16.     v = Range("A1")
    
17.    
    
18.     es = Range("E1").Value
    
19.     e = Range("F1").Value
    
20.     If es <> "" Then
    
21.         v = es
    
22.     Else
    
23.         e = 0
    
24.     End If
    
25.    
    
26.     currRow = WorksheetFunction.Match(v, Worksheets(sheetname).Range("A:A"), False)
    
27.     With Worksheets(sheetname)
    
28.         If currRow = 0 Then
    
29.             currRow = .Range("A65536").End(xlUp).Row + 1
    
30.             .Range("A1").Offset(currRow - 1) = v
    
31.             nextvalue = 1
    
32.         Else
    
33.             nextvalue = .Range("A1").Offset(currRow - 1, 1) + 1
    
34.         End If
    
35.         If e > 0 Then
    
36.             nextvalue = e
    
37.         End If
    
38.         .Range("A1").Offset(currRow - 1, 1) = nextvalue
    
39.     End With
    
40.    
    
41.     If currRow > 0 Then
    
42.         Range("C1").Value = nextvalue
    
43.     End If

½Æ»s¥N½X

³o­Ó©ÎªÌ§A¸Õ¸Õ¦Û¤v°Ê¤â§a,
"¥i¥H¥[¦h­Óg1   if  g1=1 ´N§â ©Ò¦³saveªºªF¦èdel"
saveªº¥N½X¬O
thisworkbook.save

"ÁÙ¦³,¦pªG§Ú³o­Óexcel¦³°ÝÃD,"
¥i¥H,vba¤º®e¸ò¨S¦³¸òworkbook©w¦ì.... §A¤]¸Õ¸Õ¤F¸Ñ¤@¤U¤¤Ãö¹B§@§a~¦³¦æ¼Æ¤£©ú¥Õ¥i¥H°Ý¤@¤Uªº.

basarasy

¦^´_ 12# kimbal

¤j¦h³£©ú¥Õ¤F.ÁÂÁ¤j¤j
¥u­n§âentries   del´N¥i¥H ªì´Á¤Æ¤F.

e1  and  f1  ¦³°ÝÃD
§Ú¤Je1¦Pf1 ¨ä¹ê¬O  ·í§Úa1=10®É ¤£¤p¤ß«ö¤F2¤Urun  c1¥X¤F2  ¤§«á¤Je1=10 f1=1 >run  c1´N·|
Åܦ^1.  ¤£¥Î§âe1¦Pf1 save¦bentries,¥u­n§ïentries¤º ¹ï·Óªºb:b ´Nok¤F.

¤£save¬O§_§ï
If es = "" Then
            .Range("A1").Offset(currRow - 1) = v
            End If

If es = "" Then        
        .Range("A1").Offset(currRow - 1, 1) = nextvalue
        End If  ³o­Ó?

¦ý§ïentries¤º ¹ï·Óªºb:b¤£ª¾§ï¨º¸Ì.

basarasy

¦pªG§Ú­n§âentriesªºªF¦èsave¦b ¨ä¥Lexcel­n¦pªG¼g?

kimbal

¦^´_ 13# basarasy


¦³Ãö "e1  and  f1  ¦³°ÝÃD"
¥i¥H§â
    Dim es As String
ªº as string ®³¨«´N¥i¥H¤F

"¦pªG§Ú­n§âentriesªºªF¦èsave¦b ¨ä¥Lexcel­n¦pªG¼g?"
¾Ç²ß¥¨¶°°ò¥»ªk: ¿ý»s¥¨¶°

¦bexcel¤W
1. ¶}µo¤H­û->¿ý»s¥¨¶°, «ö½T©w
2. ±`¥Î->Àx¦s®æ->®æ¦¡->²¾°Ê©Î½Æ»s¤u§@ªí, ¿ï¦ì¸m
3. ¶}µo¤H­û->°±¤î¿ý»s
¨ìvbe¬d¬Ý¥¨¶°

basarasy

¦^´_ 15# kimbal


    ÁÂÁ¤j¤j^^