[µo°Ý] {½Ð¯q} ¤U©Ô¦¡¿ï³æ¦³¤º®e¸ê®Æ¡A¦p¦ó¥ÎVBA©Î¨ä¥L¤è¦¡§e²{¼Æ¾Ú¦b¯S©wÃC¦âªí®æ¤º?

zz0660

Excel¤ºªº i3¦ì¸m¦³¤U©Ô¦¡¿ï³æ¤º®e¬°: 1~5
¤À§O¹ïÀ³ B9~N9ªºªí®æÃC¦â
°²³]¦bi3ªº¤U©Ô¦¡¿ï³æ¿ï¾Ü1¡A«h¹ïÀ³¨ìB9ªº¦ì¸m¡A¨Ì·ÓÃC¦â¶ñ¤J¼Æ¾Ú?
¦p¤U¹Ï¡õ

¤U¸ü (284.68 KB)

2024-6-13 23:06

ªþÀɮסA½Ð¤j¤j¨ó§U¡AÁÂÁÂ~!
ppp.rar (21.85 KB)

¤U¸ü¦¸¼Æ: 6

2024-6-13 23:07

xyz66217

¤£ª¾¹D¬O¤£¬O§A­nªº??¡@¡@
¦pªG¥u¬O¶ñ¤J¼Æ­È¡A¥Î³o­Ó¡C   ¦pªG­n³sÃC¦â³£ÅÜ¡A´N§ï¦¨ copy & paste

Sub test()
    input_button = Cells(3, 9)
    a = 2
    a = input_button + (input_button * a)
    c = 11
    For b = 3 To 6
        Cells(b, 10) = Cells(c, a)
        c = c + 1
    Next b
End Sub

zz0660

¦^´_ 2# xyz66217

·PÁ¤j¤j¦^µª¡A±z´£¨Ñªºµ{¦¡¨S¦³°ÝÃD¡A¥u¬O¸ò§Ú­nªº¬O¬Û¤Ïªº¡A©Ò¥H§Ú§âCells(b, 10) = Cells(c, a)  §ï¦¨  Cells(c, a) = Cells(b, 10)¡A´NÅܦ¨§Ú­nªº¼Ë¤l¡C
¤£¹LÁٯʤÖL3¸òL5¡A³o¨â­Ó¼Æ­È¡C

xyz66217

³oºØ¦³³W«ßªº¡A¦Aµy·L±ÀºV¤@¤U¡A¥i¥H±o¨ì¤½¦¡

Sub test()
    input_button = Cells(3, 9)
    a = 2
    a = input_button + (input_button * a)
    c = 11
    For b = 3 To 6
        Cells(c, a) = Cells(b, 10)
        Cells(18, a - 1) = Cells(3, 12)
        Cells(19, a + 1) = Cells(5, 12)
        c = c + 1
    Next b
End Sub

­ã´£³¡ªL

Sub Test_a1()
Dim xA As Range
Set xA = Cells(9, [i3] * 3 - 1)
xA(3, 2).Resize(4) = [j3:j6].Value
xA(10) = [L3].Value '
xA(11, 3) = [L5].Value
End Sub