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

[µo°Ý] «Å§i°ÝÃD

[µo°Ý] «Å§i°ÝÃD

¶Wª©¤j¤j­Ì³£·|¨Ï¥ÎOption Explicit ¨Ó­­¨îµ{¦¡½X¤@©w­n«Å§i

¦ý·Q½Ð±Ð¤@¤U,¤U­±³o¦æµ{¦¡½X¬Orng=¬Y¦ì¸mªº°}¦C,§Ú­n¦p¦ó¥i¥H«Å§i¥Xrng°}¦Cªº¤º®e­È³£¬OBYTE©O?
rng=[a1].resize[7,7]
a=rng(1,1)
§Ú­ì¥»ªº¼gªk·|¥X²{¿ù»~
dim rng as byte
©Î¬Odim rng() as byte
PKKO

¦^´_ 1# PKKO
dim rng() as byte ¨S¿ù°Ú¡A¦ý§A­n½á­È®É­n¥ÎCByteÂà´«
  1. Option Explicit
  2. Sub Test()
  3.     Dim i, j
  4.     Dim x(1 To 7, 1 To 7) As Byte
  5.    
  6.     With [a1].Resize(7, 7)
  7.         For i = 1 To UBound(x)
  8.             For j = 1 To UBound(x, 2)
  9.                 x(i, j) = CByte(.Cells(i, j).Value)
  10.             Next
  11.         Next
  12.     End With
  13. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00


    §Ú­è´ú¸Õ,·|¥¢±Ñ

¦ý­Y¯u­n¦p¦¹,¦ü¥G«Å§i¬°BYTE¦³ÂI¨¯­W,¦Ó¥B³t«×¤WµLªk¼W¥[¦h¤Ö¹ï¶Ü?
PKKO

TOP

¦^´_ 3# PKKO
1.  ¨Ã«Dµ{¦¡½X¸ûªø©Î¨Ï¥Î°j°é³t«×¤@©w´N¤ñ¸ûºC
2.  ³t«×§Ö¤£§Ö¬O¬Ý§A«ç»ò¹Bºâ..¦pªG¥u¬O¨ú¥X7x7ªº­È®Ú¥»¤£¥Î¦Ò¼{¨ì³t«×
3.  ByteÃþ«¬ªº­pºâ·|¤ñInteger§Ö , §A½T©w¶Ü?
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-8 17:18 ½s¿è

¦^´_ 4# stillfish00

   S¤j±z¦n

§Ú¨Ã¤£½T©wBYTE·|¤ñinteger§Ö

¦]¬°§Ú¦Û¤v¹êÅ窺®É­Ôµo²{,¨S«Å§i©~µMÁÙ¤ñ«Å§i¬°BYTE¤§«á§Ö= =?

§Ú¤£¾å±o­ì¦]¦b­þ~

¥D­n¬O°w¹ï¤U¦Cµ{¦¡½X

¤@­Ó7*7ªº°}¦C

·Q­n¤@¦¸¤C­Ó¤ñ¹ï¤@²Õ¤»­Ó¸¹½X
¬Ý¦³´X­Ó¸¹½X²Å¦X

­Y²Å¦X¥Î°}¦C±N­È°O¾Ð°_¨Ó

¤U¤è¬O§Úªºµ{¦¡½X?

¤£¾å±o¦³¨S¦³¥i¥H¤@¦¸¤ñ¹ïªºµ{¦¡½X?
©Î¬O¤ñ¤U¤è§ó§Öªºµ{¦¡½X?
  1. '«Å§iª«¥ó
  2. Dim D As Object
  3. Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
  4.        For q = 1 To 7
  5.             D.RemoveAll
  6.             For j = 1 To 7
  7.                 D.Add rng(j, q), j
  8.             Next
  9.             For j = 1 To y
  10.                 r = 0
  11.                 For k = 1 To 6
  12.                     If D.Exists(Rng2(j, k)) Then r = r + 1
  13.                 Next
  14.                 If r > 0 Then myArray1(r) = myArray1(r) + 1
  15.             Next
  16.         Next
½Æ»s¥N½X
PKKO

TOP

¦^´_ 5# PKKO


    §A¬O¦b¼g¼Ö³z¤è­±ªºµ{¦¡¶Ü

TOP

¦^´_ 6# bobomi


    «¢«¢,µL²áÀ°ªB¤Í¼gªº,§Ú­Ó¤H»{¬°³t«×¤w¸g¨ì·¥­­¤F,¦ý·Q»¡³o¸Ì°ª¤â¶³¶°,¥i¯àÁÙ¦³§ó§Öªº¤è¦¡
PKKO

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD