kimbal

1

1. [D1]=Range("B" & trim(str(n)) & "  " &  Range("C"& trim(str(i)))

½Æ»s¥N½X

¤£¤Ó©ú§A·Q­nªº¬O¤°»ò

2

1. sheets(2)

½Æ»s¥N½X

SHEET2 ¤£¤@©w¬O²Ä2, §A¥i¥H¥ý¥Îsheets("abc").index ¨Ó§ä¦ì¸m

3
¸ò²Ä2ÃDªº¦P¤@¹D²z

4 ¦pªG§A·QÃöexcel«á¼Æ¦rÁÙ¦b, ´N­n§ä­Ó¦ì¸m§â¥H¤UdªºªF¦è¦s°_

1. Sub test()
   
2.     Static d
   
3.     If IsEmpty(d) Then
   
4.         Set d = CreateObject("Scripting.Dictionary")
   
5.     End If
   
6.     v = Range("a1").Value
   
7.     If d.exists(v) Then
   
8.         d(v) = d(v) + 1
   
9.     Else
   
10.         Call d.Add(v, 1)
    
11.     End If
    
12.     Range("C1") = d(v)
    
13. End Sub

½Æ»s¥N½X

kimbal

¦^´_  GBKEE

1-3³£©ú¥Õ¤F  ÁÂÁÂ2¦ì¤j¤j

4
Set =Sheet1.Range("A65536")  ³o­Ó¦³°ÝÃD.
¦pªG­ndel   ...
basarasy µoªí©ó 2010-7-24 20:04

    ¤£¦p§A¥ý¤F¸Ñ¤@¤UStatic  ©M Scripting.Dictionary ¬O¤°»ò.
¤F¸Ñ«á§A´N·|ª¾¹D " eg.   as=1    gh=3    hu=10"  ªº­n¦p¦ó°µ.
¤£©ú¥Õ¥i¥H¦b³o¸Ì°Ý°Ý~

staticªº·N«ä¤j¬ù¬O"¼È¦s" ¦bmodule reset«e·|§â¼Æ­È°O°_¨Ó.
scripting.dictionary¥i°Ñ¦Ò¤@¤U³o¸Ì
http://forum.twbts.com/viewthread.php?tid=20

¦³Ãö¤§«e»¡ªº,§âscripting.dictionaryªº¸m¦s¨ìsheet¤W
¸òª±´åÀ¸¤@¼Ë
¦ba1 ¿é¤JSAVE, ·|§â©Ò¦³¦¸¼Æ©ñ¦bentries¤@­¶,
¦ba1 ¿é¤Jload®É, §â©Ò¦³¦¸¼Æ¥Ñentries¤@­¶´_­ì

1.    
   
2.     Static d
   
3.     Set acsht = ActiveSheet
   
4.     v = Range("a1").Value
   
5.     If v = "LOAD" Then
   
6.         d = Null
   
7.     End If
   
8.    
   
9.     If IsEmpty(d) Or IsNull(d) Then
   
10.         Set d = CreateObject("Scripting.Dictionary")
    
11.         If v = "LOAD" Then
    
12.             Sheets("Entries").Select
    
13.             If Range("A1") <> "" Then
    
14.                 For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    
15.                     v2 = Range("A1").Offset(i - 1)
    
16.                     If d.exists(Range("A1").Offset(i - 1)) Then
    
17.                         d(v2) = Range("A1").Offset(i - 1, 1)
    
18.                     Else
    
19.                         Call d.Add(v2, 1)
    
20.                     End If
    
21.                 Next
    
22.             Else
    
23.                 d = Null
    
24.             End If
    
25.             acsht.Select
    
26.             Range("C1") = "LOADED"
    
27.             Exit Sub
    
28.         End If
    
29.     Else
    
30.         If v = "SAVE" Then
    
31.             Sheets("Entries").Select
    
32.             Cells.Clear
    
33.             dk = d.keys
    
34.             di = d.Items
    
35.             Range("A1").Resize(UBound(dk) + 1).Value = WorksheetFunction.Transpose(dk)
    
36.             Range("B1").Resize(UBound(di) + 1).Value = WorksheetFunction.Transpose(di)
    
37.             acsht.Select
    
38.             Range("C1") = "SAVED"
    
39.             Exit Sub
    
40.         End If
    
41.     End If
    
42.    
    
43.     If d.exists(v) Then
    
44.         d(v) = d(v) + 1
    
45.     Else
    
46.         Call d.Add(v, 1)
    
47.     End If
    
48.     Range("C1") = d(v)

½Æ»s¥N½X

kimbal

¦^´_ 7# basarasy


    ¦³Ãö4ªº°ÝÃD, ©ÎªÌ´«­Ó¤èªk§a
¥Î«e¤£­n§Ñ¤F¥[ entries¤@­¶

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

½Æ»s¥N½X

¦³Ãöforumlaªº°ÝÃD:

1. Range("AA3").Formula = "=IF(" & MyName & "!C2="""","""",VLOOKUP(A2,poi!$A$2C$501,3,0))"

½Æ»s¥N½X

kimbal

¦^´_ 9# basarasy

¦³Ãö"¦³¤Ö¤Ö°ÝÃD"...

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.     sheetname = Worksheets("entries").Name
   
8.    
   
9.     If sheetname = "" Then
   
10.         MsgBox ("Sheet ""entries"" not found!")
    
11.         Exit Sub
    
12.     End If
    
13.     currRow = 0
    
14.    
    
15.     v = Range("A1").Value
    
16.     es = Range("E1").Value
    
17.     e = Range("F1").Value
    
18.     If es <> "" Then
    
19.         v = es
    
20.     Else
    
21.         e = 0
    
22.     End If
    
23.    
    
24.     currRow = WorksheetFunction.Match(v, Worksheets(sheetname).Range("A:A"), False)
    
25.     With Worksheets(sheetname)
    
26.         If currRow = 0 Then
    
27.             currRow = .Range("A65536").End(xlUp).Row + 1
    
28.             nextvalue = 1
    
29.         Else
    
30.             nextvalue = .Range("A1").Offset(currRow - 1, 1) + 1
    
31.         End If
    
32.         If e > 0 Then
    
33.             nextvalue = e
    
34.         End If
    
35.         .Range("A1").Offset(currRow - 1, 1) = nextvalue
    
36.     End With
    
37.    
    
38.     If currRow > 0 Then
    
39.         Range("C1").Value = nextvalue
    
40.     End If

½Æ»s¥N½X

Workbooks(AA).Close SaveChanges:=False
Close argument ¤Uªºfilename ¬O¥Î¨Ó«ü©wclose«á§âexcel¦s¦¨·sªºÀɦW,
¦Ó¤£¬O¥Î¨Ó«ü©wÃö¨º­Óbook

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ªº.

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¬Ý¥¨¶°