Excel VBA 複製問題請益
EXCEL裡面有兩個工作表，一個名稱為AA，另一個名稱為ZZ。如下圖AA工作表↓
[attach]34309[/attach]
ZZ工作表↓
[attach]34310[/attach]
AA工作表，A2的位置有下拉式選單，裡面有20，40，60，80，100，121，142的數字，然後右側有一個按鈕，當按下右側按鈕就會判斷A2的數字，假設1.假設AA工作表的A2=40，就會複製ZZ工作表的E2到E5的數字，假設2.AA工作表的A2=121，就會複製ZZ工作表的E2到E13的數字，假設3.AA工作表的A2=142，就會複製ZZ工作表的E2到E15的數字，這樣如何寫VBA呈現。
以上，煩請大大解惑，謝謝! sub 複製()
dim v, m
v=val([AA!a2])
m=application.match(v, [{20,40,60,80,100,121,142}],0)
if iserror(m) then exit sub
[ZZ!e2].resize(m*2).copy [AA!B1]
end sub [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117500&ptid=23459]2#[/url] [i]准提部林[/i] [/b]
感謝大大協助處理問題，正好是我想要的樣子，謝謝 准提部林 大大! [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117500&ptid=23459]2#[/url] [i]准提部林[/i] [/b]
sub 複製()
dim v, m
v=val([AA!a2])
m=application.match(v, [{20,40,60[color=Red],61,62,63,64,65,66,67[/color],80,100,121,142}],0)
if iserror(m) then exit sub
[ZZ!e2].resize(m*2).copy [AA!B1]
end sub
大大，請問一下，假設我再追加數字61~67的數字，這樣的話無法只單純複製6格，目前希望的是假設60~69的數字，都只會複製6格，也就是ZZ工作表的E2:E7的格子數。
請大大解惑! 有試著改動 m*2 的*2 但效果不如預想。 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117514&ptid=23459]4#[/url] [i]zz0660[/i] [/b]
那有沒有68,69 或不在清單中的其它數字,'
最好上傳附檔, 並舉例說明~~老是用猜的太費時間 [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117516&ptid=23459]5#[/url] [i]准提部林[/i] [/b]
提供檔案，如下
[attach]34320[/attach]
麻煩大大了，謝謝! [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117518&ptid=23459]6#[/url] [i]zz0660[/i] [/b]
Sub 複製()
Dim v, m
v = Val([AA!a2])
m = Application.Lookup(v, [{[color=blue]40[/color],43,[color=blue]80[/color],83,[color=blue]160[/color],163,[color=blue]320[/color],323}], [{[color=blue]2[/color],0,[color=blue]4[/color],0,[color=blue]6[/color],0,[color=blue]8[/color],0}])
If IsError(m) Then Exit Sub
If m > 0 Then [ZZ!e2].Resize(m).Copy [AA!B1]
End Sub
改用lookup, 複製行數可自由指定不同參數, 不一定是2或4的倍數
.======================== [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=117525&ptid=23459]7#[/url] [i]准提部林[/i] [/b]
准提部林大大，已經可以使用了，感謝您協助處理問題，謝謝!
頁:
[1]