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

[µo°Ý] ¨â­Ó¢µªº±Æ¦C²Õ¦X¼Æ¡A¥ÎVBA¦p¦ó¹ê²{¡H

[µo°Ý] ¨â­Ó¢µªº±Æ¦C²Õ¦X¼Æ¡A¥ÎVBA¦p¦ó¹ê²{¡H

¦U¦ì¥ý¶i§A­Ì¦n¡G
·Q¥ÎVBA°µ¤@­Ó¦³¨â­Ó¢µªº±Æ¦C²Õ¦X¼Æ¡A¹³¹Ï¤ù³o­Ó°µªk¡A½Ð°Ý¦p¦ó¹ê²{¡HÁÂÁ¡I

¦^´_ 1# maiko


    Sub test()
    For i = 1 To 6
        For j = 1 To 6
            rr = rr + 1
            Cells(rr, 1) = i
            Cells(rr, 2) = j
        Next j
    Next i
End Sub

TOP

ÁÂÁ¡I¸Ñ¨M¤F§Úªº°ÝÃD¡I

TOP

¦^´_ 1# maiko

Sub test()
Dim Arr(1 To 100000, 1 To 2), T&, i&, j&, n
Range("a1").CurrentRegion.ClearContents
T = InputBox("½Ð¿é¤J²Õ¦X¼Æ¦r", "1,2,3...", "1")
For i = 1 To T: For j = 1 To T
    n = n + 1: Arr(n, 1) = i: Arr(n, 2) = j
Next: Next
Range("a1").Resize(n, 2) = Arr
End Sub

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2022-5-3 15:04 ½s¿è

¦^´_ 1# maiko





Sub abc()
y = 6
For i = 1 To y ^ 2 Step y
Cells(i, 1).Resize(6, 1) = i / 6 + 5 / 6  '<---¤½¦¡¦b¤U¤è
Cells(i, 2).Resize(6, 1) = Application.Transpose(Array(1, 2, 3, 4, 5, 6))
Next
End Sub

µo²{³W«ß
1¦C =1
7¦C =2
.......

³]Áp¥ß¤èµ{¦¡ ¥N¤Jy=ax+b
(   1=a+b
(   2=7a+b
-> a=1-b ¥N¤J 2=7a+b
-> 2=7(1-b)+b
-> -5=-6b  
-> b=5/6  ¥N¤J 1=a+b  
-> a=1/6
Àò±o¤èµ{¦¡  y=x/6+5/6

Àò±oµ{¦¡½X       i/6+5/6

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD