[µo°Ý] VBA ¤¤pºâ¼ÆÈ°ÝÃD
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
¸ß°Ý¯x°}³]p°ÝÃD
§Ú¼g¤F¤@Ó 4*4 ªº¯x°}, ¯x°}È·|¦³¤À¼Æ, ¦ý°õ¦æ«á < 0 ªº³¡¥÷³£Åã¥Ü 0
¦pªG¤~¯àÅý¥¦Åã¥Ü¤À¼Æ?
»yªk:
Dim myarray1(2 To 5, 2 To 5) As Integer
myarray1(2, 2) = 1
myarray1(2, 3) = 1
myarray1(2, 4) = 3
myarray1(2, 5) = 5
myarray1(3, 2) = 1
myarray1(3, 3) = 1
myarray1(3, 4) = 2
myarray1(3, 5) = 4
myarray1(4, 2) = 1 / 3
myarray1(4, 3) = 1 / 3
myarray1(4, 4) = 1
myarray1(4, 5) = 5
myarray1(5, 2) = 1 / 5
myarray1(5, 3) = 1 / 4
myarray1(5, 4) = 1 / 5
myarray1(5, 5) = 1
For i = 2 To 5
For j = 2 To 5
Cells(i, j).Value = myarray1(i, j)
Next j
Next i
End Sub |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
[µo°Ý] VBA ¤¤pºâ¼ÆÈ°ÝÃD
§Ú³]p¤F¤@Ó 3*3 ªº¯x°}, ·Q°µ row ªº¼ªk,
¨Ò¦p, myarray1(2,2) ªº 1 * myarray1(3, 2) = 1 *myarray1(4, 2) = 1 / 3
§Y 1*1*3
³oÓ»yªkn«ç»ò¼g?
Dim myarray1(2 To 4, 2 To 4) As Single
myarray1(2, 2) = 1
myarray1(2, 3) = 1
myarray1(2, 4) = 3
myarray1(3, 2) = 1
myarray1(3, 3) = 1
myarray1(3, 4) = 2
myarray1(4, 2) = 1 / 3
myarray1(4, 3) = 1 / 2
myarray1(4, 4) = 1
For i = 2 To 4
For j = 2 To 4
Cells(i, j).Value = myarray1(i, j)
Next j
Next i
End Sub |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
¥ýÁÂÁ¶W¯Åª©¥Dªº«Øij, §Ú¬O·Q¦b¯x°}¤¤¦A¥[¤@ÓÄæ¦ì, ¥i¥H¦Û°Ê°µ rowªºpºâ, ¹³¤U±¨ºÓ¯x°}¤@¼Ë
1.............1........3.........(1*1*3)
1.............1....... 2........(1*1*3)
1/3.....1/2.......1........(1/3*1/2*1) |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
·Q¦A¸ß°Ý¶W¯Åª©¥D¡AY§Ú¦A¥[¤J¤@ÓÄæ¦ì¡A±q 3*3 ÅÜ 4*4, À³¸Ó«ç»òקï»yªk¡H(¬Ý¤F¦n¤[, ¤£¤Ó¤F¸Ñ ReDim ³o¥y»yªk)
1.............1........3.......2........(1*1*3*2)
1.............1....... 2......1.........(1*1*3*1)
1/3.....1/2.......1.......3........(1/3*1/2*1*3) |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
ÁÂÁ§A --- §Ú·|¦A½m²ß¬Ý¬Ý, ¦³°ÝÃD¦A³Â·Ð§AÅo~~ |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
§Ú·Q½Ð°Ý¶W¯Åª©¥D, ¦pªG¥ÎVBA»yªk, ¦p¦ó§PÂ_¯x°}¤¤ªº¥ô¤@¼ÆȳQ§ïÅÜ, ¨Ã¥B¯à°÷Åý¥¦«·spºâ1.............1........3.......2........(1*1*3*2)
1.............1....... 2......1.........(1*1*3*1)
1/3.....1/2.......1.......3........(1/3*1/2*1*3)
¦A³Â·Ð±z~~ |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
¶W¯Åª©¥D, ¯uªº¬O¤Ó·PÁ§A¤F!!! |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
¶W¯Åª©¥D±z¦n,
¦]¬°§ÚªºÅv¦³, µLªk±Nµ{¦¡Àɮתþ¥[¤W¨Ó, ¤]µLªk¶Çµu®ø®§µ¹±z, §Ú¤´µM¦³¯x°}pºâ°ÝÃD·Q½Ð±Ð±z, ¤£¾å±oÀ³¸Ó«ç»ò³B²z, ¤è«Kµ¹§Ú±zªº email? ©Î¬O¦³¨ä¥¦¤è¦¡? ³Â·Ð±z |
|
|
|
|
|
|
- ©«¤l
- 19
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 22
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-12-28
- ³Ì«áµn¿ý
- 2015-6-22
|
¶W¯Åª©¥D±z¦n,
§Úªº°ÝÃD¬O: Åܧó¼ÆÈ®É, ¨S¦³¿ìªk¶i¦æ«ºâ, ¤£¾å±o¬Oþ¸Ì¥X¤F°ÝÃD
Matrix.rar (5.57 KB)
|
|
|
|
|
|
|