查看完整版本 : VBA大神入

國民初戀 2020-8-13 07:23 PM

VBA大神入

小妹近排wfh,老闆就叫我整個vba去入資料,但我冇學過,呢排只係靠睇書/上網學,雖然開頭都算順利,但寫到後面就開始gg..........

話說我寫咗個database,咁我就整好咗個form嚟入嘢同用個listbox show返啲info出嚟,
咁依家個listbox冇咩問題,最大問題係我用rowsource嚟等佢入完嘢㩒save就自動去下一行,咁A就係for row number,但唔知點解我想喺B2,C2(B1係"name",C1係"age"之類)入data,我每次㩒save佢就會自動將啲data save咗去B1同C1嗰度,我想問吓我條formula有咩問題:
Dim sh as worksheet
Dim iRow as long
set sh = thisworkbook.sheets("sheet1")
if userform.textbox1.value ="" then
iRow=[counta(sheet1!A:A)]+1
else
iRow = userform.textbox1.value
end if
with sh
.cells(iRow,1)= iRow-1
.cells(iRow,2)=userform.nametxt.value
.cells(iRow,3)=userform.agetxt.value

End with

(P.S. textbox1係textbox用嚟show rownumber)

有冇大神拯救小妹😣

alee001 2020-8-13 09:38 PM

如果簡單介紹你用「資料表單」代替vba寫userform輸入data
[attach]11496218[/attach]
可以去Excel選項插入此icon
[attach]11496232[/attach]

[[i] 本帖最後由 alee001 於 2020-8-13 09:44 PM 編輯 [/i]]

國民初戀 2020-8-13 10:44 PM

[quote]原帖由 [i]alee001[/i] 於 2020-8-13 09:38 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=523285055&ptid=29299002][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
如果簡單介紹你用「資料表單」代替vba寫userform輸入data
11496218
可以去Excel選項插入此icon
11496232 [/quote]

多謝大大回覆,但我個vba已經寫咗大部分同埋都想知道個問題喺邊度,我仲係搞唔掂個問題。。。。

國民初戀 2020-8-13 10:50 PM

有冇人拯救小妹😢自推~

alee001 2020-8-13 11:23 PM

你嘅code唔完整冇sub唔知under入userform、button、function?

國民初戀 2020-8-13 11:27 PM

[quote]原帖由 [i]alee001[/i] 於 2020-8-13 11:23 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=523289898&ptid=29299002][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
你嘅code唔完整冇sub唔知under入userform、button、function? [/quote]

我係放喺submit嗰個button
sub submit()
Dim sh as worksheet
Dim iRow as long
set sh = thisworkbook.sheets("sheet1")
if userform.textbox1.value ="" then
iRow=[counta(sheet1!A:A)]+1
else
iRow = userform.textbox1.value
end if
with sh
.cells(iRow,1)= iRow-1
.cells(iRow,2)=userform.nametxt.value
.cells(iRow,3)=userform.agetxt.value

End with

End Sub

alee001 2020-8-13 11:47 PM

userform.textbox1.value係乜?如果係文字就error因iRow係長整數...

國民初戀 2020-8-13 11:58 PM

[quote]原帖由 [i]alee001[/i] 於 2020-8-13 11:47 PM 發表 [url=https://www.discuss.com.hk/redirect.php?goto=findpost&pid=523290707&ptid=29299002][img]https://www.discuss.com.hk/images/common/back.gif[/img][/url]
userform.textbox1.value係乜?如果係文字就error因iRow係長整數... [/quote]

textbox1係textbox用嚟show rownumber
但佢冇彈error/要debug喎。。。

yoyozozo 2020-8-20 11:49 PM

A1 個cell 本身有冇入野
同埋logic上我有少少唔明
你段code用意係
如果textbox1 is empty
就計column A 有幾多個data
然後係+1 row save野
如果textbox1 有野
就直接係數字個行row save data
我理解得啱唔啱

如果textbox 1 輸入次數 > 2
D Data 咪有機會會出現隔行或者overwrite ?

定係你會唔會簡單講下想要的效果
可以幫你執執

[[i] 本帖最後由 yoyozozo 於 2020-8-20 11:54 PM 編輯 [/i]]

iisunny 2020-8-27 05:07 PM

解決左未?留名

bickey 2020-9-3 04:19 PM

If UserForm1.TextBox1 = "" Then
        iRow = [Counta(Sheet1!A:A)] + 1
    Else
        iRow = 1 + UserForm1.TextBox1.Value
    End If
頁: [1]
查看完整版本: VBA大神入