iT邦幫忙

0

有沒有vba高手能幫我製作一下excel功能

因為有點複雜所以我直接用EXCEL畫面節圖
圖1
https://ithelp.ithome.com.tw/upload/images/20190226/20113543wNOvSqnFKk.png
圖2的工作簿的H2是要依據圖1的A欄最後的號碼+1
圖2
https://ithelp.ithome.com.tw/upload/images/20190226/20113543F6JMBBFVrA.png
圖2的B3跟H2再分別寫到圖1的A3跟B2

先感謝各位大大了

看更多先前的討論...收起先前的討論...
註冊單 iT邦新手 4 級 ‧ 2019-02-26 07:33:52 檢舉
你這樣有點像老闆或客戶沒人會理你的
棉花 iT邦新手 4 級 ‧ 2019-02-26 08:19:31 檢舉
先報預算啊
不好意思
我沒有老闆或客戶的意思,只是如果有人覺得不是很複雜可以幫忙的話就可以幫我解答一下,公司本身也有頂新ERP,只是我想說自己的部門用excel就好,主要是給自己的部門看的
ccutmis iT邦研究生 5 級 ‧ 2019-02-26 11:20:39 檢舉
你的問法不太對。裝成是學生解作業或是你自學到一半遇到瓶頸的問法大概不用多久就有解答了XD
哈哈,那是我的錯,我有研究了一下,但真的不太熟,我有貼在下面了

1 個回答

0
海綿寶寶
iT邦超人 1 級 ‧ 2019-02-26 10:02:56
最佳解答
Sub Main
   Sheets("修改表流水號").Range("A1") = Sheets("修改表流水號").Range("A1") + 1
   Sheets("修改表流水號").Range("B1") = "範例" & A1
   Sheets("修改紀錄表").Range("H2") = A1
   Sheets("修改紀錄表").Range("B3") = B1
End Sub

忘記寫
選我正解

不想付開發費用想自己寫
洪師父有說過

看更多先前的回應...收起先前的回應...

謝謝海綿寶寶的回答
我試了一下,修改紀錄表好像直接會蓋掉,我是想要依此往下推的,A欄是會00001,00002,.......這樣下去的,再麻煩你了

CalvinKuo iT邦大師 7 級 ‧ 2019-02-26 11:20:59 檢舉

只想到原PO的流水號是字串的話,還要轉來轉去挺麻煩的...

ccutmis iT邦研究生 5 級 ‧ 2019-02-26 11:22:33 檢舉

洪師父 不要跟他比拳 嘗試切他中路

woody821119
我知道會蓋掉
我只是懶得寫
因為
那張修改紀錄表被蓋掉都不在乎了
又何必在乎流水號

我跟我朋友研究的,想說是失敗的就沒貼了

Sub abc()

    If 工作表1.Cells(1, 1) = "" Then
        工作表2.Cells(1, 2).Value = 1
        工作表1.Cells(1, 1).Value = 1
        工作表1.Cells(1, 2) = 工作表2.Cells(1, 1).Value
    End If
    If 工作表2.Cells(1, 2) <> "" And 工作表2.Cells(2, 1) <> "" Then
        For j = 2 To 工作表2.Cells(1, 1).End(xlDown).Row
            If 工作表1.Cells(j, 1) = "" Then
                For i = 1 To 工作表2.Cells(1, 1).End(xlDown).Row
                    If 工作表2.Cells(i, 2) = "" Then
                        工作表2.Cells(i, 2).Value = CInt(工作表1.Cells(j - 1, 1).Value) + 1
                        工作表1.Cells(j, 1) = 工作表2.Cells(i, 2).Value
                        工作表1.Cells(j, 2) = 工作表2.Cells(i, 1).Value
                        Exit For
                    End If
                Next
            End If
        Next
    End If
End Sub

woody821119
很厲害,都寫得差不多了哩

這篇去取得「修改表流水號的第一筆空白列」
立刻就可以達到你要的結果了

感謝海綿寶寶 我後來大致上可行了
現在我是想要把號碼的excel獨立出來然後去讀號碼的xsls的工作表1 vba的程式碼該怎麼寫

我要發表回答

立即登入回答