luhpro

©êºp¡I§Ú¤S¨Ó¥´ÂZ¤F¡C¤W¦¸¦³°Q½×¹L¡C¦ý¬O³o¤@¦¸¦³°µ­×¥¿¡A«o¥X²{°ÝÃD
»yªk¦p¤U¡G
    Dim  ...
skyutm µoªí©ó 2012-8-29 23:48

¸g´ú¸Õªºµ²ªG,
­Y°õ¦æ¹L a11 = b11 = c11 = d11 = e11 = f11 = 0 ¥H«á,
a11 ©T©w·|³Q§ï¦¨ -1
§Ú²q¦³¥i¯à¬O¸Ó«ü¥O³Q¸Ñ´·¦¨ :
a11= (a11 = 0) (¤¤¶¡ªº«ü¥O³£³Qª½±µ©¿²¤±¼¤F)
·|³o¼Ë§PÂ_¬O¦]¬°¤W¦¡­Y§ï¬° = 1 ©Î = 5 ®É,
a11 ³£·| = 0
¦Ó­YÅܧ󤤶¡°Ñ¼Æ¦WºÙ«h¨º¨Ç°Ñ¼Æ­È³£¤£·|ÅÜ. (µM¦Ó­Y¦³«D¨Æ¥ý©w¸qªº°Ñ¼Æ¦WºÙ¥X²{,«h·|·s¼W¸Ó°Ñ¼Æ¥X¨Ó)

°½Ãiªº¤èªk¬O¦b¸Ó¦æ«á¦A¥[¤W¤@­Ó :
a11 = 0

©Î¬O±N¸Ó¦æ§ï¦¨ :
a11 = 0 : b11 = 0 : c11 = 0 : d11 = 0 : e11 = 0 : f11 = 0

¨ä¹ê¤£¶]¸Ó¦æ¤]¬O¥i¥Hªº,
¦]¬°¾ã¼Æ©ó Dim «áªì­È¥»¨Ó´N¬O 0

C ªº»yªk¦³¨Ç¬O¤£¯à¦b Basic ¤W¥Îªº,
¦]¬°¥i¯à·|³y¦¨«D§Ú­Ì©Ò¹w´Áªºµ²ªG.

luhpro

¦^´_ 21# skyutm
µ½¥Î With »P ÁY±Æ(¦¸¤@¯Å°Ï¶ô¤ºªºµ{¦¡¥ª¤è¦h´X­ÓªÅ®æ) ·|Åýµ{¦¡§ó®e©ö¾\Ū»PºûÅ@:

1. Sub Worksheet_Activate()
   
2.     '­Ó¤H¦¨ÁZ³æ¼ÐÃD¦C¡õ'
   
3.     Dim a, b, c, x, y
   
4.    
   
5.     With Sheets("°ò¥»³]©w")
   
6.       a = .Range("j1").Value
   
7.       b = .Range("j2").Value
   
8.       c = .Range("j3").Value
   
9.     End With
   
10.    
    
11.     d = Fix(c / 2)
    
12.    
    
13.     For i = 0 To d
    
14.       With Sheets("´Á¤¤µû¶q")
    
15.         x = .Range("a" & 3 + i * 2).Value
    
16.         y = .Range("b" & 3 + i * 2).Value
    
17.         x1 = .Range("a" & 4 + i * 2).Value
    
18.         y1 = .Range("b" & 4 + i * 2).Value
    
19.       End With
    
20.    
    
21.       With Sheets("´Á¤¤¦¨ÁZ³æ")
    
22.         .Range("a" & 1 + 12 * i).Value = a & "¦~" & b & "¯Z ´Á¤¤µû¶q ¦¨ÁZ³æ" & "(" & x & ")" & y
    
23.         .Range("o" & 1 + 12 * i).Value = a & "¦~" & b & "¯Z ´Á¤¤µû¶q ¦¨ÁZ³æ" & "(" & x1 & ")" & y1
    
24.       End With
    
25.     Next i
    
26.     '­Ó¤H¦¨ÁZ³æ¼ÐÃD¦C¡ô'
    
27. End Sub

½Æ»s¥N½X