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

excel vba

woody821119 2019-02-26 01:19:47 ‧ 3189 瀏覽

分享至

因為有點複雜所以我直接用EXCEL畫面節圖
圖1

圖2的工作簿的H2是要依據圖1的A欄最後的號碼+1
圖2

圖2的B3跟H2再分別寫到圖1的A3跟B2

先感謝各位大大了

看更多先前的討論...收起先前的討論...

註冊單 iT邦新手 4 級 ‧ 2019-02-26 07:33:52 檢舉

你這樣有點像老闆或客戶沒人會理你的

棉花 iT邦新手 4 級 ‧ 2019-02-26 08:19:31 檢舉

先報預算啊

woody821119 iT邦新手 5 級 ‧ 2019-02-26 10:07:20 檢舉

不好意思
我沒有老闆或客戶的意思，只是如果有人覺得不是很複雜可以幫忙的話就可以幫我解答一下，公司本身也有頂新ERP，只是我想說自己的部門用excel就好，主要是給自己的部門看的

ccutmis iT邦高手 2 級 ‧ 2019-02-26 11:20:39 檢舉

你的問法不太對。裝成是學生解作業或是你自學到一半遇到瓶頸的問法大概不用多久就有解答了XD

woody821119 iT邦新手 5 級 ‧ 2019-02-26 11:30:28 檢舉

哈哈，那是我的錯，我有研究了一下，但真的不太熟，我有貼在下面了

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

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

忘記寫
選我正解

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

回應 8
分享
檢舉

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

woody821119 iT邦新手 5 級 ‧ 2019-02-26 11:19:39 檢舉

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

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

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

ccutmis iT邦高手 2 級 ‧ 2019-02-26 11:22:33 檢舉

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

海綿寶寶 iT邦大神 1 級 ‧ 2019-02-26 11:28:14 檢舉

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

woody821119 iT邦新手 5 級 ‧ 2019-02-26 11:29:18 檢舉

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

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