[µ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
|
[µ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±z¦n,¤§«e¥i¯à¬O§Ú¦b¦sÀɮɨBÆJ¤W¦³°ÝÃD, ©Î¬O¦Û¤v²Ê¤ß, ¤µ¤Ñ¤S¸Õ¤F¤@¦¸¦s .xlsm ´N¦³Àx¦s¨ì»yªk, ¥i¬O, ¦b§ó§ï¤¸¯À«á¤´µMµLªk«ºâ, ¤£¾å±o¬O¤£¬O¨Æ¥ó¨S¦³«Ø¥ßªº½t¦], ½Ð¶W¯Åª©¥D«üÂI
new matrix.rar (12.19 KB)
|
|
|
|
|
|
|
- ©«¤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, §Ú¿ï"excel¬¡¶Ã¯" ©Î"±Ò¥Î¥¨¶°ªº¬¡¶Ã¯", ³£µLªkÀx¦s»yªk, ¤£ª¾¹D¬°¤°»ò? ¥u¯àªþ¤W pdfÀɵ¹±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, §Úµo²{Àɮפ¤ªº»yªk¦n¹³¨S¦³³QÀx¦s°_¨Ó,©Ò¥H¥Îpdf Àɧâ»yªk½Æ»s¤U,¦A½Ð±zÀ°§Ú¬Ý¬Ý,
¦³°ÝÃDªº»yªk.pdf (49.64 KB)
|
|
|
|
|
|
|
- ©«¤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)
|
|
|
|
|
|
|
- ©«¤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, ¯uªº¬O¤Ó·PÁ§A¤F!!! |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 11# temple - '**************'¤u§@ªí¤W¼ÆȪºÅÜ°Ê*************************
- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- If Not Intersect(Range("a1:e3"), Target.Cells(1)) Is Nothing Then
- '¼ÆȪº§ïÅܦb "a1:e3" ªº½d³ò¤¤
- Ex_¤u§@ªí¤Wªº«ºâ
- End If
- Application.EnableEvents = False
- End Sub
- Sub Ex_¤u§@ªí¤Wªº«ºâ()
- Dim myarray1(), ar(), i As Integer
- With Range("a1:d3")
- For i = 1 To .Rows.Count
- Rows(i).Cells(1, "E") = Application.Product(.Rows(i))
- Next
- End With
- End Sub
- '*************'°}¦C¼ÆȧïÅÜ *******************************
- Option Explicit
- Dim Ar_Key As String, myarray1()
- Sub Ex()
- Dim i As Integer, S As String
- myarray1() = Range("a1:d3").Value '°}¦C¼ÆÈ
- For i = 1 To UBound(myarray1)
- S = S & Join(Application.Index(myarray1, i), ",") & ","
- Next
- If S <> Ar_Key Then '¤ñ¹ï°}¦C¼ÆÈ
- Ex_«ºâ
- Ex_°}¦C¬ö¿ý
- End If
- End Sub
- Sub Ex_«ºâ()
- Dim myarray1(), ar(), i As Integer
- myarray1() = Range("a1:d3").Value
-
- ReDim ar(1 To UBound(myarray1))
- For i = 1 To UBound(ar)
- ar(i) = Application.Product(Application.Index(myarray1, i))
- Next
- Range("e1:e3") = Application.WorksheetFunction.Transpose(ar)
- End Sub
- Private Sub Ex_°}¦C¬ö¿ý() '
- Dim i As Integer
- myarray1() = Range("a1:d3").Value
- Ar_Key = ""
- For i = 1 To UBound(myarray1)
- Ar_Key = Ar_Key & Join(Application.Index(myarray1, i), ",") & ","
- '°}¦C¸ê®Æ¬ö¿ý¤U¨Ó
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|