ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

§ó·s°ÝÃD

§ó·s°ÝÃD

¦U¦ì¤j¤j,

½ÐÀ°¦£¬Ýªþ¥ó,¬°¤°»ò¦b"A"ÄæÉõ·|¦Û°Ê¥[¸ê®Æ,¦ý¦b"B"´N­ø·|? ¦ý·í§Ú¿é¤J¥u¬O"¼Æ¦r"´N¥i¥H¦Û°Ê¥[¸ê®Æ??

ÁÂÁÂ
Racing.rar (27.81 KB)

¦^´_ 4# GBKEE
ª©¥D,©ú¥Õ¤F, ÁÂÁ§Aªº±Ð¾É, ¨ü±Ð¤F,
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2017-9-2 05:59 ½s¿è

¦^´_ 3# mdr0465
  1. Format(Mid(Sheets(1).Cells(64, 1), 6, 11), "dd/mm/yy")
½Æ»s¥N½X
Format¶Ç¦^¬O, "yyyy/mm/dd"©Î "mm/dd/yyyy"¨t²Î¤~·|»{©w ¬O¤é´Á®æ¦¡
  1. Sub Ex()
  2.     With ActiveCell
  3.       .Value = Format(Date, "dd/mm/yy")
  4.         MsgBox Date & "-->" & .Value
  5.     End With
  6. End Sub
½Æ»s¥N½X
2.  "@" ¬O¦³¤°»ò¥Î³~©O??   
"@"  ªí¬°¤å¦r®æ¦¡
¥i¸Ô¬ÝVBAªº»¡©ú(2010)
Excel  /  ¿é¤J¸ê®Æ¨Ã³]©w®æ¦¡  /  ³]©w¸ê®Æ®æ¦¡  /  «Ø¥ß©Î§R°£¦Û­q¼Æ¦r®æ¦¡   
[«Ø¥ß©Î§R°£¦Û­q¼Æ¦r®æ¦¡]
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ mdr0465 ©ó 2017-9-1 12:55 ½s¿è

¦^´_ 2# GBKEE

GBKEE ÁÂÁ§Aªº¦^ÂÐ, §Ú¬OVBAªì­ô, §Ú³£ª¾¹D§Ú¼g±o«Ü²ÖÂØ, ÁÂÁ§AÀ°§Ú²¤Æ,
¦ý¦³¤@¼Ë³¥·Q¦V§A½Ð±Ð
.Cells = Format(Mid(ActiveWorkbook.Sheets(1).Cells(64, 1), 6, 11),"YYYY/MM/DD")
.NumberFormatLocal = "dd/mm/yy;@"
   
¥H¤W³o¤@¬qªºµµ¦â³¡¥÷
1. ¬°¤°»ò­n¥ý³]©w¬°"¦~/¤ë/¤é"??¬O¦³¤°»ò¥Î³~©O??
2. "@" ¬O¦³¤°»ò¥Î³~©O??

ÁÂÁ½ç±Ð

TOP

¦^´_ 1# mdr0465
WorksheetFunction.Count ¤èªk
·|²Î­p§t¦³¼Æ¦rªºÀx¦s®æ¡A¨Ã²Î­p¤Þ¼Æ²M³æ¤ºªº¼Æ­È¡C

  1. Format(Mid(Sheets(1).Cells(64, 1), 6, 11), "dd/nn/yy")
½Æ»s¥N½X

¬O¤å¦r

WorksheetFunction.CountA ¤èªk
·|²Î­p¤£¬OªÅ¥ÕªºÀx¦s®æ¡A¥H¤Î¤Þ¼Æ²M³æ¤ºªº¼Æ­È¡C
  1. Application.Goto ActiveWorkbook.Sheets(2).Cells(1, 2)
  2.         'On Error Resume Next
  3.             cnt = WorksheetFunction.CountA(Range("b:b"))
½Æ»s¥N½X

§Aªºµ{¦¡¥i­×§ï¬°CountA

¸Õ¸Õ¬Ý
  1. Sub test()
  2. Dim rng As Range
  3. Dim i, cnt, number As Integer
  4. Dim x As Range
  5. i = 73
  6. number = 0
  7. For i = i To 86
  8. Set x =  ActiveWorkbook.Sheets(1).Cells(i, 1)
  9. If IsNumeric(x) = True And IsEmpty(x) = False Then
  10. number = number + 1
  11. End If
  12. Next
  13. cnt = WorksheetFunction.Count(ActiveWorkbook.Sheets(2).Range("a:a"))
  14. For i = 1 To number
  15. With ActiveWorkbook.Sheets(2)
  16. .Cells(cnt + i, 1) = i
  17. With .Cells(cnt + i, 2)
  18. .Cells = Format(Mid(ActiveWorkbook..Sheets(1).Cells(64, 1), 6, 11), "YYYY/MM/DD")
  19. .NumberFormatLocal = "mm/dd/yy;@"
  20. End With
  21. End With
  22. Next
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD